Mercurial > emacs
changeset 107136:00c6bb12d924
* arc-mode.el (archive-unique-fname): Make directories for nested
archives. (Bug#5540)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 12 Feb 2010 21:35:45 +0200 |
| parents | 76b761c74dae |
| children | 57518784c193 0c8d4cc6d8b6 a54a2fe12bf1 21e3344fd9bc |
| files | lisp/ChangeLog lisp/arc-mode.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Feb 12 21:28:29 2010 +0200 +++ b/lisp/ChangeLog Fri Feb 12 21:35:45 2010 +0200 @@ -1,3 +1,8 @@ +2010-02-12 Juri Linkov <juri@jurta.org> + + * arc-mode.el (archive-unique-fname): Make directories for nested + archives. (Bug#5540) + 2010-02-12 Juri Linkov <juri@jurta.org> * ffap.el (dired-at-point): Fix docstring. (Bug#5565)
--- a/lisp/arc-mode.el Fri Feb 12 21:28:29 2010 +0200 +++ b/lisp/arc-mode.el Fri Feb 12 21:35:45 2010 +0200 @@ -834,6 +834,11 @@ ;; reconstructed in the temporary directory. (make-directory (file-name-directory tmpfile) t) (make-temp-file tmpfile)) + ;; Maked sure all the leading directories in `fullname' exist + ;; under archive-tmpdir. This is necessary for nested archives + ;; (`archive-extract' sets `archive-remote' to t in case + ;; an archive occurs inside another archive). + (make-directory (file-name-directory fullname) t) fullname))) (defun archive-maybe-copy (archive)