>From bc1f4000b6a35b48663310d326007c42e8fa760b Mon Sep 17 00:00:00 2001
From: Arash Esbati <address@hidden>
Date: Tue, 17 May 2016 14:40:56 +0200
Subject: [PATCH 5/5] Respect both "xcolor" and "color" for command queries

* style/textpos.el ("textpos"): Remove "color" from
`TeX-run-style-hooks'.
("textpos"): Respect both "xcolor" and "color" for query to
"textblockcolour" and "textblockrulecolour" commands.
---
 style/textpos.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/style/textpos.el b/style/textpos.el
index c2f3e19..9c27ddd 100644
--- a/style/textpos.el
+++ b/style/textpos.el
@@ -1,6 +1,6 @@
 ;;; textpos.el --- AUCTeX style for `textpos.sty' version v1.7j
 
-;; Copyright (C) 2015 Free Software Foundation, Inc.
+;; Copyright (C) 2015, 2016 Free Software Foundation, Inc.
 
 ;; Author: Arash Esbati <esbati'at'gmx.de>
 ;; Maintainer: address@hidden
@@ -65,7 +65,7 @@ them."
  "textpos"
  (lambda ()
 
-   (TeX-run-style-hooks "everyshi" "color")
+   (TeX-run-style-hooks "everyshi")
 
    (LaTeX-add-environments
     ;; \begin{textblock}{<hsize>}[<ho>,<vo>](<hpos>,<vpos>) ... \end{textblock}
@@ -84,14 +84,16 @@ them."
       (TeX-arg-eval
        (lambda ()
 	 (let ((color (completing-read "Color name: "
-				       (LaTeX-color-definecolor-list))))
+				       (or (LaTeX-xcolor-definecolor-list)
+					   (LaTeX-color-definecolor-list)))))
 	   (format "%s" color)))))
 
     '("textblockrulecolour"
       (TeX-arg-eval
        (lambda ()
 	 (let ((color (completing-read "Color name: "
-				       (LaTeX-color-definecolor-list))))
+				       (or (LaTeX-xcolor-definecolor-list)
+					   (LaTeX-color-definecolor-list)))))
 	   (format "%s" color)))))
 
    '("TPshowboxestrue")
-- 
2.8.1