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

diff --git a/lisp/server.el b/lisp/server.el
index 4348e9a513457839d763e04c1a4e39c9617ae36e..78f10f422df2fb0069dca9699f69d20e79aefd79 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -205,7 +205,8 @@ Prefix arg means just kill any existing server communications subprocess."
              (setq request (substring request (match-end 0)))
              (while (string-match "[^ ]+ " request)
                (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)))
                  (if (string-match "\\`-nowait" arg)
                      (setq nowait t)
@@ -215,7 +216,6 @@ Prefix arg means just kill any existing server communications subprocess."
                      ;; ARG is a file name.
                      ;; Collapse multiple slashes to single slashes.
                      (setq arg (command-line-normalize-file-name arg))
-                     (setq pos 0)
                      ;; Undo the quoting that emacsclient does
                      ;; for certain special characters.
                      (while (string-match "&." arg pos)