(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 052d6ec01ba60223a00e034a0e738b91f2611240..8d1c1e90aebdd90ff2fc0e8d19c721d97e1309f2 100644 (file)
--- 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)))
 \f