(mouse-choose-completion): Really go to minibuffer; no save-excursion.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d59bc57e74d24f6cf69135030a2cfb2d19f58ce9..f15cc0f2bc819e0a8f3b0e0d0c5da54519c01dc5 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -880,16 +880,15 @@ and selects that window."
        (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)))
 \f
 ;; Font selection.