[elpa] externals/auctex 9b223d0 1/9: Improve style/xparse.el

[Tassilo Horn]

branch: externals/auctex
commit 9b223d0641f3c11d48ca974ace9b5d70719814df
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Improve style/xparse.el
    
    * style/xparse.el (LaTeX-xparse-macro-parse): Remove unnecessary
    grouping in regexps.
    ("xparse"): Fix number of arguments of testing macros.
---
 style/xparse.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/style/xparse.el b/style/xparse.el
index b02b3f9..2a9dff4 100644
--- a/style/xparse.el
+++ b/style/xparse.el
@@ -125,14 +125,14 @@ TYPE is one of the symobols mac or env."
                  (push "Text" args))
                 ;; r<token1><token2>
                 ((looking-at-p "r")
-                 (re-search-forward "r\\(?:\\(.\\)\\(.\\)\\)" (+ (point) 3) t)
+                 (re-search-forward "r\\(.\\)\\(.\\)" (+ (point) 3) t)
                  (push `(LaTeX-arg-xparse-query
                          ,(match-string-no-properties 1)
                          ,(match-string-no-properties 2))
                        args))
                 ;; R<token1><token2>{default}
                 ((looking-at-p "R")
-                 (re-search-forward "R\\(?:\\(.\\)\\(.\\)\\)" (+ (point) 3) t)
+                 (re-search-forward "R\\(.\\)\\(.\\)" (+ (point) 3) t)
                  (forward-sexp)
                  (push `(LaTeX-arg-xparse-query
                          ,(match-string-no-properties 1)
@@ -149,7 +149,7 @@ TYPE is one of the symobols mac or env."
                  (push (vector "Text") args))
                 ;; d<token1><token2>
                 ((looking-at-p "d")
-                 (re-search-forward "d\\(?:\\(.\\)\\(.\\)\\)" (+ (point) 3) t)
+                 (re-search-forward "d\\(.\\)\\(.\\)" (+ (point) 3) t)
                  (push (vector #'LaTeX-arg-xparse-query
                                (match-string-no-properties 1)
                                (match-string-no-properties 2))
@@ -161,7 +161,7 @@ TYPE is one of the symobols mac or env."
                  (push (vector "Text") args))
                 ;; D<token1><token2>{default}
                 ((looking-at-p "D")
-                 (re-search-forward "D\\(?:\\(.\\)\\(.\\)\\)" (+ (point) 3) t)
+                 (re-search-forward "D\\(.\\)\\(.\\)" (+ (point) 3) t)
                  (forward-sexp)
                  (push (vector #'LaTeX-arg-xparse-query
                                (match-string-no-properties 1)
@@ -261,14 +261,14 @@ TYPE is one of the symobols mac or env."
 
     ;; Testing special values
     '("IfBooleanTF" 3)
-    '("IfBooleanT" 3)
-    '("IfBooleanF" 3)
+    '("IfBooleanT" 2)
+    '("IfBooleanF" 2)
     '("IfNoValueTF" 3)
-    '("IfNoValueT" 3)
-    '("IfNoValueF" 3)
+    '("IfNoValueT" 2)
+    '("IfNoValueF" 2)
     '("IfValueTF" 3)
-    '("IfValueT" 3)
-    '("IfValueF" 3)
+    '("IfValueT" 2)
+    '("IfValueF" 2)
     "BooleanTrue"
     "BooleanFalse"
     ;; Argument processors