mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/help.el (help--analyze-key): Add new arg BUFFER (bug#51173).

Browse source 
* lisp/help.el (describe-key): Use BUFFER as arg for help--analyze-key.
(describe-key-briefly): Change arg UNTRANSLATED deprecated in 27.1
to BUFFER.

* lisp/gnus/gnus-art.el (gnus-article-describe-key)
(gnus-article-describe-key-briefly): Call describe-key and
describe-key-briefly with first arg as a cons with raw keys,
and the BUFFER arg set to the current buffer.
This commit is contained in:
Juri Linkov 2021-10-20 20:54:57 +03:00
parent cb8b12b56d
commit 59df93e2dd
2 changed files with 25 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/gnus-art.el
View file

@ -6866,7 +6866,9 @@ KEY is a string or a vector."
unread-command-events))
(let ((cursor-in-echo-area t)
gnus-pick-mode)
(describe-key (read-key-sequence nil t))))
(describe-key (cons (read-key-sequence nil t)
(this-single-command-raw-keys))
(current-buffer))))
(describe-key key)))
(defun gnus-article-describe-key-briefly (key &optional insert)
@ -6889,7 +6891,9 @@ KEY is a string or a vector."
unread-command-events))
(let ((cursor-in-echo-area t)
gnus-pick-mode)
(describe-key-briefly (read-key-sequence nil t) insert)))
(describe-key-briefly (cons (read-key-sequence nil t)
(this-single-command-raw-keys))
insert (current-buffer))))
(describe-key-briefly key insert)))
;;`gnus-agent-mode' in gnus-agent.el will define it.