Mercurial > emacs
changeset 14702:6251b4796e2b
(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 | ea592092c43c |
| children | 2406878fba09 |
| files | lisp/server.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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)