Mercurial > emacs
diff lisp/server.el @ 14385:aa3232e9077f
(server-process-filter): In file name, collapse multiple slashes to one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Jan 1996 23:57:39 +0000 |
| parents | 0df217c5842d |
| children | 6251b4796e2b |
line wrap: on
line diff
--- 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))