From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 Dec 1994 03:30:53 +0000 (+0000)
Subject: (server-switch-buffer): Cope with dead frames and windows.
X-Git-Tag: emacs-19.34~5638
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=396e0e6ae592dff16d700540649c8a2a07f5075d;p=emacs.git

(server-switch-buffer): Cope with dead frames and windows.
---

diff --git a/lisp/server.el b/lisp/server.el
index eab345322f8..0de7dcd7e60 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -342,9 +342,12 @@ starts server process and that is all.  Invoked by \\[server-edit]."
 (defun server-switch-buffer (next-buffer)
   "Switch to another buffer, preferably one that has a client.
 Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
-  (cond ((windowp server-window)
+  (cond ((and (windowp server-window)
+	      (window-live-p server-window))
 	 (select-window server-window))
 	((framep server-window)
+	 (if (not (frame-live-p server-window))
+	     (setq server-window (make-frame)))
 	 (select-window (frame-selected-window server-window))))
   (if (window-minibuffer-p (selected-window))
       (select-window (next-window nil 'nomini 0)))