# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841622608 0
# Node ID 7e6b741a8b6a4e7d293cc37637358a66197b258e
# Parent  ad4cd25056232831e44ce438e87fc50f5eea6586
(server-process-filter): Undo the quoting with
backslashes that emacsclient now does for special characters.
Delete some debugging code accidentally left in.

diff -r ad4cd2505623 -r 7e6b741a8b6a lisp/server.el
--- a/lisp/server.el	Sun Sep 01 23:18:22 1996 +0000
+++ b/lisp/server.el	Mon Sep 02 00:03:28 1996 +0000
@@ -197,7 +197,6 @@
 	      (setq request (substring request (match-end 0)))
 	      (setq client (list (substring request 0 (string-match " " request))))
 	      (setq request (substring request (match-end 0)))
-	      (setq foofoo request)
 	      (while (string-match "[^ ]+ " request)
 		(let ((arg
 		       (substring request (match-beginning 0) (1- (match-end 0)))))
@@ -210,6 +209,18 @@
 		      ;; ARG is a file name.
 		      ;; Collapse multiple slashes to single slashes.
 		      (setq arg (command-line-normalize-file-name arg))
+		      (setq pos 0)
+		      ;; Undo the quoting that emacsclient does
+		      ;; for certain special characters.
+		      (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)))
+				((= nextchar ?-)
+				 (setq arg (replace-match "-" t t arg)))
+				(t
+				 (setq arg (replace-match " " t t arg))))))
 		      (setq files
 			    (cons (list arg lineno)
 				  files))