diff options
| author | Eli Zaretskii | 2001-12-21 12:43:55 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2001-12-21 12:43:55 +0000 |
| commit | 152e2693f1c893ddf58bfdd77d07abd66c6b6f74 (patch) | |
| tree | 714fde8339ac2af5f57fe486ba16e64fedcd7576 | |
| parent | b1039ed6d0b91b2c901fd651a7f5ddc64dbf202d (diff) | |
| download | emacs-152e2693f1c893ddf58bfdd77d07abd66c6b6f74.tar.gz emacs-152e2693f1c893ddf58bfdd77d07abd66c6b6f74.zip | |
(jka-compr-partial-uncompress): Use null-device instead of a literal
/dev/null. Reported by Jens Schmidt <schmidt@mathematik.uni-kl.de>.
| -rw-r--r-- | lisp/jka-compr.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 5c42a0af8be..0521d9840fc 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el | |||
| @@ -300,7 +300,7 @@ to keep: LEN chars starting BEG chars from the beginning." | |||
| 300 | (or (memq (call-process | 300 | (or (memq (call-process |
| 301 | jka-compr-shell infile t nil "-c" | 301 | jka-compr-shell infile t nil "-c" |
| 302 | (format | 302 | (format |
| 303 | "%s %s 2> %s | %s bs=%d skip=%d %s 2> /dev/null" | 303 | "%s %s 2> %s | %s bs=%d skip=%d %s 2> %s" |
| 304 | prog | 304 | prog |
| 305 | (mapconcat 'identity args " ") | 305 | (mapconcat 'identity args " ") |
| 306 | err-file | 306 | err-file |
| @@ -310,7 +310,8 @@ to keep: LEN chars starting BEG chars from the beginning." | |||
| 310 | ;; dd seems to be unreliable about | 310 | ;; dd seems to be unreliable about |
| 311 | ;; providing the last block. So, always | 311 | ;; providing the last block. So, always |
| 312 | ;; read one more than you think you need. | 312 | ;; read one more than you think you need. |
| 313 | (if count (format "count=%d" (1+ count)) ""))) | 313 | (if count (format "count=%d" (1+ count)) "") |
| 314 | null-device)) | ||
| 314 | jka-compr-acceptable-retval-list) | 315 | jka-compr-acceptable-retval-list) |
| 315 | (jka-compr-error prog args infile message err-file)) | 316 | (jka-compr-error prog args infile message err-file)) |
| 316 | (jka-compr-delete-temp-file err-file))) | 317 | (jka-compr-delete-temp-file err-file))) |