Mercurial > emacs
comparison lisp/help.el @ 22060:530d5f35aa4e
(describe-key-briefly): When INSERT, put cmd name in `...'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 14 May 1998 05:23:24 +0000 |
| parents | f3d29552e393 |
| children | 40229c79e16b |
comparison
equal
deleted
inserted
replaced
| 22059:23fda104cd36 | 22060:530d5f35aa4e |
|---|---|
| 238 (let ((defn (key-binding key)) | 238 (let ((defn (key-binding key)) |
| 239 (key-desc (key-description key))) | 239 (key-desc (key-description key))) |
| 240 (if (or (null defn) (integerp defn)) | 240 (if (or (null defn) (integerp defn)) |
| 241 (princ (format "%s is undefined" key-desc)) | 241 (princ (format "%s is undefined" key-desc)) |
| 242 (princ (format (if insert | 242 (princ (format (if insert |
| 243 "%s (%s)" | 243 "`%s' (`%s')" |
| 244 (if (windowp window) | 244 (if (windowp window) |
| 245 "%s at that spot runs the command %s" | 245 "%s at that spot runs the command %s" |
| 246 "%s runs the command %s")) | 246 "%s runs the command %s")) |
| 247 key-desc | 247 key-desc |
| 248 (if (symbolp defn) defn (prin1-to-string defn))))))))) | 248 (if (symbolp defn) defn (prin1-to-string defn))))))))) |