1946 |
for the error messages." |
for the error messages." |
1947 |
(require 'thingatpt) |
(require 'thingatpt) |
1948 |
(setq compilation-error-list nil) |
(setq compilation-error-list nil) |
|
(message "Parsing error messages...") |
|
1949 |
(let ((default-directory ; Perhaps dir has changed meanwhile. |
(let ((default-directory ; Perhaps dir has changed meanwhile. |
1950 |
(file-name-directory (buffer-file-name tex-last-buffer-texed))) |
(file-name-directory (buffer-file-name tex-last-buffer-texed))) |
1951 |
found-desired (num-errors-found 0) |
found-desired (num-errors-found 0) |
2011 |
compilation-error-list)) |
compilation-error-list)) |
2012 |
(goto-char end-of-error))))) |
(goto-char end-of-error))))) |
2013 |
(set-marker compilation-parsing-end (point)) |
(set-marker compilation-parsing-end (point)) |
2014 |
(setq compilation-error-list (nreverse compilation-error-list)) |
(setq compilation-error-list (nreverse compilation-error-list))) |
|
(message "Parsing error messages...done")) |
|
2015 |
|
|
2016 |
;;; The commands: |
;;; The commands: |
2017 |
|
|