Mercurial > emacs
changeset 46438:fd2419f6c4d9
(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 | 6987a52d9b98 |
| children | 255c2fbbad1f |
| files | lisp/help.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Tue Jul 16 16:02:35 2002 +0000 +++ b/lisp/help.el Tue Jul 16 16:08:44 2002 +0000 @@ -461,7 +461,8 @@ (defun help-key-description (key untranslated) (let ((string (key-description key))) - (if (or (not untranslated) (eq (aref untranslated 0) ?\e)) + (if (or (not untranslated) + (and (eq (aref untranslated 0) ?\e) (not (eq (aref key 0) ?\e)))) string (let ((otherstring (key-description untranslated))) (if (equal string otherstring)