branch: externals/auctex
commit eb748ea03793a87e752717b0a35840e4fdb8a817
Author: Arash Esbati <arash.esb...@gmail.com>
Commit: Arash Esbati <arash.esb...@gmail.com>
Fix query for defined colors in style/ntheorem.el
* style/ntheorem.el ("ntheorem"): Use `cond' to check which color
defining package is loaded and use the respective function for
`completing-read'.
---
style/ntheorem.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/style/ntheorem.el b/style/ntheorem.el
index b7c22ea..5ce4803 100644
--- a/style/ntheorem.el
+++ b/style/ntheorem.el
@@ -288,12 +288,12 @@ make them available as new environments. Update
'("shadecolor"
(TeX-arg-eval
(lambda ()
- (let ((color
- (if (or (member "xcolor" (TeX-style-list))
- (member "color" (TeX-style-list)))
- (completing-read "color: " (or
(LaTeX-xcolor-definecolor-list)
-
(LaTeX-color-definecolor-list)))
- (TeX-read-string "color: "))))
+ (let ((color (cond ((member "xcolor" (TeX-style-list))
+ (completing-read "Color name: "
(LaTeX-xcolor-definecolor-list)))
+ ((member "color" (TeX-style-list))
+ (completing-read "Color name: "
(LaTeX-color-definecolor-list)))
+ (t
+ (TeX-read-string "Color name: ")))))
(format "%s" color)))))
'("theoremframepreskip"
