# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770817983 0
# Node ID 10ed4c75936bf45b73d840a4de6b3a7ffa3d26f0
# Parent  4a683dc76931783b7b23570a9e1fced77419103f
(mouse-choose-completion): If *Completion* is a special
buffer or just has a dedicated window, do something reasonable.

diff -r 4a683dc76931 -r 10ed4c75936b lisp/mouse.el
--- a/lisp/mouse.el	Sun Jun 05 12:05:05 1994 +0000
+++ b/lisp/mouse.el	Sun Jun 05 12:06:23 1994 +0000
@@ -1202,7 +1202,12 @@
 	  (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)))