(doc-view-doc->txt, doc-view-convert-current-doc):

Use non-nil PARENTS attribute of make-directory instead of
explicitly checking existence the current cache directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a94a2a387f1c357b942ddd445f4171cb9fa15374..1c4070fc14b47475df2186075f5c8ac8a5016bc9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-03-16  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * doc-view.el (doc-view-doc->txt, doc-view-convert-current-doc):
+       Use non-nil PARENTS attribute of make-directory instead of
+       explicitly checking existence the current cache directory.
+
 2008-03-16  Daiki Ueno  <ueno@unixuser.org>
 
        * epa-file.el (epa-file-select-keys): Fix bug with C-x C-s after

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 8c5fad4c3f0ccc8889a5463271ded59947f60061..156ca8c29c965015945bab92476ac2a8c0795e20 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -600,8 +600,7 @@ Should be invoked when the cached images aren't up-to-date."
 
 (defun doc-view-doc->txt (txt callback)
   "Convert the current document to text and call CALLBACK when done."
-  (unless (file-exists-p (doc-view-current-cache-dir))
-    (make-directory (doc-view-current-cache-dir)))
+  (make-directory (doc-view-current-cache-dir) t)
   (case doc-view-doc-type
     (pdf
      ;; Doc is a PDF, so convert it to TXT
@@ -650,8 +649,7 @@ Those files are saved in the directory given by the function
   (setq doc-view-pending-cache-flush t)
   (let ((png-file (expand-file-name "page-%d.png"
                                     (doc-view-current-cache-dir))))
-    (unless (file-exists-p (doc-view-current-cache-dir))
-      (make-directory (doc-view-current-cache-dir)))
+    (make-directory (doc-view-current-cache-dir) t)
     (case doc-view-doc-type
       (dvi
        ;; DVI files have to be converted to PDF before Ghostscript can process