diff options
author | Lute Kamstra <[email protected]> | 2005-04-13 09:16:02 +0000 |
---|---|---|
committer | Lute Kamstra <[email protected]> | 2005-04-13 09:16:02 +0000 |
commit | 59d922a4da1890ff5e773b1c0e0a8d3f310a4bdf (patch) | |
tree | 376cd95dc0596738eeab7945a6158ccfd5c59bf2 /lisp | |
parent | 9aade6c6f258cf40faaf0c2e7a50adb649c98a70 (diff) |
(describe-key-briefly): UNTRANSLATED can be nil when called from lisp.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/help.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index a3e14014b7..e65982623c 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, |