Emacs: Make evil shift in visual mode prefix compatible

2022-09-04 12:37:57 +02:00
parent 82e5740e22
commit 437dd48e51
1 changed files with 4 additions and 4 deletions
@@ -63,16 +63,16 @@ Vim equivalence: <Tab>"

 Vim equivalence: <gv"
 	(interactive)
-	(evil-shift-left (region-beginning) (region-end))
-	(funcall (evil-visual-restore)))
+	(call-interactively #'evil-shift-left)
+	(setq deactivate-mark nil))

  (defun dot/evil-visual-shift-right ()
 	"Shift visual selection left, retains the selection.

 Vim equivalence: >gv"
 	(interactive)
-	(evil-shift-right (region-beginning) (region-end))
-	(funcall (evil-visual-restore)))
+	(call-interactively #'evil-shift-right)
+	(setq deactivate-mark nil))

  (evil-mode))
 #+END_SRC