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 | 61c6b658a91c62ceb19d26953b3ec33a0042e286 (patch) | |
| tree | 43b4c7bbb574134b4a4535f1be543ed54123de2b | |
| parent | e9b2008b9b3c23f4064b73b71c71023801fb6abd (diff) | |
| download | emacs-61c6b658a91c62ceb19d26953b3ec33a0042e286.tar.gz | |
(describe-prefix-bindings): New command.
(prefix-help-command): Set it.
| -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) |