[nongnu] elpa/multiple-cursors b60cbc3 044/434: Add support for yank-pop

[ELPA Syncer]

branch: elpa/multiple-cursors
commit b60cbc3f56d5f199fb87f0be45ff62d562c24bb7
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    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