[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/arc-mode.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/arc-mode.el |
Date: |
Fri, 03 Feb 2006 11:05:30 +0000 |
Index: emacs/lisp/arc-mode.el
diff -u emacs/lisp/arc-mode.el:1.69 emacs/lisp/arc-mode.el:1.70
--- emacs/lisp/arc-mode.el:1.69 Sat Nov 26 19:04:31 2005
+++ emacs/lisp/arc-mode.el Fri Feb 3 11:05:29 2006
@@ -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))
- [Emacs-diffs] Changes to emacs/lisp/arc-mode.el,
Eli Zaretskii <=