branch: externals/auctex
commit ef7e48b499461aa53c4099675daeb3a19da4ea1b
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>
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)))
