477 |
(key-desc (key-description key))) |
(key-desc (key-description key))) |
478 |
(if (or (null defn) (integerp defn)) |
(if (or (null defn) (integerp defn)) |
479 |
(princ (format "%s is undefined" key-desc)) |
(princ (format "%s is undefined" key-desc)) |
480 |
(princ (format (if insert |
(princ (format (if (windowp window) |
481 |
"`%s' (`%s')" |
"%s at that spot runs the command %s" |
482 |
(if (windowp window) |
"%s runs the command %s") |
|
"%s at that spot runs the command %s" |
|
|
"%s runs the command %s")) |
|
483 |
key-desc |
key-desc |
484 |
(if (symbolp defn) defn (prin1-to-string defn))))))))) |
(if (symbolp defn) defn (prin1-to-string defn))))))))) |
485 |
|
|