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

1994-03-07 03:37:55 +00:00
parent 0a688fd0fc
commit 73e2025fcd
1 changed files with 4 additions and 0 deletions
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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)))
+      (bury-buffer)
+      (select-window owindow))
    (set-buffer buffer)
    (mouse-delete-max-match choice)
    (insert choice)