Mercurial > emacs

comparison lisp/server.el @ 16805:4b8907e5a574

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-process-filter): Let-bind `pos'.
author Richard M. Stallman <rms@gnu.org>
date Thu, 02 Jan 1997 00:37:12 +0000
parents 85b1a10101ff
children 5fb0f4a5336f
comparison
equal deleted inserted replaced
16804:0ba6599135d6 16805:4b8907e5a574
203 (setq request (substring request (match-end 0))) 203 (setq request (substring request (match-end 0)))
204 (setq client (list (substring request 0 (string-match " " request)))) 204 (setq client (list (substring request 0 (string-match " " request))))
205 (setq request (substring request (match-end 0))) 205 (setq request (substring request (match-end 0)))
206 (while (string-match "[^ ]+ " request) 206 (while (string-match "[^ ]+ " request)
207 (let ((arg 207 (let ((arg
208 (substring request (match-beginning 0) (1- (match-end 0))))) 208 (substring request (match-beginning 0) (1- (match-end 0))))
209 (pos 0))
209 (setq request (substring request (match-end 0))) 210 (setq request (substring request (match-end 0)))
210 (if (string-match "\\`-nowait" arg) 211 (if (string-match "\\`-nowait" arg)
211 (setq nowait t) 212 (setq nowait t)
212 (if (string-match "\\`\\+[0-9]+\\'" arg) 213 (if (string-match "\\`\\+[0-9]+\\'" arg)
213 ;; ARG is a line number option. 214 ;; ARG is a line number option.
214 (setq lineno (read (substring arg 1))) 215 (setq lineno (read (substring arg 1)))
215 ;; ARG is a file name. 216 ;; ARG is a file name.
216 ;; Collapse multiple slashes to single slashes. 217 ;; Collapse multiple slashes to single slashes.
217 (setq arg (command-line-normalize-file-name arg)) 218 (setq arg (command-line-normalize-file-name arg))
218 (setq pos 0)
219 ;; Undo the quoting that emacsclient does 219 ;; Undo the quoting that emacsclient does
220 ;; for certain special characters. 220 ;; for certain special characters.
221 (while (string-match "&." arg pos) 221 (while (string-match "&." arg pos)
222 (setq pos (1+ (match-beginning 0))) 222 (setq pos (1+ (match-beginning 0)))
223 (let ((nextchar (aref arg pos))) 223 (let ((nextchar (aref arg pos)))