mirror of
https://github.com/magnars/multiple-cursors.el.git
synced 2025-10-13 13:03:03 +00:00
18 lines
555 B
EmacsLisp
18 lines
555 B
EmacsLisp
(require 'mark-multiple)
|
|
|
|
(defun mc/switch-from-mark-multiple-to-cursors ()
|
|
"Removes mark-multiple and switches to multiple cursors instead"
|
|
(interactive)
|
|
(let ((offset (- (point) (overlay-start mm/master))))
|
|
(deactivate-mark)
|
|
(save-excursion
|
|
(dolist (mirror mm/mirrors)
|
|
(goto-char (+ offset (overlay-start mirror)))
|
|
(mc/create-fake-cursor-at-point)))
|
|
(mm/clear-all)
|
|
(multiple-cursors-mode)))
|
|
|
|
(define-key mm/keymap (kbd "C-g") 'mc/switch-from-mark-multiple-to-cursors)
|
|
|
|
(provide 'mc-mark-multiple-integration)
|