branch: elpa/multiple-cursors
commit b60cbc3f56d5f199fb87f0be45ff62d562c24bb7
Author: Magnar Sveen <[email protected]>
Commit: Magnar Sveen <[email protected]>
Add support for yank-pop
---
multiple-cursors-core.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el
index 093ee04..af9f2cc 100644
--- a/multiple-cursors-core.el
+++ b/multiple-cursors-core.el
@@ -42,6 +42,8 @@ highlights the entire width of the window."
(overlay-put o 'mark (set-marker (make-marker) (mark)))
(overlay-put o 'mark-ring mark-ring)
(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))
o)
@@ -52,6 +54,8 @@ highlights the entire width of the window."
(set-marker (mark-marker) (overlay-get o 'mark))
(setq mark-ring (overlay-get o 'mark-ring))
(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))))
(defun mc/remove-fake-cursor (o)
@@ -173,8 +177,9 @@ from being executed if in multiple-cursors-mode."
(unless multiple-cursors-mode
ad-do-it))))
-;; Commands that make a giant mess of multiple cursors
-(unsupported-cmd yank-pop)
+;; Commands that does not work with multiple-cursors
+(unsupported-cmd isearch-forward)
+(unsupported-cmd isearch-backward)
;; Commands to run only once (not yet in use)
(setq mc--cmds-run-once '(mark-next-like-this
