[Top][All Lists]
[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.
- [Emacs-diffs] Changes to emacs/lisp/help-fns.el,
Kim F. Storm <=