jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* modules/prelude-evil.el: keep selection after visual shift

Browse source
This commit is contained in:
Sergey Avseyev 2014-08-13 23:22:34 +03:00
parent a403cb624f
commit 720658c0e5
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
modules/prelude-evil.el
View file

@ -75,6 +75,23 @@
(define-key evil-normal-state-map (define-key evil-normal-state-map
(kbd "Y") 'prelude-yank-to-end-of-line) (kbd "Y") 'prelude-yank-to-end-of-line)
(defun prelude-shift-left-visual ()
"Shift left and restore visual selection."
(interactive)
(evil-shift-left (region-beginning) (region-end))
(evil-normal-state)
(evil-visual-restore))
(defun prelude-shift-right-visual ()
"Shift right and restore visual selection."
(interactive)
(evil-shift-right (region-beginning) (region-end))
(evil-normal-state)
(evil-visual-restore))
(define-key evil-visual-state-map (kbd ">") 'prelude-shift-right-visual)
(define-key evil-visual-state-map (kbd "<") 'prelude-shift-left-visual)
;; Scrolling ;; Scrolling
(defun prelude-evil-scroll-down-other-window () (defun prelude-evil-scroll-down-other-window ()
(interactive) (interactive)