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
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
