From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Feb 1996 00:29:43 +0000 (+0000)
Subject: (server-process-filter): Don't collapse // at start of file name.
X-Git-Tag: emacs-19.34~1158
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a478a9ce3220afaa3bff55a49af0bb4681fe66c4;p=emacs.git

(server-process-filter): Don't collapse // at start of file name.
---

diff --git a/lisp/server.el b/lisp/server.el
index 7649660b72a..61dc29f4ed3 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -207,7 +207,8 @@ Prefix arg means just kill any existing server communications subprocess."
 		    ;; 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)
+		    ;; However, don't do this at the start of the file name.
+		    (while (string-match "//+" arg 1)
 		      (setq arg (replace-match "/" t t arg)))
 		    (setq files
 			  (cons (list arg lineno)