(server-process-filter): Wrap `process-send-region'

by `condition-case' to guard the case when the pipe to PROC is
closed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e67c4f1b5da36c068bc8430fe9fbfab41e4091ab..236993fd00b5bbf3e96f98b5858510784c1793b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/server.el b/lisp/server.el
index fe2fc0f59f470d1d1731dea7b5763468608fa2f4..3a330f07a3ca2b58d59f3e42c96d6faf3e59ac7c 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -343,7 +343,11 @@ PROC is the server process.  Format of STRING is \"PATH PATH PATH... \\n\"."
                    (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))