Mercurial > emacs
comparison lisp/dynamic-setting.el @ 109749:be18c3b67d66
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.
| author | Jan D <jan.h.d@swipnet.se> |
|---|---|
| date | Wed, 11 Aug 2010 20:28:10 +0200 |
| parents | 012ef7d8f2be |
| children | fe9b13a5f44f 3226ac2da7f7 280c8ae2476d |
comparison
equal
deleted
inserted
replaced
| 109748:e2f8226efb99 | 109749:be18c3b67d66 |
|---|---|
| 94 (font-setting-change-default-font display-name t)) | 94 (font-setting-change-default-font display-name t)) |
| 95 | 95 |
| 96 ((eq type 'font-render) | 96 ((eq type 'font-render) |
| 97 (font-setting-change-default-font display-name nil)) | 97 (font-setting-change-default-font display-name nil)) |
| 98 | 98 |
| 99 ;; This is a bit heavy, ideally we would just clear faces | |
| 100 ;; on the affected display, and perhaps only the relevant | |
| 101 ;; faces. Oh well. | |
| 102 ((eq type 'theme-name) (clear-face-cache)) | |
| 103 | |
| 99 ((eq type 'tool-bar-style) (force-mode-line-update t))))) | 104 ((eq type 'tool-bar-style) (force-mode-line-update t))))) |
| 100 | 105 |
| 101 (define-key special-event-map [config-changed-event] | 106 (define-key special-event-map [config-changed-event] |
| 102 'dynamic-setting-handle-config-changed-event) | 107 'dynamic-setting-handle-config-changed-event) |
| 103 | 108 |