From: Kenichi Handa <handa@m17n.org>
Date: Fri, 27 Sep 2002 00:47:25 +0000 (+0000)
Subject: (try_font_list): Pay attention to the case that FAMILY is nil.
X-Git-Tag: ttn-vms-21-2-B4~13040
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e21880c69303379f462fa19e6eb386b16c61e5cc;p=emacs.git

(try_font_list): Pay attention to the case that FAMILY is nil.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index bae54ef29a7..73abc9bdfa4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-27  Kenichi Handa  <handa@etl.go.jp>
+
+	* xfaces.c (try_font_list): Pay attention to the case that FAMILY
+	is nil.
+
 2002-09-26  Richard M. Stallman  <rms@gnu.org>
 
 	* regex.h (__restrict_arr): Don't define if already defined.
diff --git a/src/xfaces.c b/src/xfaces.c
index 57749ea5634..d5ddd6b40de 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -6343,7 +6343,7 @@ try_font_list (f, attrs, family, registry, fonts, prefer_face_family)
   Lisp_Object face_family = attrs[LFACE_FAMILY_INDEX];
   Lisp_Object try_family;
 
-  try_family = prefer_face_family ? face_family : family;
+  try_family = (prefer_face_family || NILP (family)) ? face_family : family;
 
   if (STRINGP (try_family))
     nfonts = try_alternative_families (f, try_family, registry, fonts);
@@ -6359,7 +6359,7 @@ try_font_list (f, attrs, family, registry, fonts, prefer_face_family)
     nfonts = try_alternative_families (f, try_family, Qnil, fonts);
 #endif
 
-  if (! prefer_face_family)
+  if (EQ (try_family, family))
     family = face_family;
 
   if (nfonts == 0 && STRINGP (family))