2 Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
3 Licensed to the Free Software Foundation.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
25 #endif /* HAVE_ALLOCA_H */
32 Lisp_Object Vglobal_fontset_alist
;
33 Lisp_Object Vfont_encoding_alist
;
34 Lisp_Object Vuse_default_ascent
;
35 Lisp_Object Vignore_relative_composition
;
36 Lisp_Object Valternate_fontname_alist
;
37 Lisp_Object Vfontset_alias_alist
;
38 Lisp_Object Vhighlight_wrong_size_font
;
39 Lisp_Object Vclip_large_size_font
;
41 /* Used as a temporary in macro FS_LOAD_FONT. */
44 /* We had better have our own strcasecmp function because some system
46 static char my_strcasetbl
[256];
48 /* Compare two strings S0 and S1 while ignoring differences in case.
49 Return 1 if they differ, else return 0. */
51 my_strcasecmp (s0
, s1
)
52 unsigned char *s0
, *s1
;
55 if (my_strcasetbl
[*s0
++] != my_strcasetbl
[*s1
++]) return 1;
59 /* The following six are window system dependent functions. See
60 the comments in src/fontset.h for more detail. */
62 /* Return a pointer to struct font_info of font FONT_IDX of frame F. */
63 struct font_info
*(*get_font_info_func
) P_ ((FRAME_PTR f
, int font_idx
));
65 /* Return a list of font names which matches PATTERN. See the document of
66 `x-list-fonts' for more detail. */
67 Lisp_Object (*list_fonts_func
) P_ ((struct frame
*f
,
72 /* Load a font named NAME for frame F and return a pointer to the
73 information of the loaded font. If loading is failed, return 0. */
74 struct font_info
*(*load_font_func
) P_ ((FRAME_PTR f
, char *name
, int));
76 /* Return a pointer to struct font_info of a font named NAME for frame F. */
77 struct font_info
*(*query_font_func
) P_ ((FRAME_PTR f
, char *name
));
79 /* Additional function for setting fontset or changing fontset
80 contents of frame F. */
81 void (*set_frame_fontset_func
) P_ ((FRAME_PTR f
, Lisp_Object arg
,
84 /* To find a CCL program, fs_load_font calls this function.
85 The argument is a pointer to the struct font_info.
86 This function set the memer `encoder' of the structure. */
87 void (*find_ccl_program_func
) P_ ((struct font_info
*));
89 /* Check if any window system is used now. */
90 void (*check_window_system_func
) P_ ((void));
95 struct fontset_data
*fontset_data
96 = (struct fontset_data
*) xmalloc (sizeof (struct fontset_data
));
98 bzero (fontset_data
, sizeof (struct fontset_data
));
104 free_fontset_data (fontset_data
)
105 struct fontset_data
*fontset_data
;
107 if (fontset_data
->fontset_table
)
111 for (i
= 0; i
< fontset_data
->n_fontsets
; i
++)
115 xfree (fontset_data
->fontset_table
[i
]->name
);
116 for (j
= 0; j
<= MAX_CHARSET
; j
++)
117 if (fontset_data
->fontset_table
[i
]->fontname
[j
])
118 xfree (fontset_data
->fontset_table
[i
]->fontname
[j
]);
119 xfree (fontset_data
->fontset_table
[i
]);
121 xfree (fontset_data
->fontset_table
);
124 xfree (fontset_data
);
127 /* Load a font named FONTNAME for displaying CHARSET on frame F.
128 All fonts for frame F is stored in a table pointed by FONT_TABLE.
129 Return a pointer to the struct font_info of the loaded font.
130 If loading fails, return 0;
131 If FONTNAME is NULL, the name is taken from the information of FONTSET.
132 If FONTSET is given, try to load a font whose size matches that of
133 FONTSET, and, the font index is stored in the table for FONTSET.
135 If you give FONTSET argument, don't call this function directry,
136 instead call macro FS_LOAD_FONT with the same argument. */
139 fs_load_font (f
, font_table
, charset
, fontname
, fontset
)
141 struct font_info
*font_table
;
142 int charset
, fontset
;
145 Lisp_Object font_list
;
146 Lisp_Object list
, elt
;
149 struct fontset_info
*fontsetp
= 0;
150 struct font_info
*fontp
;
152 if (fontset
>= 0 && fontset
< FRAME_FONTSET_DATA (f
)->n_fontsets
)
154 fontsetp
= FRAME_FONTSET_DATA (f
)->fontset_table
[fontset
];
155 font_idx
= fontsetp
->font_indexes
[charset
];
157 /* We have already loaded a font. */
158 return font_table
+ font_idx
;
159 else if (font_idx
== FONT_NOT_FOUND
)
160 /* We have already tried loading a font and failed. */
163 fontname
= fontsetp
->fontname
[charset
];
167 /* No way to get fontname. */
170 /* If CHARSET is not ASCII and FONTSET is specified, we must load a
171 font of appropriate size to be used with other fonts in this
173 if (charset
!= CHARSET_ASCII
&& fontsetp
)
175 /* If we have not yet loaded ASCII font of FONTSET, we must load
176 it now to decided the size and height of this fontset. */
177 if (fontsetp
->size
== 0)
179 fontp
= fs_load_font (f
, font_table
, CHARSET_ASCII
, 0, fontset
);
181 /* Any fontset should contain available ASCII. */
184 /* Now we have surely decided the size of this fontset. */
185 size
= fontsetp
->size
* CHARSET_WIDTH (charset
);
188 fontp
= (*load_font_func
) (f
, fontname
, size
);
193 fontsetp
->font_indexes
[charset
] = FONT_NOT_FOUND
;
197 /* Fill in fields (CHARSET, ENCODING, and FONT_ENCODER) which are
198 not set by (*load_font_func). */
199 fontp
->charset
= charset
;
201 if (fontp
->encoding
[1] != FONT_ENCODING_NOT_DECIDED
)
203 /* The font itself tells which code points to be used. Use this
204 encoding for all other charsets. */
207 fontp
->encoding
[0] = fontp
->encoding
[1];
208 for (i
= MIN_CHARSET_OFFICIAL_DIMENSION1
; i
<= MAX_CHARSET
; i
++)
209 fontp
->encoding
[i
] = fontp
->encoding
[1];
213 /* The font itself doesn't tell which code points to be used. */
216 /* At first, set 1 (means 0xA0..0xFF) as the default. */
217 fontp
->encoding
[0] = 1;
218 for (i
= MIN_CHARSET_OFFICIAL_DIMENSION1
; i
<= MAX_CHARSET
; i
++)
219 fontp
->encoding
[i
] = 1;
220 /* Then override them by a specification in Vfont_encoding_alist. */
221 for (list
= Vfont_encoding_alist
; CONSP (list
); list
= XCONS (list
)->cdr
)
223 elt
= XCONS (list
)->car
;
225 && STRINGP (XCONS (elt
)->car
) && CONSP (XCONS (elt
)->cdr
)
226 && (fast_c_string_match_ignore_case (XCONS (elt
)->car
, fontname
)
231 for (tmp
= XCONS (elt
)->cdr
; CONSP (tmp
); tmp
= XCONS (tmp
)->cdr
)
232 if (CONSP (XCONS (tmp
)->car
)
233 && ((i
= get_charset_id (XCONS (XCONS (tmp
)->car
)->car
))
235 && INTEGERP (XCONS (XCONS (tmp
)->car
)->cdr
)
236 && XFASTINT (XCONS (XCONS (tmp
)->car
)->cdr
) < 4)
238 = XFASTINT (XCONS (XCONS (tmp
)->car
)->cdr
);
243 fontp
->font_encoder
= (struct ccl_program
*) 0;
245 if (find_ccl_program_func
)
246 (*find_ccl_program_func
) (fontp
);
248 /* If FONTSET is specified, setup various fields of it. */
251 fontsetp
->font_indexes
[charset
] = fontp
->font_idx
;
252 if (charset
== CHARSET_ASCII
)
254 /* Decide or change the size and height of this fontset. */
255 if (fontsetp
->size
== 0)
257 fontsetp
->size
= fontp
->size
;
258 fontsetp
->height
= fontp
->height
;
260 else if (fontsetp
->size
!= fontp
->size
261 || fontsetp
->height
!= fontp
->height
)
263 /* When loading ASCII font of the different size from
264 the size of FONTSET, we have to update the size of
265 FONTSET. Since changing the size of FONTSET may make
266 some fonts already loaded inappropriate to be used in
267 FONTSET, we must delete the record of such fonts. In
268 that case, we also have to calculate the height of
269 FONTSET from the remaining fonts. */
272 fontsetp
->size
= fontp
->size
;
273 fontsetp
->height
= fontp
->height
;
274 for (i
= CHARSET_ASCII
+ 1; i
<= MAX_CHARSET
; i
++)
276 font_idx
= fontsetp
->font_indexes
[i
];
279 struct font_info
*fontp2
= font_table
+ font_idx
;
281 if (fontp2
->size
!= fontp
->size
* CHARSET_WIDTH (i
))
282 fontsetp
->font_indexes
[i
] = FONT_NOT_OPENED
;
283 /* The following code should be disabled until
284 Emacs supports variable height lines. */
286 else if (fontsetp
->height
< fontp
->height
)
287 fontsetp
->height
= fontp
->height
;
298 /* Return ID of the fontset named NAME on frame F. */
301 fs_query_fontset (f
, name
)
305 struct fontset_data
*fontset_data
= FRAME_FONTSET_DATA (f
);
308 for (i
= 0; i
< fontset_data
->n_fontsets
; i
++)
309 if (!my_strcasecmp(name
, fontset_data
->fontset_table
[i
]->name
))
314 /* Register a fontset specified by FONTSET_INFO for frame FRAME.
315 Return the fontset ID if successfully registered, else return -1.
316 FONTSET_INFO is a cons of name of the fontset and FONTLIST, where
317 FONTLIST is an alist of charsets vs fontnames. */
320 fs_register_fontset (f
, fontset_info
)
322 Lisp_Object fontset_info
;
324 struct fontset_data
*fontset_data
= FRAME_FONTSET_DATA (f
);
325 Lisp_Object name
, fontlist
;
327 struct fontset_info
*fontsetp
;
330 if (!CONSP (fontset_info
)
331 || !STRINGP (XCONS (fontset_info
)->car
)
332 || !CONSP (XCONS (fontset_info
)->cdr
))
333 /* Invalid data in FONTSET_INFO. */
336 name
= XCONS (fontset_info
)->car
;
337 if ((fontset
= fs_query_fontset (f
, XSTRING (name
)->data
)) >= 0)
338 /* This fontset already exists on frame F. */
341 fontsetp
= (struct fontset_info
*) xmalloc (sizeof (struct fontset_info
));
343 fontsetp
->name
= (char *) xmalloc (XSTRING (name
)->size
+ 1);
344 bcopy(XSTRING (name
)->data
, fontsetp
->name
, XSTRING (name
)->size
+ 1);
346 fontsetp
->size
= fontsetp
->height
= 0;
348 for (i
= 0; i
<= MAX_CHARSET
; i
++)
350 fontsetp
->fontname
[i
] = (char *) 0;
351 fontsetp
->font_indexes
[i
] = FONT_NOT_OPENED
;
354 for (fontlist
= XCONS (fontset_info
)->cdr
; CONSP (fontlist
);
355 fontlist
= XCONS (fontlist
)->cdr
)
357 Lisp_Object tem
= Fcar (fontlist
);
361 && (charset
= get_charset_id (XCONS (tem
)->car
)) >= 0
362 && STRINGP (XCONS (tem
)->cdr
))
364 fontsetp
->fontname
[charset
]
365 = (char *) xmalloc (XSTRING (XCONS (tem
)->cdr
)->size
+ 1);
366 bcopy (XSTRING (XCONS (tem
)->cdr
)->data
,
367 fontsetp
->fontname
[charset
],
368 XSTRING (XCONS (tem
)->cdr
)->size
+ 1);
371 /* Broken or invalid data structure. */
375 /* Do we need to create the table? */
376 if (fontset_data
->fontset_table_size
== 0)
378 fontset_data
->fontset_table_size
= 8;
379 fontset_data
->fontset_table
380 = (struct fontset_info
**) xmalloc (fontset_data
->fontset_table_size
381 * sizeof (struct fontset_info
*));
383 /* Do we need to grow the table? */
384 else if (fontset_data
->n_fontsets
>= fontset_data
->fontset_table_size
)
386 fontset_data
->fontset_table_size
+= 8;
387 fontset_data
->fontset_table
388 = (struct fontset_info
**) xrealloc (fontset_data
->fontset_table
,
389 fontset_data
->fontset_table_size
390 * sizeof (struct fontset_info
*));
392 fontset
= fontset_data
->n_fontsets
++;
393 fontset_data
->fontset_table
[fontset
] = fontsetp
;
398 /* Cache data used by fontset_pattern_regexp. The car part is a
399 pattern string containing at least one wild card, the cdr part is
400 the corresponding regular expression. */
401 static Lisp_Object Vcached_fontset_data
;
403 #define CACHED_FONTSET_NAME (XSTRING (XCONS (Vcached_fontset_data)->car)->data)
404 #define CACHED_FONTSET_REGEX (XCONS (Vcached_fontset_data)->cdr)
406 /* If fontset name PATTERN contains any wild card, return regular
407 expression corresponding to PATTERN. */
410 fontset_pattern_regexp (pattern
)
413 if (!index (XSTRING (pattern
)->data
, '*')
414 && !index (XSTRING (pattern
)->data
, '?'))
415 /* PATTERN does not contain any wild cards. */
418 if (!CONSP (Vcached_fontset_data
)
419 || strcmp (XSTRING (pattern
)->data
, CACHED_FONTSET_NAME
))
421 /* We must at first update the cached data. */
422 char *regex
= (char *) alloca (XSTRING (pattern
)->size
* 2);
423 char *p0
, *p1
= regex
;
425 /* Convert "*" to ".*", "?" to ".". */
427 for (p0
= (char *) XSTRING (pattern
)->data
; *p0
; p0
++)
442 Vcached_fontset_data
= Fcons (build_string (XSTRING (pattern
)->data
),
443 build_string (regex
));
446 return CACHED_FONTSET_REGEX
;
449 DEFUN ("query-fontset", Fquery_fontset
, Squery_fontset
, 1, 2, 0,
450 "Return the name of an existing fontset which matches PATTERN.\n\
451 The value is nil if there is no matching fontset.\n\
452 PATTERN can contain `*' or `?' as a wildcard\n\
453 just as X font name matching algorithm allows.\n\
454 If REGEXPP is non-nil, PATTERN is a regular expression.")
456 Lisp_Object pattern
, regexpp
;
458 Lisp_Object regexp
, tem
;
460 (*check_window_system_func
) ();
462 CHECK_STRING (pattern
, 0);
464 if (XSTRING (pattern
)->size
== 0)
467 tem
= Frassoc (pattern
, Vfontset_alias_alist
);
472 regexp
= fontset_pattern_regexp (pattern
);
476 for (tem
= Vglobal_fontset_alist
; CONSP (tem
); tem
= XCONS (tem
)->cdr
)
478 Lisp_Object fontset_name
= XCONS (XCONS (tem
)->car
)->car
;
481 if (fast_c_string_match_ignore_case (regexp
,
482 XSTRING (fontset_name
)->data
)
488 if (!my_strcasecmp (XSTRING (pattern
)->data
,
489 XSTRING (fontset_name
)->data
))
497 /* Return a list of names of available fontsets matching PATTERN on
498 frame F. If SIZE is not 0, it is the size (maximum bound width) of
499 fontsets to be listed. */
502 list_fontsets (f
, pattern
, size
)
508 Lisp_Object regexp
, val
;
510 regexp
= fontset_pattern_regexp (pattern
);
513 for (i
= 0; i
< FRAME_FONTSET_DATA (f
)->n_fontsets
; i
++)
515 struct fontset_info
*fontsetp
= FRAME_FONTSET_DATA (f
)->fontset_table
[i
];
516 int name_matched
= 0;
517 int size_matched
= 0;
521 if (fast_c_string_match_ignore_case (regexp
, fontsetp
->name
) >= 0)
526 if (!my_strcasecmp (XSTRING (pattern
)->data
, fontsetp
->name
))
532 if (!size
|| fontsetp
->size
== size
)
534 else if (fontsetp
->size
== 0)
536 /* No font of this fontset has loaded yet. Try loading
540 for (j
= 0; j
<= MAX_CHARSET
; j
++)
541 if (fontsetp
->fontname
[j
])
543 if ((*load_font_func
) (f
, fontsetp
->fontname
[j
], size
))
550 val
= Fcons (build_string (fontsetp
->name
), val
);
557 DEFUN ("new-fontset", Fnew_fontset
, Snew_fontset
, 2, 2, 0,
558 "Create a new fontset NAME which contains fonts in FONTLIST.\n\
559 FONTLIST is an alist of charsets vs corresponding font names.")
561 Lisp_Object name
, fontlist
;
563 Lisp_Object fullname
, fontset_info
;
566 (*check_window_system_func
) ();
568 CHECK_STRING (name
, 0);
569 CHECK_LIST (fontlist
, 1);
571 fullname
= Fquery_fontset (name
, Qnil
);
572 if (!NILP (fullname
))
573 error ("Fontset `%s' matches the existing fontset `%s'",
574 XSTRING (name
)->data
, XSTRING (fullname
)->data
);
576 /* Check the validity of FONTLIST. */
577 for (tail
= fontlist
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
579 Lisp_Object tem
= XCONS (tail
)->car
;
583 || (charset
= get_charset_id (XCONS (tem
)->car
)) < 0
584 || !STRINGP (XCONS (tem
)->cdr
))
585 error ("Elements of fontlist must be a cons of charset and font name");
588 fontset_info
= Fcons (name
, fontlist
);
589 Vglobal_fontset_alist
= Fcons (fontset_info
, Vglobal_fontset_alist
);
591 /* Register this fontset for all existing frames. */
593 Lisp_Object framelist
, frame
;
595 FOR_EACH_FRAME (framelist
, frame
)
596 if (!FRAME_TERMCAP_P (XFRAME (frame
)))
597 fs_register_fontset (XFRAME (frame
), fontset_info
);
603 extern Lisp_Object Qfont
;
604 Lisp_Object Qfontset
;
606 DEFUN ("set-fontset-font", Fset_fontset_font
, Sset_fontset_font
, 3, 4, 0,
607 "Set FONTNAME for a font of CHARSET in fontset NAME on frame FRAME.\n\
608 If FRAME is omitted or nil, all frames are affected.")
609 (name
, charset_symbol
, fontname
, frame
)
610 Lisp_Object name
, charset_symbol
, fontname
, frame
;
613 Lisp_Object fullname
, fontlist
;
615 (*check_window_system_func
) ();
617 CHECK_STRING (name
, 0);
618 CHECK_SYMBOL (charset_symbol
, 1);
619 CHECK_STRING (fontname
, 2);
621 CHECK_LIVE_FRAME (frame
, 3);
623 if ((charset
= get_charset_id (charset_symbol
)) < 0)
624 error ("Invalid charset: %s", XSYMBOL (charset_symbol
)->name
->data
);
626 fullname
= Fquery_fontset (name
, Qnil
);
628 error ("Fontset `%s' does not exist", XSTRING (name
)->data
);
630 /* If FRAME is not specified, we must, at first, update contents of
631 `global-fontset-alist' for a frame created in the future. */
634 Lisp_Object fontset_info
= Fassoc (fullname
, Vglobal_fontset_alist
);
635 Lisp_Object tem
= Fassq (charset_symbol
, XCONS (fontset_info
)->cdr
);
638 XCONS (fontset_info
)->cdr
639 = Fcons (Fcons (charset_symbol
, fontname
),
640 XCONS (fontset_info
)->cdr
);
642 XCONS (tem
)->cdr
= fontname
;
645 /* Then, update information in the specified frame or all existing
648 Lisp_Object framelist
, tem
;
650 FOR_EACH_FRAME (framelist
, tem
)
651 if (!FRAME_TERMCAP_P (XFRAME (tem
))
652 && (NILP (frame
) || EQ (frame
, tem
)))
654 FRAME_PTR f
= XFRAME (tem
);
655 int fontset
= fs_query_fontset (f
, XSTRING (fullname
)->data
);
656 struct fontset_info
*fontsetp
657 = FRAME_FONTSET_DATA (f
)->fontset_table
[fontset
];
659 if (fontsetp
->fontname
[charset
])
660 xfree (fontsetp
->fontname
[charset
]);
661 fontsetp
->fontname
[charset
]
662 = (char *) xmalloc (XSTRING (fontname
)->size
+ 1);
663 bcopy (XSTRING (fontname
)->data
, fontsetp
->fontname
[charset
],
664 XSTRING (fontname
)->size
+ 1);
665 fontsetp
->font_indexes
[charset
] = FONT_NOT_OPENED
;
667 if (charset
== CHARSET_ASCII
)
669 Lisp_Object font_param
= Fassq (Qfont
, Fframe_parameters (tem
));
671 if (set_frame_fontset_func
672 && !NILP (font_param
)
673 && !strcmp (XSTRING (fullname
)->data
,
674 XSTRING (XCONS (font_param
)->cdr
)->data
))
675 /* This fontset is the default fontset on frame TEM.
676 We may have to resize this frame because of new
678 (*set_frame_fontset_func
) (f
, fullname
, Qnil
);
686 DEFUN ("font-info", Ffont_info
, Sfont_info
, 1, 2, 0,
687 "Return information about a font named NAME on frame FRAME.\n\
688 If FRAME is omitted or nil, use the selected frame.\n\
689 The returned value is a vector of OPENED-NAME, FULL-NAME, CHARSET, SIZE,\n\
690 HEIGHT, BASELINE-OFFSET, RELATIVE-COMPOSE, and DEFAULT-ASCENT,\n\
692 OPENED-NAME is the name used for opening the font,\n\
693 FULL-NAME is the full name of the font,\n\
694 CHARSET is the charset displayed by the font,\n\
695 SIZE is the minimum bound width of the font,\n\
696 HEIGHT is the height of the font,\n\
697 BASELINE-OFFSET is the upward offset pixels from ASCII baseline,\n\
698 RELATIVE-COMPOSE and DEFAULT-ASCENT are the numbers controlling\n\
699 how to compose characters.\n\
700 If the named font is not yet loaded, return nil.")
702 Lisp_Object name
, frame
;
705 struct font_info
*fontp
;
708 (*check_window_system_func
) ();
710 CHECK_STRING (name
, 0);
715 CHECK_LIVE_FRAME (frame
, 1);
719 if (!query_font_func
)
720 error ("Font query function is not supported");
722 fontp
= (*query_font_func
) (f
, XSTRING (name
)->data
);
726 info
= Fmake_vector (make_number (8), Qnil
);
728 XVECTOR (info
)->contents
[0] = build_string (fontp
->name
);
729 XVECTOR (info
)->contents
[1] = build_string (fontp
->full_name
);
730 XVECTOR (info
)->contents
[2] = CHARSET_SYMBOL (fontp
->charset
);
731 XVECTOR (info
)->contents
[3] = make_number (fontp
->size
);
732 XVECTOR (info
)->contents
[4] = make_number (fontp
->height
);
733 XVECTOR (info
)->contents
[5] = make_number (fontp
->baseline_offset
);
734 XVECTOR (info
)->contents
[6] = make_number (fontp
->relative_compose
);
735 XVECTOR (info
)->contents
[7] = make_number (fontp
->default_ascent
);
740 DEFUN ("fontset-info", Ffontset_info
, Sfontset_info
, 1, 2, 0,
741 "Return information about a fontset named NAME on frame FRAME.\n\
742 If FRAME is omitted or nil, use the selected frame.\n\
743 The returned value is a vector of SIZE, HEIGHT, and FONT-LIST,\n\
745 SIZE is the minimum bound width of ASCII font of the fontset,\n\
746 HEIGHT is the height of the tallest font in the fontset, and\n\
747 FONT-LIST is an alist of the format:\n\
748 (CHARSET REQUESTED-FONT-NAME LOADED-FONT-NAME).\n\
749 LOADED-FONT-NAME t means the font is not yet loaded, nil means the\n\
752 Lisp_Object name
, frame
;
756 struct fontset_info
*fontsetp
;
757 Lisp_Object info
, val
;
760 (*check_window_system_func
) ();
762 CHECK_STRING(name
, 0);
767 CHECK_LIVE_FRAME (frame
, 1);
771 fontset
= fs_query_fontset (f
, XSTRING (name
)->data
);
773 error ("Fontset `%s' does not exist", XSTRING (name
)->data
);
775 info
= Fmake_vector (make_number (3), Qnil
);
777 fontsetp
= FRAME_FONTSET_DATA (f
)->fontset_table
[fontset
];
779 XVECTOR (info
)->contents
[0] = make_number (fontsetp
->size
);
780 XVECTOR (info
)->contents
[1] = make_number (fontsetp
->height
);
782 for (i
= 0; i
<= MAX_CHARSET
; i
++)
783 if (fontsetp
->fontname
[i
])
785 int font_idx
= fontsetp
->font_indexes
[i
];
788 if (font_idx
== FONT_NOT_OPENED
)
790 else if (font_idx
== FONT_NOT_FOUND
)
794 = build_string ((*get_font_info_func
) (f
, font_idx
)->full_name
);
795 val
= Fcons (Fcons (CHARSET_SYMBOL (i
),
796 Fcons (build_string (fontsetp
->fontname
[i
]),
797 Fcons (loaded
, Qnil
))),
800 XVECTOR (info
)->contents
[2] = val
;
809 for (i
= 0; i
< 256; i
++)
810 my_strcasetbl
[i
] = (i
>= 'A' && i
<= 'Z') ? i
+ 'a' - 'A' : i
;
813 /* Window system initializer should have set proper functions. */
816 Qfontset
= intern ("fontset");
817 staticpro (&Qfontset
);
819 Vcached_fontset_data
= Qnil
;
820 staticpro (&Vcached_fontset_data
);
822 DEFVAR_LISP ("global-fontset-alist", &Vglobal_fontset_alist
,
823 "Internal data for fontset. Not for external use.\n\
824 This is an alist associating fontset names with the lists of fonts\n\
825 contained in them.\n\
826 Newly created frames make their own fontset database from here.");
827 Vglobal_fontset_alist
= Qnil
;
829 DEFVAR_LISP ("font-encoding-alist", &Vfont_encoding_alist
,
830 "Alist of fontname patterns vs corresponding encoding info.\n\
831 Each element looks like (REGEXP . ENCODING-INFO),\n\
832 where ENCODING-INFO is an alist of CHARSET vs ENCODING.\n\
833 ENCODING is one of the following integer values:\n\
834 0: code points 0x20..0x7F or 0x2020..0x7F7F are used,\n\
835 1: code points 0xA0..0xFF or 0xA0A0..0xFFFF are used,\n\
836 2: code points 0x20A0..0x7FFF are used,\n\
837 3: code points 0xA020..0xFF7F are used.");
838 Vfont_encoding_alist
= Qnil
;
840 DEFVAR_LISP ("use-default-ascent", &Vuse_default_ascent
,
841 "Char table of characters whose ascent values should be ignored.\n\
842 If an entry for a character is non-nil, the ascent value of the glyph\n\
843 is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font.\n\
845 This affects how a composite character which contains\n\
846 such a character is displayed on screen.");
847 Vuse_default_ascent
= Qnil
;
849 DEFVAR_LISP ("ignore-relative-composition", &Vignore_relative_composition
,
850 "Char table of characters which is not composed relatively.\n\
851 If an entry for a character is non-nil, a composite character\n\
852 which contains that character is displayed so that\n\
853 the glyph of that character is put without considering\n\
854 an ascent and descent value of a previous character.");
855 Vuse_default_ascent
= Qnil
;
857 DEFVAR_LISP ("alternate-fontname-alist", &Valternate_fontname_alist
,
858 "Alist of fontname vs list of the alternate fontnames.\n\
859 When a specified font name is not found, the corresponding\n\
860 alternate fontnames (if any) are tried instead.");
861 Valternate_fontname_alist
= Qnil
;
863 DEFVAR_LISP ("fontset-alias-alist", &Vfontset_alias_alist
,
864 "Alist of fontset names vs the aliases.");
865 Vfontset_alias_alist
= Qnil
;
867 DEFVAR_LISP ("highlight-wrong-size-font", &Vhighlight_wrong_size_font
,
868 "*Non-nil means highlight characters shown in wrong size fonts somehow.\n\
869 The way to highlight them depends on window system on which Emacs runs.\n\
870 On X11, a rectangle is shown around each such character.");
871 Vhighlight_wrong_size_font
= Qnil
;
873 DEFVAR_LISP ("clip-large-size-font", &Vclip_large_size_font
,
874 "*Non-nil means characters shown in overlarge fonts are clipped.\n\
875 The height of clipping area is the same as that of an ASCII character.\n\
876 The width of the area is the same as that of an ASCII character,\n\
877 or twice as wide, depending on the character set's column-width.\n\
879 If the only font you have for a specific character set is too large,\n\
880 and clipping these characters makes them hard to read,\n\
881 you can set this variable to nil to display the characters without clipping.\n\
882 The drawback is that you will get some garbage left on your screen.");
883 Vclip_large_size_font
= Qt
;
885 defsubr (&Squery_fontset
);
886 defsubr (&Snew_fontset
);
887 defsubr (&Sset_fontset_font
);
888 defsubr (&Sfont_info
);
889 defsubr (&Sfontset_info
);