diff options
| author | Masatake YAMATO <jet@gyve.org> | 2004-10-08 15:50:59 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2004-10-08 15:50:59 +0000 |
| commit | 9afed9b1fa5aa59623def395f6229e177e0810d0 (patch) | |
| tree | b49f88efa8a5e593defeebc42dda9f09c41fa70d /lisp/server.el | |
| parent | 7ff2aa3963ec6a11d1789090aea6b0aba763a302 (diff) | |
| download | emacs-9afed9b1fa5aa59623def395f6229e177e0810d0.tar.gz | |
(server-process-filter): Wrap `process-send-region'
by `condition-case' to guard the case when the pipe to PROC is
closed.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |