Mercurial > emacs
comparison lisp/help.el @ 43309:63607f9209a0
(describe-key-briefly): Make output in INSERT case
look just like what is displayed in the normal case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 Feb 2002 19:59:25 +0000 |
| parents | 05398ea6cb32 |
| children | 9f334f15ae09 |
comparison
equal
deleted
inserted
replaced
| 43308:e04cbee893bc | 43309:63607f9209a0 |
|---|---|
| 475 (let ((defn (or (string-key-binding key) | 475 (let ((defn (or (string-key-binding key) |
| 476 (key-binding key))) | 476 (key-binding key))) |
| 477 (key-desc (key-description key))) | 477 (key-desc (key-description key))) |
| 478 (if (or (null defn) (integerp defn)) | 478 (if (or (null defn) (integerp defn)) |
| 479 (princ (format "%s is undefined" key-desc)) | 479 (princ (format "%s is undefined" key-desc)) |
| 480 (princ (format (if insert | 480 (princ (format (if (windowp window) |
| 481 "`%s' (`%s')" | 481 "%s at that spot runs the command %s" |
| 482 (if (windowp window) | 482 "%s runs the command %s") |
| 483 "%s at that spot runs the command %s" | |
| 484 "%s runs the command %s")) | |
| 485 key-desc | 483 key-desc |
| 486 (if (symbolp defn) defn (prin1-to-string defn))))))))) | 484 (if (symbolp defn) defn (prin1-to-string defn))))))))) |
| 487 | 485 |
| 488 | 486 |
| 489 (defun describe-key (key) | 487 (defun describe-key (key) |