Improve doc for system font things. Return font regardless of use_system_font.

* xsettings.c (Ffont_get_system_normal_font, Ffont_get_system_font):
Improve documentation.  Return font regardless of use_system_font.
(syms_of_xsettings): Improve documentation for font-use-system-font.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8d5413685ce4f909652eddfe4ab93dcc39df3a12..faf4a14702e7a4ab52e79c9d0fdaa20ad54860c4 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2010-06-30  Jan Djärv  <jan.h.d@swipnet.se>
+
+       * xsettings.c (Ffont_get_system_normal_font, Ffont_get_system_font):
+       Improve documentation.  Return font regardless of use_system_font.
+       (syms_of_xsettings): Improve documentation for font-use-system-font.
+
 2009-06-17  Naohiro Aota  <naota@elisp.net>  (tiny change)
 
        * xftfont.c (xftfont_open): Check font width one by one also when

diff --git a/src/xsettings.c b/src/xsettings.c
index 8cfcafe126d26566f0462891cac2d920569480f8..2760e48fe053c2b73eec1ff719bf004499eba08e 100644 (file)
--- a/src/xsettings.c
+++ b/src/xsettings.c
@@ -719,20 +719,20 @@ xsettings_get_system_normal_font ()
 DEFUN ("font-get-system-normal-font", Ffont_get_system_normal_font,
        Sfont_get_system_normal_font,
        0, 0, 0,
-       doc: /* Get the system default font. */)
+       doc: /* Get the system default application font. */)
   ()
 {
-  return current_font && use_system_font
+  return current_font
     ? make_string (current_font, strlen (current_font))
     : Qnil;
 }
 
 DEFUN ("font-get-system-font", Ffont_get_system_font, Sfont_get_system_font,
        0, 0, 0,
-       doc: /* Get the system default monospaced font. */)
+       doc: /* Get the system default fixed width font. */)
   ()
 {
-  return current_mono_font && use_system_font
+  return current_mono_font
     ? make_string (current_mono_font, strlen (current_mono_font))
     : Qnil;
 }
@@ -774,7 +774,10 @@ syms_of_xsettings ()
   defsubr (&Sfont_get_system_normal_font);
 
   DEFVAR_BOOL ("font-use-system-font", &use_system_font,
-    doc: /* *Non-nil means to use the system defined font.  */);
+    doc: /* *Non-nil means to apply the system defined font dynamically.
+When this is non-nil and the system defined fixed width font changes, we
+update frames dynamically.
+If this variable is nil, Emacs ignores system font changes.  */);
   use_system_font = 0;
 
   DEFVAR_LISP ("xft-settings", &Vxft_settings,