/[emacs]/emacs/lisp/jka-compr.el
ViewVC logotype

Diff of /emacs/lisp/jka-compr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.67 by rms, Thu Nov 15 21:17:09 2001 UTC revision 1.68 by eliz, Fri Dec 21 12:43:55 2001 UTC
# Line 300  to keep: LEN chars starting BEG chars fr Line 300  to keep: LEN chars starting BEG chars fr
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
# Line 310  to keep: LEN chars starting BEG chars fr Line 310  to keep: LEN chars starting BEG chars fr
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)))

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26