| 
					
				 | 
			
			
				@@ -72,7 +72,6 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-babel-ref-goto-headline-id "ob-ref" (id)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-babel-ref-headline-body "ob-ref" ()) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-babel-lob-execute-maybe "ob-lob" ()) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-(declare-function org-babel-map-call-lines "ob-lob" (file &rest body)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-number-sequence "org-compat" (from &optional to inc)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-at-item-p "org-list" ()) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (declare-function org-list-parse-list "org-list" (&optional delete)) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -861,6 +860,30 @@ buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (goto-char point)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (def-edebug-spec org-babel-map-inline-src-blocks (form body)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defvar org-babel-lob-one-liner-regexp) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+;;;###autoload 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(defmacro org-babel-map-call-lines (file &rest body) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  "Evaluate BODY forms on each call line in FILE. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+If FILE is nil evaluate BODY forms on source blocks in current 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (declare (indent 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let ((tempvar (make-symbol "file"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    `(let* ((,tempvar ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (visited-p (or (null ,tempvar) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			   (get-file-buffer (expand-file-name ,tempvar)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (point (point)) to-be-removed) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       (save-window-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (when ,tempvar (find-file ,tempvar)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (setq to-be-removed (current-buffer)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (goto-char (point-min)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (while (re-search-forward org-babel-lob-one-liner-regexp nil t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	   (goto-char (match-beginning 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	   (save-match-data ,@body) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	   (goto-char (match-end 0)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       (unless visited-p (kill-buffer to-be-removed)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       (goto-char point)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+(def-edebug-spec org-babel-map-call-lines (form body)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ;;;###autoload 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-babel-execute-buffer (&optional arg) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Execute source code blocks in a buffer. 
			 |