diff options
author | Richard M. Stallman <[email protected]> | 1996-02-28 00:29:43 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1996-02-28 00:29:43 +0000 |
commit | a478a9ce3220afaa3bff55a49af0bb4681fe66c4 (patch) | |
tree | 25de954d6c2316c58a5ba2d4b0f4a0fd343a669b /lisp | |
parent | a9562d191baf4b213d537847b77c82245c060190 (diff) |
(server-process-filter): Don't collapse // at start of file name.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/server.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index 7649660b72..61dc29f4ed 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) |