org-compile-file: Retain all the logs when PROCESS is a list

* lisp/org-macs.el (org-compile-file): When PROCESS is a list of shell
commands, do not erase logs of all but last commands.
This commit is contained in:
Ihor Radchenko 2024-02-13 12:59:38 +01:00
parent 61c235b778
commit a250fc745f
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 1 deletions

View File

@ -1626,7 +1626,9 @@ it for output."
(cond
((functionp command)
(funcall command (shell-quote-argument relname)))
((stringp command) (shell-command command log-buf)))))
((stringp command)
(let ((shell-command-dont-erase-buffer t))
(shell-command command log-buf))))))
;; Check for process failure. Output file is expected to be
;; located in the same directory as SOURCE.
(unless (org-file-newer-than-p output time)