*** empty log message ***

[gnu-emacs] / lisp / server.el

diff --git a/lisp/server.el b/lisp/server.el
index ea2defdd161724fb14722152e085937cb7d21c6f..e4259be4ff09b8afe773b53607d787ab67bf42c0 100644 (file)
--- 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
@@ -112,6 +114,7 @@ by the programs that invoke the emacs server.")
        ((eq (process-status proc) 'signal)
         (server-log (message "Server subprocess killed")))))
 
+;;;###autoload
 (defun server-start (&optional leave-dead)
   "Allow this Emacs process to be a server for client processes.
 This starts a server communications subprocess through which
@@ -144,9 +147,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))