Fix last fix of server-unselect-display

1 files changed, 7 insertions, 7 deletions

diff --git a/lisp/server.el b/lisp/server.el
index 61787db2162..34ac5d7ba23 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -403,14 +403,14 @@ If CLIENT is non-nil, add a description of it to the logged message."
     ;; Rewritten to avoid inadvertently killing the current buffer after
     ;; `delete-frame' removed FRAME (Bug#10729).
     (let ((buffer (frame-parameter frame 'server-dummy-buffer)))
+      (if (and (one-window-p 'nomini frame)
+	       (eq (window-buffer (frame-first-window frame)) buffer))
+	  ;; The temp frame still only shows one buffer, and that is the
+	  ;; internal temp buffer.
+	  (delete-frame frame)
+	(set-frame-parameter frame 'visibility t)
+	(set-frame-parameter frame 'server-dummy-buffer nil))
       (when (buffer-live-p buffer)
-	(if (and (one-window-p 'nomini frame)
-		 (eq (window-buffer (frame-first-window frame)) buffer))
-	    ;; The temp frame still only shows one buffer, and that is the
-	    ;; internal temp buffer.
-	    (delete-frame frame)
-	  (set-frame-parameter frame 'visibility t)
-	  (set-frame-parameter frame 'server-dummy-buffer nil))
 	(kill-buffer buffer)))))
 
 (defun server-handle-delete-frame (frame)