diff options
| author | Karoly Lorentey | 2003-12-27 13:55:54 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2003-12-27 13:55:54 +0000 |
| commit | 8303ba32ba3f0c925ac8ac5540e85ca497e9b809 (patch) | |
| tree | f5efb48c9489c8813086c757384f554cc5192bc9 /lisp | |
| parent | bc279d67ae14ecb4755aad2003f9f616ab22b92f (diff) | |
| download | emacs-8303ba32ba3f0c925ac8ac5540e85ca497e9b809.tar.gz emacs-8303ba32ba3f0c925ac8ac5540e85ca497e9b809.zip | |
Implemented automatic deletion of terminals.
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
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/server.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/server.el b/lisp/server.el index 9721dbc4a41..0a3eb446761 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -325,9 +325,9 @@ PROC is the server process. Format of STRING is \"PATH PATH PATH... \\n\"." | |||
| 325 | (type (server-unquote-arg (match-string 2 request)))) | 325 | (type (server-unquote-arg (match-string 2 request)))) |
| 326 | (setq request (substring request (match-end 0))) | 326 | (setq request (substring request (match-end 0))) |
| 327 | (condition-case err | 327 | (condition-case err |
| 328 | (progn | 328 | (let ((frame (make-terminal-frame `((tty . ,pty) (tty-type . ,type))))) |
| 329 | (make-terminal-frame `((tty . ,pty) (tty-type . ,type))) | 329 | (process-send-string proc (concat (number-to-string (emacs-pid)) "\n")) |
| 330 | (process-send-string proc (concat (number-to-string (emacs-pid)) "\n"))) | 330 | (select-frame frame)) |
| 331 | (error (process-send-string proc (nth 1 err)) | 331 | (error (process-send-string proc (nth 1 err)) |
| 332 | (setq request ""))))) | 332 | (setq request ""))))) |
| 333 | ;; ARG is a line number option. | 333 | ;; ARG is a line number option. |