[elpa] externals/auctex 44a8a42 09/71: ; Don't use `assoc-delete-all'

[Tassilo Horn]

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

    ; Don't use `assoc-delete-all'
    
    * style/xparse.el (LaTeX-xparse-macro-parse): Replace usage of
    `assoc-delete-all' which was introduced in Emacs 26.2.
---
 style/xparse.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/style/xparse.el b/style/xparse.el
index 1f197f9..fd9bb32 100644
--- a/style/xparse.el
+++ b/style/xparse.el
@@ -218,7 +218,8 @@ TYPE is one of the symbols mac or env."
             (when (member what '("Renew" "Declare"))
               (LaTeX-environment-list)
               (setq LaTeX-environment-list
-                    (assoc-delete-all name LaTeX-environment-list)))
+                    (assq-delete-all (car (assoc name LaTeX-environment-list))
+                                     LaTeX-environment-list)))
             (LaTeX-add-environments `(,name
                                       LaTeX-env-args
                                       ,@(reverse args))))
@@ -229,13 +230,16 @@ TYPE is one of the symbols mac or env."
         (when (member what '("Renew" "Declare"))
           (TeX-symbol-list)
           (setq TeX-symbol-list
-                (assoc-delete-all name TeX-symbol-list))
+                (assq-delete-all (car (assoc name TeX-symbol-list))
+                                 TeX-symbol-list))
           (when opt-star
             (setq TeX-symbol-list
-                  (assoc-delete-all (concat name "*") TeX-symbol-list)))
+                  (assq-delete-all (car (assoc (concat name "*") 
TeX-symbol-list))
+                                   TeX-symbol-list)))
           (when opt-token
             (setq TeX-symbol-list
-                  (assoc-delete-all (concat name opt-token) TeX-symbol-list))))
+                  (assq-delete-all (car (assoc (concat name opt-token) 
TeX-symbol-list))
+                                   TeX-symbol-list))))
         (TeX-add-symbols (cons name
                                (reverse args)))
         (when opt-star