diff options
| author | Stefan Monnier | 2008-04-23 15:37:07 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2008-04-23 15:37:07 +0000 |
| commit | 1b0a6c68e67b0f1246e4ebdb0c7791e0ae8d4b48 (patch) | |
| tree | 757e85a3bc03e7bdff233c1abc1f4f282e409725 | |
| parent | 9268294b0f7642d725f044536cc0b1798abfa9cb (diff) | |
| download | emacs-1b0a6c68e67b0f1246e4ebdb0c7791e0ae8d4b48.tar.gz emacs-1b0a6c68e67b0f1246e4ebdb0c7791e0ae8d4b48.zip | |
(server-start): Also don't get confused by CRs since we
don't quote them.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/server.el | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3c5a1e6994e..9ac6b7a541f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-04-23 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * server.el (server-start): Also don't get confused by CRs since we | ||
| 4 | don't quote them. | ||
| 5 | |||
| 1 | 2008-04-12 Nick Roberts <nickrob@snap.net.nz> | 6 | 2008-04-12 Nick Roberts <nickrob@snap.net.nz> |
| 2 | 7 | ||
| 3 | * progmodes/gdb-ui.el (gdb-init-buffer): New function. | 8 | * progmodes/gdb-ui.el (gdb-init-buffer): New function. |
diff --git a/lisp/server.el b/lisp/server.el index 90adaace156..88bb8cd769d 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -500,8 +500,9 @@ kill any existing server communications subprocess." | |||
| 500 | :filter 'server-process-filter | 500 | :filter 'server-process-filter |
| 501 | ;; We must receive file names without being decoded. | 501 | ;; We must receive file names without being decoded. |
| 502 | ;; Those are decoded by server-process-filter according | 502 | ;; Those are decoded by server-process-filter according |
| 503 | ;; to file-name-coding-system. | 503 | ;; to file-name-coding-system. Also don't get |
| 504 | :coding 'raw-text | 504 | ;; confused by CRs since we don't quote them. |
| 505 | :coding 'raw-text-unix | ||
| 505 | ;; The other args depend on the kind of socket used. | 506 | ;; The other args depend on the kind of socket used. |
| 506 | (if server-use-tcp | 507 | (if server-use-tcp |
| 507 | (list :family nil | 508 | (list :family nil |