(struct font_info): Delete it. Most memnbers go to

struct font.
(FONT_ENCODING_NOT_DECIDED): Moved to font.h.
(enum FONT_SPEC_INDEX): Delete it.
(font_info, list_fonts_func, load_font_func, query_font_func)
(set_frame_fontset_func, find_ccl_program_func)
(get_font_repertory_func, new_fontset_from_font_name): Delete
externs.
(fontset_from_font_name): Extern it.
(FS_LOAD_FONT, FONT_INFO_ID, FONT_INFO_FROM_ID)
(FONT_INFO_FROM_FACE): Deleted.
(face_for_font): Adjust prototype.

1 files changed, 2 insertions, 206 deletions

diff --git a/src/fontset.h b/src/fontset.h
index c850ca3c9d8..8d84a7828d2 100644
--- a/src/fontset.h
+++ b/src/fontset.h
@@ -29,173 +29,6 @@ Boston, MA 02110-1301, USA.  */
 #ifndef EMACS_FONTSET_H
 #define EMACS_FONTSET_H
 
-/* This data type is used for the font_table field of window system
-   depending data area (e.g. struct x_display_info on X window).  */
-
-struct font_info
-{
-  /* Pointer to window system dependent font structure.  On X window,
-     this value should be coerced to (XFontStruct *).  */
-  void *font;
-
-  /* Index number of the font.  */
-  int font_idx;
-
-  /* Name to be used to find the font.  */
-  char *name;
-
-  /* Full name of the font given by a window system.  */
-  char *full_name;
-
-  /* Charset to encode a character code into a glyph code of the
-     font.  */
-  int charset;
-
-#ifdef WINDOWSNT
-  /* Codepage of characters that will be displayed by the font.  */
-  int codepage;
-#endif
-
-  /* Maximum bound width over all existing characters of the font.  On
-     X window, this is same as (font->max_bounds.width) */
-  int size;
-
-  /* Height of the font.  On X window, this is the same as
-     (font->ascent + font->descent).  */
-  int height;
-
-  /* Width of the space glyph of the font.  */
-  int space_width;
-
-  /* Average width of glyphs in the font.  */
-  int average_width;
-
-  /* 1 if `vertical-centering-font-regexp' matches this font name.
-     In this case, we render characters at vartical center positions
-     of lines.  */
-  int vertical_centering;
-
-  /* Encoding type of the font.  The value is one of
-     0, 1, 2, or 3:
-	0: code points 0x20..0x7F or 0x2020..0x7F7F are used
-	1: code points 0xA0..0xFF or 0xA0A0..0xFFFF are used
-	2: code points 0x20A0..0x7FFF are used
-	3: code points 0xA020..0xFF7F are used
-     If the member `font_encoder' is not NULL, this member is ignored.
-  */
-  unsigned char encoding_type;
-
-  /* The baseline position of a font is normally `ascent' value of the
-     font.  However, there exists many fonts which don't set `ascent'
-     an appropriate value to be used as baseline position.  This is
-     typical in such ASCII fonts which are designed to be used with
-     Chinese, Japanese, Korean characters.  When we use mixture of
-     such fonts and normal fonts (having correct `ascent' value), a
-     display line gets very ugly.  Since we have no way to fix it
-     automatically, it is users responsibility to supply well designed
-     fonts or correct `ascent' value of fonts.  But, the latter
-     requires heavy work (modifying all bitmap data in BDF files).
-     So, Emacs accepts a private font property
-     `_MULE_BASELINE_OFFSET'.  If a font has this property, we
-     calculate the baseline position by subtracting the value from
-     `ascent'.  In other words, the value indicates how many bits
-     higher we should draw a character of the font than normal ASCII
-     text for a better looking.
-
-     We also have to consider the fact that the concept of `baseline'
-     differs among languages to which each character belongs.  For
-     instance, baseline should be at the bottom most position of all
-     glyphs for Chinese, Japanese, and Korean.  But, many of existing
-     fonts for those characters doesn't have correct `ascent' values
-     because they are designed to be used with ASCII fonts.  To
-     display characters of different language on the same line, the
-     best way will be to arrange them in the middle of the line.  So,
-     in such a case, again, we utilize the font property
-     `_MULE_BASELINE_OFFSET'.  If the value is larger than `ascent' we
-     calculate baseline so that a character is arranged in the middle
-     of a line.  */
-
-  int baseline_offset;
-
-  /* Non zero means a character should be composed at a position
-     relative to the height (or depth) of previous glyphs in the
-     following cases:
-	(1) The bottom of the character is higher than this value.  In
-	this case, the character is drawn above the previous glyphs.
-	(2) The top of the character is lower than 0 (i.e. baseline
-	height).  In this case, the character is drawn beneath the
-	previous glyphs.
-
-     This value is taken from a private font property
-     `_MULE_RELATIVE_COMPOSE' which is introduced by Emacs.  */
-  int relative_compose;
-
-  /* Non zero means an ascent value to be used for a character
-     registered in char-table `use-default-ascent'.  */
-  int default_ascent;
-
-  /* CCL program to calculate code points of the font.  */
-  struct ccl_program *font_encoder;
-};
-
-/* A value which may appear in the member `encoding' of struch
-   font_info indicating that a font itself doesn't tell which encoding
-   to be used.  */
-#define FONT_ENCODING_NOT_DECIDED 255
-
-enum FONT_SPEC_INDEX
-  {
-    FONT_SPEC_FAMILY_INDEX,
-    FONT_SPEC_WEIGHT_INDEX,
-    FONT_SPEC_SLANT_INDEX,
-    FONT_SPEC_SWIDTH_INDEX,
-    FONT_SPEC_ADSTYLE_INDEX,
-    FONT_SPEC_REGISTRY_INDEX,
-    FONT_SPEC_MAX_INDEX
-  };
-
-/* Forward declaration for prototypes.  */
-struct frame;
-
-/* The following six are window system dependent functions.
-   Initialization routine of each window system should set appropriate
-   functions to these variables.  For instance, in case of X window,
-   x_term_init does this.  */
-
-/* Return a pointer to struct font_info of font FONT_IDX of frame F.  */
-extern struct font_info *(*get_font_info_func) P_ ((struct frame *f,
-						    int font_idx));
-
-/* Return a list of font names which matches PATTERN.  See the document of
-   `x-list-fonts' for more detail.  */
-extern Lisp_Object (*list_fonts_func) P_ ((struct frame *f,
-					   Lisp_Object pattern,
-					   int size,
-					   int maxnames));
-
-/* Load a font named NAME for frame F and return a pointer to the
-   information of the loaded font.  If loading is failed, return -1.  */
-extern struct font_info *(*load_font_func) P_ ((struct frame *f,
-						char *name, int));
-
-/* Return a pointer to struct font_info of a font named NAME for frame F.
-   If no such font is loaded, return NULL.  */
-extern struct font_info *(*query_font_func) P_ ((struct frame *f, char *name));
-
-/* Additional function for setting fontset or changing fontset
-   contents of frame F.  This function may change the coordinate of
-   the frame.  */
-extern void (*set_frame_fontset_func) P_ ((struct frame *f, Lisp_Object arg,
-					   Lisp_Object oldval));
-
-/* To find a CCL program, fs_load_font calls this function.
-   The argument is a pointer to the struct font_info.
-   This function set the memer `encoder' of the structure.  */
-extern void (*find_ccl_program_func) P_ ((struct font_info *));
-
-extern Lisp_Object (*get_font_repertory_func) P_ ((struct frame *,
-						   struct font_info *));
-
 /* Check if any window system is used now.  */
 extern void (*check_window_system_func) P_ ((void));
 
