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

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

[nongnu] elpa/evil-nerd-commenter b7fc023492 220/235: fixed: `add-to-li


From: ELPA Syncer
Subject: [nongnu] elpa/evil-nerd-commenter b7fc023492 220/235: fixed: `add-to-list’ can’t use lexical var `cands’
Date: Thu, 6 Jan 2022 02:59:49 -0500 (EST)

branch: elpa/evil-nerd-commenter
commit b7fc0234929241bc37b6928c9f3f78f6b2124191
Author: Mou <25452934+dalu98@users.noreply.github.com>
Commit: Chen Bin <chenbin.sh@gmail.com>

    fixed: `add-to-list’ can’t use lexical var `cands’
---
 evil-nerd-commenter.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index 861ec688d5..37eeafe202 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -840,17 +840,19 @@ if NO-EMACS-KEYBINDINGS is t, we don't define keybindings 
in EMACS mode."
                                           (unless (string-match-p "^[ \t]*$" 
s) s))
                                         a)))
               (setq str (mapconcat 'identity a "\n" )))
+
+
             (when (and (not (string-match-p "^[ \t\n\r]*$" str))
                        (> (length str) evilnc-min-comment-length-for-imenu))
               (setq m (make-marker))
               (set-marker m beg)
-              (add-to-list 'cands
-                           (cons (evilnc-frame-wide-string (format "%d:%s" 
linenum str)) m)
-                           t))
+              (push (cons (evilnc-frame-wide-string (format "%d:%s" linenum 
str)) m)
+                    cands))
+
             (goto-char (min (1+ end) (point-max))))
            (t
             (setq searching nil))))))
-    cands))
+    (nreverse cands)))
 
 (defun evilnc-html-comment-region (beg end)
   "Comment region between BEG and END."
@@ -933,6 +935,7 @@ Paragraphs are separated by empty lines."
   (interactive "p")
   (evilnc-do-paragraphs
    (lambda (b e)
+     (ignore e)
      ;; {{ make sure tag is focused
      (goto-char b)
      (sgml-skip-tag-forward 1)



reply via email to

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