# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1026835724 0
# Node ID fd2419f6c4d978dd80b36d2a2385db326db7e2f9
# Parent  6987a52d9b9858b51304b8f3959c608743f546b9
(help-key-description): Show the untranslated keys
when they start with ESC and the ESC was not translated.

diff -r 6987a52d9b98 -r fd2419f6c4d9 lisp/help.el
--- a/lisp/help.el	Tue Jul 16 16:02:35 2002 +0000
+++ b/lisp/help.el	Tue Jul 16 16:08:44 2002 +0000
@@ -461,7 +461,8 @@
 
 (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)