aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/help.el3
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)