300 |
(or (memq (call-process |
(or (memq (call-process |
301 |
jka-compr-shell infile t nil "-c" |
jka-compr-shell infile t nil "-c" |
302 |
(format |
(format |
303 |
"%s %s 2> %s | %s bs=%d skip=%d %s 2> /dev/null" |
"%s %s 2> %s | %s bs=%d skip=%d %s 2> %s" |
304 |
prog |
prog |
305 |
(mapconcat 'identity args " ") |
(mapconcat 'identity args " ") |
306 |
err-file |
err-file |
310 |
;; dd seems to be unreliable about |
;; dd seems to be unreliable about |
311 |
;; providing the last block. So, always |
;; providing the last block. So, always |
312 |
;; read one more than you think you need. |
;; read one more than you think you need. |
313 |
(if count (format "count=%d" (1+ count)) ""))) |
(if count (format "count=%d" (1+ count)) "") |
314 |
|
null-device)) |
315 |
jka-compr-acceptable-retval-list) |
jka-compr-acceptable-retval-list) |
316 |
(jka-compr-error prog args infile message err-file)) |
(jka-compr-error prog args infile message err-file)) |
317 |
(jka-compr-delete-temp-file err-file))) |
(jka-compr-delete-temp-file err-file))) |