aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2001-12-21 12:43:55 +0000
committerEli Zaretskii2001-12-21 12:43:55 +0000
commit152e2693f1c893ddf58bfdd77d07abd66c6b6f74 (patch)
tree714fde8339ac2af5f57fe486ba16e64fedcd7576
parentb1039ed6d0b91b2c901fd651a7f5ddc64dbf202d (diff)
downloademacs-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.el5
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)))