From d049eb3000cf24554d1e8bd8314d69bb132c166c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 4 Jul 1993 18:53:24 +0000 Subject: (describe-prefix-bindings): New command. (prefix-help-command): Set it. --- lisp/help.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'lisp/help.el') 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) -- cgit v1.2.1