[Emacs-diffs] Changes to emacs/lisp/doc-view.el,v

[Tassilo Horn]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Tassilo Horn <tsdh>     08/03/13 18:11:37

Index: doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -b -r1.56 -r1.57
--- doc-view.el 12 Mar 2008 15:26:48 -0000      1.56
+++ doc-view.el 13 Mar 2008 18:11:37 -0000      1.57
@@ -600,7 +600,8 @@
 
 (defun doc-view-doc->txt (txt callback)
   "Convert the current document to text and call CALLBACK when done."
-  (make-directory (doc-view-current-cache-dir))
+  (unless (file-exists-p (doc-view-current-cache-dir))
+    (make-directory (doc-view-current-cache-dir)))
   (case doc-view-doc-type
     (pdf
      ;; Doc is a PDF, so convert it to TXT
@@ -649,7 +650,8 @@
   (setq doc-view-pending-cache-flush t)
   (let ((png-file (expand-file-name "page-%d.png"
                                     (doc-view-current-cache-dir))))
-    (make-directory (doc-view-current-cache-dir))
+    (unless (file-exists-p (doc-view-current-cache-dir))
+      (make-directory (doc-view-current-cache-dir)))
     (case doc-view-doc-type
       (dvi
        ;; DVI files have to be converted to PDF before Ghostscript can process