Commit 8226e01e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(server-process-filter): Let-bind `pos'.

parent 7509d397
...@@ -205,7 +205,8 @@ Prefix arg means just kill any existing server communications subprocess." ...@@ -205,7 +205,8 @@ Prefix arg means just kill any existing server communications subprocess."
(setq request (substring request (match-end 0))) (setq request (substring request (match-end 0)))
(while (string-match "[^ ]+ " request) (while (string-match "[^ ]+ " request)
(let ((arg (let ((arg
(substring request (match-beginning 0) (1- (match-end 0))))) (substring request (match-beginning 0) (1- (match-end 0))))
(pos 0))
(setq request (substring request (match-end 0))) (setq request (substring request (match-end 0)))
(if (string-match "\\`-nowait" arg) (if (string-match "\\`-nowait" arg)
(setq nowait t) (setq nowait t)
...@@ -215,7 +216,6 @@ Prefix arg means just kill any existing server communications subprocess." ...@@ -215,7 +216,6 @@ Prefix arg means just kill any existing server communications subprocess."
;; ARG is a file name. ;; ARG is a file name.
;; Collapse multiple slashes to single slashes. ;; Collapse multiple slashes to single slashes.
(setq arg (command-line-normalize-file-name arg)) (setq arg (command-line-normalize-file-name arg))
(setq pos 0)
;; Undo the quoting that emacsclient does ;; Undo the quoting that emacsclient does
;; for certain special characters. ;; for certain special characters.
(while (string-match "&." arg pos) (while (string-match "&." arg pos)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment