From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 9 Jan 1997 07:59:03 +0000 (+0000)
Subject: (delete-completion-window): Handle special display frames.
X-Git-Tag: emacs-20.1~3093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddb2b1814fb8a74c92200f71a971fdf292f64c3e;p=emacs.git

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

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."