Mercurial > emacs
changeset 16851:a689a6716261
(delete-completion-window): Handle special display frames.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 09 Jan 1997 07:59:03 +0000 |
| parents | ee4b53003fd5 |
| children | 70e9b1d69d0d |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Jan 09 07:58:14 1997 +0000 +++ b/lisp/simple.el Thu Jan 09 07:59:03 1997 +0000 @@ -2998,9 +2998,12 @@ Go to the window from which completion was requested." (interactive) (let ((buf completion-reference-buffer)) - (delete-window (selected-window)) - (if (get-buffer-window buf) - (select-window (get-buffer-window buf))))) + (if (one-window-p t) + (if (window-dedicated-p (selected-window)) + (delete-frame (selected-frame))) + (delete-window (selected-window)) + (if (get-buffer-window buf) + (select-window (get-buffer-window buf)))))) (defun previous-completion (n) "Move to the previous item in the completion list."