mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-01-02 00:37:12 +00:00
parent 7509d39795
commit 8226e01e77
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/server.el
View File

@ -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)