| 
					
				 | 
			
			
				@@ -1629,17 +1629,16 @@ Return output file's name." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-texinfo-export-to-texinfo-batch () 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Export Org file INFILE to Texinfo file OUTFILE, in batch mode. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+Overwrites existing output file. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 Usage: emacs -batch -f org-texinfo-export-to-texinfo-batch INFILE OUTFILE" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (or noninteractive (user-error "Batch mode use only")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let ((infile (pop command-line-args-left)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(outfile (pop command-line-args-left)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(org-export-coding-system org-texinfo-coding-system)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(org-export-coding-system org-texinfo-coding-system) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+        (make-backup-files nil)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (unless (file-readable-p infile) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (message "File `%s' not readable" infile) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (kill-emacs 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (when (file-exists-p outfile) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (message "File `%s' already exists" outfile) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (kill-emacs 1)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (with-temp-buffer 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (insert-file-contents infile) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (org-export-to-file 'texinfo outfile)))) 
			 |