[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 8090c28bcbe05ab77d9c9f63706981b1ca90e5af

[Tassilo Horn]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  8090c28bcbe05ab77d9c9f63706981b1ca90e5af (commit)
      from  fb1fdc4105504204b1863ab15ace9a68cd3a21d0 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8090c28bcbe05ab77d9c9f63706981b1ca90e5af
Author: Tassilo Horn <address@hidden>
Date:   Sat Apr 11 22:14:05 2020 +0200

    Fix some regexp issues reported by relint.
    
    * latex.el (LaTeX-209-to-2e): Fix regexp issues reported by relint.
    * tex-buf.el (LaTeX-warnings-regexp, TeX-LaTeX-sentinel, TeX-parse-error):
    Dito.

diff --git a/latex.el b/latex.el
index 1b6699e..7701eb3 100644
--- a/latex.el
+++ b/latex.el
@@ -6805,13 +6805,13 @@ function would return non-nil and `(match-string 1)' 
would return
     (goto-char (point-min))
     (if
        (search-forward-regexp
-        "\\documentstyle\\[\\([^]]*\\)\\]{\\([^}]*\\)}"
+        "\\\\documentstyle\\[\\([^]]*\\)\\]{\\([^}]*\\)}"
         (point-max) t)
        (setq optstr (TeX-match-buffer 1)
              docstyle (TeX-match-buffer 2)
              optlist (TeX-split-string "," optstr))
       (if (search-forward-regexp
-          "\\documentstyle{\\([^}]*\\)}"
+          "\\\\documentstyle{\\([^}]*\\)}"
           (point-max) t)
          (setq docstyle (TeX-match-buffer 1))
        (error "No documentstyle defined")))
@@ -6837,10 +6837,10 @@ function would return non-nil and `(match-string 1)' 
would return
                (mapconcat (lambda (x) x)
                           (nreverse 2epackages) "}\n\\usepackage{") "}\n"))
     (if (equal docstyle "slides")
-      (progn
-       (goto-char (point-min))
-       (while (re-search-forward "\\\\blackandwhite{" nil t)
-      (replace-match "\\\\input{" nil nil)))))
+        (progn
+         (goto-char (point-min))
+         (while (re-search-forward "\\\\blackandwhite{" nil t)
+            (replace-match "\\\\input{" nil nil)))))
   (TeX-normal-mode nil))
 
 (defun LaTeX-env-beginning-pos-col ()
diff --git a/tex-buf.el b/tex-buf.el
index 5f53661..7a4e0da 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1597,7 +1597,7 @@ Return nil ifs no errors were found."
 ;;   Package xyz123 Warning: ...
 ;;   Class xyz123 Warning: ...
 (defvar LaTeX-warnings-regexp
-  "\\(?:LaTeX\\|Class\\|Package\\|\*\\) [-A-Za-z0-9]* ?[Ww]arning:"
+  "\\(?:LaTeX\\|Class\\|Package\\|\\*\\) [-A-Za-z0-9]* ?[Ww]arning:"
   "Regexp matching LaTeX warnings.")
 
 (defun TeX-LaTeX-sentinel-has-warnings ()
@@ -1704,7 +1704,7 @@ Rerun to get mark in right position\\." nil t)
         (message
          "%s" "You should run LaTeX again to get TikZ marks in right position")
         (setq TeX-command-next TeX-command-default))
-       ((re-search-forward "^\* xsim warning: \"rerun\"" nil t)
+       ((re-search-forward "^\\* xsim warning: \"rerun\"" nil t)
         (message
          "%s" "You should run LaTeX again to synchronize exercise properties")
         (setq TeX-command-next TeX-command-default))
@@ -2588,7 +2588,7 @@ Return non-nil if an error or warning is found."
          ;; TeX error
          "^\\(!\\|\\(.*?\\):[0-9]+:\\) \\|"
          ;; New file
-         "(\n?\\([^\n())]+\\)\\|"
+         "(\n?\\([^\n()]+\\)\\|"
          ;; End of file.
          "\\()\\)\\|"
          ;; Hook to change line numbers

-----------------------------------------------------------------------

Summary of changes:
 latex.el   | 12 ++++++------
 tex-buf.el |  6 +++---
 2 files changed, 9 insertions(+), 9 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX