awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make narf/multi-*-line visual-line aware

Browse Source
This commit is contained in:
Henrik Lissner
2016-03-27 18:14:08 -04:00
parent b56755648b
commit 2f1e1ee880
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
core/defuns/defuns-evil.el
View File

@ -20,12 +20,16 @@
;;;###autoload (autoload 'narf/multi-next-line "defuns-evil" nil t) ;;;###autoload (autoload 'narf/multi-next-line "defuns-evil" nil t)
(evil-define-motion narf/multi-next-line (count) (evil-define-motion narf/multi-next-line (count)
"Move down 6 lines" "Move down 6 lines"
:type line (evil-line-move 6)) :type line
(let ((line-move-visual visual-line-mode))
(evil-line-move (* 6 (or count 1)))))
;;;###autoload (autoload 'narf/multi-previous-line "defuns-evil" nil t) ;;;###autoload (autoload 'narf/multi-previous-line "defuns-evil" nil t)
(evil-define-motion narf/multi-previous-line (count) (evil-define-motion narf/multi-previous-line (count)
"Move up 6 lines" "Move up 6 lines"
:type line (evil-line-move -6)) :type line
(let ((line-move-visual visual-line-mode))
(evil-line-move (- (* 6 (or count 1))))))
;;;###autoload ;;;###autoload
(defun narf/evil-visual-line-state-p () (defun narf/evil-visual-line-state-p ()