mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/arc-mode.el (archive-*-write-file-member): Set the pwd
This commit is contained in:
Stefan Monnier 2022-03-24 05:12:45 -04:00
parent f35dbb41cd
commit 774e007d90
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/arc-mode.el
View file

@ -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