From a4ba0acf8901036fa70e6af4ae4dca86bea4074e Mon Sep 17 00:00:00 2001 From: Lionel Flandrin Date: Tue, 23 Jul 2019 20:38:50 +0100 Subject: [PATCH] Move cursor back before the pasted text in evil-paste-before and evil-paste-after --- evil-commands.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/evil-commands.el b/evil-commands.el index 225cfa12..599b00b3 100644 --- a/evil-commands.el +++ b/evil-commands.el @@ -1893,7 +1893,9 @@ The return value is the yanked text." (evil-set-marker ?\] (1- (point))) (when (and evil-move-cursor-back (> (length text) 0)) - (backward-char)))) + (backward-char)) + (if (evil-normal-state-p) + (evil-exchange-point-and-mark)))) ;; no paste-pop after pasting from a register (when register (setq evil-last-paste nil)) @@ -1944,7 +1946,8 @@ The return value is the yanked text." (evil-set-marker ?\[ beg) (evil-set-marker ?\] (1- (point))) (when (evil-normal-state-p) - (evil-move-cursor-back))))) + (evil-move-cursor-back) + (evil-exchange-point-and-mark))))) (when register (setq evil-last-paste nil)) (and (> (length text) 0) text)))))