From 73e2025fcd444bb866f083b603481428a4d5490d Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 7 Mar 1994 03:37:55 +0000
Subject: [PATCH] (mouse-choose-completion): Bury the completion buffer.

---
 lisp/mouse.el | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
2.39.5