[elpa] externals/auctex ef7e48b 12/57: Consider the return value of `assq-delete-all'

[Tassilo Horn]

branch: externals/auctex
commit ef7e48b499461aa53c4099675daeb3a19da4ea1b
Author: Arash Esbati <address@hidden>
Commit: Arash Esbati <address@hidden>

    Consider the return value of `assq-delete-all'
    
    * style/breqn.el (LaTeX-breqn-update-color-keys):
    * style/fvextra.el (LaTeX-fvextra-update-key-val):
    * style/mdframed.el (LaTeX-mdframed-update-style-key):
    * style/minted.el (LaTeX-minted-update-key-vals):
    * style/tcolorbox.el (LaTeX-tcolorbox-update-style-key): Use the
    return value of `assq-delete-all' rather than looking at the saved
    value of the temporary variable.
---
 style/breqn.el     | 2 +-
 style/fvextra.el   | 2 +-
 style/mdframed.el  | 2 +-
 style/minted.el    | 2 +-
 style/tcolorbox.el | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/style/breqn.el b/style/breqn.el
index 8006082..03fee3b 100644
--- a/style/breqn.el
+++ b/style/breqn.el
@@ -115,7 +115,7 @@ Keys offered for key=val query depend on ENV.  \"label\" and
           (keys '("color" "background"))
           (tmp (copy-alist LaTeX-breqn-key-val-options-local)))
       (dolist (x keys)
-       (assq-delete-all (car (assoc x tmp)) tmp)
+       (setq tmp (assq-delete-all (car (assoc x tmp)) tmp))
        (push (list x (mapcar #'car (funcall colorcmd))) tmp))
       (setq LaTeX-breqn-key-val-options-local
            (copy-alist tmp)))))
diff --git a/style/fvextra.el b/style/fvextra.el
index 6ca2341..eeb7d37 100644
--- a/style/fvextra.el
+++ b/style/fvextra.el
@@ -97,7 +97,7 @@
                   "spacecolor"))
           (tmp (copy-alist LaTeX-fancyvrb-key-val-options-local)))
       (dolist (x keys)
-       (assq-delete-all (car (assoc x tmp)) tmp)
+       (setq tmp (assq-delete-all (car (assoc x tmp)) tmp))
        (if (string= x "highlightcolor")
            (pushnew (list x (mapcar #'car (funcall colorcmd))) tmp :test 
#'equal)
          (pushnew (list x (append '("none") (mapcar #'car (funcall 
colorcmd)))) tmp :test #'equal)))
diff --git a/style/mdframed.el b/style/mdframed.el
index e6caeb3..6bd0ae1 100644
--- a/style/mdframed.el
+++ b/style/mdframed.el
@@ -241,7 +241,7 @@
                   "subtitlebelowlinecolor"))
           (tmp (copy-alist LaTeX-mdframed-key-val-options-local)))
       (dolist (x keys)
-       (assq-delete-all (car (assoc x tmp)) tmp)
+       (setq tmp (assq-delete-all (car (assoc x tmp)) tmp))
        (pushnew (list x (mapcar #'car (funcall colorcmd))) tmp :test #'equal))
       (setq LaTeX-mdframed-key-val-options-local
            (copy-alist tmp)))))
diff --git a/style/minted.el b/style/minted.el
index 159e853..19e3f41 100644
--- a/style/minted.el
+++ b/style/minted.el
@@ -196,7 +196,7 @@ are loaded."
                        "rulecolor" "spacecolor" "tabcolor"))
           (opts (copy-alist LaTeX-minted-key-val-options-local)))
       (dolist (key colorkeys)
-       (assq-delete-all (car (assoc key opts)) opts)
+       (setq opts (assq-delete-all (car (assoc key opts)) opts))
        (push (list key (mapcar #'car (funcall colorcmd)))
              opts))
       (setq LaTeX-minted-key-val-options-local
diff --git a/style/tcolorbox.el b/style/tcolorbox.el
index 77cab08..6805983 100644
--- a/style/tcolorbox.el
+++ b/style/tcolorbox.el
@@ -475,7 +475,7 @@ e.g. \"tcolorboxlib-raster.el\"."
                 "coltitle"))
         (tmp (copy-alist LaTeX-tcolorbox-keyval-options-local)))
     (dolist (key keys)
-      (assq-delete-all (car (assoc key tmp)) tmp)
+      (setq tmp (assq-delete-all (car (assoc key tmp)) tmp))
       (pushnew
        (list key (mapcar #'car (LaTeX-xcolor-definecolor-list))) tmp :test 
#'equal))
     (setq LaTeX-tcolorbox-keyval-options-local (copy-alist tmp)))