tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'km/from-emacs-master'

This commit is contained in:
Kyle Meyer 2021-03-09 22:13:07 -05:00
parent 37749c1657 2da3b0ebc3
commit 04e5d08faf
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox-texinfo.el
View File

@ -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))))