# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825550338 0
# Node ID e299e3e3cf9d6583ec710293d80952e6debadf43
# Parent  f70d94fe685fd81447223c9807342f54462f2a2a
(server-process-filter): Use command-line-normalize-file-name.

diff -r f70d94fe685f -r e299e3e3cf9d lisp/server.el
--- a/lisp/server.el	Wed Feb 28 23:30:24 1996 +0000
+++ b/lisp/server.el	Wed Feb 28 23:32:18 1996 +0000
@@ -205,11 +205,8 @@
 		      ;; ARG is a line number option.
 		      (setq lineno (read (substring arg 1)))
 		    ;; ARG is a file name.
-		    ;; Collapse multiple slashes to single slashes,
-		    ;; since in Emacs a multiple slash is not equiv to one.
-		    ;; However, don't do this at the start of the file name.
-		    (while (string-match "//+" arg 1)
-		      (setq arg (replace-match "/" t t arg)))
+		    ;; Collapse multiple slashes to single slashes.
+		    (setq arg (command-line-normalize-file-name arg))
 		    (setq files
 			  (cons (list arg lineno)
 				files))