From 874a2cbd81214be8dbcbf7c89d58081f7de25861 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Jun 1994 12:06:23 +0000 Subject: [PATCH] (mouse-choose-completion): If *Completion* is a special buffer or just has a dedicated window, do something reasonable. --- lisp/mouse.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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))) -- 2.39.5