From b60cbc3f56d5f199fb87f0be45ff62d562c24bb7 Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Mon, 2 Jul 2012 07:42:00 +0200 Subject: [PATCH] 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