# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745194072 0
# Node ID 168bcc1aeea33b5c8c0ad67f161f9602a1066bdf
# Parent  0dd1dfcb23322069bbb52ee993d2e13b8044003b
(mouse-choose-completion): Really go to minibuffer; no save-excursion.

diff -r 0dd1dfcb2332 -r 168bcc1aeea3 lisp/mouse.el
--- a/lisp/mouse.el	Thu Aug 12 22:17:13 1993 +0000
+++ b/lisp/mouse.el	Thu Aug 12 22:21:12 1993 +0000
@@ -880,16 +880,15 @@
 	(let ((beg (point)))
 	  (skip-chars-forward "^ \t\n")
 	  (setq choice (buffer-substring beg (point))))))
-    (save-excursion
-      (set-buffer (window-buffer (minibuffer-window)))
-      (goto-char (max (point-min) (- (point-max) (length choice))))
-      (while (and (not (eobp))
-		  (let ((tail (buffer-substring (point) (point-max))))
-		    (not (string= tail (substring choice 0 (length tail))))))
-	(forward-char 1))
-      (insert choice)
-      (delete-region (point) (point-max))
-      (minibuffer-complete-and-exit))))
+    (set-buffer (window-buffer (minibuffer-window)))
+    (goto-char (max (point-min) (- (point-max) (length choice))))
+    (while (and (not (eobp))
+		(let ((tail (buffer-substring (point) (point-max))))
+		  (not (string= tail (substring choice 0 (length tail))))))
+      (forward-char 1))
+    (insert choice)
+    (delete-region (point) (point-max))
+    (minibuffer-complete-and-exit)))
 
 ;; Font selection.