Mercurial > emacs
comparison lisp/server.el @ 10218:b78b8c445f33
(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))) |