diff options
| author | Stefan Monnier | 2002-07-16 16:08:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-07-16 16:08:44 +0000 |
| commit | ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb (patch) | |
| tree | 28c3bd6d809d0671bfbb8d2875c55ce09dbb8692 | |
| parent | 410e58b5afd4718f005a0759256a287e74ad6fe0 (diff) | |
| download | emacs-ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb.tar.gz emacs-ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb.zip | |
(help-key-description): Show the untranslated keys
when they start with ESC and the ESC was not translated.
| -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." | |||
| 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) |