mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 03:32:53 +00:00
org-compile-file: Ensure whitespace before ERR-MSG
* lisp/org-macs.el (org-compile-file): Make sure that ERR-MSG has lading whitespace and no trailing whitepace when displaying error. Reported-by: Niall Dooley <dooleyn@gmail.com> Link: https://orgmode.org/list/CADS3Lq5Uv4gK0U93H2EX9r=g43BbhzHT33oXbWVg7bAURmFvFw@mail.gmail.com
This commit is contained in:
parent
fa058f6d97
commit
93492b8619
|
@ -396,7 +396,13 @@ it for output."
|
||||||
(when (bound-and-true-p org-batch-test)
|
(when (bound-and-true-p org-batch-test)
|
||||||
(message "org-compile-file log ::\n-----\n%s\n-----\n"
|
(message "org-compile-file log ::\n-----\n%s\n-----\n"
|
||||||
(with-current-buffer log-buf (buffer-string))))
|
(with-current-buffer log-buf (buffer-string))))
|
||||||
(error (format "File %S wasn't produced%s" output err-msg)))
|
(error
|
||||||
|
(format
|
||||||
|
"File %S wasn't produced%s"
|
||||||
|
output
|
||||||
|
(if (org-string-nw-p err-msg)
|
||||||
|
(concat " " (org-trim err-msg))
|
||||||
|
err-msg))))
|
||||||
output))
|
output))
|
||||||
|
|
||||||
(defun org-compile-file-commands (source process ext &optional spec err-msg)
|
(defun org-compile-file-commands (source process ext &optional spec err-msg)
|
||||||
|
|
Loading…
Reference in a new issue