[Top][All Lists]

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

scratch/lexical-gnus a29b64a: Dynbind `number` in `gnus-group-insert-gro

From: Stefan Monnier
Subject: scratch/lexical-gnus a29b64a: Dynbind `number` in `gnus-group-insert-group-line`
Date: Sat, 30 Jan 2021 13:52:21 -0500 (EST)

branch: scratch/lexical-gnus
commit a29b64a1770c31f664c7cd7ffe4f04b1b702e228
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Dynbind `number` in `gnus-group-insert-group-line`
 lisp/gnus/gnus-group.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 76ba653..e408b70 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1505,7 +1505,10 @@ if it is a string, only list groups matching REGEXP."
 (defun gnus-group-insert-group-line (group level marked number gnus-tmp-method)
   "Insert a group line in the group buffer."
-  (let* ((gnus-tmp-level level)
+  (with-suppressed-warnings ((lexical number))
+    (defvar number))
+  (let* ((number number)        ;FIXME: Used in `gnus-group-line-format-alist'.
+        (gnus-tmp-level level)
         (gnus-tmp-marked marked)
         (gnus-tmp-group group)

reply via email to

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