Mercurial > emacs

changeset 4150:e2e92cd737bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* xfns.c (Fx_create_frame): Block input around call to x_new_font. Test if the return value is a string, not if it's nil; x_new_font can return things besides nil and strings, to indicate error conditions.
author Jim Blandy <jimb@redhat.com>
date Sun, 18 Jul 1993 08:07:18 +0000
parents 2a4dc4339df4
children e6d5beaca907
files src/xfns.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfns.c	Sun Jul 18 07:50:11 1993 +0000
+++ b/src/xfns.c	Sun Jul 18 08:07:18 1993 +0000
@@ -1754,8 +1754,10 @@
     Lisp_Object font;
 
     /* Try out a font which we know has bold and italic variations.  */
+    BLOCK_INPUT;
     font = x_new_font (f, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
-    if (NILP (font))
+    UNBLOCK_INPUT;
+    if (! STRINGP (font))
       font = build_string ("-*-fixed-*-*-*-*-*-120-*-*-c-*-iso8859-1");
     
     x_default_parameter (f, parms, Qfont, font,