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

[Miles Bader]

Index: emacs/lisp/server.el
diff -c emacs/lisp/server.el:1.78.4.4 emacs/lisp/server.el:1.78.4.5
*** emacs/lisp/server.el:1.78.4.4       Fri Mar 19 23:29:18 2004
--- emacs/lisp/server.el        Mon Oct 25 04:19:39 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))