ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox-latex: Do not message "PDF file produced" for fragments 

* lisp/ox-latex.el (org-latex-compile): Do not message "PDF file
  produced" for fragments.
This commit is contained in:
Nicolas Goaziou 2014-11-16 17:58:11 +01:00
parent 6b3aa71061
commit 919722a6a6
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/ox-latex.el
View File

@ -3163,19 +3163,20 @@ Return PDF file name or an error if it couldn't be produced."
(error (format "PDF file %s wasn't produced" pdffile)) (error (format "PDF file %s wasn't produced" pdffile))
;; Else remove log files, when specified, and signal end of ;; Else remove log files, when specified, and signal end of
;; process to user, along with any error encountered. ;; process to user, along with any error encountered.
(when (and (not snippet) org-latex-remove-logfiles) (unless snippet
(dolist (file (directory-files (when org-latex-remove-logfiles
out-dir t (dolist (file (directory-files
(concat (regexp-quote base-name) out-dir t
"\\(?:\\.[0-9]+\\)?" (concat (regexp-quote base-name)
"\\." "\\(?:\\.[0-9]+\\)?"
(regexp-opt org-latex-logfiles-extensions)))) "\\."
(delete-file file))) (regexp-opt org-latex-logfiles-extensions))))
(message (concat "PDF file produced" (delete-file file)))
(cond (message (concat "PDF file produced"
((eq warnings 'error) " with errors.") (cond
(warnings (concat " with warnings: " warnings)) ((eq warnings 'error) " with errors.")
(t "."))))) (warnings (concat " with warnings: " warnings))
(t "."))))))
;; Return output file name. ;; Return output file name.
pdffile)))) pdffile))))