Mercurial > emacs

diff lisp/server.el @ 14702:6251b4796e2b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-process-filter): Don't collapse // at start of file name.
author Richard M. Stallman <rms@gnu.org>
date Wed, 28 Feb 1996 00:29:43 +0000
parents aa3232e9077f
children e299e3e3cf9d
line wrap: on
line diff
--- a/lisp/server.el	Wed Feb 28 00:08:58 1996 +0000
+++ b/lisp/server.el	Wed Feb 28 00:29:43 1996 +0000
@@ -207,7 +207,8 @@
 		    ;; 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)