diff options
| author | Richard M. Stallman | 1997-01-09 07:59:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-09 07:59:03 +0000 |
| commit | ddb2b1814fb8a74c92200f71a971fdf292f64c3e (patch) | |
| tree | 7e5b5d179638332cb6d0fe5869e0d3518766df69 | |
| parent | 26eb64a99c5bc536ba4b2e27ad2fac3d80447da1 (diff) | |
| download | emacs-ddb2b1814fb8a74c92200f71a971fdf292f64c3e.tar.gz emacs-ddb2b1814fb8a74c92200f71a971fdf292f64c3e.zip | |
(delete-completion-window): Handle special display frames.
| -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 5fe8f638d62..4c93824687b 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.") | |||
| 2998 | Go to the window from which completion was requested." | 2998 | Go to the window from which completion was requested." |
| 2999 | (interactive) | 2999 | (interactive) |
| 3000 | (let ((buf completion-reference-buffer)) | 3000 | (let ((buf completion-reference-buffer)) |
| 3001 | (delete-window (selected-window)) | 3001 | (if (one-window-p t) |
| 3002 | (if (get-buffer-window buf) | 3002 | (if (window-dedicated-p (selected-window)) |
| 3003 | (select-window (get-buffer-window buf))))) | 3003 | (delete-frame (selected-frame))) |
| 3004 | (delete-window (selected-window)) | ||
| 3005 | (if (get-buffer-window buf) | ||
| 3006 | (select-window (get-buffer-window buf)))))) | ||
| 3004 | 3007 | ||
| 3005 | (defun previous-completion (n) | 3008 | (defun previous-completion (n) |
| 3006 | "Move to the previous item in the completion list." | 3009 | "Move to the previous item in the completion list." |