diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-02 00:37:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-02 00:37:12 +0000 |
| commit | 8226e01e77fb265751284d74f9a90e72229c951e (patch) | |
| tree | 8bac854475e7d99ef1add96f1f004f7fad75c4ca /lisp/server.el | |
| parent | 7509d39795815a6678967231aba1fb217c4834e6 (diff) | |
| download | emacs-8226e01e77fb265751284d74f9a90e72229c951e.tar.gz | |
(server-process-filter): Let-bind `pos'.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |