diff options
| author | Richard M. Stallman | 1996-09-02 17:43:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-02 17:43:56 +0000 |
| commit | b59a6343c23f14a661644f1beebbce77de41ab06 (patch) | |
| tree | 35fe0f0c1b5920d1b0f7db5412294c10c23eed51 | |
| parent | f1db6a73ef6352c17393680e6d0b6980294aec68 (diff) | |
| download | emacs-b59a6343c23f14a661644f1beebbce77de41ab06.tar.gz emacs-b59a6343c23f14a661644f1beebbce77de41ab06.zip | |
(server-process-filter): Quote with &, not \.
| -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 dbadb63418c..f4d3b7cb2de 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -212,11 +212,11 @@ Prefix arg means just kill any existing server communications subprocess." | |||
| 212 | (setq pos 0) | 212 | (setq pos 0) |
| 213 | ;; Undo the quoting that emacsclient does | 213 | ;; Undo the quoting that emacsclient does |
| 214 | ;; for certain special characters. | 214 | ;; for certain special characters. |
| 215 | (while (string-match "\\\\." arg pos) | 215 | (while (string-match "&." arg pos) |
| 216 | (setq pos (1+ (match-beginning 0))) | 216 | (setq pos (1+ (match-beginning 0))) |
| 217 | (let ((nextchar (aref arg pos))) | 217 | (let ((nextchar (aref arg pos))) |
| 218 | (cond ((= nextchar ?\\) | 218 | (cond ((= nextchar ?&) |
| 219 | (setq arg (replace-match "\\" t t arg))) | 219 | (setq arg (replace-match "&" t t arg))) |
| 220 | ((= nextchar ?-) | 220 | ((= nextchar ?-) |
| 221 | (setq arg (replace-match "-" t t arg))) | 221 | (setq arg (replace-match "-" t t arg))) |
| 222 | (t | 222 | (t |