Commit 61c6b658 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(describe-prefix-bindings): New command.

(prefix-help-command): Set it.
parent e9b2008b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment