From 9afed9b1fa5aa59623def395f6229e177e0810d0 Mon Sep 17 00:00:00 2001 From: Masatake YAMATO Date: Fri, 8 Oct 2004 15:50:59 +0000 Subject: [PATCH] (server-process-filter): Wrap `process-send-region' by `condition-case' to guard the case when the pipe to PROC is closed. --- lisp/ChangeLog | 6 ++++++ lisp/server.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e67c4f1b5da..236993fd00b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-10-09 Masatake YAMATO + + * 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 * xml.el (xml-substitute-special): Limit handling of external diff --git a/lisp/server.el b/lisp/server.el index fe2fc0f59f4..3a330f07a3c 100644 --- 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)) -- 2.39.5