| 
					
				 | 
			
			
				@@ -1100,8 +1100,11 @@ If the point is not on a source block then return nil." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (or 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      (save-excursion ;; on a source name line 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (beginning-of-line 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-       (and (looking-at org-babel-src-name-regexp) (forward-line 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-            (looking-at org-babel-src-block-regexp) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+       (and (looking-at org-babel-src-name-regexp) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (progn 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (while (and (forward-line 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			  (looking-at org-babel-multi-line-header-regexp))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (looking-at org-babel-src-block-regexp)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				             (point))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      (save-excursion ;; on a #+begin_src line 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (beginning-of-line 1) 
			 |