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

[Kim F. Storm]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.245 emacs/lisp/help.el:1.246
*** emacs/lisp/help.el:1.245    Fri Feb 15 14:59:25 2002
--- emacs/lisp/help.el  Sat Feb 23 17:31:02 2002
***************
*** 412,432 ****
       (list (if (equal val "")
               fn (intern val))
           current-prefix-arg)))
!   (let* ((binding (and (symbolp definition) (commandp definition)
!                      (key-binding definition nil t)))
!        (remap (and (symbolp binding) (commandp binding) binding))
!        (keys (where-is-internal definition overriding-local-map nil nil 
remap))
         (keys1 (mapconcat 'key-description keys ", "))
         (standard-output (if insert (current-buffer) t)))
      (if insert
        (if (> (length keys1) 0)
!           (if remap
!               (princ (format "%s (%s) (remapped from %s)" keys1 remap 
definition))
              (princ (format "%s (%s)" keys1 definition)))
          (princ (format "M-x %s RET" definition)))
        (if (> (length keys1) 0)
!         (if remap
!             (princ (format "%s is remapped to %s which is on %s" definition 
remap keys1))
            (princ (format "%s is on %s" definition keys1)))
        (princ (format "%s is not on any key" definition)))))
    nil)
--- 412,430 ----
       (list (if (equal val "")
               fn (intern val))
           current-prefix-arg)))
!   (let* ((remapped (remap-command definition))
!        (keys (where-is-internal definition overriding-local-map nil nil 
remapped))
         (keys1 (mapconcat 'key-description keys ", "))
         (standard-output (if insert (current-buffer) t)))
      (if insert
        (if (> (length keys1) 0)
!           (if remapped
!               (princ (format "%s (%s) (remapped from %s)" keys1 remapped 
definition))
              (princ (format "%s (%s)" keys1 definition)))
          (princ (format "M-x %s RET" definition)))
        (if (> (length keys1) 0)
!         (if remapped
!             (princ (format "%s is remapped to %s which is on %s" definition 
remapped keys1))
            (princ (format "%s is on %s" definition keys1)))
        (princ (format "%s is not on any key" definition)))))
    nil)