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

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

[nongnu] elpa/evil-nerd-commenter fd2fba722e 205/235: clean keybinding s


From: ELPA Syncer
Subject: [nongnu] elpa/evil-nerd-commenter fd2fba722e 205/235: clean keybinding setup code
Date: Thu, 6 Jan 2022 02:59:48 -0500 (EST)

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

    clean keybinding setup code
---
 evil-nerd-commenter-operator.el |  1 +
 evil-nerd-commenter.el          | 41 +++++++++++++++++++----------------------
 2 files changed, 20 insertions(+), 22 deletions(-)

diff --git a/evil-nerd-commenter-operator.el b/evil-nerd-commenter-operator.el
index 44ea65a7fe..eaa0e9e22f 100644
--- a/evil-nerd-commenter-operator.el
+++ b/evil-nerd-commenter-operator.el
@@ -322,6 +322,7 @@ we are processing C like language."
      (t
       (error "Not inside a comment")))))
 
+
 (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 ed4ca80923..bda5bacdc5 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -757,6 +757,7 @@ Then we operate the expanded region.  NUM is ignored."
 (defvar evil-visual-state-map)
 (defvar evil-inner-text-objects-map)
 (defvar evil-outer-text-objects-map)
+
 ;;;###autoload
 (defun evilnc-default-hotkeys (&optional no-evil-keybindings 
no-emacs-keybindings)
   "Setup the key bindings of evil-nerd-comment.
@@ -772,31 +773,27 @@ if NO-EMACS-KEYBINDINGS is t, we don't define keybindings 
in EMACS mode."
 
   ;; Install key bindings for evil
   (unless no-evil-keybindings
-    (eval-after-load 'evil
-      '(progn
-         (define-key evil-normal-state-map ",ci" 
'evilnc-comment-or-uncomment-lines)
-         (define-key evil-visual-state-map ",ci" 
'evilnc-comment-or-uncomment-lines)
-         (define-key evil-normal-state-map ",cl" 
'evilnc-quick-comment-or-uncomment-to-the-line)
-         (define-key evil-normal-state-map ",ll" 
'evilnc-quick-comment-or-uncomment-to-the-line)
-         (define-key evil-normal-state-map ",cc" 
'evilnc-copy-and-comment-lines)
-         (define-key evil-visual-state-map ",cc" 
'evilnc-copy-and-comment-lines)
-         (define-key evil-normal-state-map ",cp" 
'evilnc-comment-or-uncomment-paragraphs)
-         (define-key evil-normal-state-map ",cr" 'comment-or-uncomment-region)
-         (define-key evil-normal-state-map ",cv" 
'evilnc-toggle-invert-comment-line-by-line))))
+    (define-key evil-normal-state-map ",ci" 'evilnc-comment-or-uncomment-lines)
+    (define-key evil-visual-state-map ",ci" 'evilnc-comment-or-uncomment-lines)
+    (define-key evil-normal-state-map ",cl" 
'evilnc-quick-comment-or-uncomment-to-the-line)
+    (define-key evil-normal-state-map ",ll" 
'evilnc-quick-comment-or-uncomment-to-the-line)
+    (define-key evil-normal-state-map ",cc" 'evilnc-copy-and-comment-lines)
+    (define-key evil-visual-state-map ",cc" 'evilnc-copy-and-comment-lines)
+    (define-key evil-normal-state-map ",cp" 
'evilnc-comment-or-uncomment-paragraphs)
+    (define-key evil-normal-state-map ",cr" 'comment-or-uncomment-region)
+    (define-key evil-normal-state-map ",cv" 
'evilnc-toggle-invert-comment-line-by-line))
 
   ;; Install operator for evil text objects
   (unless (and no-evil-keybindings (not evilnc-use-comment-object-setup))
-    (eval-after-load 'evil-nerd-commenter-operator
-      '(progn
-         ;; operator to comment at text objects
-         (define-key evil-normal-state-map ",." 
'evilnc-copy-and-comment-operator)
-         (define-key evil-visual-state-map ",." 
'evilnc-copy-and-comment-operator)
-         (define-key evil-normal-state-map ",," 'evilnc-comment-operator)
-         (define-key evil-visual-state-map ",," 'evilnc-comment-operator)
-
-         ;; comment itself is text object
-         (define-key evil-inner-text-objects-map evilnc-comment-text-object 
'evilnc-inner-comment)
-         (define-key evil-outer-text-objects-map evilnc-comment-text-object 
'evilnc-outer-commenter)))))
+    ;; operator to comment at text objects
+    (define-key evil-normal-state-map ",." 'evilnc-copy-and-comment-operator)
+    (define-key evil-visual-state-map ",." 'evilnc-copy-and-comment-operator)
+    (define-key evil-normal-state-map ",," 'evilnc-comment-operator)
+    (define-key evil-visual-state-map ",," 'evilnc-comment-operator)
+
+    ;; comment itself is text object
+    (define-key evil-inner-text-objects-map evilnc-comment-text-object 
'evilnc-inner-comment)
+    (define-key evil-outer-text-objects-map evilnc-comment-text-object 
'evilnc-outer-commenter)))
 
 
 (defun evilnc-frame-wide-string (s)



reply via email to

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