(choose-completion): Try reselecting completion-reference-buffer.

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 1cf39021321..3e38d59a692 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5612,12 +5612,15 @@ With prefix argument N, move N items (negative N means move backward)."
     (setq completion (buffer-substring-no-properties beg end))
     (let ((owindow (selected-window)))
       (if (and (one-window-p t 'selected-frame)
-               (window-dedicated-p (selected-window)))
+               (window-dedicated-p owindow))
           ;; This is a special buffer's frame
           (iconify-frame (selected-frame))
         (or (window-dedicated-p (selected-window))
             (bury-buffer)))
-      (select-window owindow))
+      (select-window
+       (or (and (buffer-live-p buffer)
+                (get-buffer-window buffer))
+           owindow)))
     (choose-completion-string completion buffer base-size)))
 
 ;; Delete the longest partial match for STRING