diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-28 23:32:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-28 23:32:18 +0000 |
| commit | 1ebcdd1aa281f4af2822dd15e8a9c2fad8e36b22 (patch) | |
| tree | 26bab1413acc65fd398cbeff752ffb7c6fcd2b06 | |
| parent | 3b6f9b7a8b350c8b9bd212fd35b480e2d3b14c50 (diff) | |
| download | emacs-1ebcdd1aa281f4af2822dd15e8a9c2fad8e36b22.tar.gz | |
(server-process-filter): Use command-line-normalize-file-name.
| -rw-r--r-- | lisp/server.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/server.el b/lisp/server.el index 61dc29f4ed3..f94fb7e3ebb 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -205,11 +205,8 @@ Prefix arg means just kill any existing server communications subprocess." ;; 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. - ;; However, don't do this at the start of the file name. - (while (string-match "//+" arg 1) - (setq arg (replace-match "/" t t arg))) + ;; Collapse multiple slashes to single slashes. + (setq arg (command-line-normalize-file-name arg)) (setq files (cons (list arg lineno) files)) |