Mercurial > emacs
changeset 68586:5c6fd061a6f9
(archive-maybe-copy): Fix the way directories in the archive are created
in archive-tmpdir.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 03 Feb 2006 11:05:29 +0000 |
| parents | bc069548ae24 |
| children | 1438f2238634 |
| files | lisp/arc-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/arc-mode.el Fri Feb 03 10:25:38 2006 +0000 +++ b/lisp/arc-mode.el Fri Feb 03 11:05:29 2006 +0000 @@ -800,17 +800,13 @@ (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))