changeset 51097:37a69a2f1992

(find-function-on-key): Move the call to find-function-other-window outside the save-excursion.
author Richard M. Stallman <rms@gnu.org>
date Mon, 19 May 2003 14:47:46 +0000
parents 0a061fbe2420
children 9277afae9517
files lisp/emacs-lisp/find-func.el
diffstat 1 files changed, 21 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el	Mon May 19 14:46:49 2003 +0000
+++ b/lisp/emacs-lisp/find-func.el	Mon May 19 14:47:46 2003 +0000
@@ -352,26 +352,27 @@
   "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)))))))
+  (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 ()