diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-07-16 16:08:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-07-16 16:08:44 +0000 |
| commit | ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb (patch) | |
| tree | 28c3bd6d809d0671bfbb8d2875c55ce09dbb8692 /lisp/help.el | |
| parent | 410e58b5afd4718f005a0759256a287e74ad6fe0 (diff) | |
| download | emacs-ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb.tar.gz | |
(help-key-description): Show the untranslated keys
when they start with ESC and the ESC was not translated.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 6e5060629e1..713dd6dfa23 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -461,7 +461,8 @@ or `keymap' property, return the binding of KEY in the string's keymap." (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) |