diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-30 13:52:14 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-01-30 13:52:14 -0500 |
commit | a29b64a1770c31f664c7cd7ffe4f04b1b702e228 (patch) | |
tree | 5042bb65e3beebc2dd9cf7c4ff39f703c02254d3 | |
parent | 7ccd21c6abbcacc96c8f89917d0be99c25e4ba7d (diff) | |
download | emacs-scratch/lexical-gnus.tar.gz |
Dynbind `number` in `gnus-group-insert-group-line`scratch/lexical-gnus
-rw-r--r-- | lisp/gnus/gnus-group.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 76ba653e418..e408b702585 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 |