From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 7 Mar 1994 03:37:55 +0000 (+0000)
Subject: (mouse-choose-completion): Bury the completion buffer.
X-Git-Tag: emacs-19.34~9621
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73e2025fcd444bb866f083b603481428a4d5490d;p=emacs.git

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index fb49a2ced32..4ff1b9659e4 100644
--- 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)