emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Kim F. Storm
Subject: [Emacs-diffs] Changes to emacs/lisp/help-fns.el
Date: Wed, 06 Feb 2002 18:05:03 -0500

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.5 emacs/lisp/help-fns.el:1.6
*** emacs/lisp/help-fns.el:1.5  Mon Jan  7 00:20:33 2002
--- emacs/lisp/help-fns.el      Wed Feb  6 18:05:03 2002
***************
*** 207,218 ****
      (princ ".")
      (terpri)
      (when (commandp function)
!       (let ((keys (where-is-internal
!                  function overriding-local-map nil nil)))
        (when keys
!         (princ "It is bound to ")
          ;; FIXME: This list can be very long (f.ex. for self-insert-command).
!         (princ (mapconcat 'key-description keys ", "))
          (princ ".")
          (terpri))))
      ;; Handle symbols aliased to other symbols.
--- 207,226 ----
      (princ ".")
      (terpri)
      (when (commandp function)
!       (let* ((binding (and (symbolp function) (commandp function)
!                          (key-binding function nil t)))
!            (remapped (and (symbolp binding) (commandp binding) binding))
!            (keys (where-is-internal
!                  (or remapped function) overriding-local-map nil nil)))
!       (when remapped
!         (princ "It is remapped to `")
!         (princ (symbol-name remapped))
!         (princ "'"))
        (when keys
!         (princ (if remapped " which is bound to " "It is bound to "))
          ;; FIXME: This list can be very long (f.ex. for self-insert-command).
!         (princ (mapconcat 'key-description keys ", ")))
!       (when (or remapped keys)
          (princ ".")
          (terpri))))
      ;; Handle symbols aliased to other symbols.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]