Commit 484ca464 authored by Kenichi Handa's avatar Kenichi Handa

*** empty log message ***

parent 417a1b10
2006-07-26 Kenichi Handa <>
* 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
* xfont.c (xfont_list): Don't try listing by :name property if the
name is not for XLFD.
2006-07-24 Kenichi Handa <>
......@@ -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));
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment