diff options
| author | Chong Yidong | 2012-04-15 16:49:24 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-04-15 16:49:24 +0800 |
| commit | 9a864fa27d1bdc85c3542d34e6a2fc02fe03c718 (patch) | |
| tree | dae3f52efe9b0d03a5ccf974b4bd5c22f075ba4a /lisp | |
| parent | 467a33d09f0e6d445fb020013ac65b12adffc35e (diff) | |
| download | emacs-9a864fa27d1bdc85c3542d34e6a2fc02fe03c718.tar.gz emacs-9a864fa27d1bdc85c3542d34e6a2fc02fe03c718.zip | |
Move "emacsclient -t -n" handling from emacsclient.c to server.el.
Fix its buggy logic for the Windows case (regression from 23.4).
* lib-src/emacsclient.c (decode_options): Move -t -n corner case handling
into server.el.
* lisp/server.el (server-process-filter): Handle corner case where both
tty and nowait options are present.
Fixes: debbugs:11102
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/server.el | 7 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8c9f5b9f035..db559581ec2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-04-15 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * server.el (server-process-filter): Handle corner case where both | ||
| 4 | tty and nowait options are present (Bug#11102). | ||
| 5 | |||
| 1 | 2012-04-15 Glenn Morris <rgm@gnu.org> | 6 | 2012-04-15 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * simple.el (process-file-side-effects): Doc fix. | 8 | * simple.el (process-file-side-effects): Doc fix. |
diff --git a/lisp/server.el b/lisp/server.el index 404bebc4747..ced07714dcf 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -1133,6 +1133,13 @@ The following commands are accepted by the client: | |||
| 1133 | ;; Unknown command. | 1133 | ;; Unknown command. |
| 1134 | (arg (error "Unknown command: %s" arg)))) | 1134 | (arg (error "Unknown command: %s" arg)))) |
| 1135 | 1135 | ||
| 1136 | ;; If both -no-wait and -tty are given with file or sexp | ||
| 1137 | ;; arguments, use an existing frame. | ||
| 1138 | (and nowait | ||
| 1139 | (not (eq tty-name 'window-system)) | ||
| 1140 | (or files commands) | ||
| 1141 | (setq use-current-frame t)) | ||
| 1142 | |||
| 1136 | (setq frame | 1143 | (setq frame |
| 1137 | (cond | 1144 | (cond |
| 1138 | ((and use-current-frame | 1145 | ((and use-current-frame |