diff lisp/server.el @ 57379:ea05d398b4d7

(server-process-filter): Wrap `process-send-region' by `condition-case' to guard the case when the pipe to PROC is closed.

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