From 16add89d29db7a0b0e106534aad7e1b1935a9774 Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Mon, 11 Feb 2013 07:28:26 +0100 Subject: [PATCH] Bugfix for sort/reverse regions w/similar contents --- mc-separate-operations.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mc-separate-operations.el b/mc-separate-operations.el index f15dc7d..17d37c0 100644 --- a/mc-separate-operations.el +++ b/mc-separate-operations.el @@ -48,9 +48,9 @@ (let (strings) (save-excursion (mc/for-each-cursor-ordered - (add-to-list 'strings (buffer-substring-no-properties - (mc/cursor-beg cursor) - (mc/cursor-end cursor))))strings) + (setq strings (cons (buffer-substring-no-properties + (mc/cursor-beg cursor) + (mc/cursor-end cursor)) strings)))) (nreverse strings))) (defvar mc--strings-to-replace nil)