[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)
(gnus-tmp-method
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/lexical-gnus a29b64a: Dynbind `number` in `gnus-group-insert-group-line`,
Stefan Monnier <=