mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Fix error on deleting an emacsclient terminal (Dan Nicolaescu).

Browse source 
lisp/server.el (server-delete-client): Check that the buffer is live
before switching to it.  Also, check that the tty display still has
live buffers before deleting it.  
(server-handle-delete-frame): Don't do anything if the frame was on a
tty device (reported by Dan Nicolaescu).


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-148
This commit is contained in:
Karoly Lorentey 2004-04-19 14:16:10 +00:00
parent 6087973173
commit 6ed9e43af1
1 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/server.el
View file

@ -218,19 +218,21 @@ New clients have no properties."
(setq server-clients (delq client server-clients))
(dolist (buf buffers)
(with-current-buffer buf
;; Remove PROC from the clients of each buffer.
(setq server-buffer-clients (delq proc server-buffer-clients))
;; Kill the buffer if necessary.
(when (and (null server-buffer-clients)
(or (and server-kill-new-buffers
(not server-existing-buffer))
(server-temp-file-p)))
(kill-buffer (current-buffer)))))
(when (buffer-live-p buf)
(with-current-buffer buf
;; Remove PROC from the clients of each buffer.
(setq server-buffer-clients (delq proc server-buffer-clients))
;; Kill the buffer if necessary.
(when (and (null server-buffer-clients)
(or (and server-kill-new-buffers
(not server-existing-buffer))
(server-temp-file-p)))
(kill-buffer (current-buffer))))))
;; Delete the client's tty.
(let ((tty (server-client-get client 'tty)))
(when tty (delete-tty tty)))
(when (and tty (server-tty-live-p tty))
(delete-tty tty)))
;; Delete the client's frames.
(dolist (frame (frame-list))
@ -279,7 +281,9 @@ New clients have no properties."
(defun server-handle-delete-frame (frame)
"Delete the client connection when the emacsclient frame is deleted."
(let ((proc (frame-parameter frame 'client)))
(when proc
(when (and proc (window-system frame))
;; (Closing a terminal frame must not trigger a delete;
;; we must wait for delete-tty-after-functions.)
(server-log (format "server-handle-delete-frame, frame %s" frame) proc)
(server-delete-client proc))))