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))))))))) |