(describe-prefix-bindings): If key is a string,

make a substring; for a vector, make a vector.

diff --git a/lisp/help.el b/lisp/help.el
index fb4b01e5aeee9cb82c06865e5ce6f81de5a8b3ef..296975f66f38dff95468c6c516844d9abfb86a28 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -311,14 +311,16 @@ describes the minor mode."
 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))
-        i)
-    (setq i 0)
-    (while (< i (length prefix))
-      (aset prefix i (aref key i))
-      (setq i (1+ i)))
-    (describe-bindings prefix)))
+  (let* ((key (this-command-keys)))
+    (describe-bindings
+     (if (stringp key)
+        (substring key 0 (1- (length key)))
+       (let ((prefix (make-vector (1- (length key)) nil))
+            (i 0))
+        (while (< i (length prefix))
+          (aset prefix i (aref key i))
+          (setq i (1+ i)))
+        prefix)))))
 ;; Make C-h after a prefix, when not specifically bound, 
 ;; run describe-prefix-bindings.
 (setq prefix-help-command 'describe-prefix-bindings)