(describe-prefix-bindings): New command.

(prefix-help-command): Set it.
This commit is contained in:
Richard M. Stallman 1993-07-04 18:53:24 +00:00
parent e9b2008b9b
commit 61c6b658a9

View file

@ -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)