Browse Source

babel: fixing issues with org-babel-temporary-directory

  Thanks to Achim Gratz

* lisp/ob.el (or): don't create org-babel-temporary-directory in batch
  as it won't be removed by emacs-kill-hook
  (org-babel-remove-temporary-directory): only try to remove this
  directory if it exists
Eric Schulte 15 years ago
parent
commit
055f0e621e
1 changed files with 3 additions and 2 deletions
  1. 3 2
      lisp/ob.el

+ 3 - 2
lisp/ob.el

@@ -1768,7 +1768,7 @@ the file name is additionally processed by
    (expand-file-name (org-babel-local-file-name name))))
 
 (defvar org-babel-temporary-directory)
-(unless (boundp 'org-babel-temporary-directory)
+(unless (or noninteractive (boundp 'org-babel-temporary-directory))
   (defvar org-babel-temporary-directory
     (or (and (boundp 'org-babel-temporary-directory)
 	     (file-exists-p org-babel-temporary-directory)
@@ -1797,7 +1797,8 @@ of `org-babel-temporary-directory'."
 
 (defun org-babel-remove-temporary-directory ()
   "Remove `org-babel-temporary-directory' on Emacs shutdown."
-  (when (boundp 'org-babel-temporary-directory)
+  (when (and (boundp 'org-babel-temporary-directory)
+	     (file-exists-p org-babel-temporary-directory))
     ;; taken from `delete-directory' in files.el
     (mapc (lambda (file)
 	    ;; This test is equivalent to