diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-26 23:57:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-26 23:57:39 +0000 |
| commit | ae6e5aad3d3e45beabbb3783980703618ecf9a54 (patch) | |
| tree | 492685f869bd7caf877dfe7c3b999671b27396fe | |
| parent | d3c7a6e29c21a381fa4ff09787b0c13ae6f352e5 (diff) | |
| download | emacs-ae6e5aad3d3e45beabbb3783980703618ecf9a54.tar.gz | |
(server-process-filter): In file name, collapse multiple slashes to one.
| -rw-r--r-- | lisp/server.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index 5dc51cb7e39..7649660b72a 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -202,7 +202,13 @@ Prefix arg means just kill any existing server communications subprocess." (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)) |