diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-07-04 18:53:24 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-07-04 18:53:24 +0000 |
commit | d049eb3000cf24554d1e8bd8314d69bb132c166c (patch) | |
tree | e2e858692567d6a27c103cf044e50fb6777f9ea0 /lisp/help.el | |
parent | 808b19a613d50bfeb917a2ab956355f44b07d742 (diff) | |
download | emacs-d049eb3000cf24554d1e8bd8314d69bb132c166c.tar.gz |
(describe-prefix-bindings): New command.
(prefix-help-command): Set it.
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 00dcd3a0469..a88b14945c2 100644 --- a/lisp/help.el +++ b/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) |