From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Jan 1997 00:37:12 +0000 (+0000)
Subject: (server-process-filter): Let-bind `pos'.
X-Git-Tag: emacs-20.1~3139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8226e01e77fb265751284d74f9a90e72229c951e;p=emacs.git

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

diff --git a/lisp/server.el b/lisp/server.el
index 4348e9a5134..78f10f422df 100644
--- 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)