[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el |
Date: |
Mon, 19 May 2003 10:47:46 -0400 |
Index: emacs/lisp/emacs-lisp/find-func.el
diff -c emacs/lisp/emacs-lisp/find-func.el:1.45
emacs/lisp/emacs-lisp/find-func.el:1.46
*** emacs/lisp/emacs-lisp/find-func.el:1.45 Tue Feb 4 07:53:34 2003
--- emacs/lisp/emacs-lisp/find-func.el Mon May 19 10:47:46 2003
***************
*** 352,377 ****
"Find the function that KEY invokes. KEY is a string.
Point is saved if FUNCTION is in the current buffer."
(interactive "kFind function on key: ")
! (save-excursion
! (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below.
! (start (event-start event))
! (modifiers (event-modifiers event))
! (window (and (or (memq 'click modifiers) (memq 'down modifiers)
! (memq 'drag modifiers))
! (posn-window start))))
! ;; For a mouse button event, go to the button it applies to
! ;; to get the right key bindings. And go to the right place
! ;; in case the keymap depends on where you clicked.
! (when (windowp window)
! (set-buffer (window-buffer window))
! (goto-char (posn-point start)))
! (let ((defn (key-binding key))
! (key-desc (key-description key)))
! (if (or (null defn) (integerp defn))
! (message "%s is unbound" key-desc)
! (if (consp defn)
! (message "%s runs %s" key-desc (prin1-to-string defn))
! (find-function-other-window defn)))))))
;;;###autoload
(defun find-function-at-point ()
--- 352,378 ----
"Find the function that KEY invokes. KEY is a string.
Point is saved if FUNCTION is in the current buffer."
(interactive "kFind function on key: ")
! (let (defn)
! (save-excursion
! (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below.
! (start (event-start event))
! (modifiers (event-modifiers event))
! (window (and (or (memq 'click modifiers) (memq 'down modifiers)
! (memq 'drag modifiers))
! (posn-window start))))
! ;; For a mouse button event, go to the button it applies to
! ;; to get the right key bindings. And go to the right place
! ;; in case the keymap depends on where you clicked.
! (when (windowp window)
! (set-buffer (window-buffer window))
! (goto-char (posn-point start)))
! (setq defn (key-binding key))))
! (let ((key-desc (key-description key)))
! (if (or (null defn) (integerp defn))
! (message "%s is unbound" key-desc)
! (if (consp defn)
! (message "%s runs %s" key-desc (prin1-to-string defn))
! (find-function-other-window defn))))))
;;;###autoload
(defun find-function-at-point ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el,
Richard M. Stallman <=