| 
					
				 | 
			
			
				@@ -241,11 +241,9 @@ should be asked whether to allow evaluation." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (query (or (equal eval "query") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (and export (equal eval "query-export")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (if (functionp org-confirm-babel-evaluate) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			(save-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  (goto-char (nth 5 info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			  (funcall org-confirm-babel-evaluate 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-				   ;; language, code block body 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-				   (nth 0 info) (nth 1 info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			(funcall org-confirm-babel-evaluate 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				 ;; Language, code block body. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				 (nth 0 info) (nth 1 info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		      org-confirm-babel-evaluate)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      (noeval nil) 
			 |