Commit 1dba6978 authored by Martin Rudalics's avatar Martin Rudalics
Browse files

Fix last fix of server-unselect-display

parent 451077ad
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment