From 774e007d90f879f8c94ab68fe588883e7e233ada Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 24 Mar 2022 05:12:45 -0400 Subject: [PATCH] (archive-*-write-file-member): Fix relative file name * lisp/arc-mode.el (archive-*-write-file-member): Set the pwd --- lisp/arc-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 4f0edbbfa98..f1a3735d2c6 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1340,7 +1340,8 @@ NEW-NAME." t) (defun archive-*-write-file-member (archive descr command) - (let* ((ename (archive--file-desc-ext-file-name descr)) + (let* ((archive (expand-file-name archive)) + (ename (archive--file-desc-ext-file-name descr)) (tmpfile (expand-file-name ename archive-tmpdir)) (top (directory-file-name (file-name-as-directory archive-tmpdir))) (default-directory (file-name-as-directory top))) @@ -1364,6 +1365,7 @@ NEW-NAME." (setq ename (encode-coding-string ename archive-file-name-coding-system)) (let* ((coding-system-for-write 'no-conversion) + (default-directory (file-name-as-directory archive-tmpdir)) (exitcode (apply #'call-process (car command) nil -- 2.39.5