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

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

[nongnu] elpa/evil-nerd-commenter e1de1d759b 137/235: clean code


From: ELPA Syncer
Subject: [nongnu] elpa/evil-nerd-commenter e1de1d759b 137/235: clean code
Date: Thu, 6 Jan 2022 02:59:42 -0500 (EST)

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

    clean code
---
 evil-nerd-commenter-operator.el | 23 ++++++++++++-----------
 evil-nerd-commenter.el          |  3 +--
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/evil-nerd-commenter-operator.el b/evil-nerd-commenter-operator.el
index f107036d64..8052995f6f 100644
--- a/evil-nerd-commenter-operator.el
+++ b/evil-nerd-commenter-operator.el
@@ -40,10 +40,11 @@
   (interactive "<R>")
   (cond
    ((eq type 'block)
-    (let ((newpos (evilnc--extend-to-whole-comment beg end) ))
-      (evil-apply-on-block #'evilnc--comment-or-uncomment-region (nth 0 
newpos) (nth 1 newpos) nil)
-      )
-    )
+    (let* ((newpos (evilnc--extend-to-whole-comment beg end) ))
+      (evil-apply-on-block #'evilnc--comment-or-uncomment-region
+                           (nth 0 newpos)
+                           (nth 1 newpos)
+                           nil)))
    ((and (eq type 'line)
          (= end (point-max))
          (or (= beg end)
@@ -51,18 +52,18 @@
          (/= beg (point-min))
          (=  (char-before beg) ?\n))
     (evilnc--comment-or-uncomment-region (1- beg) end))
+
    ((eq type 'line)
     (evilnc--comment-or-uncomment-region beg (1- end)))
+
    (t
-    (let ((newpos (evilnc--extend-to-whole-comment beg end) ))
-      (evilnc--comment-or-uncomment-region (nth 0 newpos) (nth 1 newpos))
-      )
-    ))
+    (let* ((newpos (evilnc--extend-to-whole-comment beg end) ))
+      (evilnc--comment-or-uncomment-region (nth 0 newpos) (nth 1 newpos)))))
+
   ;; place cursor on beginning of line
-  (when (and (evil-called-interactively-p)
-             (eq type 'line))
+  (if (and (evil-called-interactively-p)
+           (eq type 'line))
     (evil-first-non-blank)))
 
 (provide 'evil-nerd-commenter-operator)
-
 ;;; evil-nerd-commenter-operator.el ends here
diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index 041a80dae2..6e56c406bf 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -75,8 +75,7 @@
 ;;   "cp" 'evilnc-comment-or-uncomment-paragraphs
 ;;   "cr" 'comment-or-uncomment-region
 ;;   "cv" 'evilnc-toggle-invert-comment-line-by-line
-;;   "\\" 'evilnc-comment-operator
-;;   )
+;;   "\\" 'evilnc-comment-operator)
 ;;
 ;; For certain major modes, you need manual setup to override its original
 ;; keybindings,



reply via email to

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