Make generation of texi from org overwrite output
* doc/misc/Makefile.in (org_template): Don't delete output. * lisp/org/ox-texinfo.el (org-texinfo-export-to-texinfo-batch): Overwrite existing output.
This commit is contained in:
parent
63026d8af3
commit
18e1455c8a
2 changed files with 3 additions and 5 deletions
|
@ -237,7 +237,6 @@ emacs = "${EMACS}" -batch --no-site-file --no-site-lisp
|
|||
# things like org-setup's "version" macro work. Sigh.
|
||||
define org_template
|
||||
$(1:.org=.texi): $(1)
|
||||
@rm -f $$@
|
||||
$${AM_V_GEN}cd "$${srcdir}" && $${emacs} -l ox-texinfo \
|
||||
-f org-texinfo-export-to-texinfo-batch $$(notdir $$<) $$(notdir $$@)
|
||||
endef
|
||||
|
|
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue