Document changes made in 2010-10-13T14:50:06Z!lekktu@gmail.com.
[emacs.git] / src / xsettings.c
blob0d9c9cadb27dbcaca7ab11c7f70c1d3fb1fea0d2
1 /* Functions for handle font and other changes dynamically.
2 Copyright (C) 2009, 2010
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
20 #include <config.h>
21 #include <limits.h>
22 #include <setjmp.h>
23 #include <fcntl.h>
24 #include "lisp.h"
25 #include "xterm.h"
26 #include "xsettings.h"
27 #include "frame.h"
28 #include "keyboard.h"
29 #include "blockinput.h"
30 #include "termhooks.h"
31 #include "termopts.h"
33 #include <X11/Xproto.h>
35 #ifdef HAVE_GCONF
36 #include <gconf/gconf-client.h>
37 #endif
38 #ifdef HAVE_XFT
39 #include <X11/Xft/Xft.h>
40 #endif
42 static char *current_mono_font;
43 static char *current_font;
44 static struct x_display_info *first_dpyinfo;
45 static Lisp_Object Qmonospace_font_name, Qfont_name, Qfont_render,
46 Qtool_bar_style;
47 static int use_system_font;
48 static Lisp_Object Vxft_settings;
49 static Lisp_Object current_tool_bar_style;
51 #ifdef HAVE_GCONF
52 static GConfClient *gconf_client;
53 #endif
56 static void
57 store_config_changed_event (Lisp_Object arg, Lisp_Object display_name)
59 struct input_event event;
60 EVENT_INIT (event);
61 event.kind = CONFIG_CHANGED_EVENT;
62 event.frame_or_window = display_name;
63 event.arg = arg;
64 kbd_buffer_store_event (&event);
67 #define XSETTINGS_FONT_NAME "Gtk/FontName"
68 #define XSETTINGS_TOOL_BAR_STYLE "Gtk/ToolbarStyle"
70 enum {
71 SEEN_AA = 0x01,
72 SEEN_HINTING = 0x02,
73 SEEN_RGBA = 0x04,
74 SEEN_LCDFILTER = 0x08,
75 SEEN_HINTSTYLE = 0x10,
76 SEEN_DPI = 0x20,
77 SEEN_FONT = 0x40,
78 SEEN_TB_STYLE = 0x80,
80 struct xsettings
82 #ifdef HAVE_XFT
83 FcBool aa, hinting;
84 int rgba, lcdfilter, hintstyle;
85 double dpi;
86 #endif
88 char *font;
89 char *tb_style;
91 unsigned seen;
94 #ifdef HAVE_GCONF
96 #define SYSTEM_MONO_FONT "/desktop/gnome/interface/monospace_font_name"
97 #define SYSTEM_FONT "/desktop/gnome/interface/font_name"
99 /* Callback called when something changed in GConf that we care about,
100 that is SYSTEM_MONO_FONT. */
102 static void
103 something_changedCB (GConfClient *client,
104 guint cnxn_id,
105 GConfEntry *entry,
106 gpointer user_data)
108 GConfValue *v = gconf_entry_get_value (entry);
110 if (!v) return;
111 if (v->type == GCONF_VALUE_STRING)
113 const char *value = gconf_value_get_string (v);
114 if (current_mono_font != NULL && strcmp (value, current_mono_font) == 0)
115 return; /* No change. */
117 xfree (current_mono_font);
118 current_mono_font = xstrdup (value);
122 if (first_dpyinfo != NULL)
124 /* Check if display still open */
125 struct x_display_info *dpyinfo;
126 int found = 0;
127 for (dpyinfo = x_display_list; !found && dpyinfo; dpyinfo = dpyinfo->next)
128 found = dpyinfo == first_dpyinfo;
130 if (found && use_system_font)
131 store_config_changed_event (Qmonospace_font_name,
132 XCAR (first_dpyinfo->name_list_element));
135 #endif /* HAVE_GCONF */
137 #ifdef HAVE_XFT
139 /* Older fontconfig versions don't have FC_LCD_*. */
140 #ifndef FC_LCD_NONE
141 #define FC_LCD_NONE 0
142 #endif
143 #ifndef FC_LCD_DEFAULT
144 #define FC_LCD_DEFAULT 1
145 #endif
146 #ifndef FC_LCD_FILTER
147 #define FC_LCD_FILTER "lcdfilter"
148 #endif
150 #endif /* HAVE_XFT */
152 /* Find the window that contains the XSETTINGS property values. */
154 static void
155 get_prop_window (struct x_display_info *dpyinfo)
157 Display *dpy = dpyinfo->display;
159 XGrabServer (dpy);
160 dpyinfo->xsettings_window = XGetSelectionOwner (dpy,
161 dpyinfo->Xatom_xsettings_sel);
162 if (dpyinfo->xsettings_window != None)
163 /* Select events so we can detect if window is deleted or if settings
164 are changed. */
165 XSelectInput (dpy, dpyinfo->xsettings_window,
166 PropertyChangeMask|StructureNotifyMask);
168 XUngrabServer (dpy);
171 #define SWAP32(nr) (((nr) << 24) | (((nr) << 8) & 0xff0000) \
172 | (((nr) >> 8) & 0xff00) | ((nr) >> 24))
173 #define SWAP16(nr) (((nr) << 8) | ((nr) >> 8))
174 #define PAD(nr) (((nr) + 3) & ~3)
176 /* Parse xsettings and extract those that deal with Xft.
177 See http://freedesktop.org/wiki/Specifications/XSettingsRegistry
178 and http://standards.freedesktop.org/xsettings-spec/xsettings-spec-0.5.html.
180 Layout of prop. First is a header:
182 bytes type what
183 ------------------------------------
184 1 CARD8 byte-order
185 3 unused
186 4 CARD32 SERIAL
187 4 CARD32 N_SETTINGS
189 Then N_SETTINGS records, with header:
191 bytes type what
192 ------------------------------------
193 1 SETTING_TYPE type (0 = integer, 1 = string, 2 RGB color).
194 1 unused
195 2 CARD16 n == name-length
196 n STRING8 name
197 p unused, p=pad_to_even_4(n)
198 4 CARD32 last-change-serial
200 and then the value, For string:
202 bytes type what
203 ------------------------------------
204 4 CARD32 n = value-length
205 n STRING8 value
206 p unused, p=pad_to_even_4(n)
208 For integer:
210 bytes type what
211 ------------------------------------
212 4 INT32 value
214 For RGB color:
216 bytes type what
217 ------------------------------------
218 2 CARD16 red
219 2 CARD16 blue
220 2 CARD16 green
221 2 CARD16 alpha
223 Returns non-zero if some Xft settings was seen, zero otherwise.
226 static int
227 parse_settings (unsigned char *prop,
228 long unsigned int bytes,
229 struct xsettings *settings)
231 Lisp_Object byteorder = Fbyteorder ();
232 int my_bo = XFASTINT (byteorder) == 'B' ? MSBFirst : LSBFirst;
233 int that_bo = prop[0];
234 CARD32 n_settings;
235 int bytes_parsed = 0;
236 int settings_seen = 0;
237 int i = 0;
239 /* First 4 bytes is a serial number, skip that. */
241 if (bytes < 12) return BadLength;
242 memcpy (&n_settings, prop+8, 4);
243 if (my_bo != that_bo) n_settings = SWAP32 (n_settings);
244 bytes_parsed = 12;
246 memset (settings, 0, sizeof (*settings));
248 while (bytes_parsed+4 < bytes && settings_seen < 7
249 && i < n_settings)
251 int type = prop[bytes_parsed++];
252 CARD16 nlen;
253 CARD32 vlen, ival = 0;
254 char name[128]; /* The names we are looking for are not this long. */
255 char sval[128]; /* The values we are looking for are not this long. */
256 int want_this;
257 int to_cpy;
259 sval[0] = '\0';
260 ++i;
261 ++bytes_parsed; /* Padding */
263 memcpy (&nlen, prop+bytes_parsed, 2);
264 bytes_parsed += 2;
265 if (my_bo != that_bo) nlen = SWAP16 (nlen);
266 if (bytes_parsed+nlen > bytes) return BadLength;
267 to_cpy = nlen > 127 ? 127 : nlen;
268 memcpy (name, prop+bytes_parsed, to_cpy);
269 name[to_cpy] = '\0';
271 bytes_parsed += nlen;
272 bytes_parsed = PAD (bytes_parsed);
274 bytes_parsed += 4; /* Skip serial for this value */
275 if (bytes_parsed > bytes) return BadLength;
277 want_this =
278 #ifdef HAVE_XFT
279 (nlen > 6 && strncmp (name, "Xft/", 4) == 0)
281 #endif
282 (strcmp (XSETTINGS_FONT_NAME, name) == 0)
283 || (strcmp (XSETTINGS_TOOL_BAR_STYLE, name) == 0);
285 switch (type)
287 case 0: /* Integer */
288 if (bytes_parsed+4 > bytes) return BadLength;
289 if (want_this)
291 memcpy (&ival, prop+bytes_parsed, 4);
292 if (my_bo != that_bo) ival = SWAP32 (ival);
294 bytes_parsed += 4;
295 break;
297 case 1: /* String */
298 if (bytes_parsed+4 > bytes) return BadLength;
299 memcpy (&vlen, prop+bytes_parsed, 4);
300 bytes_parsed += 4;
301 if (my_bo != that_bo) vlen = SWAP32 (vlen);
302 if (want_this)
304 to_cpy = vlen > 127 ? 127 : vlen;
305 memcpy (sval, prop+bytes_parsed, to_cpy);
306 sval[to_cpy] = '\0';
308 bytes_parsed += vlen;
309 bytes_parsed = PAD (bytes_parsed);
310 break;
312 case 2: /* RGB value */
313 /* No need to parse this */
314 if (bytes_parsed+8 > bytes) return BadLength;
315 bytes_parsed += 8; /* 4 values (r, b, g, alpha), 2 bytes each. */
316 break;
318 default: /* Parse Error */
319 return BadValue;
322 if (want_this)
324 ++settings_seen;
325 if (strcmp (name, XSETTINGS_FONT_NAME) == 0)
327 settings->font = xstrdup (sval);
328 settings->seen |= SEEN_FONT;
330 else if (strcmp (name, XSETTINGS_TOOL_BAR_STYLE) == 0)
332 settings->tb_style = xstrdup (sval);
333 settings->seen |= SEEN_TB_STYLE;
335 #ifdef HAVE_XFT
336 else if (strcmp (name, "Xft/Antialias") == 0)
338 settings->seen |= SEEN_AA;
339 settings->aa = ival != 0;
341 else if (strcmp (name, "Xft/Hinting") == 0)
343 settings->seen |= SEEN_HINTING;
344 settings->hinting = ival != 0;
346 else if (strcmp (name, "Xft/HintStyle") == 0)
348 settings->seen |= SEEN_HINTSTYLE;
349 if (strcmp (sval, "hintnone") == 0)
350 settings->hintstyle = FC_HINT_NONE;
351 else if (strcmp (sval, "hintslight") == 0)
352 settings->hintstyle = FC_HINT_SLIGHT;
353 else if (strcmp (sval, "hintmedium") == 0)
354 settings->hintstyle = FC_HINT_MEDIUM;
355 else if (strcmp (sval, "hintfull") == 0)
356 settings->hintstyle = FC_HINT_FULL;
357 else
358 settings->seen &= ~SEEN_HINTSTYLE;
360 else if (strcmp (name, "Xft/RGBA") == 0)
362 settings->seen |= SEEN_RGBA;
363 if (strcmp (sval, "none") == 0)
364 settings->rgba = FC_RGBA_NONE;
365 else if (strcmp (sval, "rgb") == 0)
366 settings->rgba = FC_RGBA_RGB;
367 else if (strcmp (sval, "bgr") == 0)
368 settings->rgba = FC_RGBA_BGR;
369 else if (strcmp (sval, "vrgb") == 0)
370 settings->rgba = FC_RGBA_VRGB;
371 else if (strcmp (sval, "vbgr") == 0)
372 settings->rgba = FC_RGBA_VBGR;
373 else
374 settings->seen &= ~SEEN_RGBA;
376 else if (strcmp (name, "Xft/DPI") == 0)
378 settings->seen |= SEEN_DPI;
379 settings->dpi = (double)ival/1024.0;
381 else if (strcmp (name, "Xft/lcdfilter") == 0)
383 settings->seen |= SEEN_LCDFILTER;
384 if (strcmp (sval, "none") == 0)
385 settings->lcdfilter = FC_LCD_NONE;
386 else if (strcmp (sval, "lcddefault") == 0)
387 settings->lcdfilter = FC_LCD_DEFAULT;
388 else
389 settings->seen &= ~SEEN_LCDFILTER;
391 #endif /* HAVE_XFT */
395 return settings_seen;
398 static int
399 read_settings (struct x_display_info *dpyinfo, struct xsettings *settings)
401 Atom act_type;
402 int act_form;
403 unsigned long nitems, bytes_after;
404 unsigned char *prop = NULL;
405 Display *dpy = dpyinfo->display;
406 int rc;
408 x_catch_errors (dpy);
409 rc = XGetWindowProperty (dpy,
410 dpyinfo->xsettings_window,
411 dpyinfo->Xatom_xsettings_prop,
412 0, LONG_MAX, False, AnyPropertyType,
413 &act_type, &act_form, &nitems, &bytes_after,
414 &prop);
416 if (rc == Success && prop != NULL && act_form == 8 && nitems > 0
417 && act_type == dpyinfo->Xatom_xsettings_prop)
418 rc = parse_settings (prop, nitems, settings);
420 XFree (prop);
422 x_uncatch_errors ();
424 return rc != 0;
428 static void
429 apply_xft_settings (struct x_display_info *dpyinfo,
430 int send_event_p,
431 struct xsettings *settings)
433 #ifdef HAVE_XFT
434 FcPattern *pat;
435 struct xsettings oldsettings;
436 int changed = 0;
437 char buf[256];
439 memset (&oldsettings, 0, sizeof (oldsettings));
440 buf[0] = '\0';
441 pat = FcPatternCreate ();
442 XftDefaultSubstitute (dpyinfo->display,
443 XScreenNumberOfScreen (dpyinfo->screen),
444 pat);
445 FcPatternGetBool (pat, FC_ANTIALIAS, 0, &oldsettings.aa);
446 FcPatternGetBool (pat, FC_HINTING, 0, &oldsettings.hinting);
447 FcPatternGetInteger (pat, FC_HINT_STYLE, 0, &oldsettings.hintstyle);
448 FcPatternGetInteger (pat, FC_LCD_FILTER, 0, &oldsettings.lcdfilter);
449 FcPatternGetInteger (pat, FC_RGBA, 0, &oldsettings.rgba);
450 FcPatternGetDouble (pat, FC_DPI, 0, &oldsettings.dpi);
452 if ((settings->seen & SEEN_AA) != 0 && oldsettings.aa != settings->aa)
454 FcPatternDel (pat, FC_ANTIALIAS);
455 FcPatternAddBool (pat, FC_ANTIALIAS, settings->aa);
456 ++changed;
457 oldsettings.aa = settings->aa;
459 sprintf (buf, "Antialias: %d", oldsettings.aa);
461 if ((settings->seen & SEEN_HINTING) != 0
462 && oldsettings.hinting != settings->hinting)
464 FcPatternDel (pat, FC_HINTING);
465 FcPatternAddBool (pat, FC_HINTING, settings->hinting);
466 ++changed;
467 oldsettings.hinting = settings->hinting;
469 if (strlen (buf) > 0) strcat (buf, ", ");
470 sprintf (buf+strlen (buf), "Hinting: %d", oldsettings.hinting);
471 if ((settings->seen & SEEN_RGBA) != 0 && oldsettings.rgba != settings->rgba)
473 FcPatternDel (pat, FC_RGBA);
474 FcPatternAddInteger (pat, FC_RGBA, settings->rgba);
475 oldsettings.rgba = settings->rgba;
476 ++changed;
478 if (strlen (buf) > 0) strcat (buf, ", ");
479 sprintf (buf+strlen (buf), "RGBA: %d", oldsettings.rgba);
481 /* Older fontconfig versions don't have FC_LCD_FILTER. */
482 if ((settings->seen & SEEN_LCDFILTER) != 0
483 && oldsettings.lcdfilter != settings->lcdfilter)
485 FcPatternDel (pat, FC_LCD_FILTER);
486 FcPatternAddInteger (pat, FC_LCD_FILTER, settings->lcdfilter);
487 ++changed;
488 oldsettings.lcdfilter = settings->lcdfilter;
490 if (strlen (buf) > 0) strcat (buf, ", ");
491 sprintf (buf+strlen (buf), "LCDFilter: %d", oldsettings.lcdfilter);
493 if ((settings->seen & SEEN_HINTSTYLE) != 0
494 && oldsettings.hintstyle != settings->hintstyle)
496 FcPatternDel (pat, FC_HINT_STYLE);
497 FcPatternAddInteger (pat, FC_HINT_STYLE, settings->hintstyle);
498 ++changed;
499 oldsettings.hintstyle = settings->hintstyle;
501 if (strlen (buf) > 0) strcat (buf, ", ");
502 sprintf (buf+strlen (buf), "Hintstyle: %d", oldsettings.hintstyle);
504 if ((settings->seen & SEEN_DPI) != 0 && oldsettings.dpi != settings->dpi
505 && settings->dpi > 0)
507 Lisp_Object frame, tail;
509 FcPatternDel (pat, FC_DPI);
510 FcPatternAddDouble (pat, FC_DPI, settings->dpi);
511 ++changed;
512 oldsettings.dpi = settings->dpi;
514 /* Change the DPI on this display and all frames on the display. */
515 dpyinfo->resy = dpyinfo->resx = settings->dpi;
516 FOR_EACH_FRAME (tail, frame)
517 if (FRAME_X_P (XFRAME (frame))
518 && FRAME_X_DISPLAY_INFO (XFRAME (frame)) == dpyinfo)
519 XFRAME (frame)->resy = XFRAME (frame)->resx = settings->dpi;
522 if (strlen (buf) > 0) strcat (buf, ", ");
523 sprintf (buf+strlen (buf), "DPI: %lf", oldsettings.dpi);
525 if (changed)
527 XftDefaultSet (dpyinfo->display, pat);
528 if (send_event_p)
529 store_config_changed_event (Qfont_render,
530 XCAR (dpyinfo->name_list_element));
531 Vxft_settings = make_string (buf, strlen (buf));
533 else
534 FcPatternDestroy (pat);
535 #endif /* HAVE_XFT */
538 static void
539 read_and_apply_settings (struct x_display_info *dpyinfo, int send_event_p)
541 struct xsettings settings;
542 Lisp_Object dpyname = XCAR (dpyinfo->name_list_element);
544 if (!read_settings (dpyinfo, &settings))
545 return;
547 apply_xft_settings (dpyinfo, True, &settings);
548 if (settings.seen & SEEN_TB_STYLE)
550 Lisp_Object style = Qnil;
551 if (strcmp (settings.tb_style, "both") == 0)
552 style = Qboth;
553 else if (strcmp (settings.tb_style, "both-horiz") == 0)
554 style = Qboth_horiz;
555 else if (strcmp (settings.tb_style, "icons") == 0)
556 style = Qimage;
557 else if (strcmp (settings.tb_style, "text") == 0)
558 style = Qtext;
559 if (!NILP (style) && !EQ (style, current_tool_bar_style))
561 current_tool_bar_style = style;
562 if (send_event_p)
563 store_config_changed_event (Qtool_bar_style, dpyname);
565 free (settings.tb_style);
568 if (settings.seen & SEEN_FONT)
570 if (!current_font || strcmp (current_font, settings.font) != 0)
572 free (current_font);
573 current_font = settings.font;
574 if (send_event_p)
575 store_config_changed_event (Qfont_name, dpyname);
577 else
578 free (settings.font);
582 void
583 xft_settings_event (struct x_display_info *dpyinfo, XEvent *event)
585 int check_window_p = 0;
586 int apply_settings = 0;
588 switch (event->type)
590 case DestroyNotify:
591 if (dpyinfo->xsettings_window == event->xany.window)
592 check_window_p = 1;
593 break;
595 case ClientMessage:
596 if (event->xclient.message_type == dpyinfo->Xatom_xsettings_mgr
597 && event->xclient.data.l[1] == dpyinfo->Xatom_xsettings_sel
598 && event->xclient.window == dpyinfo->root_window)
599 check_window_p = 1;
600 break;
602 case PropertyNotify:
603 if (event->xproperty.window == dpyinfo->xsettings_window
604 && event->xproperty.state == PropertyNewValue
605 && event->xproperty.atom == dpyinfo->Xatom_xsettings_prop)
606 apply_settings = 1;
607 break;
611 if (check_window_p)
613 dpyinfo->xsettings_window = None;
614 get_prop_window (dpyinfo);
615 if (dpyinfo->xsettings_window != None)
616 apply_settings = 1;
619 if (apply_settings)
620 read_and_apply_settings (dpyinfo, True);
624 static void
625 init_gconf (void)
627 #if defined (HAVE_GCONF) && defined (HAVE_XFT)
628 char *s;
630 g_type_init ();
631 gconf_client = gconf_client_get_default ();
632 s = gconf_client_get_string (gconf_client, SYSTEM_MONO_FONT, NULL);
633 if (s)
635 current_mono_font = xstrdup (s);
636 g_free (s);
638 s = gconf_client_get_string (gconf_client, SYSTEM_FONT, NULL);
639 if (s)
641 current_font = xstrdup (s);
642 g_free (s);
644 gconf_client_set_error_handling (gconf_client, GCONF_CLIENT_HANDLE_NONE);
645 gconf_client_add_dir (gconf_client,
646 SYSTEM_MONO_FONT,
647 GCONF_CLIENT_PRELOAD_ONELEVEL,
648 NULL);
649 gconf_client_notify_add (gconf_client,
650 SYSTEM_MONO_FONT,
651 something_changedCB,
652 NULL, NULL, NULL);
653 #endif /* HAVE_GCONF && HAVE_XFT */
656 static void
657 init_xsettings (struct x_display_info *dpyinfo)
659 char sel[64];
660 Display *dpy = dpyinfo->display;
662 BLOCK_INPUT;
664 sprintf (sel, "_XSETTINGS_S%d", XScreenNumberOfScreen (dpyinfo->screen));
665 dpyinfo->Xatom_xsettings_sel = XInternAtom (dpy, sel, False);
666 dpyinfo->Xatom_xsettings_prop = XInternAtom (dpy,
667 "_XSETTINGS_SETTINGS",
668 False);
669 dpyinfo->Xatom_xsettings_mgr = XInternAtom (dpy, "MANAGER", False);
671 /* Select events so we can detect client messages sent when selection
672 owner changes. */
673 XSelectInput (dpy, dpyinfo->root_window, StructureNotifyMask);
675 get_prop_window (dpyinfo);
676 if (dpyinfo->xsettings_window != None)
677 read_and_apply_settings (dpyinfo, False);
679 UNBLOCK_INPUT;
682 void
683 xsettings_initialize (struct x_display_info *dpyinfo)
685 if (first_dpyinfo == NULL) first_dpyinfo = dpyinfo;
686 init_gconf ();
687 init_xsettings (dpyinfo);
690 const char *
691 xsettings_get_system_font (void)
693 return current_mono_font;
696 const char *
697 xsettings_get_system_normal_font (void)
699 return current_font;
702 DEFUN ("font-get-system-normal-font", Ffont_get_system_normal_font,
703 Sfont_get_system_normal_font,
704 0, 0, 0,
705 doc: /* Get the system default application font. */)
706 (void)
708 return current_font
709 ? make_string (current_font, strlen (current_font))
710 : Qnil;
713 DEFUN ("font-get-system-font", Ffont_get_system_font, Sfont_get_system_font,
714 0, 0, 0,
715 doc: /* Get the system default fixed width font. */)
716 (void)
718 return current_mono_font
719 ? make_string (current_mono_font, strlen (current_mono_font))
720 : Qnil;
723 DEFUN ("tool-bar-get-system-style", Ftool_bar_get_system_style, Stool_bar_get_system_style,
724 0, 0, 0,
725 doc: /* Get the system tool bar style.
726 If no system tool bar style is known, return `tool-bar-style' if set to a
727 known style. Otherwise return image. */)
728 (void)
730 if (EQ (Vtool_bar_style, Qimage)
731 || EQ (Vtool_bar_style, Qtext)
732 || EQ (Vtool_bar_style, Qboth)
733 || EQ (Vtool_bar_style, Qboth_horiz)
734 || EQ (Vtool_bar_style, Qtext_image_horiz))
735 return Vtool_bar_style;
736 if (!NILP (current_tool_bar_style))
737 return current_tool_bar_style;
738 return Qimage;
741 void
742 syms_of_xsettings (void)
744 current_mono_font = NULL;
745 current_font = NULL;
746 first_dpyinfo = NULL;
747 #ifdef HAVE_GCONF
748 gconf_client = NULL;
749 #endif
751 Qmonospace_font_name = intern_c_string ("monospace-font-name");
752 staticpro (&Qmonospace_font_name);
753 Qfont_name = intern_c_string ("font-name");
754 staticpro (&Qfont_name);
755 Qfont_render = intern_c_string ("font-render");
756 staticpro (&Qfont_render);
757 defsubr (&Sfont_get_system_font);
758 defsubr (&Sfont_get_system_normal_font);
760 DEFVAR_BOOL ("font-use-system-font", &use_system_font,
761 doc: /* *Non-nil means to apply the system defined font dynamically.
762 When this is non-nil and the system defined fixed width font changes, we
763 update frames dynamically.
764 If this variable is nil, Emacs ignores system font changes. */);
765 use_system_font = 0;
767 DEFVAR_LISP ("xft-settings", &Vxft_settings,
768 doc: /* Font settings applied to Xft. */);
769 Vxft_settings = make_string ("", 0);
771 #ifdef HAVE_XFT
772 Fprovide (intern_c_string ("font-render-setting"), Qnil);
773 #ifdef HAVE_GCONF
774 Fprovide (intern_c_string ("system-font-setting"), Qnil);
775 #endif
776 #endif
778 current_tool_bar_style = Qnil;
779 Qtool_bar_style = intern_c_string ("tool-bar-style");
780 staticpro (&Qtool_bar_style);
781 defsubr (&Stool_bar_get_system_style);
783 Fprovide (intern_c_string ("dynamic-setting"), Qnil);
786 /* arch-tag: 541716ed-2e6b-42e1-8212-3197e01ea61d
787 (do not change this comment) */