# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 811985298 0
# Node ID c668502d5a932da4c4e4a20136ef97978216d32e
# Parent  8197923b82ae5d18245cfd26d0dfb35baa5d1171
(server-process-filter): Ignore lines that don't start
with `Error:' or `Client:'.

diff -r 8197923b82ae -r c668502d5a93 lisp/server.el
--- a/lisp/server.el	Sun Sep 24 23:25:06 1995 +0000
+++ b/lisp/server.el	Sun Sep 24 23:28:18 1995 +0000
@@ -183,26 +183,27 @@
       (if (string-match "^Error: " request)
 	  (message (concat "Server error: " (substring request (match-end 0))))
 	(if (string-match "^Client: " request)
-	    (setq request (substring request (match-end 0))))
-	(setq client (list (substring request 0 (string-match " " request))))
-	(setq request (substring request (match-end 0)))
-	(while (string-match "[^ ]+ " request)
-	  (let ((arg
-		 (substring request (match-beginning 0) (1- (match-end 0)))))
-	    (setq request (substring request (match-end 0)))
-	    (if (string-match "\\`\\+[0-9]+\\'" arg)
-		(setq lineno (read (substring arg 1)))
-	      (setq files
-		    (cons (list arg lineno)
-			  files))
-	      (setq lineno 1))))
-	(server-visit-files files client)
-	;; CLIENT is now a list (CLIENTNUM BUFFERS...)
-	(setq server-clients (cons client server-clients))
-	(server-switch-buffer (nth 1 client))
-	(run-hooks 'server-switch-hook)
-	(message (substitute-command-keys
-		  "When done with a buffer, type \\[server-edit]")))))
+	    (progn
+	      (setq request (substring request (match-end 0)))
+	      (setq client (list (substring request 0 (string-match " " request))))
+	      (setq request (substring request (match-end 0)))
+	      (while (string-match "[^ ]+ " request)
+		(let ((arg
+		       (substring request (match-beginning 0) (1- (match-end 0)))))
+		  (setq request (substring request (match-end 0)))
+		  (if (string-match "\\`\\+[0-9]+\\'" arg)
+		      (setq lineno (read (substring arg 1)))
+		    (setq files
+			  (cons (list arg lineno)
+				files))
+		    (setq lineno 1))))
+	      (server-visit-files files client)
+	      ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
+	      (setq server-clients (cons client server-clients))
+	      (server-switch-buffer (nth 1 client))
+	      (run-hooks 'server-switch-hook)
+	      (message (substitute-command-keys
+			"When done with a buffer, type \\[server-edit]")))))))
   ;; Save for later any partial line that remains.
   (setq server-previous-string string))