diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-09 07:59:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-09 07:59:03 +0000 |
| commit | 9dfdf1d53568665b5044a23693ee936a70b2ac8a (patch) | |
| tree | 490a8861507fa79c683b51ef35b87b38a96a52b0 /lisp/simple.el | |
| parent | 220355856bebcb669bb6892d0e5caccd05676c57 (diff) | |
| download | emacs-9dfdf1d53568665b5044a23693ee936a70b2ac8a.tar.gz | |
(delete-completion-window): Handle special display frames.
Diffstat (limited to 'lisp/simple.el')
| -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.") 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." |