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

Implemented automatic deletion of terminals.

Browse source 
lisp/server.el (server-process-filter): Switch to the new terminal frame.

src/frame.c (Fdelete_frame): Delete the tty if this was its the last frame.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-12
This commit is contained in:
Karoly Lorentey 2003-12-27 13:55:54 +00:00
parent bc279d67ae
commit 8303ba32ba
3 changed files with 33 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/server.el
View file

@ -325,9 +325,9 @@ PROC is the server process. Format of STRING is \"PATH PATH PATH... \\n\"."
(type (server-unquote-arg (match-string 2 request))))
(setq request (substring request (match-end 0)))
(condition-case err
(progn
(make-terminal-frame `((tty . ,pty) (tty-type . ,type)))
(process-send-string proc (concat (number-to-string (emacs-pid)) "\n")))
(let ((frame (make-terminal-frame `((tty . ,pty) (tty-type . ,type)))))
(process-send-string proc (concat (number-to-string (emacs-pid)) "\n"))
(select-frame frame))
(error (process-send-string proc (nth 1 err))
(setq request "")))))
;; ARG is a line number option.