mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Fix `C-h k' in gnus-article-mode
* lisp/gnus/gnus-art.el (gnus-article-describe-key): (gnus-article-describe-key-briefly): Fix `describe-key' calling convention (bug#51796).
This commit is contained in:
parent
ad442b8887
commit
e29c9308b1
1 changed files with 4 additions and 4 deletions
|
|
@ -6897,8 +6897,8 @@ KEY is a string or a vector."
|
|||
unread-command-events))
|
||||
(let ((cursor-in-echo-area t)
|
||||
gnus-pick-mode)
|
||||
(describe-key (cons (read-key-sequence nil t)
|
||||
(this-single-command-raw-keys))
|
||||
(describe-key (list (cons (read-key-sequence nil t)
|
||||
(this-single-command-raw-keys)))
|
||||
(current-buffer))))
|
||||
(describe-key key)))
|
||||
|
||||
|
|
@ -6922,8 +6922,8 @@ KEY is a string or a vector."
|
|||
unread-command-events))
|
||||
(let ((cursor-in-echo-area t)
|
||||
gnus-pick-mode)
|
||||
(describe-key-briefly (cons (read-key-sequence nil t)
|
||||
(this-single-command-raw-keys))
|
||||
(describe-key-briefly (list (cons (read-key-sequence nil t)
|
||||
(this-single-command-raw-keys)))
|
||||
insert (current-buffer))))
|
||||
(describe-key-briefly key insert)))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue