Mercurial > emacs
changeset 57379:ea05d398b4d7
(server-process-filter): Wrap `process-send-region'
by `condition-case' to guard the case when the pipe to PROC is
closed.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Fri, 08 Oct 2004 15:50:59 +0000 |
| parents | ec29b8d91b96 |
| children | a3021a22f48b |
| files | lisp/ChangeLog lisp/server.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))