Mercurial > emacs
changeset 3980:bf2d4294a1dd
(describe-prefix-bindings): New command.
(prefix-help-command): Set it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Jul 1993 18:53:24 +0000 |
| parents | d8c9bc546c87 |
| children | e6814dfc4b3b |
| files | lisp/help.el |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Sun Jul 04 17:56:40 1993 +0000 +++ b/lisp/help.el Sun Jul 04 18:53:24 1993 +0000 @@ -159,7 +159,7 @@ 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 @@ (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)