# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822700659 0
# Node ID aa3232e9077fc03b3dd0c5fae65f2d1834b854b9
# Parent  85432533754708782e46cff32b2f98829ec79f92
(server-process-filter): In file name, collapse multiple slashes to one.

diff -r 854325337547 -r aa3232e9077f lisp/server.el
--- a/lisp/server.el	Fri Jan 26 23:34:09 1996 +0000
+++ b/lisp/server.el	Fri Jan 26 23:57:39 1996 +0000
@@ -202,7 +202,13 @@
 		       (substring request (match-beginning 0) (1- (match-end 0)))))
 		  (setq request (substring request (match-end 0)))
 		  (if (string-match "\\`\\+[0-9]+\\'" arg)
+		      ;; 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.
+		    (while (string-match "//+" arg)
+		      (setq arg (replace-match "/" t t arg)))
 		    (setq files
 			  (cons (list arg lineno)
 				files))