From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Jun 1994 12:06:23 +0000 (+0000)
Subject: (mouse-choose-completion): If *Completion* is a special
X-Git-Tag: emacs-19.34~8059
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=874a2cbd81214be8dbcbf7c89d58081f7de25861;p=emacs.git

(mouse-choose-completion): If *Completion* is a special
buffer or just has a dedicated window, do something reasonable.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 052d6ec01ba..8d1c1e90aeb 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1202,7 +1202,12 @@ and selects that window."
 	  (setq choice (buffer-substring beg end)))))
     (let ((owindow (selected-window)))
       (select-window (posn-window (event-start event)))
-      (bury-buffer)
+      (if (and (one-window-p t 'selected-frame)
+	       (window-dedicated-p (selected-window)))
+	  ;; This is a special buffer's frame
+	  (iconify-frame (selected-frame))
+	(or (window-dedicated-p (selected-window))
+	    (bury-buffer)))
       (select-window owindow))
     (choose-completion-string choice buffer)))