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

Clarify describe-bindings code slightly

Browse source 
* lisp/help.el (describe-bindings): Clarify code slightly.
This commit is contained in:
Lars Ingebrigtsen 2021-10-31 23:25:12 +01:00
parent a21697651e
commit f29ea4418f
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/help.el
View file

@ -567,6 +567,8 @@ To record all your input, use `open-dribble-file'."
:group 'help
:version "29.1")
(declare-function outline-hide-subtree "outline")
(defun describe-bindings (&optional prefix buffer)
"Display a buffer showing a list of all defined keys, and their definitions.
The keys are displayed in order of precedence.
@ -598,9 +600,8 @@ or a buffer name."
(goto-char (point-min))
(let ((inhibit-read-only t))
;; Hide the longest body
(when (and (re-search-forward "Key translations" nil t)
(fboundp 'outline-cycle))
(outline-cycle))
(when (re-search-forward "Key translations" nil t)
(outline-hide-subtree))
;; Hide ^Ls.
(while (search-forward "\n\f\n" nil t)
(put-text-property (1+ (match-beginning 0)) (1- (match-end 0))