andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(help--append-keystrokes-help): Fix bug#76341

Browse source 
* lisp/help.el (help--append-keystrokes-help): Silence the help message
when there is no help key.
This commit is contained in:
Stefan Monnier 2025-02-22 14:57:25 -05:00
parent 1ffa052113
commit c830caab2c
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/help.el
View file

@ -2200,18 +2200,17 @@ The `temp-buffer-window-setup-hook' hook is called."
(current-active-maps t)))))
(catch 'res
(dolist (val help-event-list)
(let ((key (vector (if (eql val 'help)
help-char
val))))
(unless (seq-find (lambda (map) (and (keymapp map) (lookup-key map key)))
bindings)
(throw 'res
(concat
str
(substitute-command-keys
(format
" (\\`%s' for help)"
(key-description key))))))))
(when (setq val (if (eql val 'help) help-char val))
(let ((key (vector val)))
(unless (seq-find (lambda (map) (and (keymapp map) (lookup-key map key)))
bindings)
(throw 'res
(concat
str
(substitute-command-keys
(format
" (\\`%s' for help)"
(key-description key)))))))))
str)))