(font_find_for_lface): Reflect LFACE_FONT in the font

preference.

diff --git a/src/ChangeLog b/src/ChangeLog
index 25626fb006043208b16a5f13150b949b5f87a22a..089afb97ecc6a1db211b418eabaf0c8c8078afda 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-15  Kenichi Handa  <handa@m17n.org>
+
+       * font.c (font_find_for_lface): Reflect LFACE_FONT in the font
+       preference.
+
 2008-05-15  Glenn Morris  <rgm@gnu.org>
 
        * emacs.c (USAGE1, standard_args): Remove -disable-font-backend.

diff --git a/src/font.c b/src/font.c
index 107426e6d6f26a34d08f099dd5c9f75e306948dd..653db0110394e68860b7849aa567b43a3f02130f 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -2780,6 +2780,14 @@ font_find_for_lface (f, attrs, spec, c)
       double pt;
       for (i = 0; i < FONT_EXTRA_INDEX; i++)
        ASET (prefer, i, AREF (spec, i));
+      if (FONTP (attrs[LFACE_FONT_INDEX]))
+       {
+         Lisp_Object face_font = attrs[LFACE_FONT_INDEX];
+
+         for (i = 0; i < FONT_EXTRA_INDEX; i++)
+           if (NILP (AREF (prefer, i)))
+             ASET (prefer, i, AREF (face_font, i));
+       }
       if (NILP (AREF (prefer, FONT_FAMILY_INDEX)))
        font_parse_family_registry (attrs[LFACE_FAMILY_INDEX], Qnil, prefer);
       if (NILP (AREF (prefer, FONT_WEIGHT_INDEX)))