Mercurial > emacs
diff lisp/mouse.el @ 7794:10ed4c75936b
(mouse-choose-completion): If *Completion* is a special
buffer or just has a dedicated window, do something reasonable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 05 Jun 1994 12:06:23 +0000 |
parents | cc55e77a9819 |
children | 44680acb5d14 |
line wrap: on
line diff
--- 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)))