Richard Stallman <[EMAIL PROTECTED]> writes: > To see jka-compr failing, evaluate this: > > (let ((default-directory "/a/b/c")) > (insert-file-contents "/usr/share/man/man1/ls.1.gz")) > > Can someone please fix jka-compr?
My post which started this thread contained a fix for jka-compr. The modified functions will need reindenting. I've left the indentation alone to make the patch more readable. $ cvs diff -c lisp/jka-compr.el Index: lisp/jka-compr.el =================================================================== RCS file: /sources/emacs/emacs/lisp/jka-compr.el,v retrieving revision 1.92 diff -c -r1.92 jka-compr.el *** lisp/jka-compr.el 21 Jan 2007 03:53:11 -0000 1.92 --- lisp/jka-compr.el 26 Jan 2007 14:46:48 -0000 *************** *** 166,171 **** --- 166,172 ---- ;; to discard the part we don't want. (let ((skip (/ beg jka-compr-dd-blocksize)) (err-file (jka-compr-make-temp-name)) + (default-directory (file-name-directory infile)) count) ;; Update PREFIX based on the text that we won't read in. (setq prefix (- beg (* skip jka-compr-dd-blocksize)) *************** *** 204,209 **** --- 205,211 ---- (defun jka-compr-call-process (prog message infile output temp args) + (let ((default-directory (file-name-directory infile))) (if jka-compr-use-shell (let ((err-file (jka-compr-make-temp-name)) *************** *** 243,248 **** --- 245,251 ---- (with-current-buffer temp (write-region (point-min) (point-max) output) (erase-buffer))))) + ) ;; Support for temp files. Much of this was inspired if not lifted _______________________________________________ emacs-pretest-bug mailing list emacs-pretest-bug@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug