From: Dave Love <fx@gnu.org>
Date: Sun, 10 Jan 1999 18:18:58 +0000 (+0000)
Subject: (find-function-on-key): DTRT for mouse
X-Git-Tag: emacs-20.4~915
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a8ea8dc2d77d444fecdb356bbfb4fef8febf282;p=emacs.git

(find-function-on-key): DTRT for mouse
bindings.
---

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 2a31042b813..a37e64502dc 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -1,6 +1,6 @@
 ;;; find-func.el --- find the definition of the Emacs Lisp function near point
 
-;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.
 
 ;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp>
 ;; Maintainer: petersen@kurims.kyoto-u.ac.jp
@@ -351,13 +351,26 @@ See `find-variable' for more details."
   "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 (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)))))
+  (save-excursion
+    (let* ((event (aref key 0))
+	   (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 ()