master 774e007d90: (archive-*-write-file-member): Fix relative file name

[Stefan Monnier]

branch: master
commit 774e007d90f879f8c94ab68fe588883e7e233ada
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (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 4f0edbbfa9..f1a3735d2c 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