Re: woman doesn't work if current buffer's directory doesn't exist

[Chris Moore]

Richard Stallman <address@hidden> 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