343 |
(with-temp-buffer |
(with-temp-buffer |
344 |
(let ((standard-output (current-buffer))) |
(let ((standard-output (current-buffer))) |
345 |
(pp v) |
(pp v) |
346 |
(process-send-region proc (point-min) (point-max)))))) |
;; Suppress the error rose when the pipe to PROC is closed. |
347 |
|
(condition-case err |
348 |
|
(process-send-region proc (point-min) (point-max)) |
349 |
|
(file-error nil)) |
350 |
|
)))) |
351 |
;; ARG is a file name. |
;; ARG is a file name. |
352 |
;; Collapse multiple slashes to single slashes. |
;; Collapse multiple slashes to single slashes. |
353 |
(setq arg (command-line-normalize-file-name arg)) |
(setq arg (command-line-normalize-file-name arg)) |