(x_face_list_fonts): Don't BLOCK_INPUT around the

call to x_list_fonts.  Call x_list_fonts with SIZE -1 only
if SCALABLE_FONTS_P is set.

diff --git a/src/ChangeLog b/src/ChangeLog
index 01f3772db32936484f7b2a853a6cec5b3e484fe7..107cba684d349835005c5382c07cae7f69df3047 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2001-01-17  Gerd Moellmann  <gerd@gnu.org>
 
+       * xfaces.c (x_face_list_fonts): Don't BLOCK_INPUT around the 
+       call to x_list_fonts.  Call x_list_fonts with SIZE -1 only
+       if SCALABLE_FONTS_P is set.
+       
        * xfaces.c (x_face_list_fonts): Call x_list_fonts with SIZE -1,
        so that scalable fonts are included.
 

diff --git a/src/xfaces.c b/src/xfaces.c
index 2275a928ecfa34df5a2dafbb0a781ee721ceaa14..51cb455e95adc0867a64893968ec63a5e49f11c8 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -2281,12 +2281,7 @@ sort_fonts (f, fonts, nfonts, cmpfn)
 
    For all fonts found, set FONTS[i].name to the name of the font,
    allocated via xmalloc, and split font names into fields.  Ignore
-   fonts that we can't parse.  Value is the number of fonts found.
-
-   This is similar to x_list_fonts.  The differences are:
-
-   1. It avoids consing.
-   2. It never calls XLoadQueryFont.  */
+   fonts that we can't parse.  Value is the number of fonts found.  */
 
 static int
 x_face_list_fonts (f, pattern, fonts, nfonts, try_alternatives_p,
@@ -2307,13 +2302,13 @@ x_face_list_fonts (f, pattern, fonts, nfonts, try_alternatives_p,
   lpattern = build_string (pattern);
 
   /* Get the list of fonts matching PATTERN.  */
-  BLOCK_INPUT;
 #ifdef WINDOWSNT
+  BLOCK_INPUT;
   lfonts = w32_list_fonts (f, lpattern, 0, nfonts);
+  UNBLOCK_INPUT;
 #else
-  lfonts = x_list_fonts (f, lpattern, -1, nfonts);
+  lfonts = x_list_fonts (f, lpattern, scalable_fonts_p ? -1 : 0, nfonts);
 #endif
-  UNBLOCK_INPUT;
 
   /* Make a copy of the font names we got from X, and
      split them into fields.  */