From ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 16 Jul 2002 16:08:44 +0000 Subject: [PATCH] (help-key-description): Show the untranslated keys when they start with ESC and the ESC was not translated. --- lisp/help.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2