From 97059bcdffe722ab92ca39209c3a3b62144b19a1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 14 Nov 2021 02:46:38 +0100 Subject: [PATCH] Fix `C-h k' in gnus-article-mode (don't merge) * lisp/gnus/gnus-art.el (gnus-article-describe-key): (gnus-article-describe-key-briefly): Fix `describe-key' calling convention (bug#51796). --- lisp/gnus/gnus-art.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index cce0fc32b70..b97cd711c4e 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6867,8 +6867,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))) @@ -6892,8 +6892,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))) -- 2.39.2