[Emacs-diffs] Changes to emacs/lisp/jka-compr.el

[Eli Zaretskii]

Index: emacs/lisp/jka-compr.el
diff -c emacs/lisp/jka-compr.el:1.67 emacs/lisp/jka-compr.el:1.68
*** emacs/lisp/jka-compr.el:1.67        Thu Nov 15 16:17:09 2001
--- emacs/lisp/jka-compr.el     Fri Dec 21 07:43:55 2001
***************
*** 300,306 ****
              (or (memq (call-process
                         jka-compr-shell infile t nil "-c"
                         (format
!                         "%s %s 2> %s | %s bs=%d skip=%d %s 2> /dev/null"
                          prog
                          (mapconcat 'identity args " ")
                          err-file
--- 300,306 ----
              (or (memq (call-process
                         jka-compr-shell infile t nil "-c"
                         (format
!                         "%s %s 2> %s | %s bs=%d skip=%d %s 2> %s"
                          prog
                          (mapconcat 'identity args " ")
                          err-file
***************
*** 310,316 ****
                          ;; dd seems to be unreliable about
                          ;; providing the last block.  So, always
                          ;; read one more than you think you need.
!                         (if count (format "count=%d" (1+ count)) "")))
                        jka-compr-acceptable-retval-list)
                  (jka-compr-error prog args infile message err-file))
            (jka-compr-delete-temp-file err-file)))
--- 310,317 ----
                          ;; dd seems to be unreliable about
                          ;; providing the last block.  So, always
                          ;; read one more than you think you need.
!                         (if count (format "count=%d" (1+ count)) "")
!                         null-device))
                        jka-compr-acceptable-retval-list)
                  (jka-compr-error prog args infile message err-file))
            (jka-compr-delete-temp-file err-file)))