461 |
|
|
462 |
(defun help-key-description (key untranslated) |
(defun help-key-description (key untranslated) |
463 |
(let ((string (key-description key))) |
(let ((string (key-description key))) |
464 |
(if (or (not untranslated) (eq (aref untranslated 0) ?\e)) |
(if (or (not untranslated) |
465 |
|
(and (eq (aref untranslated 0) ?\e) (not (eq (aref key 0) ?\e)))) |
466 |
string |
string |
467 |
(let ((otherstring (key-description untranslated))) |
(let ((otherstring (key-description untranslated))) |
468 |
(if (equal string otherstring) |
(if (equal string otherstring) |