ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 21:03:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add support for yank-pop

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-02 07:42:00 +02:00
parent efd79f3258
commit b60cbc3f56
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
multiple-cursors-core.el
View File

@ -42,6 +42,8 @@ highlights the entire width of the window."
(overlay-put o 'mark (set-marker (make-marker) (mark))) (overlay-put o 'mark (set-marker (make-marker) (mark)))
(overlay-put o 'mark-ring mark-ring) (overlay-put o 'mark-ring mark-ring)
(overlay-put o 'mark-active mark-active) (overlay-put o 'mark-active mark-active)
(overlay-put o 'yank-undo-function yank-undo-function)
(overlay-put o 'kill-ring-yank-pointer kill-ring-yank-pointer)
(when (boundp 'er/history) (overlay-put o 'er/history er/history)) (when (boundp 'er/history) (overlay-put o 'er/history er/history))
o) o)
@ -52,6 +54,8 @@ highlights the entire width of the window."
(set-marker (mark-marker) (overlay-get o 'mark)) (set-marker (mark-marker) (overlay-get o 'mark))
(setq mark-ring (overlay-get o 'mark-ring)) (setq mark-ring (overlay-get o 'mark-ring))
(setq mark-active (overlay-get o 'mark-active)) (setq mark-active (overlay-get o 'mark-active))
(setq yank-undo-function (overlay-get o 'yank-undo-function))
(setq kill-ring-yank-pointer (overlay-get o 'kill-ring-yank-pointer))
(when (boundp 'er/history) (setq er/history (overlay-get o 'er/history)))) (when (boundp 'er/history) (setq er/history (overlay-get o 'er/history))))
(defun mc/remove-fake-cursor (o) (defun mc/remove-fake-cursor (o)
@ -173,8 +177,9 @@ from being executed if in multiple-cursors-mode."
(unless multiple-cursors-mode (unless multiple-cursors-mode
ad-do-it)))) ad-do-it))))
;; Commands that make a giant mess of multiple cursors ;; Commands that does not work with multiple-cursors
(unsupported-cmd yank-pop) (unsupported-cmd isearch-forward)
(unsupported-cmd isearch-backward)
;; Commands to run only once (not yet in use) ;; Commands to run only once (not yet in use)
(setq mc--cmds-run-once '(mark-next-like-this (setq mc--cmds-run-once '(mark-next-like-this