Commit f36f4e9e authored by Richard M. Stallman's avatar Richard M. Stallman

(mouse-choose-completion): Use that as the buffer to edit.

parent c98f0e09
......@@ -1206,6 +1206,8 @@ and selects that window."
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 @@ and selects that window."
(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))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment