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

contrib/lisp/org-e-texinfo: Improve error reporting after makeinfo

Browse source 
* contrib/lisp/org-e-texinfo.el (org-e-texinfo-collect-errors): Fixed
  error checking to actually return an error message.
This commit is contained in:
Jonathan Leech-Pepin 2012-08-23 08:36:15 -04:00
parent e759d34826
commit 44d68803d3
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
contrib/lisp/org-e-texinfo.el
View file

@ -1757,7 +1757,7 @@ Return INFO file name or an error if it couldn't be produced."
(set-window-configuration wconfig))))
(defun org-e-texinfo-collect-errors (buffer)
"Collect some kind of errors from \"pdflatex\" command output.
"Collect some kind of errors from \"makeinfo\" command output.
BUFFER is the buffer containing output.
@ -1765,9 +1765,9 @@ Return collected error types as a string, or nil if there was
none."
(with-current-buffer buffer
(save-excursion
(goto-char (point-max))
(goto-char (point-min))
;; Find final "makeinfo" run.
(when (re-search-backward "^makeinfo (GNU texinfo)" nil t)
(when t
(let ((case-fold-search t)
(errors ""))
(when (save-excursion
@ -1786,8 +1786,11 @@ none."
(re-search-forward "requires a sectioning" nil t))
(setq errors (concat errors " [invalid section command]")))
(when (save-excursion
(re-search-forward "[unexpected]" nil t))
(re-search-forward "\\[unexpected\]" nil t))
(setq errors (concat errors " [unexpected error]")))
(when (save-excursion
(re-search-forward "misplaced " nil t))
(setq errors (concat errors " [syntax error]")))
(and (org-string-nw-p errors) (org-trim errors)))))))
(provide 'org-e-texinfo)