# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762650766 0
# Node ID f349bcb0ff59200d1a52de92bfda946990855126
# Parent  b7172feaf0b9e5051975cb030458188e75bbb720
(mouse-choose-completion): Use that as the buffer to edit.

diff -r b7172feaf0b9 -r f349bcb0ff59 lisp/mouse.el
--- a/lisp/mouse.el	Wed Mar 02 23:18:54 1994 +0000
+++ b/lisp/mouse.el	Wed Mar 02 23:26:06 1994 +0000
@@ -1206,6 +1206,8 @@
         choice)
     (save-excursion
       (set-buffer (window-buffer (posn-window (event-start event))))
+      (if completion-reference-buffer
+	  (setq buffer completion-reference-buffer))
       (save-excursion
 	(goto-char (posn-point (event-start event)))
 	(skip-chars-backward "^ \t\n")
@@ -1215,6 +1217,9 @@
     (set-buffer buffer)
     (mouse-delete-max-match choice)
     (insert choice)
+    ;; Update point in the window that BUFFER is showing in.
+    (let ((window (get-buffer-window buffer t)))
+      (set-window-point window (point)))
     (and (equal buffer (window-buffer (minibuffer-window)))
 	 (minibuffer-complete-and-exit))))