procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make describe-prefix-bindings say when there are no matches

Browse source 
* lisp/help.el (describe-prefix-bindings): Say when there are no
bindings under a prefix (bug#55875), for instance in `C-c C-h' in
a buffer with no `C-c' commands.
This commit is contained in:
Lars Ingebrigtsen 2022-06-10 11:39:51 +02:00
parent 071722e411
commit 15a5c5ce40
1 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/help.el
View file

@ -392,16 +392,23 @@ If that doesn't give a function, return nil."
The prefix described consists of all but the last event
of the key sequence that ran this command."
(interactive)
(let ((key (this-command-keys)))
(describe-bindings
(if (stringp key)
(substring key 0 (1- (length key)))
(let ((prefix (make-vector (1- (length key)) nil))
(i 0))
(while (< i (length prefix))
(aset prefix i (aref key i))
(setq i (1+ i)))
prefix)))))
(let* ((key (this-command-keys))
(prefix
(if (stringp key)
(substring key 0 (1- (length key)))
(let ((prefix (make-vector (1- (length key)) nil))
(i 0))
(while (< i (length prefix))
(aset prefix i (aref key i))
(setq i (1+ i)))
prefix))))
(describe-bindings prefix)
(with-current-buffer (help-buffer)
(when (< (buffer-size) 10)
(let ((inhibit-read-only t))
(insert (format "No commands with a binding that start with %s."
(help--key-description-fontified prefix))))))))
;; Make C-h after a prefix, when not specifically bound,
;; run describe-prefix-bindings.
(setq prefix-help-command 'describe-prefix-bindings)