[elpa] externals/auctex 45d3a11 08/71: ; Fix unbalanced parentheses

[Tassilo Horn]

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

    ; Fix unbalanced parentheses
    
    * style/xparse.el (LaTeX-xparse-macro-parse): Add missing
    parentheses.
    Don't use `copy-sequence' since `reverse' already returns a copy
    of the list.
---
 style/xparse.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/style/xparse.el b/style/xparse.el
index 314938e..1f197f9 100644
--- a/style/xparse.el
+++ b/style/xparse.el
@@ -221,7 +221,7 @@ TYPE is one of the symbols mac or env."
                     (assoc-delete-all name LaTeX-environment-list)))
             (LaTeX-add-environments `(,name
                                       LaTeX-env-args
-                                      ,@(reverse (copy-sequence args)))))
+                                      ,@(reverse args))))
         ;; Parsed macros: If we are Renew'ing or Delare'ing, we delete
         ;; the macros first from `TeX-symbol-list' before adding the
         ;; new ones.  We have to sort the value of `TeX-symbol-list'
@@ -232,18 +232,18 @@ TYPE is one of the symbols mac or env."
                 (assoc-delete-all name TeX-symbol-list))
           (when opt-star
             (setq TeX-symbol-list
-                  (assoc-delete-all (concat name "*" TeX-symbol-list))))
+                  (assoc-delete-all (concat name "*") TeX-symbol-list)))
           (when opt-token
             (setq TeX-symbol-list
-                  (assoc-delete-all (concat name opt-token TeX-symbol-list)))))
+                  (assoc-delete-all (concat name opt-token) TeX-symbol-list))))
         (TeX-add-symbols (cons name
-                               (reverse (copy-sequence args))))
+                               (reverse args)))
         (when opt-star
           (TeX-add-symbols (cons (concat name "*")
-                                 (reverse (copy-sequence args)))))
+                                 (reverse args))))
         (when opt-token
           (TeX-add-symbols (cons (concat name opt-token)
-                                 (reverse (copy-sequence args)))))))))
+                                 (reverse args))))))))
 
 (defun LaTeX-xparse-auto-prepare ()
   "Clear various `LaTeX-auto-xparse-*' variables before parsing."