From e72f207c3edaf8c70b5521c6c5cd85f5572c2960 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sun, 9 Jan 2011 17:47:45 -0700 Subject: [PATCH] ob: ensure that org-babel-temporary-directory is bound before using * lisp/ob.el (org-babel-temp-file): Ensure that org-babel-temporary-directory is bound before using. (org-babel-remove-temporary-directory): Safer error throwing. --- lisp/ob.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 750287577..6c6aa575a 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1958,7 +1958,8 @@ of `org-babel-temporary-directory'." prefix temporary-file-directory) nil suffix)) (let ((temporary-file-directory - (or (and (file-exists-p org-babel-temporary-directory) + (or (and (boundp 'org-babel-temporary-directory) + (file-exists-p org-babel-temporary-directory) org-babel-temporary-directory) temporary-file-directory))) (make-temp-file prefix nil suffix)))) @@ -1983,7 +1984,9 @@ of `org-babel-temporary-directory'." (delete-directory org-babel-temporary-directory)) (error (message "Failed to remove temporary Org-babel directory %s" - org-babel-temporary-directory))))) + (if (boundp 'org-babel-temporary-directory) + org-babel-temporary-directory + "[directory not defined]")))))) (add-hook 'kill-emacs-hook 'org-babel-remove-temporary-directory)