[Emacs-diffs] /srv/bzr/emacs/trunk r99491: * arc-mode.el (archive-unique-fname): Make directories for nested

[Juri Linkov]

------------------------------------------------------------
revno: 99491
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Fri 2010-02-12 21:35:45 +0200
message:
  * arc-mode.el (archive-unique-fname): Make directories for nested
  archives.  (Bug#5540)
modified:
  lisp/ChangeLog
  lisp/arc-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-12 19:28:29 +0000
+++ b/lisp/ChangeLog    2010-02-12 19:35:45 +0000
@@ -1,5 +1,10 @@
 2010-02-12  Juri Linkov  <address@hidden>
 
+       * arc-mode.el (archive-unique-fname): Make directories for nested
+       archives.  (Bug#5540)
+
+2010-02-12  Juri Linkov  <address@hidden>
+
        * ffap.el (dired-at-point): Fix docstring.  (Bug#5565)
 
 2010-02-11  Stefan Monnier  <address@hidden>

=== modified file 'lisp/arc-mode.el'
--- a/lisp/arc-mode.el  2010-02-01 22:35:04 +0000
+++ b/lisp/arc-mode.el  2010-02-12 19:35:45 +0000
@@ -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)