(describe-prefix-bindings): New command.
(prefix-help-command): Set it.
This commit is contained in:
parent
e9b2008b9b
commit
61c6b658a9
1 changed files with 13 additions and 1 deletions
14
lisp/help.el
14
lisp/help.el
|
@ -159,7 +159,7 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
|
|||
If optional MINOR is non-nil (or prefix argument is given if interactive),
|
||||
display documentation of active minor modes as well.
|
||||
For this to work correctly for a minor mode, the mode's indicator variable
|
||||
(listed in `minor-mode-alist') must also be a function whose documentation
|
||||
\(listed in `minor-mode-alist') must also be a function whose documentation
|
||||
describes the minor mode."
|
||||
(interactive)
|
||||
(with-output-to-temp-buffer "*Help*"
|
||||
|
@ -209,6 +209,18 @@ describes the minor mode."
|
|||
(search-forward "NO WARRANTY")
|
||||
(recenter 0)))
|
||||
|
||||
(defun describe-prefix-bindings ()
|
||||
(interactive)
|
||||
(let* ((key (this-command-keys))
|
||||
(prefix (make-vector (1- (length key)) nil))
|
||||
i)
|
||||
(setq i 0)
|
||||
(while (< i (length prefix))
|
||||
(aset prefix i (aref key i))
|
||||
(setq i (1+ i)))
|
||||
(describe-bindings prefix)))
|
||||
(setq prefix-help-command 'describe-prefix-bindings)
|
||||
|
||||
(defun view-emacs-news ()
|
||||
"Display info on recent changes to Emacs."
|
||||
(interactive)
|
||||
|
|
Loading…
Add table
Reference in a new issue