Commit aecb322b authored by Eli Zaretskii's avatar Eli Zaretskii

(archive-maybe-copy): If ARCHIVE includes leading

directories, make sure they exist under archive-tmpdir.
parent c4c07982
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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment