[Emacs-diffs] Changes to emacs/lisp/help.el

[Richard M. Stallman]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.251 emacs/lisp/help.el:1.252
*** emacs/lisp/help.el:1.251    Fri Jul 12 18:57:11 2002
--- emacs/lisp/help.el  Tue Jul 16 12:08:44 2002
***************
*** 461,467 ****
  
  (defun help-key-description (key untranslated)
    (let ((string (key-description key)))
!     (if (or (not untranslated) (eq (aref untranslated 0) ?\e))
        string
        (let ((otherstring (key-description untranslated)))
        (if (equal string otherstring)
--- 461,468 ----
  
  (defun help-key-description (key untranslated)
    (let ((string (key-description key)))
!     (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)