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

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

[nongnu] elpa/evil-nerd-commenter 5535be5421 227/235: (line . column)


From: ELPA Syncer
Subject: [nongnu] elpa/evil-nerd-commenter 5535be5421 227/235: (line . column)
Date: Thu, 6 Jan 2022 02:59:50 -0500 (EST)

branch: elpa/evil-nerd-commenter
commit 5535be54212211610ad5ee2ef01e05892aa28a20
Author: Sergi Ruiz <sergi.ruiz.trepat@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    (line . column)
---
 evil-nerd-commenter.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index cf8424a04f..348421ee71 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -313,7 +313,7 @@ See 
http://lists.gnu.org/archive/html/bug-gnu-emacs/2013-03/msg00891.html.";
         (setq comment-start "/* ")
         (setq comment-end " */")
         (setq comment-start-skip "\\(//+\\|/\\*+\\)\\s *")
-        (setq comment-end-skip "[      ]*\\(\\s>\\|\\*+/\\)")
+        (setq comment-end-skip "[   ]*\\(\\s>\\|\\*+/\\)")
 
         (funcall fn (region-beginning) (region-end))
 
@@ -639,9 +639,9 @@ to comment to the line 6453"
    ((and (evilnc-visual-line-p)
          (eq (point) (nth 1 (evil-visual-range))))
     ;; In evil visual line state, point is beginning or end visual range
-    (1- (point)))
+    (cons (line-number-at-pos) (1- (current-column))))
    (t
-    (point))))
+    (cons (line-number-at-pos) (current-column)))))
 
 ;;;###autoload
 (defun evilnc-comment-or-uncomment-lines (&optional num)
@@ -671,13 +671,14 @@ CORRECT comment syntax will be used for 
C++/Java/Javascript."
           (setq num (- 0 num)))
         (evilnc--operation-on-lines-or-region
          (lambda (b e)
-           (setq orig-pos (point))
            (evilnc--fix-buggy-major-modes)
            ;; when comment in evil visual state, the cursor may be rogue
            (when (evilnc-visual-line-p) (evil-normal-state))
            (evilnc-comment-or-uncomment-region b e))
          num))
-      (goto-char orig-pos)))))
+
+      (goto-line (car orig-pos))
+      (forward-char (cdr orig-pos))))))
 
 ;;;###autoload
 (defun evilnc-copy-and-comment-lines (&optional num)



reply via email to

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