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

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

[nongnu] elpa/evil-nerd-commenter 23e4d4d1e1 097/235: updated doc


From: ELPA Syncer
Subject: [nongnu] elpa/evil-nerd-commenter 23e4d4d1e1 097/235: updated doc
Date: Thu, 6 Jan 2022 02:59:38 -0500 (EST)

branch: elpa/evil-nerd-commenter
commit 23e4d4d1e1d9eba84d3fdb1cbf3ae87b5f4897b6
Author: Chen Bin <chenbin.sh@gmail.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    updated doc
---
 evil-nerd-commenter.el | 31 ++++++++++++-------------------
 1 file changed, 12 insertions(+), 19 deletions(-)

diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index d0472c1362..9f3d784470 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -94,8 +94,7 @@
     (goto-char (point-min))
     (if (eq selective-display t)
       (re-search-forward "[\n\C-m]" nil 'end (1- line))
-      (forward-line (1- line))))
-  )
+      (forward-line (1- line)))))
 
 (defun evilnc--fix-buggy-major-modes ()
   "fix major modes whose comment regex is buggy.
@@ -107,25 +106,22 @@
     ;; See code in (defun comment-search-forward) from emacs 24.2.1:
     ;; (if (not comment-use-syntax)
     ;;     (if (re-search-forward comment-start-skip limit noerror)
-    ;;     (or (match-end 1) (match-beginning 0))
-    ;; My regex make sure (match-end 1) return the position of comment starter
+    ;;     (or (match-end 1) (match-beginning 0)))
+    ;;     (do-something))
+    ;; My regex makes sure (match-end 1) return the position of comment starter
     (when (and (boundp 'comment-use-syntax) (not comment-use-syntax))
         ;; Maybe autoconf.el will (setq comment-use-syntax t) in the future?
-        (setq comment-start-skip "^\\(\\s*\\)\\(dnl\\|#\\) +")
-      )
-    )
-  )
+        (setq comment-start-skip "^\\(\\s*\\)\\(dnl\\|#\\) +"))
+    ))
 
 (defun evilnc--operation-on-lines-or-region (fn &optional NUM)
   (if (not (region-active-p))
-      (let ((b (line-beginning-position))
-            e)
+      (let ((b (line-beginning-position)) e)
         (save-excursion
           (forward-line (- NUM 1))
           (setq e (line-end-position))
           )
-        (funcall fn b e)
-        )
+        (funcall fn b e))
     ;; expand selected region
     (progn
       (save-excursion
@@ -161,21 +157,18 @@
               (setq b (line-beginning-position))
               )
         (setq b 1)
-        )
-      )
+        ))
     (save-excursion
-
       (setq e (re-search-forward "^[ \t]*$" nil t))
       (if e (progn
               (forward-line -1)
               (setq e (line-end-position))
               )
         (setq e (point-max))
-        )
-      )
+        ))
+
     (list b e)
-    )
-  )
+    ))
 
 (defun evilnc--in-comment-p (pos)
   (interactive)



reply via email to

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