Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
14701:ea592092c43c 14702:6251b4796e2b
205 ;; ARG is a line number option. 205 ;; ARG is a line number option.
206 (setq lineno (read (substring arg 1))) 206 (setq lineno (read (substring arg 1)))
207 ;; ARG is a file name. 207 ;; ARG is a file name.
208 ;; Collapse multiple slashes to single slashes, 208 ;; Collapse multiple slashes to single slashes,
209 ;; since in Emacs a multiple slash is not equiv to one. 209 ;; since in Emacs a multiple slash is not equiv to one.
210 (while (string-match "//+" arg) 210 ;; However, don't do this at the start of the file name.
211 (while (string-match "//+" arg 1)
211 (setq arg (replace-match "/" t t arg))) 212 (setq arg (replace-match "/" t t arg)))
212 (setq files 213 (setq files
213 (cons (list arg lineno) 214 (cons (list arg lineno)
214 files)) 215 files))
215 (setq lineno 1)))) 216 (setq lineno 1))))