[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 44a8a429ad6ad7fcd7d44ba56ba0d5576631d978

[Arash Esbati]

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  44a8a429ad6ad7fcd7d44ba56ba0d5576631d978 (commit)
      from  45d3a116720b433170496c159b0f995a9c41e595 (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 44a8a429ad6ad7fcd7d44ba56ba0d5576631d978
Author: Arash Esbati <arash@gnu.org>
Date:   Tue Sep 7 11:27:33 2021 +0200

    ; 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.

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

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

Summary of changes:
 style/xparse.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX