Mercurial > emacs

diff lisp/help.el @ 3982:e50f7b531c7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-prefix-bindings): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Sun, 04 Jul 1993 18:55:54 +0000
parents bf2d4294a1dd
children 0e5fa7a1ac36
line wrap: on
line diff
--- a/lisp/help.el	Sun Jul 04 18:54:59 1993 +0000
+++ b/lisp/help.el	Sun Jul 04 18:55:54 1993 +0000
@@ -210,6 +210,9 @@
     (recenter 0)))
 
 (defun describe-prefix-bindings ()
+  "Describe the bindings of the prefix used to reach this command.
+The prefix described consists of all but the last event
+of the key sequence that ran this command."
   (interactive)
   (let* ((key (this-command-keys))
 	 (prefix (make-vector (1- (length key)) nil))
@@ -219,6 +222,8 @@
       (aset prefix i (aref key i))
       (setq i (1+ i)))
     (describe-bindings prefix)))
+;; Make C-h after a prefix, when not specifically bound, 
+;; run describe-prefix-bindings.
 (setq prefix-help-command 'describe-prefix-bindings)
 
 (defun view-emacs-news ()