# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1097250659 0
# Node ID ea05d398b4d7722b8b4048dabc9dc32ba19ac422
# Parent  ec29b8d91b9636b8aa51106573208488b6475a8a
(server-process-filter): Wrap `process-send-region'
by `condition-case' to guard the case when the pipe to PROC is
closed.

diff -r ec29b8d91b96 -r ea05d398b4d7 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Oct 08 13:07:25 2004 +0000
+++ b/lisp/ChangeLog	Fri Oct 08 15:50:59 2004 +0000
@@ -1,3 +1,9 @@
+2004-10-09  Masatake YAMATO  <jet@gyve.org>
+
+	* server.el (server-process-filter): Wrap `process-send-region' 
+	by `condition-case' to guard the case when the pipe to PROC is 
+	closed.
+
 2004-10-07  Mark A. Hershberger  <mah@everybody.org>
 
 	* xml.el (xml-substitute-special): Limit handling of external
diff -r ec29b8d91b96 -r ea05d398b4d7 lisp/server.el
--- a/lisp/server.el	Fri Oct 08 13:07:25 2004 +0000
+++ b/lisp/server.el	Fri Oct 08 15:50:59 2004 +0000
@@ -343,7 +343,11 @@
 		    (with-temp-buffer
 		      (let ((standard-output (current-buffer)))
 			(pp v)
-			(process-send-region proc (point-min) (point-max))))))
+			;; Suppress the error rose when the pipe to PROC is closed.
+			(condition-case err
+			    (process-send-region proc (point-min) (point-max))
+			  (file-error nil))
+			))))
 	      ;; ARG is a file name.
 	      ;; Collapse multiple slashes to single slashes.
 	      (setq arg (command-line-normalize-file-name arg))