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