mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
Avoid "C-h for help" prompt in "C-h" commands describing keys
* lisp/info.el (Info-goto-emacs-key-command-node): Call 'read-key-sequence' instead of using 'interactive' with the "k" code, and suppress the "C-h for help" echo. * lisp/help.el (help--read-key-sequence): Suppress the "C-h for help" prompt in echo-keystrokes. Give the prompt the 'minibuffer-prompt' face. (Bug#70432)
This commit is contained in:
parent
1bbc2fa416
commit
08b55ec559
2 changed files with 16 additions and 2 deletions
|
|
@ -1049,6 +1049,9 @@ with `mouse-movement' events."
|
|||
(let ((enable-disabled-menus-and-buttons t)
|
||||
(cursor-in-echo-area t)
|
||||
(side-event nil)
|
||||
;; Showing the list of key sequences makes no sense when they
|
||||
;; asked about a key sequence.
|
||||
(echo-keystrokes-help nil)
|
||||
saved-yank-menu)
|
||||
(unwind-protect
|
||||
(let (last-modifiers key-list)
|
||||
|
|
@ -1066,8 +1069,11 @@ with `mouse-movement' events."
|
|||
;; After a click, see if a double click is on the way.
|
||||
(and (memq 'click last-modifiers)
|
||||
(not (sit-for (/ (mouse-double-click-time) 1000.0) t))))
|
||||
(let* ((seq (read-key-sequence "\
|
||||
(let* ((prompt
|
||||
(propertize "\
|
||||
Describe the following key, mouse click, or menu item: "
|
||||
'face 'minibuffer-prompt))
|
||||
(seq (read-key-sequence prompt
|
||||
nil nil 'can-return-switch-frame))
|
||||
(raw-seq (this-single-command-raw-keys))
|
||||
(keyn (when (> (length seq) 0)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue