Mercurial > emacs

comparison lisp/server.el @ 10218:b78b8c445f33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-switch-buffer): Cope with dead frames and windows.
author Richard M. Stallman <rms@gnu.org>
date Fri, 23 Dec 1994 03:30:53 +0000
parents 7c4393810151
children 44d98e169823
comparison
equal deleted inserted replaced
10217:d112e49af18b 10218:b78b8c445f33
340 (server-switch-buffer (server-done)))) 340 (server-switch-buffer (server-done))))
341 341
342 (defun server-switch-buffer (next-buffer) 342 (defun server-switch-buffer (next-buffer)
343 "Switch to another buffer, preferably one that has a client. 343 "Switch to another buffer, preferably one that has a client.
344 Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it." 344 Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
345 (cond ((windowp server-window) 345 (cond ((and (windowp server-window)
346 (window-live-p server-window))
346 (select-window server-window)) 347 (select-window server-window))
347 ((framep server-window) 348 ((framep server-window)
349 (if (not (frame-live-p server-window))
350 (setq server-window (make-frame)))
348 (select-window (frame-selected-window server-window)))) 351 (select-window (frame-selected-window server-window))))
349 (if (window-minibuffer-p (selected-window)) 352 (if (window-minibuffer-p (selected-window))
350 (select-window (next-window nil 'nomini 0))) 353 (select-window (next-window nil 'nomini 0)))
351 ;; Move to a non-dedicated window, if we have one. 354 ;; Move to a non-dedicated window, if we have one.
352 (let ((last-window (previous-window nil 'nomini 0))) 355 (let ((last-window (previous-window nil 'nomini 0)))