/[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.243 by rms, Thu Jan 17 01:40:47 2002 UTC revision 1.244 by kfstorm, Wed Feb 6 23:03:56 2002 UTC
# Line 412  If INSERT (the prefix arg) is non-nil, i Line 412  If INSERT (the prefix arg) is non-nil, i
412       (list (if (equal val "")       (list (if (equal val "")
413                 fn (intern val))                 fn (intern val))
414             current-prefix-arg)))             current-prefix-arg)))
415    (let* ((keys (where-is-internal definition overriding-local-map nil nil))    (let* ((binding (and (symbolp definition) (commandp definition)
416                           (key-binding definition nil t)))
417             (remap (and (symbolp binding) (commandp binding) binding))
418             (keys (where-is-internal definition overriding-local-map nil nil remap))
419           (keys1 (mapconcat 'key-description keys ", "))           (keys1 (mapconcat 'key-description keys ", "))
420           (standard-output (if insert (current-buffer) t)))           (standard-output (if insert (current-buffer) t)))
421      (if insert      (if insert
422          (if (> (length keys1) 0)          (if (> (length keys1) 0)
423              (princ (format "%s (%s)" keys1 definition))              (if remap
424                    (princ (format "%s (%s) (remapped from %s)" keys1 remap definition))
425                  (princ (format "%s (%s)" keys1 definition)))
426            (princ (format "M-x %s RET" definition)))            (princ (format "M-x %s RET" definition)))
427        (if (> (length keys1) 0)        (if (> (length keys1) 0)
428            (princ (format "%s is on %s" definition keys1))            (if remap
429                  (princ (format "%s is remapped to %s which is on %s" definition remap keys1))
430                (princ (format "%s is on %s" definition keys1)))
431          (princ (format "%s is not on any key" definition)))))          (princ (format "%s is not on any key" definition)))))
432    nil)    nil)
433    

Legend:
Removed from v.1.243  
changed lines
  Added in v.1.244

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