*** empty log message ***

diff --git a/src/ChangeLog b/src/ChangeLog
index c969ba1..ec96d13 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-17  Kenichi Handa  <handa@m17n.org>
+
+       * fontset.c (Ffontset_font): If a nil element is found in a
+       font-group vector, break the loop.
+
 2009-08-17  Chong Yidong  <cyd@stupidchicken.com>
 
        * process.c (status_notify): Don't perform redisplay.

diff --git a/src/fontset.c b/src/fontset.c
index b030887..2bac86c 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -2083,6 +2083,7 @@ format is the same as above.  */)
 DEFUN ("fontset-font", Ffontset_font, Sfontset_font, 2, 3, 0,
        doc: /* Return a font name pattern for character CH in fontset NAME.
 If NAME is t, find a pattern in the default fontset.
+If NAME is nil, find a pattern in the fontset of the selected frame.
 
 The value has the form (FAMILY . REGISTRY), where FAMILY is a font
 family name and REGISTRY is a font registry name.  This is actually
@@ -2115,6 +2116,8 @@ patterns.  */)
              Lisp_Object family, registry;
 
              val = AREF (elt, j);
+             if (NILP (val))
+               break;
              repertory = AREF (val, 1);
              if (INTEGERP (repertory))
                {