Commit 73e2025f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-choose-completion): Bury the completion buffer.

parent 0a688fd0
......@@ -1214,6 +1214,10 @@ and selects that window."
(let ((beg (point)))
(skip-chars-forward "^ \t\n")
(setq choice (buffer-substring beg (point))))))
(let ((owindow (selected-window)))
(select-window (posn-window (event-start event)))
(select-window owindow))
(set-buffer buffer)
(mouse-delete-max-match choice)
(insert choice)
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