emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-nerd-commenter 8089308aad 181/235: Merge pull request


From: ELPA Syncer
Subject: [nongnu] elpa/evil-nerd-commenter 8089308aad 181/235: Merge pull request #94 from leungbk/vertical-motion
Date: Thu, 6 Jan 2022 02:59:46 -0500 (EST)

branch: elpa/evil-nerd-commenter
commit 8089308aad1fd06d46e98f33116c6851de6a2902
Merge: 904d9ee2ed ef4d595e18
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #94 from leungbk/vertical-motion
    
    Modify evilnc--operation-on-lines-or-region for visual line numbers.
---
 evil-nerd-commenter.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index abd3df3681..0824bcf929 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -202,7 +202,7 @@ See 
http://lists.gnu.org/archive/html/bug-gnu-emacs/2013-03/msg00891.html.";
    ((not (region-active-p))
     (let* ((b (line-beginning-position)) e)
       (save-excursion
-        (forward-line (- num 1))
+        (vertical-motion (- num 1))
         (setq e (line-end-position)))
       (funcall fn b e)))
 
@@ -592,7 +592,7 @@ CORRECT comment syntax will be used for 
C++/Java/Javascript."
    (t
     (save-excursion
       (when (< num 0)
-        (forward-line (1+ num))
+        (vertical-motion (1+ num))
         (setq num (- 0 num)))
       (evilnc--operation-on-lines-or-region '(lambda (b e)
                                                (evilnc--fix-buggy-major-modes)
@@ -612,7 +612,7 @@ Then we operate the expanded region.  NUM is ignored."
   (interactive "p")
   ;; support negative number
   (when (< num 0)
-    (forward-line (1+ num))
+    (vertical-motion (1+ num))
     (setq num (- 0 num)))
 
   (let* ((original-column (current-column)))
@@ -651,7 +651,7 @@ Then we operate the expanded region.  NUM is ignored."
   (interactive "p")
   ;; support negative number
   (when (< num 0)
-    (forward-line (1+ num))
+    (vertical-motion (1+ num))
     (setq num (- 0 num)))
 
   (evilnc--operation-on-lines-or-region



reply via email to

[Prev in Thread] Current Thread [Next in Thread]