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

diff --git a/lisp/simple.el b/lisp/simple.el
index 5fe8f638d62ac2e1da03a27a0af018cf88988284..4c93824687b617d8bbc470c1a1b3d7602e4e901a 100644 (file)
--- 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."