Mercurial > emacs

comparison lisp/help.el @ 46438:fd2419f6c4d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-key-description): Show the untranslated keys when they start with ESC and the ESC was not translated.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 16 Jul 2002 16:08:44 +0000
parents 081502d6dd98
children 0afe1465ac57
comparison
equal deleted inserted replaced
46437:6987a52d9b98 46438:fd2419f6c4d9
459 (setq defn (and local-map (lookup-key local-map key))))) 459 (setq defn (and local-map (lookup-key local-map key)))))
460 defn)) 460 defn))
461 461
462 (defun help-key-description (key untranslated) 462 (defun help-key-description (key untranslated)
463 (let ((string (key-description key))) 463 (let ((string (key-description key)))
464 (if (or (not untranslated) (eq (aref untranslated 0) ?\e)) 464 (if (or (not untranslated)
465 (and (eq (aref untranslated 0) ?\e) (not (eq (aref key 0) ?\e))))
465 string 466 string
466 (let ((otherstring (key-description untranslated))) 467 (let ((otherstring (key-description untranslated)))
467 (if (equal string otherstring) 468 (if (equal string otherstring)
468 string 469 string
469 (format "%s (translated from %s)" string otherstring)))))) 470 (format "%s (translated from %s)" string otherstring))))))