From b3985039555557d9017f57e941de4393dbc7baf2 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 3 Feb 2006 11:05:29 +0000 Subject: [PATCH] (archive-maybe-copy): Fix the way directories in the archive are created in archive-tmpdir. --- lisp/arc-mode.el | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index c376070ea3b..2d97c319c88 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -800,17 +800,13 @@ using `make-temp-file', and the generated name is returned." (archive-name (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)) + ;; Maked sure all the leading directories in + ;; archive-local-name exist under archive-tmpdir, so that + ;; the directory structure recorded in the archive is + ;; reconstructed in the temporary directory. + (make-directory (file-name-directory archive-local-name) t) (save-restriction (widen) (write-region start (point-max) archive-local-name nil 'nomessage)) -- 2.39.2