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-maybe-copy): If ARCHIVE includes leading

Browse source 
directories, make sure they exist under archive-tmpdir.
This commit is contained in:
Eli Zaretskii 2004-04-27 12:45:26 +00:00
parent c4c07982c1
commit aecb322b96
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2004-04-27 Daniel M Coffman <coffmand@us.ibm.com> (tiny change)
* arc-mode.el (archive-maybe-copy): If ARCHIVE includes leading
directories, make sure they exist under archive-tmpdir.
2004-04-27 Juri Linkov <juri@jurta.org>
* help.el (view-emacs-news): With argument, display info for the

8
lisp/arc-mode.el
View file

@ -815,6 +815,14 @@ using `make-temp-file', and the generated name is returned."
(or (and archive-subfile-mode (aref archive-subfile-mode 0))
archive)))
(make-directory archive-tmpdir t)
;; If ARCHIVE includes leading directories, make sure they
;; exist under archive-tmpdir.
(let ((arch-dir (file-name-directory archive)))
(if arch-dir
(make-directory (concat
(file-name-as-directory archive-tmpdir)
arch-dir)
t)))
(setq archive-local-name
(archive-unique-fname archive-name archive-tmpdir))
(save-restriction