@@ -207,9 +40,8 @@ extern int face_suitable_for_char_p P_ ((struct face *, int));
 extern int face_for_char P_ ((FRAME_PTR, struct face *, int,
 			      int, Lisp_Object));
 extern int make_fontset_for_ascii_face P_ ((FRAME_PTR, int, struct face *));
-extern int new_fontset_from_font_name P_ ((Lisp_Object));
+extern int fontset_from_font_name P_ ((Lisp_Object));
 extern void set_default_ascii_font P_ ((Lisp_Object));
-extern struct font_info *fs_load_font P_ ((struct frame *, char *, int));
 extern int fs_query_fontset P_ ((Lisp_Object, int));
 EXFUN (Fquery_fontset, 2);
 extern Lisp_Object list_fontsets P_ ((struct frame *, Lisp_Object, int));
@@ -221,49 +53,13 @@ extern Lisp_Object Vfontset_alias_alist;
 extern Lisp_Object Vvertical_centering_font_regexp;
 extern Lisp_Object Votf_script_alist;
 
-/* Load a font named FONTNAME on frame F.  All fonts for frame F is
-   stored in a table pointed by FONT_TABLE.  Return a pointer to the
-   struct font_info of the loaded font.  If loading fails, return
-   NULL.  */
-
-#define FS_LOAD_FONT(f, fontname) fs_load_font (f, fontname, -1)
-
-
-/* Return an immutable id for font_info FONT_INFO on frame F.  The
-   reason for this macro is hat one cannot hold pointers to font_info
-   structures in other data structures, because the table is
-   reallocated in x_list_fonts.  */
-
-#define FONT_INFO_ID(F, FONT_INFO) \
-     (FONT_INFO) - (FRAME_X_DISPLAY_INFO ((F))->font_table)
-
-/* Given a font_info id ID, return a pointer to the font_info
-   structure on frame F.  If ID is invalid, return null.  */
-
-#define FONT_INFO_FROM_ID(F, ID)					\
-     (((ID) >= 0 && (ID) < FRAME_X_DISPLAY_INFO ((F))->font_table_size)	\
-      ? (FRAME_X_DISPLAY_INFO ((F))->font_table + (ID))			\
-      : 0)
-
-#ifdef USE_FONT_BACKEND
-#define FONT_INFO_FROM_FACE(F, FACE)		\
-  (enable_font_backend ? (FACE)->font_info	\
-   : FONT_INFO_FROM_ID ((F), (FACE)->font_info_id))
-#else  /* not USE_FONT_BACKEND */
-#define FONT_INFO_FROM_FACE(F, FACE)	\
-  FONT_INFO_FROM_ID ((F), (FACE)->font_info_id)
-#endif	/* not USE_FONT_BACKEND */
-
 extern Lisp_Object fontset_name P_ ((int));
 extern Lisp_Object fontset_ascii P_ ((int));
 extern int fontset_height P_ ((int));
 
-#ifdef USE_FONT_BACKEND
 struct font;
-extern int face_for_font P_ ((struct frame *, struct font *, struct face *));
+extern int face_for_font P_ ((struct frame *, Lisp_Object, struct face *));
 extern int new_fontset_from_font P_ ((Lisp_Object));
-extern struct font *fontset_ascii_font P_ ((FRAME_PTR, int));
-#endif	/* USE_FONT_BACKEND */
 
 #endif /* EMACS_FONTSET_H */