# HG changeset patch # User Richard M. Stallman <rms@gnu.org> # Date 822700659 0 # Node ID aa3232e9077fc03b3dd0c5fae65f2d1834b854b9 # Parent 85432533754708782e46cff32b2f98829ec79f92 (server-process-filter): In file name, collapse multiple slashes to one. diff -r 854325337547 -r aa3232e9077f lisp/server.el --- 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))