From: Kenichi Handa <handa@m17n.org>
Date: Mon, 14 Jul 2008 07:48:03 +0000 (+0000)
Subject: (xfont_open): Add workaround for X's bug.
X-Git-Tag: emacs-pretest-23.0.90~4203
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f73901fa171a9c584731f7bebf8c7bdc7378e9b;p=emacs.git

(xfont_open): Add workaround for X's bug.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e75ce4c4576..80b6ff8922b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-14  Kenichi Handa  <handa@m17n.org>
+
+	* xfont.c (xfont_open): Add workaround for X's bug.
+
 2008-07-14  Emanuele Giaquinta  <emanuele.giaquinta@gmail.com>  (tiny change)
 
 	* fontset.c: Include <stdio.h> unconditionally.
diff --git a/src/xfont.c b/src/xfont.c
index 544088bce36..83a8c770f86 100644
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -540,6 +540,35 @@ xfont_open (f, entity, pixel_size)
       x_clear_errors (display);
       xfont = NULL;
     }
+  else if (! xfont)
+    {
+      /* Some version of X lists:
+	   -misc-fixed-medium-r-normal--20-*-75-75-c-100-iso8859-1
+	   -misc-fixed-medium-r-normal--20-*-100-100-c-100-iso8859-1
+	 but can open only:
+	   -misc-fixed-medium-r-normal--20-*-100-100-c-100-iso8859-1
+	 and
+	   -misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1
+	 So, we try again with wildcards in RESX and RESY.  */
+      Lisp_Object temp;
+
+      temp = Fcopy_font_spec (entity);
+      ASET (temp, FONT_DPI_INDEX, Qnil);
+      len = font_unparse_xlfd (temp, pixel_size, name, 256);
+      if (len <= 0)
+	{
+	  font_add_log ("  x:unparse failed", temp, Qnil);
+	  return Qnil;
+	}
+      xfont = XLoadQueryFont (display, name);
+      if (x_had_errors_p (display))
+	{
+	  /* This error is perhaps due to insufficient memory on X server.
+	     Let's just ignore it.  */
+	  x_clear_errors (display);
+	  xfont = NULL;
+	}
+    }
   fullname = Qnil;
   /* Try to get the full name of FONT.  */
   if (xfont && XGetFontProperty (xfont, XA_FONT, &value))