[Emacs-diffs] Changes to emacs/lisp/server.el

[Masatake YAMATO]

Index: emacs/lisp/server.el
diff -c emacs/lisp/server.el:1.97 emacs/lisp/server.el:1.98
*** emacs/lisp/server.el:1.97   Fri Mar 19 00:50:48 2004
--- emacs/lisp/server.el        Fri Oct  8 15:50:58 2004
***************
*** 343,349 ****
                    (with-temp-buffer
                      (let ((standard-output (current-buffer)))
                        (pp v)
!                       (process-send-region proc (point-min) (point-max))))))
              ;; ARG is a file name.
              ;; Collapse multiple slashes to single slashes.
              (setq arg (command-line-normalize-file-name arg))
--- 343,353 ----
                    (with-temp-buffer
                      (let ((standard-output (current-buffer)))
                        (pp v)
!                       ;; 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))