590 |
;; Don't bother user with strings from (e.g.) the select-paste menu. |
;; Don't bother user with strings from (e.g.) the select-paste menu. |
591 |
(if (stringp (aref key (1- (length key)))) |
(if (stringp (aref key (1- (length key)))) |
592 |
(aset key (1- (length key)) "(any string)")) |
(aset key (1- (length key)) "(any string)")) |
593 |
(if (stringp (aref untranslated (1- (length untranslated)))) |
(if (and (> (length untranslated) 0) |
594 |
|
(stringp (aref untranslated (1- (length untranslated))))) |
595 |
(aset untranslated (1- (length untranslated)) |
(aset untranslated (1- (length untranslated)) |
596 |
"(any string)")) |
"(any string)")) |
597 |
;; Now describe the key, perhaps as changed. |
;; Now describe the key, perhaps as changed. |
604 |
key-desc |
key-desc |
605 |
(if (symbolp defn) defn (prin1-to-string defn))))))))) |
(if (symbolp defn) defn (prin1-to-string defn))))))))) |
606 |
|
|
|
|
|
607 |
(defun describe-key (key &optional untranslated up-event) |
(defun describe-key (key &optional untranslated up-event) |
608 |
"Display documentation of the function invoked by KEY. |
"Display documentation of the function invoked by KEY. |
609 |
KEY should be a key sequence--when calling from a program, |
KEY should be a key sequence--when calling from a program, |