From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 12 Dec 1990 05:12:45 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15686
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b53d289e7aa61b4abdb9d068d8fcb434c688258a;p=emacs.git

*** empty log message ***
---

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