(server-process-filter): Quote with &, not \.

[bpt/emacs.git] / lisp / server.el

diff --git a/lisp/server.el b/lisp/server.el
index dbadb63..f4d3b7c 100644 (file)
--- 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