Move cursor back before the pasted text in evil-paste-before and evil…

…-paste-after
emacs-evil · Jul 23, 2019 · ed55572 · ed55572
1 parent 297b8f3
commit ed55572
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/evil-commands.el b/evil-commands.el
@@ -1893,7 +1893,8 @@ 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))
+            (evil-exchange-point-and-mark)))
         ;; no paste-pop after pasting from a register
         (when register
           (setq evil-last-paste nil))
@@ -1944,7 +1945,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)))))