Mercurial > emacs
comparison lisp/server.el @ 14717:e299e3e3cf9d
(server-process-filter): Use command-line-normalize-file-name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 28 Feb 1996 23:32:18 +0000 |
| parents | 6251b4796e2b |
| children | 0cefc98d243d |
comparison
equal
deleted
inserted
replaced
| 14716:f70d94fe685f | 14717:e299e3e3cf9d |
|---|---|
| 203 (setq request (substring request (match-end 0))) | 203 (setq request (substring request (match-end 0))) |
| 204 (if (string-match "\\`\\+[0-9]+\\'" arg) | 204 (if (string-match "\\`\\+[0-9]+\\'" arg) |
| 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 (setq arg (command-line-normalize-file-name arg)) |
| 210 ;; However, don't do this at the start of the file name. | |
| 211 (while (string-match "//+" arg 1) | |
| 212 (setq arg (replace-match "/" t t arg))) | |
| 213 (setq files | 210 (setq files |
| 214 (cons (list arg lineno) | 211 (cons (list arg lineno) |
| 215 files)) | 212 files)) |
| 216 (setq lineno 1)))) | 213 (setq lineno 1)))) |
| 217 (server-visit-files files client) | 214 (server-visit-files files client) |