procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(help-key-description): Show the untranslated keys

Browse source 
when they start with ESC and the ESC was not translated.
This commit is contained in:
Stefan Monnier 2002-07-16 16:08:44 +00:00
parent 410e58b5af
commit ae1bb8acec
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/help.el
View file

@ -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)