(delete-completion-window): Handle special display frames.

ddb2b181 · Richard M. Stallman · 26eb64a9 · ddb2b181
Commit ddb2b181 authored Jan 09, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 3 deletions

lisp/simple.el lisp/simple.el +6 -3

No files found.
--- 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."