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

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/help.el b/lisp/help.el
index a3e14014b79..e65982623c1 100644
--- 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,