> Cc: [EMAIL PROTECTED], [email protected] > From: Chris Moore <[EMAIL PROTECTED]> > 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? _______________________________________________ emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
