diff options
| author | Chong Yidong | 2008-11-04 18:42:04 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-11-04 18:42:04 +0000 |
| commit | 650d0dbc021c3fca7ace3db28eded4701108f5d0 (patch) | |
| tree | 3f9ac306d7dc235a4488fffd78357f108d7bc93e /lisp | |
| parent | aab520e57018ac3d0282961a99b2cdf6338e5e59 (diff) | |
| download | emacs-650d0dbc021c3fca7ace3db28eded4701108f5d0.tar.gz emacs-650d0dbc021c3fca7ace3db28eded4701108f5d0.zip | |
(server-process-filter): Don't call server-create-tty-frame when no
tty name is specified.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/server.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/server.el b/lisp/server.el index ae1202e9e9e..5b3cd9b82a0 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -808,13 +808,13 @@ The following commands are accepted by the client: | |||
| 808 | frame ; The frame that was opened for the client (if any). | 808 | frame ; The frame that was opened for the client (if any). |
| 809 | display ; Open the frame on this display. | 809 | display ; Open the frame on this display. |
| 810 | dontkill ; t if the client should not be killed. | 810 | dontkill ; t if the client should not be killed. |
| 811 | (commands ()) | 811 | commands |
| 812 | dir | 812 | dir |
| 813 | use-current-frame | 813 | use-current-frame |
| 814 | (tty-name nil) ;nil, `window-system', or the tty name. | 814 | tty-name ;nil, `window-system', or the tty name. |
| 815 | tty-type ;string. | 815 | tty-type ;string. |
| 816 | (files nil) | 816 | files |
| 817 | (filepos nil) | 817 | filepos |
| 818 | command-line-args-left | 818 | command-line-args-left |
| 819 | arg) | 819 | arg) |
| 820 | ;; Remove this line from STRING. | 820 | ;; Remove this line from STRING. |
| @@ -943,7 +943,9 @@ The following commands are accepted by the client: | |||
| 943 | (if display (server-select-display display))) | 943 | (if display (server-select-display display))) |
| 944 | ((eq tty-name 'window-system) | 944 | ((eq tty-name 'window-system) |
| 945 | (server-create-window-system-frame display nowait proc)) | 945 | (server-create-window-system-frame display nowait proc)) |
| 946 | (t (server-create-tty-frame tty-name tty-type proc)))) | 946 | ;; When resuming on a tty, tty-name is nil. |
| 947 | (tty-name | ||
| 948 | (server-create-tty-frame tty-name tty-type proc)))) | ||
| 947 | 949 | ||
| 948 | (process-put | 950 | (process-put |
| 949 | proc 'continuation | 951 | proc 'continuation |