*** empty log message ***

diff --git a/src/ChangeLog.unicode b/src/ChangeLog.unicode
index 248d28a01dc4b3232a05f59af236544e96f070b8..1bffdb801f4b49c304b85449bef414a484e84424 100644 (file)
--- a/src/ChangeLog.unicode
+++ b/src/ChangeLog.unicode
@@ -1,3 +1,30 @@
+2006-07-26  Kenichi Handa  <handa@m17n.org>
+
+       * font.h (struct font_driver_list): New member `on'.
+       (Fclear_font_cache): EXFUN it.
+       (font_update_drivers): Extern it.
+
+       * font.c (font_unparse_fcname): Fix typo (swidth->width).
+       (font_list_entities): Check driver_list->on.
+       (register_font_driver): Initalize `on' member to 0.
+       (font_update_drivers): New function.
+       (Fclear_font_cache): Check driver_list->on.
+
+       * frame.h (Qfont_backend): Extern it.
+       (x_set_font_backend): Extern it.
+
+       * frame.c (Qfont_backend): New variable.
+       (frame_parms): New element for font-backend.
+       (x_set_font_backend): New function.
+
+       * xfns.c (x_create_tip_frame) [USE_FONT_BACKEND]: Handle
+       FontBackend frame parameter.
+       (x_frame_parm_handlers) [USE_FONT_BACKEND]: New element
+       x_set_font_backend.
+
+       * xfont.c (xfont_list): Don't try listing by :name property if the
+       name is not for XLFD.
+
 2006-07-24  Kenichi Handa  <handa@m17n.org>
 
        * font.h (LGLYPH_FROM, LGLYPH_TO, LGLYPH_SET_FROM)

diff --git a/src/font.h b/src/font.h
index 019e12cfb806caa7f340efcd08cc9ec6312c8902..895b8bb3a9e7a0dbf64381c1ed47257761ceaef4 100644 (file)
--- a/src/font.h
+++ b/src/font.h
@@ -424,6 +424,8 @@ struct font_driver
 
 struct font_driver_list
 {
+  /* 1 iff this driver is currently used.  */
+  int on;
   struct font_driver *driver;
   struct font_driver_list *next;
 };
@@ -432,6 +434,7 @@ extern int enable_font_backend;
 
 EXFUN (Ffont_spec, MANY);
 EXFUN (Flist_fonts, 4);
+EXFUN (Fclear_font_cache, 0);
 
 extern Lisp_Object font_symbolic_weight P_ ((Lisp_Object font));
 extern Lisp_Object font_symbolic_slant P_ ((Lisp_Object font));
@@ -474,6 +477,8 @@ extern int font_unparse_fcname P_ ((Lisp_Object font, int pixel_size,
                                  char *name, int bytes));
 extern void register_font_driver P_ ((struct font_driver *driver, FRAME_PTR f));
 extern void free_font_driver_list P_ ((FRAME_PTR f));
+extern void font_update_drivers P_ ((FRAME_PTR f, Lisp_Object name_list,
+                                    struct font *));
 extern Lisp_Object font_at P_ ((int c, EMACS_INT pos, struct face *face,
                                struct window *w, Lisp_Object object));