From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 16 Jul 2002 16:08:44 +0000 (+0000)
Subject: (help-key-description): Show the untranslated keys
X-Git-Tag: ttn-vms-21-2-B4~14077
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae1bb8acec2fc3b699a17f2d0f22a12debad3cfb;p=emacs.git

(help-key-description): Show the untranslated keys
when they start with ESC and the ESC was not translated.
---

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)