/[emacs]/emacs/lisp/help.el
ViewVC logotype

Diff of /emacs/lisp/help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.251 by rms, Fri Jul 12 22:57:11 2002 UTC revision 1.252 by monnier, Tue Jul 16 16:08:44 2002 UTC
# Line 461  or `keymap' property, return the binding Line 461  or `keymap' property, return the binding
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)

Legend:
Removed from v.1.251  
changed lines
  Added in v.1.252

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26