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

[Eli Zaretskii]

> Cc: address@hidden,  address@hidden
> From: Chris Moore <address@hidden>
> Date: Fri, 26 Jan 2007 15:52:36 +0100
> 
> *** 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

At this late stage in the pretest, won't it be safer to bind
default-directory only if the original value doesn't exist?