| 
					
				 | 
			
			
				@@ -996,7 +996,8 @@ beg-body --------- point at the beginning of the body 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 end-body --------- point at the end of the body" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (declare (indent 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((tempvar (make-symbol "file"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    `(let* ((,tempvar ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    `(let* ((case-fold-search t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (,tempvar ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (visited-p (or (null ,tempvar) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			   (get-file-buffer (expand-file-name ,tempvar)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (point (point)) to-be-removed) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -1035,7 +1036,8 @@ If FILE is nil evaluate BODY forms on source blocks in current 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (declare (indent 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((tempvar (make-symbol "file"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    `(let* ((,tempvar ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    `(let* ((case-fold-search t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (,tempvar ,file) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (visited-p (or (null ,tempvar) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			   (get-file-buffer (expand-file-name ,tempvar)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (point (point)) to-be-removed) 
			 |