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

Merge pull request #641 from avsej/evil-visual-shift

Browse source 
Keep selection after visual shift
This commit is contained in:
Bozhidar Batsov 2014-09-10 09:41:48 +03:00
commit 99f1a43752
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)