| 
					
				 | 
			
			
				@@ -213,7 +213,7 @@ Return new parse tree." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (cond 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       ((org-export-derived-backend-p backend 'html) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(insert (format "<div id=\"bibliography\">\n<h2>%s</h2>\n" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-				(org-export-translates "References" :bibtex info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+				(org-export-translate "References" :html info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(insert-file-contents (concat file ".html")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(insert "\n</div>")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       ((org-export-derived-backend-p backend 'ascii) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -223,9 +223,13 @@ Return new parse tree." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 					    "-o" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 					    (concat file ".txt"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		  (error "Executing pandoc failed")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		(insert (format 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 "%s\n==========\n\n" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 (org-export-translates "References" :bibtex info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(insert 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		 (format 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		  "%s\n==========\n\n" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		  (org-export-translate 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   "References" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   (intern (format ":%s" (plist-get info :ascii-charset))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		   info))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(insert-file-contents (concat file ".txt")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(goto-char (point-min)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		(while (re-search-forward 
			 |