From 2f1e1ee8808659b2ee0ee21b12b48dcd3dad492f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 27 Mar 2016 18:14:08 -0400 Subject: [PATCH] Make narf/multi-*-line visual-line aware --- core/defuns/defuns-evil.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/core/defuns/defuns-evil.el b/core/defuns/defuns-evil.el index 3a63bf0e9..f71062abc 100644 --- a/core/defuns/defuns-evil.el +++ b/core/defuns/defuns-evil.el @@ -20,12 +20,16 @@ ;;;###autoload (autoload 'narf/multi-next-line "defuns-evil" nil t) (evil-define-motion narf/multi-next-line (count) "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) (evil-define-motion narf/multi-previous-line (count) "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 (defun narf/evil-visual-line-state-p ()