From b53d289e7aa61b4abdb9d068d8fcb434c688258a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 12 Dec 1990 05:12:45 +0000 Subject: [PATCH] *** empty log message *** --- lisp/server.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/server.el b/lisp/server.el index ea2defdd161..f6518777d2c 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -75,6 +75,8 @@ (defvar server-process nil "the current server process") +(defvar server-previous-string "") + (defvar server-clients nil "List of current server clients. Each element is (CLIENTID FILES...) where CLIENTID is a string @@ -144,9 +146,14 @@ Prefix arg means just kill any existing server communications subprocess." ;Format of STRING is "Client: CLIENTID PATH PATH PATH... \n" (defun server-process-filter (proc string) (server-log string) - (if (not (eq 0 (string-match "Client: " string))) - nil + (setq string (concat server-previous-string string)) + (if (not (and (eq ?\n (aref string (1- (length string)))) + (eq 0 (string-match "Client: " string)))) + ;; If input is not complete, save it for later. + (setq server-previous-string string) + ;; If it is complete, process it now, and discard what was saved. (setq string (substring string (match-end 0))) + (setq server-previous-string "") (let ((client (list (substring string 0 (string-match " " string)))) (files nil) (lineno 1)) -- 2.39.5