[AUCTeX-diffs] [elpa] externals/auctex eb748ea 18/36: Fix query for defined colors in style/ntheorem.el

[Tassilo Horn]

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

    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"