From aecb322b96b1367bc19727118c11321b8b642056 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 27 Apr 2004 12:45:26 +0000 Subject: [PATCH] (archive-maybe-copy): If ARCHIVE includes leading directories, make sure they exist under archive-tmpdir. --- lisp/ChangeLog | 5 +++++ lisp/arc-mode.el | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5a3b646bc72..6df7d54191c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-04-27 Daniel M Coffman (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 * help.el (view-emacs-news): With argument, display info for the diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 7ac7a402c3a..2cb20b4545d 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -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 -- 2.39.5