| 
					
				 | 
			
			
				@@ -2184,9 +2184,7 @@ Possible conversions are set in `org-export-html-protect-char-alist'." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((cl org-export-html-protect-char-alist) c) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (while (setq c (pop cl)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((start 0)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(while (and (string-match (car c) s start) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    ;; prevent infinite matching of & 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    (not (string-match "&" s start))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(while (string-match (car c) s start) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (setq s (replace-match (cdr c) t t s) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		start (match-beginning 0))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     s)) 
			 |