From: Kenichi Handa <handa@m17n.org>
Date: Wed, 26 Jul 2006 01:20:00 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-23.0.90~8295^2~800
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=484ca464a68a304566ea295506d015cd67c9f08c;p=emacs.git

*** empty log message ***
---

diff --git a/src/ChangeLog.unicode b/src/ChangeLog.unicode
index 248d28a01dc..1bffdb801f4 100644
--- 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 019e12cfb80..895b8bb3a9e 100644
--- 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));