mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(server-process-filter): Use command-line-normalize-file-name.

Browse source
This commit is contained in:
Richard M. Stallman 1996-02-28 23:32:18 +00:00
parent dcccc83257
commit ee7226e542
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/server.el
View file

@ -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))