Mercurial > emacs
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)) |