From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Nov 2021 01:46:38 +0000 (+0100)
Subject: Fix `C-h k' in gnus-article-mode
X-Git-Tag: emacs-29.0.90~2852^2~298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e29c9308b14893622c257a1c106ec734e2e70dc7;p=emacs.git

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).
---

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 78ce89dde3c..23f1431b80f 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -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)))