|
|
|
|
@ -45,7 +45,7 @@ |
|
|
|
|
(defun ff/compilation-LaTeX-filter () |
|
|
|
|
(interactive) |
|
|
|
|
(save-excursion |
|
|
|
|
(goto-char (point-min)) |
|
|
|
|
(goto-char compilation-filter-start) |
|
|
|
|
(setq buffer-read-only nil) |
|
|
|
|
(while (re-search-forward "^LaTeX Warning: " nil t) |
|
|
|
|
(while (not (re-search-forward "\\.$" (line-end-position) t)) |
|
|
|
|
@ -53,15 +53,15 @@ |
|
|
|
|
(delete-char 1) |
|
|
|
|
(beginning-of-line))) |
|
|
|
|
|
|
|
|
|
;; Cleanup avail lists so that the error parser does not get confused |
|
|
|
|
(goto-char (point-min)) |
|
|
|
|
(if (search-forward " avail lists: " nil t) |
|
|
|
|
(delete-char -2)) |
|
|
|
|
(setq buffer-read-only t))) |
|
|
|
|
(setq buffer-read-only t))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(add-hook 'compilation-filter-hook 'ff/compilation-LaTeX-filter) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(require 'compile) |
|
|
|
|
|
|
|
|
|
(add-to-list 'compilation-error-regexp-alist 'latex-warning) |
|
|
|
|
(add-to-list 'compilation-error-regexp-alist-alist |
|
|
|
|
'(latex-warning |
|
|
|
|
|