diff options
author | Richard M. Stallman <[email protected]> | 1997-01-09 07:59:03 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1997-01-09 07:59:03 +0000 |
commit | ddb2b1814fb8a74c92200f71a971fdf292f64c3e (patch) | |
tree | 7e5b5d179638332cb6d0fe5869e0d3518766df69 /lisp | |
parent | 26eb64a99c5bc536ba4b2e27ad2fac3d80447da1 (diff) |
(delete-completion-window): Handle special display frames.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/simple.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 5fe8f638d6..4c93824687 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2998,9 +2998,12 @@ of the tail end of the buffer's text is involved in completion.") 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." |