From 2da3b0ebc302b60ffbc8c1bcf51edf537df31bb3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 28 Feb 2021 15:13:07 -0800 Subject: [PATCH] Backport commit 18e1455c8 from Emacs * lisp/ox-texinfo.el (org-texinfo-export-to-texinfo-batch): Overwrite existing output. Make generation of texi from org overwrite output 18e1455c8ae851791a047dc56eef972cc24e5b6c Glenn Morris Sun Feb 28 15:13:07 2021 -0800 --- lisp/ox-texinfo.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 78d58bead..6e8d0d621 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -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))))