(describe-key-briefly): UNTRANSLATED can be nil when called from lisp.

diff --git a/lisp/help.el b/lisp/help.el
index a3e14014b791b1d46faab12cd105beb33fef723f..e65982623c1e8efd18d58d4918254e242ce7b368 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -590,7 +590,8 @@ the last key hit are used."
        ;; Don't bother user with strings from (e.g.) the select-paste menu.
        (if (stringp (aref key (1- (length key))))
            (aset key (1- (length key)) "(any string)"))
-       (if (stringp (aref untranslated (1- (length untranslated))))
+       (if (and (> (length untranslated) 0)
+                (stringp (aref untranslated (1- (length untranslated)))))
            (aset untranslated (1- (length untranslated))
                  "(any string)"))
        ;; Now describe the key, perhaps as changed.
@@ -603,7 +604,6 @@ the last key hit are used."
                         key-desc
                         (if (symbolp defn) defn (prin1-to-string defn)))))))))
 
-
 (defun describe-key (key &optional untranslated up-event)
   "Display documentation of the function invoked by KEY.
 KEY should be a key sequence--when calling from a program,