diff options
| author | Chong Yidong | 2012-04-20 18:37:57 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-04-20 18:37:57 +0800 |
| commit | 2d0e8e614a6744a6a33c6b519f20359802e75c2b (patch) | |
| tree | 1dfade2f2a21b73ee7f195c6e7e1e2f0a4c43543 /lisp | |
| parent | de6ff46dce80a715d46c34ff46f01a28afb63db9 (diff) | |
| download | emacs-2d0e8e614a6744a6a33c6b519f20359802e75c2b.tar.gz emacs-2d0e8e614a6744a6a33c6b519f20359802e75c2b.zip | |
Fix emacsclient/server behavior under --without-x.
* lib-src/emacsclient.c (main): Send -tty to Emacs under more circumstanced (Bug#8314).
* lisp/server.el (server-process-filter): Only try to open a window
system frame if compiled with graphical support (Bug#8314).
Fixes: debbugs:11102
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/server.el | 8 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 947ae6f17f6..58f646251d0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -4,6 +4,8 @@ | |||
| 4 | is a string and there are no files to open (Bug#2825). | 4 | is a string and there are no files to open (Bug#2825). |
| 5 | (server-create-window-system-frame, server-create-tty-frame): | 5 | (server-create-window-system-frame, server-create-tty-frame): |
| 6 | Don't switch buffers here. | 6 | Don't switch buffers here. |
| 7 | (server-process-filter): Only try to open a window system frame if | ||
| 8 | compiled with graphical support (Bug#8314). | ||
| 7 | 9 | ||
| 8 | 2012-04-20 Dan Nicolaescu <dann@gnu.org> | 10 | 2012-04-20 Dan Nicolaescu <dann@gnu.org> |
| 9 | 11 | ||
diff --git a/lisp/server.el b/lisp/server.el index f9c8ea5c577..1e2f458ac9c 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -1076,8 +1076,9 @@ The following commands are accepted by the client: | |||
| 1076 | 1076 | ||
| 1077 | ;; -window-system: Open a new X frame. | 1077 | ;; -window-system: Open a new X frame. |
| 1078 | (`"-window-system" | 1078 | (`"-window-system" |
| 1079 | (setq dontkill t) | 1079 | (if (fboundp 'x-create-frame) |
| 1080 | (setq tty-name 'window-system)) | 1080 | (setq dontkill t |
| 1081 | tty-name 'window-system))) | ||
| 1081 | 1082 | ||
| 1082 | ;; -resume: Resume a suspended tty frame. | 1083 | ;; -resume: Resume a suspended tty frame. |
| 1083 | (`"-resume" | 1084 | (`"-resume" |
| @@ -1105,7 +1106,8 @@ The following commands are accepted by the client: | |||
| 1105 | (setq dontkill t) | 1106 | (setq dontkill t) |
| 1106 | (pop args-left)) | 1107 | (pop args-left)) |
| 1107 | 1108 | ||
| 1108 | ;; -tty DEVICE-NAME TYPE: Open a new tty frame at the client. | 1109 | ;; -tty DEVICE-NAME TYPE: Open a new tty frame. |
| 1110 | ;; (But if we see -window-system later, use that.) | ||
| 1109 | (`"-tty" | 1111 | (`"-tty" |
| 1110 | (setq tty-name (pop args-left) | 1112 | (setq tty-name (pop args-left) |
| 1111 | tty-type (pop args-left) | 1113 | tty-type (pop args-left) |