# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852796743 0
# Node ID a689a6716261d7582d12a1b389091c9aad679d5d
# Parent  ee4b53003fd53dccde92f4062d4162fe2e0e9670
(delete-completion-window): Handle special display frames.

diff -r ee4b53003fd5 -r a689a6716261 lisp/simple.el
--- a/lisp/simple.el	Thu Jan 09 07:58:14 1997 +0000
+++ b/lisp/simple.el	Thu Jan 09 07:59:03 1997 +0000
@@ -2998,9 +2998,12 @@
 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."