From ddb2b1814fb8a74c92200f71a971fdf292f64c3e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 9 Jan 1997 07:59:03 +0000 Subject: [PATCH] (delete-completion-window): Handle special display frames. --- lisp/simple.el | 9 ++++++--- 1 file 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." -- 2.39.5