| 
					
				 | 
			
			
				@@ -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 
			 |