diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-02 17:43:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-02 17:43:56 +0000 |
| commit | 9c070d3016a6e29fe820fbff5183b3c71c3467c2 (patch) | |
| tree | 1d730a0e84ab274584c3b2d18bcb2317bf215b14 /lisp/server.el | |
| parent | 8e11a8b789b711997544a05c3c214b0497fceb54 (diff) | |
| download | emacs-9c070d3016a6e29fe820fbff5183b3c71c3467c2.tar.gz | |
(server-process-filter): Quote with &, not \.
Diffstat (limited to 'lisp/server.el')
| -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." (setq pos 0) ;; Undo the quoting that emacsclient does ;; for certain special characters. - (while (string-match "\\\\." arg pos) + (while (string-match "&." arg pos) (setq pos (1+ (match-beginning 0))) (let ((nextchar (aref arg pos))) - (cond ((= nextchar ?\\) - (setq arg (replace-match "\\" t t arg))) + (cond ((= nextchar ?&) + (setq arg (replace-match "&" t t arg))) ((= nextchar ?-) (setq arg (replace-match "-" t t arg))) (t |