branch: externals/auctex-cont-latexmk
commit ad6dc99345bde7a0f38932ae81549c14231760cd
Author: Paul Nelson <ultr...@gmail.com>
Commit: Paul Nelson <ultr...@gmail.com>

    fix flycheck warnings
---
 czm-tex-compile.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/czm-tex-compile.el b/czm-tex-compile.el
index 31aa39f14b..13535a11f5 100644
--- a/czm-tex-compile.el
+++ b/czm-tex-compile.el
@@ -97,15 +97,15 @@ Used for navigating LaTeX warnings in the log file."
                      (point))))
     (replace-regexp-in-string "\n" "" (buffer-substring-no-properties beg 
end))))
 
+
+(require 'tex)
+
 (defun czm-tex-compile-process-log ()
   "Process the log file for the current LaTeX document."
   (let* ((current-buf (current-buffer))
          (tex-file (buffer-file-name))
                (log-file (concat (file-name-sans-extension tex-file)
-                           ".log"))
-         (error-prefix "! ")
-         (warning-prefix "LaTeX Warning: ")
-               results)
+                           ".log")))
     (with-temp-buffer
       (insert-file-contents log-file)
       (let* ((error-list (progn (TeX-parse-all-errors)
@@ -128,8 +128,7 @@ Used for navigating LaTeX warnings in the log file."
                                                         ;; (progn 
(string-match " Warning: " description-raw)
                                                         ;;        (match-end 
0))
                                                         -1)))
-                              line prefix
-                              region)
+                              line prefix)
                          (if error-p
                              (with-temp-buffer
                                (insert (nth 5 item))
@@ -200,8 +199,7 @@ the log file is newer than the current buffer."
                       description)))
                  (seq-filter
                   (lambda (datum)
-                    (not (null (nth 2 datum)))
-                    )
+                    (not (null (nth 2 datum))))
                   log-data))))
     (funcall report-fn diags)
     t))
@@ -256,10 +254,12 @@ ARGS are the keyword-value pairs concerning edits"
             nil t))
 
 (defun czm-tex-compile-restrict-flymake-backends ()
+  "Restrict flymake backends to `czm-tex-compile-flymake'."
   (interactive)
   (setq flymake-diagnostic-functions '(czm-tex-compile-flymake t)))
 
 (defun czm-tex-compile-relax-flymake-backends ()
+  "Relax flymake backends to include `LaTeX-flymake'."
   (interactive)
   (setq flymake-diagnostic-functions '(czm-tex-compile-flymake LaTeX-flymake 
t)))
 

Reply via email to