From 59d922a4da1890ff5e773b1c0e0a8d3f310a4bdf Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Wed, 13 Apr 2005 09:16:02 +0000 Subject: [PATCH] (describe-key-briefly): UNTRANSLATED can be nil when called from lisp. --- lisp/help.el | 4 ++-- 1 file 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, -- 2.39.2