comparison lisp/server.el @ 59220:2375d42b7362

* server.el (server-process-filter): Suppress `error', too.
author Masatake YAMATO <jet@gyve.org>
date Thu, 30 Dec 2004 23:14:25 +0000
parents e47852bd4fc4
children aac0a33f5772 95879cc1ed20
comparison
equal deleted inserted replaced
59219:cb04f0d9be07 59220:2375d42b7362
344 (let ((standard-output (current-buffer))) 344 (let ((standard-output (current-buffer)))
345 (pp v) 345 (pp v)
346 ;; Suppress the error rose when the pipe to PROC is closed. 346 ;; Suppress the error rose when the pipe to PROC is closed.
347 (condition-case err 347 (condition-case err
348 (process-send-region proc (point-min) (point-max)) 348 (process-send-region proc (point-min) (point-max))
349 (file-error nil)) 349 (file-error nil)
350 (error nil))
350 )))) 351 ))))
351 ;; ARG is a file name. 352 ;; ARG is a file name.
352 ;; Collapse multiple slashes to single slashes. 353 ;; Collapse multiple slashes to single slashes.
353 (setq arg (command-line-normalize-file-name arg)) 354 (setq arg (command-line-normalize-file-name arg))
354 (push (list arg lineno columnno) files)) 355 (push (list arg lineno columnno) files))