| 
					
				 | 
			
			
				@@ -214,7 +214,7 @@ buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((mark (and (org-region-active-p) (mark))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(case-fold-search t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(info (org-edit-src-find-region-and-lang)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(org-mode-p (org-mode-p)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(org-mode-p (or (org-mode-p) (derived-mode-p 'org-mode))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(beg (make-marker)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(end (make-marker)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(allow-write-back-p (null code)) 
			 |