Take colors for region face (selected text) from the Gtk+ theme.

* lisp/dynamic-setting.el (dynamic-setting-handle-config-changed-event):
Handle theme-name change.

* lisp/faces.el (region): Add type gtk that uses gtk colors.

* src/gtkutil.c (xg_check_special_colors, style_changed_cb): New functions.
(xg_create_frame_widgets): Connect theme name changes to
style_changed_cb.

* src/gtkutil.h (xg_check_special_colors): Declare.

* src/xfns.c (x_defined_color): If USE_GTK, call xg_check_special_colors
first.

3 files changed, 15 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f15ae942fc..763ffd0dd0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-08-11  Jan Djärv  <jan.h.d@swipnet.se>
+
+        * faces.el (region): Add type gtk that uses gtk colors.
+
+        * dynamic-setting.el (dynamic-setting-handle-config-changed-event):
+        Handle theme-name change.
+
 2010-08-10  Michael R. Mauger  <mmaug@yahoo.com>
 
         * progmodes/sql.el: Version 2.5
diff --git a/lisp/dynamic-setting.el b/lisp/dynamic-setting.el
index f61a0078e17..790aaf7170e 100644
--- a/lisp/dynamic-setting.el
+++ b/lisp/dynamic-setting.el
@@ -96,6 +96,11 @@ Changes can be
           ((eq type 'font-render)
            (font-setting-change-default-font display-name nil))
 
+          ;; This is a bit heavy, ideally we would just clear faces
+          ;; on the affected display, and perhaps only the relevant
+          ;; faces.  Oh well.
+          ((eq type 'theme-name) (clear-face-cache))
+
           ((eq type 'tool-bar-style) (force-mode-line-update t)))))
 
 (define-key special-event-map [config-changed-event]
diff --git a/lisp/faces.el b/lisp/faces.el
index b7c238e14f3..d8b6f20035c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2281,6 +2281,9 @@ terminal type to a different value."
 (defface region
   '((((class color) (min-colors 88) (background dark))
      :background "blue3")
+    (((class color) (min-colors 88) (background light) (type gtk))
+     :foreground "gtk_selection_fg_color"
+     :background "gtk_selection_bg_color")
     (((class color) (min-colors 88) (background light) (type ns))
      :background "ns_selection_color")
     (((class color) (min-colors 88) (background light))