annotate src/fontset.c @ 89898:0167306cb580

(fontset_font): Renamed from fontset_face. Return value changed. (face_suitable_for_char_p): Adjusted for the change of fontset_font. (face_for_char): Likewise. (make_fontset_for_ascii_face): Fix setting of the fontset element for ASCII. (Finternal_char_font): Use fontset_font instead of FACE_FOR_CHAR to get a font name. (Ffontset_info): Adjusted for the change of fontset_font.
author Kenichi Handa <handa@m17n.org>
date Tue, 13 Apr 2004 11:04:28 +0000
parents d2b1cc2ef7f1
children d1a1970e3dd1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 /* Fontset handler.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
2 Copyright (C) 1995, 1997, 2000 Electrotechnical Laboratory, JAPAN.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
3 Licensed to the Free Software Foundation.
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
4 Copyright (C) 2003
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
5 National Institute of Advanced Industrial Science and Technology (AIST)
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
6 Registration Number H13PRO009
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
8 This file is part of GNU Emacs.
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
9
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
10 GNU Emacs is free software; you can redistribute it and/or modify
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
11 it under the terms of the GNU General Public License as published by
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
12 the Free Software Foundation; either version 2, or (at your option)
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
13 any later version.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
15 GNU Emacs is distributed in the hope that it will be useful,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
18 GNU General Public License for more details.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
20 You should have received a copy of the GNU General Public License
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
21 along with GNU Emacs; see the file COPYING. If not, write to
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
23 Boston, MA 02111-1307, USA. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
25 /* #define FONTSET_DEBUG */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
26
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 #include <config.h>
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
28
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
29 #ifdef FONTSET_DEBUG
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
30 #include <stdio.h>
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
31 #endif
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
32
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33 #include "lisp.h"
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
34 #include "blockinput.h"
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
35 #include "buffer.h"
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
36 #include "character.h"
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 #include "charset.h"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 #include "ccl.h"
31102
6a0caa788013 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30941
diff changeset
39 #include "keyboard.h"
23517
73f09e7bc96e Include frame.h before fontset.h.
Kenichi Handa <handa@m17n.org>
parents: 22719
diff changeset
40 #include "frame.h"
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
41 #include "dispextern.h"
89865
d2b1cc2ef7f1 Include "intervals.h".
Kenichi Handa <handa@m17n.org>
parents: 89826
diff changeset
42 #include "intervals.h"
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 #include "fontset.h"
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
44 #include "window.h"
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
45
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
46 #undef xassert
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
47 #ifdef FONTSET_DEBUG
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
48 #define xassert(X) do {if (!(X)) abort ();} while (0)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
49 #undef INLINE
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
50 #define INLINE
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
51 #else /* not FONTSET_DEBUG */
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
52 #define xassert(X) (void) 0
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
53 #endif /* not FONTSET_DEBUG */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
54
88546
7471723e43b0 (Fclear_face_cache): Declare.
Dave Love <fx@gnu.org>
parents: 88500
diff changeset
55 EXFUN (Fclear_face_cache, 1);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
56
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
57 /* FONTSET
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
58
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
59 A fontset is a collection of font related information to give
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
60 similar appearance (style, etc) of characters. A fontset has two
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
61 roles. One is to use for the frame parameter `font' as if it is an
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
62 ASCII font. In that case, Emacs uses the font specified for
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
63 `ascii' script for the frame's default font.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
64
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
65 Another role, the more important one, is to provide information
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
66 about which font to use for each non-ASCII character.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
67
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
68 There are two kinds of fontsets; base and realized. A base fontset
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
69 is created by `new-fontset' from Emacs Lisp explicitly. A realized
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
70 fontset is created implicitly when a face is realized for ASCII
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
71 characters. A face is also realized for non-ASCII characters based
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
72 on an ASCII face. All of non-ASCII faces based on the same ASCII
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
73 face share the same realized fontset.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
74
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
75 A fontset object is implemented by a char-table whose default value
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
76 and parent are always nil.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
77
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
78 An element of a base fontset is a vector of FONT-DEFs which itself
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
79 is a vector [ FONT-SPEC ENCODING REPERTORY ].
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
80
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
81 FONT-SPEC is:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
82 [ FAMILY WEIGHT SLANT SWIDTH ADSTYLE REGISTRY ]
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
83 or
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
84 FONT-NAME
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
85 where FAMILY, WEIGHT, SLANT, SWIDTH, ADSTYLE, REGISTRY, and
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
86 FONT-NAME are strings.
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
87
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
88 Note: Currently WEIGHT through ADSTYLE are ignored.
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
89
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
90 ENCODING is a charset ID that can convert characters to glyph codes
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
91 of the corresponding font.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
92
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
93 REPERTORY is a charset ID, a char-table, or nil. If REPERTORY is a
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
94 charset ID, the repertory of the charset exactly matches with that
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
95 of the font. If REPERTORY is a char-table, all characters who have
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
96 a non-nil value in the table are supported. If REPERTORY is nil,
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
97 we consult with the font itself to get the repertory.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
98
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
99 ENCODING and REPERTORY are extracted from the variable
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
100 Vfont_encoding_alist by using a font name generated from FONT-SPEC
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
101 (if it is a vector) or FONT-NAME as a matching target.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
102
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
103
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
104 An element of a realized fontset is nil or t, or has this form:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
105
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
106 [CHARSET-ORDERED-LIST-TICK PREFERRED-CHARSET-ID
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
107 PREFERRED-RFONT-DEF RFONT-DEF0 RFONT-DEF1 ...].
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
109 RFONT-DEFn (i.e. Realized FONT-DEF) has this form:
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
110
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
111 [ FACE-ID FONT-INDEX FONT-DEF OPENED-FONT-NAME ]
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
112
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
113 RFONT-DEFn is automatically reordered by the current charset
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
114 priority list.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
115
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
116 The value nil means that we have not yet generated the above vector
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
117 from the base of the fontset.
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
118
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
119 The value t means that no font is available for the corresponding
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
120 range of characters.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
121
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
122
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
123 A fontset has 9 extra slots.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
124
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
125 The 1st slot: the ID number of the fontset
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
126
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
127 The 2nd slot:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
128 base: the name of the fontset
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
129 realized: nil
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
130
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
131 The 3rd slot:
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
132 base: nil
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
133 realized: the base fontset
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
134
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
135 The 4th slot:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
136 base: nil
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
137 realized: the frame that the fontset belongs to
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
138
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
139 The 5th slot:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
140 base: the font name for ASCII characters
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
141 realized: nil
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
142
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
143 The 6th slot:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
144 base: nil
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
145 realized: the ID number of a face to use for characters that
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
146 has no font in a realized fontset.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
147
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
148 The 7th slot:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
149 base: nil
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
150 realized: Alist of font index vs the corresponding repertory
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
151 char-table.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
152
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
153 The 8th slot:
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
154 base: nil
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
155 realized: If the base is not the default fontset, a fontset
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
156 realized from the default fontset, else nil.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
157
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
158 The 9th slot:
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
159 base: Same as element value (but for fallback fonts).
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
160 realized: Likewise.
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
161
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
162 All fontsets are recorded in the vector Vfontset_table.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
163
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
164
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
165 DEFAULT FONTSET
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
166
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
167 There's a special base fontset named `default fontset' which
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
168 defines the default font specifications. When a base fontset
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
169 doesn't specify a font for a specific character, the corresponding
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
170 value in the default fontset is used.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
171
30398
dde5ab185aad (fontset_ref): Remove INLINE declaration.
Kenichi Handa <handa@m17n.org>
parents: 30172
diff changeset
172 The parent of a realized fontset created for such a face that has
dde5ab185aad (fontset_ref): Remove INLINE declaration.
Kenichi Handa <handa@m17n.org>
parents: 30172
diff changeset
173 no fontset is the default fontset.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
174
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
175
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
176 These structures are hidden from the other codes than this file.
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
177 The other codes handle fontsets only by their ID numbers. They
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
178 usually use the variable name `fontset' for IDs. But, in this
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
179 file, we always use varialbe name `id' for IDs, and name `fontset'
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
180 for an actual fontset object, i.e., char-table.
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
181
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
182 */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
183
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
184 /********** VARIABLES and FUNCTION PROTOTYPES **********/
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
185
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
186 extern Lisp_Object Qfont;
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
187 static Lisp_Object Qfontset;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
188 static Lisp_Object Qfontset_info;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
189 static Lisp_Object Qprepend, Qappend;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
190
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
191 /* Vector containing all fontsets. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
192 static Lisp_Object Vfontset_table;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
193
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
194 /* Next possibly free fontset ID. Usually this keeps the minimum
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
195 fontset ID not yet used. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
196 static int next_fontset_id;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
197
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
198 /* The default fontset. This gives default FAMILY and REGISTRY of
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
199 font for each character. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
200 static Lisp_Object Vdefault_fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
201
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 Lisp_Object Vfont_encoding_alist;
17112
5c48ff325655 (syms_of_fontset): Intern Qfontset. Declare new lisp
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
203 Lisp_Object Vuse_default_ascent;
19282
09a1536debb4 (Vignore_relative_composition): New variable.
Kenichi Handa <handa@m17n.org>
parents: 19172
diff changeset
204 Lisp_Object Vignore_relative_composition;
19450
895dc2520755 (Valternate_fontname_alist): Name changed from
Kenichi Handa <handa@m17n.org>
parents: 19282
diff changeset
205 Lisp_Object Valternate_fontname_alist;
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
206 Lisp_Object Vfontset_alias_alist;
26858
7cc081b4e084 (Vvertical_centering_font_regexp): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26164
diff changeset
207 Lisp_Object Vvertical_centering_font_regexp;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
209 /* The following six are declarations of callback functions depending
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
210 on window system. See the comments in src/fontset.h for more
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
211 detail. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 /* Return a pointer to struct font_info of font FONT_IDX of frame F. */
20315
931b4ddf7966 Protoize functions declarations.
Andreas Schwab <schwab@suse.de>
parents: 19450
diff changeset
214 struct font_info *(*get_font_info_func) P_ ((FRAME_PTR f, int font_idx));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
216 /* Return a list of font names which matches PATTERN. See the documentation
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
217 of `x-list-fonts' for more details. */
23517
73f09e7bc96e Include frame.h before fontset.h.
Kenichi Handa <handa@m17n.org>
parents: 22719
diff changeset
218 Lisp_Object (*list_fonts_func) P_ ((struct frame *f,
73f09e7bc96e Include frame.h before fontset.h.
Kenichi Handa <handa@m17n.org>
parents: 22719
diff changeset
219 Lisp_Object pattern,
73f09e7bc96e Include frame.h before fontset.h.
Kenichi Handa <handa@m17n.org>
parents: 22719
diff changeset
220 int size,
73f09e7bc96e Include frame.h before fontset.h.
Kenichi Handa <handa@m17n.org>
parents: 22719
diff changeset
221 int maxnames));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223 /* Load a font named NAME for frame F and return a pointer to the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
224 information of the loaded font. If loading is failed, return 0. */
20315
931b4ddf7966 Protoize functions declarations.
Andreas Schwab <schwab@suse.de>
parents: 19450
diff changeset
225 struct font_info *(*load_font_func) P_ ((FRAME_PTR f, char *name, int));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
226
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227 /* Return a pointer to struct font_info of a font named NAME for frame F. */
20315
931b4ddf7966 Protoize functions declarations.
Andreas Schwab <schwab@suse.de>
parents: 19450
diff changeset
228 struct font_info *(*query_font_func) P_ ((FRAME_PTR f, char *name));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230 /* Additional function for setting fontset or changing fontset
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 contents of frame F. */
20315
931b4ddf7966 Protoize functions declarations.
Andreas Schwab <schwab@suse.de>
parents: 19450
diff changeset
232 void (*set_frame_fontset_func) P_ ((FRAME_PTR f, Lisp_Object arg,
931b4ddf7966 Protoize functions declarations.
Andreas Schwab <schwab@suse.de>
parents: 19450
diff changeset
233 Lisp_Object oldval));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234
21553
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
235 /* To find a CCL program, fs_load_font calls this function.
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
236 The argument is a pointer to the struct font_info.
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
237 This function set the member `encoder' of the structure. */
21553
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
238 void (*find_ccl_program_func) P_ ((struct font_info *));
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
239
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
240 Lisp_Object (*get_font_repertory_func) P_ ((struct frame *,
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
241 struct font_info *));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
242
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243 /* Check if any window system is used now. */
20315
931b4ddf7966 Protoize functions declarations.
Andreas Schwab <schwab@suse.de>
parents: 19450
diff changeset
244 void (*check_window_system_func) P_ ((void));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
246
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
247 /* Prototype declarations for static functions. */
89069
c2201502f37e (fontset_add): Return Lisp_Object.
Dave Love <fx@gnu.org>
parents: 89006
diff changeset
248 static Lisp_Object fontset_add P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
c2201502f37e (fontset_add): Return Lisp_Object.
Dave Love <fx@gnu.org>
parents: 89006
diff changeset
249 Lisp_Object));
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
250 static Lisp_Object fontset_font P_ ((Lisp_Object, int, struct face *, int));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
251 static Lisp_Object make_fontset P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
252 static Lisp_Object fontset_pattern_regexp P_ ((Lisp_Object));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
253 static void accumulate_script_ranges P_ ((Lisp_Object, Lisp_Object,
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
254 Lisp_Object));
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
255 static Lisp_Object find_font_encoding P_ ((char *));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
256
89614
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
257 static void set_fontset_font P_ ((Lisp_Object, Lisp_Object));
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
258
88982
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
259 #ifdef FONTSET_DEBUG
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
260
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
261 /* Return 1 if ID is a valid fontset id, else return 0. */
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
262
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
263 static int
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
264 fontset_id_valid_p (id)
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
265 int id;
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
266 {
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
267 return (id >= 0 && id < ASIZE (Vfontset_table) - 1);
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
268 }
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
269
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
270 #endif
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
271
d50b0a9ea97a (fontset_add): Make the type `int'.
Kenichi Handa <handa@m17n.org>
parents: 88968
diff changeset
272
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
273
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
274 /********** MACROS AND FUNCTIONS TO HANDLE FONTSET **********/
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
275
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
276 /* Return the fontset with ID. No check of ID's validness. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
277 #define FONTSET_FROM_ID(id) AREF (Vfontset_table, id)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
278
30398
dde5ab185aad (fontset_ref): Remove INLINE declaration.
Kenichi Handa <handa@m17n.org>
parents: 30172
diff changeset
279 /* Macros to access special values of FONTSET. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
280 #define FONTSET_ID(fontset) XCHAR_TABLE (fontset)->extras[0]
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
281
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
282 /* Macros to access special values of (base) FONTSET. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
283 #define FONTSET_NAME(fontset) XCHAR_TABLE (fontset)->extras[1]
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
284 #define FONTSET_ASCII(fontset) XCHAR_TABLE (fontset)->extras[4]
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
285
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
286 /* Macros to access special values of (realized) FONTSET. */
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
287 #define FONTSET_BASE(fontset) XCHAR_TABLE (fontset)->extras[2]
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
288 #define FONTSET_FRAME(fontset) XCHAR_TABLE (fontset)->extras[3]
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
289 #define FONTSET_NOFONT_FACE(fontset) XCHAR_TABLE (fontset)->extras[5]
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
290 #define FONTSET_REPERTORY(fontset) XCHAR_TABLE (fontset)->extras[6]
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
291 #define FONTSET_DEFAULT(fontset) XCHAR_TABLE (fontset)->extras[7]
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
292
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
293 /* For both base and realized fontset. */
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
294 #define FONTSET_FALLBACK(fontset) XCHAR_TABLE (fontset)->extras[8]
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
295
89428
eed327e0bad3 (BASE_FONTSET_P): Check FONTSET_BASE, not
Kenichi Handa <handa@m17n.org>
parents: 89349
diff changeset
296 #define BASE_FONTSET_P(fontset) (NILP (FONTSET_BASE (fontset)))
eed327e0bad3 (BASE_FONTSET_P): Check FONTSET_BASE, not
Kenichi Handa <handa@m17n.org>
parents: 89349
diff changeset
297
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
298
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
299 /* Return the element of FONTSET for the character C. If FONTSET is a
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
300 base fontset other then the default fontset and FONTSET doesn't
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
301 contain information for C, return the information in the default
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
302 fontset. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
303
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
304 #define FONTSET_REF(fontset, c) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
305 (EQ (fontset, Vdefault_fontset) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
306 ? CHAR_TABLE_REF (fontset, c) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
307 : fontset_ref ((fontset), (c)))
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
308
30398
dde5ab185aad (fontset_ref): Remove INLINE declaration.
Kenichi Handa <handa@m17n.org>
parents: 30172
diff changeset
309 static Lisp_Object
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
310 fontset_ref (fontset, c)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
311 Lisp_Object fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
312 int c;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
313 {
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
314 Lisp_Object elt;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
315
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
316 elt = CHAR_TABLE_REF (fontset, c);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
317 if (NILP (elt) && ! EQ (fontset, Vdefault_fontset)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
318 /* Don't check Vdefault_fontset for a realized fontset. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
319 && NILP (FONTSET_BASE (fontset)))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
320 elt = CHAR_TABLE_REF (Vdefault_fontset, c);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
321 return elt;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
322 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
323
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
324
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
325 /* Return the element of FONTSET for the character C, set FROM and TO
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
326 to the range of characters around C that have the same value as C.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
327 If FONTSET is a base fontset other then the default fontset and
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
328 FONTSET doesn't contain information for C, return the information
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
329 in the default fontset. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
330
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
331 #define FONTSET_REF_AND_RANGE(fontset, c, form, to) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
332 (EQ (fontset, Vdefault_fontset) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
333 ? char_table_ref_and_range (fontset, c, &from, &to) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
334 : fontset_ref_and_range (fontset, c, &from, &to))
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
335
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
336 static Lisp_Object
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
337 fontset_ref_and_range (fontset, c, from, to)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
338 Lisp_Object fontset;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
339 int c;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
340 int *from, *to;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
341 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
342 Lisp_Object elt;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
343
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
344 elt = char_table_ref_and_range (fontset, c, from, to);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
345 if (NILP (elt) && ! EQ (fontset, Vdefault_fontset)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
346 /* Don't check Vdefault_fontset for a realized fontset. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
347 && NILP (FONTSET_BASE (fontset)))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
348 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
349 int from1, to1;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
350
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
351 elt = char_table_ref_and_range (Vdefault_fontset, c, &from1, &to1);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
352 if (*from < from1)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
353 *from = from1;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
354 if (*to > to1)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
355 *to = to1;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
356 }
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
357 return elt;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
358 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
359
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
360
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
361 /* Set elements of FONTSET for characters in RANGE to the value ELT.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
362 RANGE is a cons (FROM . TO), where FROM and TO are character codes
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
363 specifying a range. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
364
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
365 #define FONTSET_SET(fontset, range, elt) \
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
366 Fset_char_table_range ((fontset), (range), (elt))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
367
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
368
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
369 /* Modify the elements of FONTSET for characters in RANGE by replacing
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
370 with ELT or adding ELT. RANGE is a cons (FROM . TO), where FROM
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
371 and TO are character codes specifying a range. If ADD is nil,
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
372 replace with ELT, if ADD is `prepend', prepend ELT, otherwise,
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
373 append ELT. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
374
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
375 #define FONTSET_ADD(fontset, range, elt, add) \
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
376 (NILP (add) \
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
377 ? (NILP (range) \
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
378 ? (FONTSET_FALLBACK (fontset) = Fmake_vector (make_number (1), (elt))) \
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
379 : Fset_char_table_range ((fontset), (range), \
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
380 Fmake_vector (make_number (1), (elt)))) \
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
381 : fontset_add ((fontset), (range), (elt), (add)))
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
382
89069
c2201502f37e (fontset_add): Return Lisp_Object.
Dave Love <fx@gnu.org>
parents: 89006
diff changeset
383 static Lisp_Object
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
384 fontset_add (fontset, range, elt, add)
88931
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
385 Lisp_Object fontset, range, elt, add;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
386 {
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
387 Lisp_Object args[2];
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
388 int idx = (EQ (add, Qappend) ? 0 : 1);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
389
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
390 args[1 - idx] = Fmake_vector (make_number (1), elt);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
391
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
392 if (CONSP (range))
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
393 {
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
394 int from = XINT (XCAR (range));
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
395 int to = XINT (XCDR (range));
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
396 int from1, to1;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
397
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
398 do {
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
399 args[idx] = char_table_ref_and_range (fontset, from, &from1, &to1);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
400 if (to < to1)
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
401 to1 = to;
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
402 char_table_set_range (fontset, from, to1,
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
403 NILP (args[idx]) ? args[1 - idx]
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
404 : Fvconcat (2, args));
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
405 from = to1 + 1;
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
406 } while (from < to);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
407 }
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
408 else
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
409 {
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
410 args[idx] = FONTSET_FALLBACK (fontset);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
411 FONTSET_FALLBACK (fontset)
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
412 = NILP (args[idx]) ? args[1 - idx] : Fvconcat (2, args);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
413 }
89069
c2201502f37e (fontset_add): Return Lisp_Object.
Dave Love <fx@gnu.org>
parents: 89006
diff changeset
414 return Qnil;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
415 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
416
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
417
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
418 /* Update FONTSET_ELEMENT which has this form:
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
419 [CHARSET-ORDERED-LIST-TICK PREFERRED-CHARSET-ID PREFERRED-RFONT-DEF
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
420 RFONT-DEF0 RFONT-DEF1 ...].
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
421 Reorder RFONT-DEFs according to the current order of charset
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
422 (Vcharset_ordered_list), and update CHARSET-ORDERED-LIST-TICK to
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
423 the latest value. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
424
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
425 static void
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
426 reorder_font_vector (fontset_element)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
427 Lisp_Object fontset_element;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
428 {
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
429 Lisp_Object vec, list, *new_vec;
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
430 Lisp_Object font_def;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
431 int size;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
432 int *charset_id_table;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
433 int i, idx;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
434
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
435 ASET (fontset_element, 0, make_number (charset_ordered_list_tick));
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
436 size = ASIZE (fontset_element) - 3;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
437 if (size <= 1)
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
438 /* No need to reorder VEC. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
439 return;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
440 charset_id_table = (int *) alloca (sizeof (int) * size);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
441 new_vec = (Lisp_Object *) alloca (sizeof (Lisp_Object) * size);
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
442
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
443 /* At first, extract ENCODING (a chaset ID) from each FONT-DEF.
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
444 FONT-DEF has this form:
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
445 [FACE-ID FONT-INDEX [ FONT-SPEC ENCODING REPERTORY ]] */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
446 for (i = 0; i < size; i++)
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
447 {
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
448 font_def = AREF (fontset_element, i + 3);
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
449 charset_id_table[i] = XINT (AREF (AREF (font_def, 2), 1));
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
450 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
451
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
452 /* Then, store FONT-DEFs in NEW_VEC in the correct order. */
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
453 for (idx = 0, list = Vcharset_ordered_list;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
454 idx < size && CONSP (list); list = XCDR (list))
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
455 {
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
456 for (i = 0; i < size; i++)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
457 if (charset_id_table[i] == XINT (XCAR (list)))
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
458 new_vec[idx++] = AREF (fontset_element, i + 3);
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
459 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
460
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
461 /* At last, update FONT-DEFs. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
462 for (i = 0; i < size; i++)
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
463 ASET (fontset_element, i + 3, new_vec[i]);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
464 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
465
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
466
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
467 /* Load a font matching the font related attributes in FACE->lface and
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
468 font pattern in FONT_DEF of FONTSET, and return an index of the
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
469 font. FONT_DEF has this form:
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
470 [ FONT-SPEC ENCODING REPERTORY ]
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
471 If REPERTORY is nil, generate a char-table representing the font
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
472 repertory by looking into the font itself. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
473
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
474 static int
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
475 load_font_get_repertory (f, face, font_def, fontset)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
476 FRAME_PTR f;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
477 struct face *face;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
478 Lisp_Object font_def;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
479 Lisp_Object fontset;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
480 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
481 char *font_name;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
482 struct font_info *font_info;
89572
971778c2578c (load_font_get_repertory): Pay attention to the case
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
483 int charset;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
484
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
485 font_name = choose_face_font (f, face->lface, AREF (font_def, 0), NULL);
89572
971778c2578c (load_font_get_repertory): Pay attention to the case
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
486 if (NATNUMP (AREF (font_def, 1)))
971778c2578c (load_font_get_repertory): Pay attention to the case
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
487 charset = XINT (AREF (font_def, 1));
971778c2578c (load_font_get_repertory): Pay attention to the case
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
488 else
971778c2578c (load_font_get_repertory): Pay attention to the case
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
489 charset = -1;
971778c2578c (load_font_get_repertory): Pay attention to the case
Kenichi Handa <handa@m17n.org>
parents: 89483
diff changeset
490 if (! (font_info = fs_load_font (f, font_name, charset)))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
491 return -1;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
492
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
493 if (NILP (AREF (font_def, 2))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
494 && NILP (Fassq (make_number (font_info->font_idx),
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
495 FONTSET_REPERTORY (fontset))))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
496 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
497 /* We must look into the font to get the correct repertory as a
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
498 char-table. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
499 Lisp_Object repertory;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
500
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
501 repertory = (*get_font_repertory_func) (f, font_info);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
502 FONTSET_REPERTORY (fontset)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
503 = Fcons (Fcons (make_number (font_info->font_idx), repertory),
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
504 FONTSET_REPERTORY (fontset));
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
505 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
506
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
507 return font_info->font_idx;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
508 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
509
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
510
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
511 /* Return RFONT-DEF (vector) in the realized fontset FONTSET for the
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
512 character C. If the corresponding font is not yet opened, open it
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
513 (if FACE is not NULL) or return Qnil (if FACE is NULL).
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
514 If no proper font is found for C, return Qnil. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
515
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
516 static Lisp_Object
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
517 fontset_font (fontset, c, face, id)
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
518 Lisp_Object fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
519 int c;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
520 struct face *face;
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
521 int id;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 {
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
523 Lisp_Object base_fontset, elt, vec;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
524 int i, from, to;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
525 int font_idx;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
526 FRAME_PTR f = XFRAME (FONTSET_FRAME (fontset));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
527
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
528 base_fontset = FONTSET_BASE (fontset);
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
529 vec = CHAR_TABLE_REF (fontset, c);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
530 if (EQ (vec, Qt))
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
531 goto try_fallback;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
532
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
533 if (NILP (vec))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
534 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
535 /* We have not yet decided a face for C. */
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
536 Lisp_Object range;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
537
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
538 if (! face)
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
539 return Qnil;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
540 elt = FONTSET_REF_AND_RANGE (base_fontset, c, from, to);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
541 range = Fcons (make_number (from), make_number (to));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
542 if (NILP (elt))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
543 {
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
544 /* Record that we have no font for characters of this
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
545 range. */
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
546 vec = Qt;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
547 FONTSET_SET (fontset, range, vec);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
548 goto try_fallback;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
549 }
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
550 /* Build a vector [ -1 -1 nil NEW-ELT0 NEW-ELT1 NEW-ELT2 ... ],
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
551 where the first -1 is to force reordering of NEW-ELTn,
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
552 NEW-ETLn is [nil nil AREF (elt, n) nil]. */
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
553 vec = Fmake_vector (make_number (ASIZE (elt) + 3), make_number (-1));
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
554 ASET (vec, 2, Qnil);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
555 for (i = 0; i < ASIZE (elt); i++)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
556 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
557 Lisp_Object tmp;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
558
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
559 tmp = Fmake_vector (make_number (4), Qnil);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
560 ASET (tmp, 2, AREF (elt, i));
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
561 ASET (vec, 3 + i, tmp);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
562 }
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
563 /* Then store it in the fontset. */
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
564 FONTSET_SET (fontset, range, vec);
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
565 }
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
566
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
567 retry:
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
568 if (XINT (AREF (vec, 0)) != charset_ordered_list_tick)
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
569 /* The priority of charsets is changed after we selected a face
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
570 for C last time. */
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
571 reorder_font_vector (vec);
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
572
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
573 if (id < 0)
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
574 i = 3;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
575 else if (id == XFASTINT (AREF (vec, 1)))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
576 i = 2;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
577 else
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
578 {
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
579 ASET (vec, 1, make_number (id));
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
580 for (i = 3; i < ASIZE (vec); i++)
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
581 if (id == XFASTINT (AREF (AREF (AREF (vec, i), 2), 1)))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
582 break;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
583 if (i < ASIZE (vec))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
584 {
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
585 ASET (vec, 2, AREF (vec, i));
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
586 i = 2;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
587 }
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
588 else
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
589 {
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
590 ASET (vec, 2, Qnil);
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
591 i = 3;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
592 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
593 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
594
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
595 /* Find the first available font in the vector of RFONT-DEF. */
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
596 for (; i < ASIZE (vec); i++)
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
597 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
598 Lisp_Object font_def;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
599
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
600 elt = AREF (vec, i);
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
601 if (NILP (elt))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
602 continue;
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
603 /* ELT == [ FACE-ID FONT-INDEX FONT-DEF OPENED-FONT-NAME ] */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
604 if (INTEGERP (AREF (elt, 1)) && XINT (AREF (elt, 1)) < 0)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
605 /* We couldn't open this font last time. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
606 continue;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
607
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
608 if (!face && NILP (AREF (elt, 1)))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
609 /* We have not yet opened the font. */
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
610 return Qnil;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
611
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
612 font_def = AREF (elt, 2);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
613 /* FONT_DEF == [ FONT-SPEC ENCODING REPERTORY ] */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
614 if (INTEGERP (AREF (font_def, 2)))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
615 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
616 /* The repertory is specified by charset ID. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
617 struct charset *charset
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
618 = CHARSET_FROM_ID (XINT (AREF (font_def, 2)));
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
619
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
620 if (! CHAR_CHARSET_P (c, charset))
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
621 /* This font can't display C. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
622 continue;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
623 }
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
624 else if (CHAR_TABLE_P (AREF (font_def, 2)))
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
625 {
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
626 /* The repertory is specified by a char table. */
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
627 if (NILP (CHAR_TABLE_REF (AREF (font_def, 2), c)))
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
628 /* This font can't display C. */
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
629 continue;
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
630 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
631 else
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
632 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
633 Lisp_Object slot;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
634
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
635 if (! INTEGERP (AREF (elt, 1)))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
636 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
637 /* We have not yet opened a font matching this spec.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
638 Open the best matching font now and register the
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
639 repertory. */
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
640 struct font_info *font_info;
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
641
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
642 font_idx = load_font_get_repertory (f, face, font_def, fontset);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
643 ASET (elt, 1, make_number (font_idx));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
644 if (font_idx < 0)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
645 /* This means that we couldn't find a font matching
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
646 FONT_DEF. */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
647 continue;
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
648 font_info = (*get_font_info_func) (f, font_idx);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
649 ASET (elt, 3, build_string (font_info->full_name));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
650 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
651
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
652 slot = Fassq (AREF (elt, 1), FONTSET_REPERTORY (fontset));
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
653 xassert (CONSP (slot));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
654 if (NILP (CHAR_TABLE_REF (XCDR (slot), c)))
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
655 /* This font can't display C. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
656 continue;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
657 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
658
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
659 /* Now we have decided to use this font spec to display C. */
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
660 if (! INTEGERP (AREF (elt, 1)))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
661 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
662 /* But not yet opened the best matching font. */
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
663 struct font_info *font_info;
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
664
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
665 font_idx = load_font_get_repertory (f, face, font_def, fontset);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
666 ASET (elt, 1, make_number (font_idx));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
667 if (font_idx < 0)
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
668 /* Can't open it. Try the other one. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
669 continue;
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
670 font_info = (*get_font_info_func) (f, font_idx);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
671 ASET (elt, 3, build_string (font_info->full_name));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
672 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
673
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
674 /* Now we have the opened font. */
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
675 return elt;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
676 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
677
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
678 try_fallback:
89865
d2b1cc2ef7f1 Include "intervals.h".
Kenichi Handa <handa@m17n.org>
parents: 89826
diff changeset
679 if (! EQ (vec, FONTSET_FALLBACK (fontset)))
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
680 {
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
681 vec = FONTSET_FALLBACK (fontset);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
682 if (VECTORP (vec))
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
683 goto retry;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
684 if (EQ (vec, Qt))
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
685 goto try_default;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
686 elt = FONTSET_FALLBACK (base_fontset);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
687 if (! NILP (elt))
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
688 {
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
689 vec = Fmake_vector (make_number (ASIZE (elt) + 3), make_number (-1));
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
690 ASET (vec, 2, Qnil);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
691 for (i = 0; i < ASIZE (elt); i++)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
692 {
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
693 Lisp_Object tmp;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
694
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
695 tmp = Fmake_vector (make_number (4), Qnil);
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
696 ASET (tmp, 2, AREF (elt, i));
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
697 ASET (vec, 3 + i, tmp);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
698 }
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
699 FONTSET_FALLBACK (fontset) = vec;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
700 goto retry;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
701 }
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
702 /* Record that this fontset has no fallback fonts. */
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
703 FONTSET_FALLBACK (fontset) = Qt;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
704 }
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
705
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
706 /* Try the default fontset. */
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
707 try_default:
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
708 if (! EQ (base_fontset, Vdefault_fontset))
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
709 {
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
710 if (NILP (FONTSET_DEFAULT (fontset)))
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
711 FONTSET_DEFAULT (fontset)
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
712 = make_fontset (FONTSET_FRAME (fontset), Qnil, Vdefault_fontset);
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
713 return fontset_font (FONTSET_DEFAULT (fontset), c, face, id);
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
714 }
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
715 return Qnil;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
716 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
717
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
718
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
719 /* Return a newly created fontset with NAME. If BASE is nil, make a
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
720 base fontset. Otherwise make a realized fontset whose base is
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
721 BASE. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
722
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
723 static Lisp_Object
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
724 make_fontset (frame, name, base)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
725 Lisp_Object frame, name, base;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
726 {
34975
0d69e2d2724e (fontset_ref): Remove unused variable `i'.
Eli Zaretskii <eliz@gnu.org>
parents: 32978
diff changeset
727 Lisp_Object fontset;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
728 int size = ASIZE (Vfontset_table);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
729 int id = next_fontset_id;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
730
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
731 /* Find a free slot in Vfontset_table. Usually, next_fontset_id is
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
732 the next available fontset ID. So it is expected that this loop
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
733 terminates quickly. In addition, as the last element of
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
734 Vfontset_table is always nil, we don't have to check the range of
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
735 id. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
736 while (!NILP (AREF (Vfontset_table, id))) id++;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
737
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
738 if (id + 1 == size)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
739 {
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
740 /* We must grow Vfontset_table. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
741 Lisp_Object tem;
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
742 int i;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
743
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
744 tem = Fmake_vector (make_number (size + 32), Qnil);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
745 for (i = 0; i < size; i++)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
746 AREF (tem, i) = AREF (Vfontset_table, i);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
747 Vfontset_table = tem;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
748 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
749
29767
c8e5453dc85d (FONTSET_ASCII): Use the first element of char table
Kenichi Handa <handa@m17n.org>
parents: 29501
diff changeset
750 fontset = Fmake_char_table (Qfontset, Qnil);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
751
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
752 FONTSET_ID (fontset) = make_number (id);
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
753 if (NILP (base))
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
754 {
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
755 FONTSET_NAME (fontset) = name;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
756 }
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
757 else
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
758 {
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
759 FONTSET_NAME (fontset) = Qnil;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
760 FONTSET_FRAME (fontset) = frame;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
761 FONTSET_BASE (fontset) = base;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
762 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
763
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
764 ASET (Vfontset_table, id, fontset);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
765 next_fontset_id = id + 1;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
766 return fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
767 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
768
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
769
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
770
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
771 /********** INTERFACES TO xfaces.c, xfns.c, and dispextern.h **********/
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
772
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
773 /* Return the name of the fontset who has ID. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
774
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
775 Lisp_Object
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
776 fontset_name (id)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
777 int id;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
778 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
779 Lisp_Object fontset;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
780
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
781 fontset = FONTSET_FROM_ID (id);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
782 return FONTSET_NAME (fontset);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
783 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
784
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
785
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
786 /* Return the ASCII font name of the fontset who has ID. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
787
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
788 Lisp_Object
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
789 fontset_ascii (id)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
790 int id;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
791 {
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
792 Lisp_Object fontset, elt;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
793
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
794 fontset= FONTSET_FROM_ID (id);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
795 elt = FONTSET_ASCII (fontset);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
796 /* It is assured that ELT is always a string (i.e. fontname
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
797 pattern). */
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
798 return elt;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
799 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
800
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
801
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
802 /* Free fontset of FACE defined on frame F. Called from
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
803 free_realized_face. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
804
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 void
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
806 free_face_fontset (f, face)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
807 FRAME_PTR f;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
808 struct face *face;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
809 {
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
810 Lisp_Object fontset;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
811
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
812 fontset = AREF (Vfontset_table, face->fontset);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
813 xassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
814 xassert (f == XFRAME (FONTSET_FRAME (fontset)));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
815 ASET (Vfontset_table, face->fontset, Qnil);
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
816 if (face->fontset < next_fontset_id)
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
817 next_fontset_id = face->fontset;
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
818 if (! NILP (FONTSET_DEFAULT (fontset)))
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
819 {
89865
d2b1cc2ef7f1 Include "intervals.h".
Kenichi Handa <handa@m17n.org>
parents: 89826
diff changeset
820 int id = XINT (FONTSET_ID (FONTSET_DEFAULT (fontset)));
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
821
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
822 fontset = AREF (Vfontset_table, id);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
823 xassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
824 xassert (f == XFRAME (FONTSET_FRAME (fontset)));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
825 ASET (Vfontset_table, id, Qnil);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
826 if (id < next_fontset_id)
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
827 next_fontset_id = face->fontset;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
828 }
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
829 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
830
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
831
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
832 /* Return 1 iff FACE is suitable for displaying character C.
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
833 Otherwise return 0. Called from the macro FACE_SUITABLE_FOR_CHAR_P
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
834 when C is not an ASCII character. */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
835
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
836 int
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
837 face_suitable_for_char_p (face, c)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
838 struct face *face;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
839 int c;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
840 {
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
841 Lisp_Object fontset, rfont_def;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
842
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
843 fontset = FONTSET_FROM_ID (face->fontset);
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
844 rfont_def = fontset_font (fontset, c, NULL, -1);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
845 return (VECTORP (rfont_def)
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
846 && INTEGERP (AREF (rfont_def, 0))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
847 && face->id == XINT (AREF (rfont_def, 0)));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
848 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
849
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
850
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
851 /* Return ID of face suitable for displaying character C on frame F.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
852 FACE must be reazlied for ASCII characters in advance. Called from
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
853 the macro FACE_FOR_CHAR. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
854
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
855 int
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
856 face_for_char (f, face, c, pos, object)
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
857 FRAME_PTR f;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
858 struct face *face;
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
859 int c, pos;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
860 Lisp_Object object;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
861 {
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
862 Lisp_Object fontset, charset, rfont_def;
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
863 int face_id;
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
864 int id;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
865
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
866 if (ASCII_CHAR_P (c))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
867 return face->ascii_face->id;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
868
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
869 xassert (fontset_id_valid_p (face->fontset));
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
870 fontset = FONTSET_FROM_ID (face->fontset);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
871 xassert (!BASE_FONTSET_P (fontset));
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
872 if (pos < 0)
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
873 id = -1;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
874 else
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
875 {
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
876 charset = Fget_char_property (make_number (pos), Qcharset, object);
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
877 if (NILP (charset))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
878 id = -1;
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
879 else if (CHARSETP (charset))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
880 id = XINT (CHARSET_SYMBOL_ID (charset));
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
881 }
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
882 rfont_def = fontset_font (fontset, c, face, id);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
883 if (VECTORP (rfont_def))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
884 {
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
885 if (NILP (AREF (rfont_def, 0)))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
886 {
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
887 /* We have not yet made a realized face that uses this font. */
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
888 int font_idx = XINT (AREF (rfont_def, 1));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
889
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
890 face_id = lookup_non_ascii_face (f, font_idx, face);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
891 ASET (rfont_def, 0, make_number (face_id));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
892 }
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
893 return XINT (AREF (rfont_def, 0));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
894 }
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
895
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
896 if (NILP (FONTSET_NOFONT_FACE (fontset)))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
897 {
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
898 face_id = lookup_non_ascii_face (f, -1, face);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
899 FONTSET_NOFONT_FACE (fontset) = make_number (face_id);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
900 }
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
901 return XINT (FONTSET_NOFONT_FACE (fontset));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
902 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
903
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
904
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
905 /* Make a realized fontset for ASCII face FACE on frame F from the
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
906 base fontset BASE_FONTSET_ID. If BASE_FONTSET_ID is -1, use the
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
907 default fontset as the base. Value is the id of the new fontset.
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
908 Called from realize_x_face. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
909
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
910 int
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
911 make_fontset_for_ascii_face (f, base_fontset_id, face)
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
912 FRAME_PTR f;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
913 int base_fontset_id;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
914 struct face *face;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
915 {
34975
0d69e2d2724e (fontset_ref): Remove unused variable `i'.
Eli Zaretskii <eliz@gnu.org>
parents: 32978
diff changeset
916 Lisp_Object base_fontset, fontset, frame;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
917
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
918 XSETFRAME (frame, f);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
919 if (base_fontset_id >= 0)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
920 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
921 base_fontset = FONTSET_FROM_ID (base_fontset_id);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
922 if (!BASE_FONTSET_P (base_fontset))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
923 base_fontset = FONTSET_BASE (base_fontset);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
924 xassert (BASE_FONTSET_P (base_fontset));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
925 if (! BASE_FONTSET_P (base_fontset))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
926 abort ();
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
927 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
928 else
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
929 base_fontset = Vdefault_fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
930
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
931 fontset = make_fontset (frame, Qnil, base_fontset);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
932 {
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
933 Lisp_Object elt, rfont_def;
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
934
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
935 elt = FONTSET_REF (base_fontset, 0);
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
936 xassert (VECTORP (elt) && ASIZE (elt) > 0);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
937 rfont_def = Fmake_vector (make_number (4), Qnil);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
938 ASET (rfont_def, 0, make_number (face->id));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
939 ASET (rfont_def, 1, make_number (face->font_info_id));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
940 ASET (rfont_def, 2, AREF (elt, 0));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
941 ASET (rfont_def, 3, build_string (face->font_name));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
942 elt = Fmake_vector (make_number (4), Qnil);
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
943 ASET (elt, 0, make_number (charset_ordered_list_tick));
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
944 ASET (elt, 1, make_number (charset_ascii));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
945 ASET (elt, 2, rfont_def);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
946 ASET (elt, 3, rfont_def);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
947 char_table_set_range (fontset, 0, 127, elt);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
948 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
949 return XINT (FONTSET_ID (fontset));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
950 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
951
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
952
40028
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
953 #if defined(WINDOWSNT) && defined (_MSC_VER)
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
954 #pragma optimize("", off)
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
955 #endif
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
956
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
957 /* Load a font named FONTNAME on frame F. Return a pointer to the
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
958 struct font_info of the loaded font. If loading fails, return
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
959 NULL. CHARSET is an ID of charset to encode characters for this
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
960 font. If it is -1, find one from Vfont_encoding_alist. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
961
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
962 struct font_info *
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
963 fs_load_font (f, fontname, charset)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
964 FRAME_PTR f;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
965 char *fontname;
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
966 int charset;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
967 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
968 struct font_info *fontp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
969
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
970 if (!fontname)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
971 /* No way to get fontname. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
972 return NULL;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
973
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
974 fontp = (*load_font_func) (f, fontname, 0);
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
975 if (! fontp || fontp->charset >= 0)
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
976 return fontp;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
977
88500
3d67875ee2b1 (fs_load_font): Check fontp->full_name (not fontname)
Kenichi Handa <handa@m17n.org>
parents: 88482
diff changeset
978 fontname = fontp->full_name;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
979
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
980 if (charset < 0)
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
981 {
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
982 Lisp_Object charset_symbol;
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
983
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
984 charset_symbol = find_font_encoding (fontname);
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
985 if (CONSP (charset_symbol))
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
986 charset_symbol = XCAR (charset_symbol);
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
987 charset = XINT (CHARSET_SYMBOL_ID (charset_symbol));
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
988 }
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
989 fontp->charset = charset;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
990 fontp->vertical_centering = 0;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
991 fontp->font_encoder = NULL;
21553
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
992
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
993 if (charset != charset_ascii)
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
994 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
995 fontp->vertical_centering
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
996 = (STRINGP (Vvertical_centering_font_regexp)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
997 && (fast_c_string_match_ignore_case
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
998 (Vvertical_centering_font_regexp, fontname) >= 0));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
999
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1000 if (find_ccl_program_func)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1001 (*find_ccl_program_func) (fontp);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1002 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1003
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1004 return fontp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1005 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1006
40028
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
1007 #if defined(WINDOWSNT) && defined (_MSC_VER)
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
1008 #pragma optimize("", on)
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
1009 #endif
392c2fe9edd7 (fs_load_font) [WINDOWSNT && _MSC_VER]: Disable
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
1010
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1011
88968
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
1012 /* Return ENCODING or a cons of ENCODING and REPERTORY of the font
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
1013 FONTNAME. ENCODING is a charset symbol that specifies the encoding
a35b7b45baa3 (fs_load_font): If fontp->charset is not negative,
Kenichi Handa <handa@m17n.org>
parents: 88931
diff changeset
1014 of the font. REPERTORY is a charset symbol or nil. */
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1015
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1016
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1017 static Lisp_Object
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1018 find_font_encoding (fontname)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1019 char *fontname;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1020 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1021 Lisp_Object tail, elt;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1022
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1023 for (tail = Vfont_encoding_alist; CONSP (tail); tail = XCDR (tail))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1024 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1025 elt = XCAR (tail);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1026 if (CONSP (elt)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1027 && STRINGP (XCAR (elt))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1028 && fast_c_string_match_ignore_case (XCAR (elt), fontname) >= 0
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1029 && (SYMBOLP (XCDR (elt))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1030 ? CHARSETP (XCDR (elt))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1031 : CONSP (XCDR (elt)) && CHARSETP (XCAR (XCDR (elt)))))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1032 return (XCDR (elt));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1033 }
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1034 /* We don't know the encoding of this font. */
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1035 return Qnil;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1036 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1037
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1038
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 /* Cache data used by fontset_pattern_regexp. The car part is a
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1040 pattern string containing at least one wild card, the cdr part is
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1041 the corresponding regular expression. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1042 static Lisp_Object Vcached_fontset_data;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1043
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1044 #define CACHED_FONTSET_NAME (SDATA (XCAR (Vcached_fontset_data)))
26164
d39ec0a27081 more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents: 25668
diff changeset
1045 #define CACHED_FONTSET_REGEX (XCDR (Vcached_fontset_data))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1046
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1047 /* If fontset name PATTERN contains any wild card, return regular
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048 expression corresponding to PATTERN. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1050 static Lisp_Object
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051 fontset_pattern_regexp (pattern)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052 Lisp_Object pattern;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1054 if (!index (SDATA (pattern), '*')
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1055 && !index (SDATA (pattern), '?'))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 /* PATTERN does not contain any wild cards. */
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1057 return Qnil;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059 if (!CONSP (Vcached_fontset_data)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1060 || strcmp (SDATA (pattern), CACHED_FONTSET_NAME))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062 /* We must at first update the cached data. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1063 char *regex = (char *) alloca (SCHARS (pattern) * 2 + 3);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1064 char *p0, *p1 = regex;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1065
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1066 /* Convert "*" to ".*", "?" to ".". */
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1067 *p1++ = '^';
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1068 for (p0 = (char *) SDATA (pattern); *p0; p0++)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1069 {
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1070 if (*p0 == '*')
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1071 {
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1072 *p1++ = '.';
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1073 *p1++ = '*';
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074 }
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1075 else if (*p0 == '?')
21127
577865651099 (fontset_pattern_regexp): `==' was used instead of `='.
Richard M. Stallman <rms@gnu.org>
parents: 20346
diff changeset
1076 *p1++ = '.';
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1077 else
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
1078 *p1++ = *p0;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1079 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1080 *p1++ = '$';
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1081 *p1++ = 0;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1082
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1083 Vcached_fontset_data = Fcons (build_string (SDATA (pattern)),
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1084 build_string (regex));
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1085 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1086
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1087 return CACHED_FONTSET_REGEX;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1088 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1089
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1090 /* Return ID of the base fontset named NAME. If there's no such
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1091 fontset, return -1. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1092
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1093 int
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1094 fs_query_fontset (name, regexpp)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1095 Lisp_Object name;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1096 int regexpp;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1097 {
34975
0d69e2d2724e (fontset_ref): Remove unused variable `i'.
Eli Zaretskii <eliz@gnu.org>
parents: 32978
diff changeset
1098 Lisp_Object tem;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1099 int i;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1100
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1101 name = Fdowncase (name);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1102 if (!regexpp)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1103 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1104 tem = Frassoc (name, Vfontset_alias_alist);
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
1105 if (NILP (tem))
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
1106 tem = Fassoc (name, Vfontset_alias_alist);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1107 if (CONSP (tem) && STRINGP (XCAR (tem)))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1108 name = XCAR (tem);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1109 else
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1110 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1111 tem = fontset_pattern_regexp (name);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1112 if (STRINGP (tem))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1113 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1114 name = tem;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1115 regexpp = 1;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1116 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1117 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1118 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1119
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1120 for (i = 0; i < ASIZE (Vfontset_table); i++)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1121 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1122 Lisp_Object fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1123 unsigned char *this_name;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1124
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1125 fontset = FONTSET_FROM_ID (i);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1126 if (NILP (fontset)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1127 || !BASE_FONTSET_P (fontset))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1128 continue;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1129
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1130 this_name = SDATA (FONTSET_NAME (fontset));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1131 if (regexpp
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1132 ? fast_c_string_match_ignore_case (name, this_name) >= 0
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1133 : !strcmp (SDATA (name), this_name))
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1134 return i;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1135 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1136 return -1;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1137 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1138
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1139
21553
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
1140 DEFUN ("query-fontset", Fquery_fontset, Squery_fontset, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1141 doc: /* Return the name of a fontset that matches PATTERN.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1142 The value is nil if there is no matching fontset.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1143 PATTERN can contain `*' or `?' as a wildcard
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1144 just as X font name matching algorithm allows.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1145 If REGEXPP is non-nil, PATTERN is a regular expression. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1146 (pattern, regexpp)
21553
2d7afcd11b72 (find_ccl_program_func): New variable.
Kenichi Handa <handa@m17n.org>
parents: 21514
diff changeset
1147 Lisp_Object pattern, regexpp;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1148 {
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1149 Lisp_Object fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1150 int id;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1151
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1152 (*check_window_system_func) ();
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1153
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1154 CHECK_STRING (pattern);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1155
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1156 if (SCHARS (pattern) == 0)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1157 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1158
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1159 id = fs_query_fontset (pattern, !NILP (regexpp));
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1160 if (id < 0)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1161 return Qnil;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1162
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1163 fontset = FONTSET_FROM_ID (id);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1164 return FONTSET_NAME (fontset);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1165 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1167 /* Return a list of base fontset names matching PATTERN on frame F. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1168
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169 Lisp_Object
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170 list_fontsets (f, pattern, size)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 FRAME_PTR f;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172 Lisp_Object pattern;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173 int size;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1174 {
34975
0d69e2d2724e (fontset_ref): Remove unused variable `i'.
Eli Zaretskii <eliz@gnu.org>
parents: 32978
diff changeset
1175 Lisp_Object frame, regexp, val;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1176 int id;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1177
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1178 XSETFRAME (frame, f);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1180 regexp = fontset_pattern_regexp (pattern);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1181 val = Qnil;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1182
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1183 for (id = 0; id < ASIZE (Vfontset_table); id++)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1184 {
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1185 Lisp_Object fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1186 unsigned char *name;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1187
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1188 fontset = FONTSET_FROM_ID (id);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1189 if (NILP (fontset)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1190 || !BASE_FONTSET_P (fontset)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1191 || !EQ (frame, FONTSET_FRAME (fontset)))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1192 continue;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1193 name = SDATA (FONTSET_NAME (fontset));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1194
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1195 if (STRINGP (regexp)
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1196 ? (fast_c_string_match_ignore_case (regexp, name) < 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1197 : strcmp (SDATA (pattern), name))
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1198 continue;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1199
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1200 val = Fcons (Fcopy_sequence (FONTSET_NAME (fontset)), val);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1201 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1203 return val;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1204 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1205
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1206
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1207 /* Free all realized fontsets whose base fontset is BASE. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1208
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1209 static void
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1210 free_realized_fontsets (base)
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1211 Lisp_Object base;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1212 {
88546
7471723e43b0 (Fclear_face_cache): Declare.
Dave Love <fx@gnu.org>
parents: 88500
diff changeset
1213 #if 0
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1214 int id;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1215
88482
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1216 /* For the moment, this doesn't work because free_realized_face
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1217 doesn't remove FACE from a cache. Until we find a solution, we
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1218 suppress this code, and simply use Fclear_face_cache even though
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1219 that is not efficient. */
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1220 BLOCK_INPUT;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1221 for (id = 0; id < ASIZE (Vfontset_table); id++)
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1222 {
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1223 Lisp_Object this = AREF (Vfontset_table, id);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1225 if (EQ (FONTSET_BASE (this), base))
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1226 {
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1227 Lisp_Object tail;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1228
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1229 for (tail = FONTSET_FACE_ALIST (this); CONSP (tail);
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1230 tail = XCDR (tail))
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1231 {
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1232 FRAME_PTR f = XFRAME (FONTSET_FRAME (this));
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1233 int face_id = XINT (XCDR (XCAR (tail)));
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1234 struct face *face = FACE_FROM_ID (f, face_id);
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1235
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1236 /* Face THIS itself is also freed by the following call. */
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1237 free_realized_face (f, face);
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1238 }
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1239 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1240 }
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1241 UNBLOCK_INPUT;
88482
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1242 #else /* not 0 */
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1243 Fclear_face_cache (Qt);
effba1417b74 (free_realized_fontsets): Call Fclear_face_cache instead
Kenichi Handa <handa@m17n.org>
parents: 88405
diff changeset
1244 #endif /* not 0 */
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1245 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1246
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1247
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1248 /* Check validity of NAME as a fontset name and return the
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1249 corresponding fontset. If not valid, signal an error.
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1250 If NAME is t, return Vdefault_fontset. */
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1251
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1252 static Lisp_Object
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1253 check_fontset_name (name)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1254 Lisp_Object name;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1255 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1256 int id;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1257
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1258 if (EQ (name, Qt))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1259 return Vdefault_fontset;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1260
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1261 CHECK_STRING (name);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1262 id = fs_query_fontset (name, 0);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1263 if (id < 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1264 error ("Fontset `%s' does not exist", SDATA (name));
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1265 return FONTSET_FROM_ID (id);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1266 }
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1267
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1268 static void
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1269 accumulate_script_ranges (arg, range, val)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1270 Lisp_Object arg, range, val;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1271 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1272 if (EQ (XCAR (arg), val))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1273 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1274 if (CONSP (range))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1275 XSETCDR (arg, Fcons (Fcons (XCAR (range), XCDR (range)), XCDR (arg)));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1276 else
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1277 XSETCDR (arg, Fcons (Fcons (range, range), XCDR (arg)));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1278 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1279 }
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1280
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1281
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1282 /* Return an ASCII font name generated from fontset name NAME and
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1283 ASCII font specification ASCII_SPEC. NAME is a string conforming
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1284 to XLFD. ASCII_SPEC is a vector:
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1285 [FAMILY WEIGHT SLANT SWIDTH ADSTYLE REGISTRY]. */
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1286
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1287 static INLINE Lisp_Object
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1288 generate_ascii_font_name (name, ascii_spec)
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1289 Lisp_Object name, ascii_spec;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1290 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1291 Lisp_Object vec;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1292 int i;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1293
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1294 vec = split_font_name_into_vector (name);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1295 for (i = FONT_SPEC_FAMILY_INDEX; i <= FONT_SPEC_ADSTYLE_INDEX; i++)
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1296 if (! NILP (AREF (ascii_spec, i)))
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1297 ASET (vec, 1 + i, AREF (ascii_spec, i));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1298 if (! NILP (AREF (ascii_spec, FONT_SPEC_REGISTRY_INDEX)))
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1299 ASET (vec, 12, AREF (ascii_spec, FONT_SPEC_REGISTRY_INDEX));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1300 return build_font_name_from_vector (vec);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1301 }
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1302
89614
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1303 static void
89687
c6c38fd3d18c (set_fontset_font): Fix args.
Kenichi Handa <handa@m17n.org>
parents: 89669
diff changeset
1304 set_fontset_font (arg, range)
c6c38fd3d18c (set_fontset_font): Fix args.
Kenichi Handa <handa@m17n.org>
parents: 89669
diff changeset
1305 Lisp_Object arg, range;
89614
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1306 {
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1307 Lisp_Object fontset, font_def, add;
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1308
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1309 fontset = XCAR (arg);
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1310 font_def = XCAR (XCDR (arg));
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1311 add = XCAR (XCDR (XCDR (arg)));
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1312 FONTSET_ADD (fontset, range, font_def, add);
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1313 free_realized_fontsets (fontset);
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1314 }
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1315
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1316
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1317 DEFUN ("set-fontset-font", Fset_fontset_font, Sset_fontset_font, 3, 5, 0,
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1318 doc: /*
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1319 Modify fontset NAME to use FONT-SPEC for TARGET characters.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1320
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1321 TARGET may be a cons; (FROM . TO), where FROM and TO are characters.
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1322 In that case, use FONT-SPEC for all characters in the range FROM and
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1323 TO (inclusive).
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1324
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1325 TARGET may be a script name symbol. In that case, use FONT-SPEC for
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1326 all characters that belong to the script.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1327
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1328 TARGET may be a charset. In that case, use FONT-SPEC for all
89669
6871c119b186 (Fset_fontset_font): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 89614
diff changeset
1329 characters in the charset.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1330
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1331 TARGET may be nil. In that case, use FONT-SPEC for any characters for
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1332 that no FONT-SPEC is specified.
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1333
88931
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1334 FONT-SPEC may be:
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1335 * A vector [ FAMILY WEIGHT SLANT WIDTH ADSTYLE REGISTRY ].
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1336 See the documentation of `set-face-attribute' for the detail of
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1337 these vector elements;
89337
6026c8e5664f (Fset_fontset_font): Fix indentation of docstring.
Kenichi Handa <handa@m17n.org>
parents: 89069
diff changeset
1338 * A cons (FAMILY . REGISTRY), where FAMILY is a font family name and
88931
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1339 REGISTRY is a font registry name;
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1340 * A font name string.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1341
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1342 Optional 4th argument FRAME, if non-nil, is a frame. This argument is
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1343 kept for backward compatibility and has no meaning.
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1344
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1345 Optional 5th argument ADD, if non-nil, specifies how to add FONT-SPEC
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1346 to the font specifications for TARGET previously set. If it is
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1347 `prepend', FONT-SPEC is prepended. If it is `append', FONT-SPEC is
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1348 appended. By default, FONT-SPEC overrides the previous settings. */)
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1349 (name, target, font_spec, frame, add)
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1350 Lisp_Object name, target, font_spec, frame, add;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1351 {
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1352 Lisp_Object fontset;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1353 Lisp_Object font_def, registry;
88931
74d18470865c (fontset_add): Declare args. Call make_number
Dave Love <fx@gnu.org>
parents: 88903
diff changeset
1354 Lisp_Object encoding, repertory;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1355 Lisp_Object range_list;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1356
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1357 fontset = check_fontset_name (name);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1358
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1359 /* The arg FRAME is kept for backward compatibility. We only check
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1360 the validity. */
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1361 if (!NILP (frame))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1362 CHECK_LIVE_FRAME (frame);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1363
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1364 if (VECTORP (font_spec))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1365 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1366 int j;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1367
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1368 if (ASIZE (font_spec) != FONT_SPEC_MAX_INDEX)
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1369 args_out_of_range (make_number (FONT_SPEC_MAX_INDEX),
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1370 make_number (ASIZE (font_spec)));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1371
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1372 font_spec = Fcopy_sequence (font_spec);
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1373 for (j = 0; j < FONT_SPEC_MAX_INDEX - 1; j++)
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1374 if (! NILP (AREF (font_spec, j)))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1375 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1376 CHECK_STRING (AREF (font_spec, j));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1377 ASET (font_spec, j, Fdowncase (AREF (font_spec, j)));
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1378 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1379 /* REGISTRY should not be omitted. */
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1380 CHECK_STRING (AREF (font_spec, FONT_SPEC_REGISTRY_INDEX));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1381 registry = Fdowncase (AREF (font_spec, FONT_SPEC_REGISTRY_INDEX));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1382 ASET (font_spec, FONT_SPEC_REGISTRY_INDEX, registry);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1383
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1384 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1385 else if (CONSP (font_spec))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1386 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1387 Lisp_Object family;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1388
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1389 family = XCAR (font_spec);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1390 registry = XCDR (font_spec);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1391
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1392 if (! NILP (family))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1393 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1394 CHECK_STRING (family);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1395 family = Fdowncase (family);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1396 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1397 CHECK_STRING (registry);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1398 registry = Fdowncase (registry);
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1399 font_spec = Fmake_vector (make_number (FONT_SPEC_MAX_INDEX), Qnil);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1400 ASET (font_spec, FONT_SPEC_FAMILY_INDEX, family);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1401 ASET (font_spec, FONT_SPEC_REGISTRY_INDEX, registry);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1402 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1403 else
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1404 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1405 CHECK_STRING (font_spec);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1406 font_spec = Fdowncase (font_spec);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1407 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1408
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1409 if (STRINGP (font_spec))
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1410 encoding = find_font_encoding ((char *) SDATA (font_spec));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1411 else
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1412 encoding = find_font_encoding ((char *) SDATA (registry));
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1413 if (NILP (encoding))
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1414 /* We don't know how to use this font. */
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1415 return Qnil;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1416 if (SYMBOLP (encoding))
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1417 {
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1418 CHECK_CHARSET (encoding);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1419 encoding = repertory = CHARSET_SYMBOL_ID (encoding);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1420 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1421 else
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1422 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1423 repertory = XCDR (encoding);
89826
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1424 encoding = XCAR (encoding);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1425 CHECK_CHARSET (encoding);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1426 encoding = CHARSET_SYMBOL_ID (encoding);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1427 if (! NILP (repertory) && SYMBOLP (repertory))
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1428 {
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1429 CHECK_CHARSET (repertory);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1430 repertory = CHARSET_SYMBOL_ID (repertory);
b17725d55ba2 (Fset_fontset_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89811
diff changeset
1431 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1432 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1433 font_def = Fmake_vector (make_number (3), font_spec);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1434 ASET (font_def, 1, encoding);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1435 ASET (font_def, 2, repertory);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1436
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1437 if (CHARACTERP (target))
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1438 range_list = Fcons (Fcons (target, target), Qnil);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1439 else if (CONSP (target))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1440 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1441 Lisp_Object from, to;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1442
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1443 from = Fcar (target);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1444 to = Fcdr (target);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1445 CHECK_CHARACTER (from);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1446 CHECK_CHARACTER (to);
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1447 range_list = Fcons (target, Qnil);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1448 }
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1449 else if (SYMBOLP (target) && !NILP (target))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1450 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1451 Lisp_Object script_list;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1452 Lisp_Object val;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1453
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1454 range_list = Qnil;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1455 script_list = XCHAR_TABLE (Vchar_script_table)->extras[0];
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1456 if (! NILP (Fmemq (target, script_list)))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1457 {
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1458 val = Fcons (target, Qnil);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1459 map_char_table (accumulate_script_ranges, Qnil, Vchar_script_table,
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1460 val);
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1461 range_list = XCDR (val);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1462 }
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1463 else if (CHARSETP (target))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1464 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1465 struct charset *charset;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1466
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1467 CHECK_CHARSET_GET_CHARSET (target, charset);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1468 if (EQ (target, Qascii))
89006
faa38aebf129 (Fset_fontset_font): Treate `ascii' as charset, not script.
Kenichi Handa <handa@m17n.org>
parents: 88982
diff changeset
1469 {
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1470 if (VECTORP (font_spec))
89006
faa38aebf129 (Fset_fontset_font): Treate `ascii' as charset, not script.
Kenichi Handa <handa@m17n.org>
parents: 88982
diff changeset
1471 font_spec = generate_ascii_font_name (FONTSET_NAME (fontset),
faa38aebf129 (Fset_fontset_font): Treate `ascii' as charset, not script.
Kenichi Handa <handa@m17n.org>
parents: 88982
diff changeset
1472 font_spec);
faa38aebf129 (Fset_fontset_font): Treate `ascii' as charset, not script.
Kenichi Handa <handa@m17n.org>
parents: 88982
diff changeset
1473 FONTSET_ASCII (fontset) = font_spec;
89614
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1474 range_list = Fcons (Fcons (make_number (0), make_number (127)),
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1475 Qnil);
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1476 }
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1477 else
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1478 {
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1479 map_charset_chars (set_fontset_font, Qnil,
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1480 list3 (fontset, font_def, add), charset,
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1481 CHARSET_MIN_CODE (charset),
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1482 CHARSET_MAX_CODE (charset));
355fc0282e50 (set_fontset_font): New function.
Kenichi Handa <handa@m17n.org>
parents: 89610
diff changeset
1483 return Qnil;
89006
faa38aebf129 (Fset_fontset_font): Treate `ascii' as charset, not script.
Kenichi Handa <handa@m17n.org>
parents: 88982
diff changeset
1484 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1485 }
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1486
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1487 if (NILP (range_list))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1488 error ("Invalid script or charset name: %s",
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1489 SDATA (SYMBOL_NAME (target)));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1490 }
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1491 else if (NILP (target))
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1492 range_list = Fcons (Qnil, Qnil);
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1493 else
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1494 error ("Invalid target for setting a font");
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1495
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1496 for (; CONSP (range_list); range_list = XCDR (range_list))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1497 FONTSET_ADD (fontset, XCAR (range_list), font_def, add);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1498
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1499 /* Free all realized fontsets whose base is FONTSET. This way, the
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1500 specified character(s) are surely redisplayed by a correct
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1501 font. */
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1502 free_realized_fontsets (fontset);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1503
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1504 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1505 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1506
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1507
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1508 DEFUN ("new-fontset", Fnew_fontset, Snew_fontset, 2, 2, 0,
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1509 doc: /* Create a new fontset NAME from font information in FONTLIST.
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1510
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1511 FONTLIST is an alist of scripts vs the corresponding font specification list.
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1512 Each element of FONTLIST has the form (SCRIPT FONT-SPEC ...), where a
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1513 character of SCRIPT is displayed by a font that matches one of
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1514 FONT-SPEC.
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1515
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1516 SCRIPT is a symbol that appears in the first extra slot of the
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1517 char-table `char-script-table'.
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1518
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1519 FONT-SPEC is a vector, a cons, or a string. See the documentation of
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1520 `set-fontset-font' for the meaning. */)
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1521 (name, fontlist)
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1522 Lisp_Object name, fontlist;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1523 {
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1524 Lisp_Object fontset;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1525 Lisp_Object val;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1526 int id;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1527
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1528 CHECK_STRING (name);
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1529 CHECK_LIST (fontlist);
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1530
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1531 id = fs_query_fontset (name, 0);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1532 if (id < 0)
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1533 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1534 name = Fdowncase (name);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1535 val = split_font_name_into_vector (name);
89603
7f9f2d025eee (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89572
diff changeset
1536 if (NILP (val) || NILP (AREF (val, 12)) || NILP (AREF (val, 13)))
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1537 error ("Fontset name must be in XLFD format");
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
1538 if (strcmp (SDATA (AREF (val, 12)), "fontset"))
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1539 error ("Registry field of fontset name must be \"fontset\"");
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1540 Vfontset_alias_alist
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1541 = Fcons (Fcons (name,
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1542 concat2 (concat2 (AREF (val, 12), build_string ("-")),
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1543 AREF (val, 13))),
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1544 Vfontset_alias_alist);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1545 ASET (val, 12, build_string ("iso8859-1"));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1546 fontset = make_fontset (Qnil, name, Qnil);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1547 FONTSET_ASCII (fontset) = build_font_name_from_vector (val);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1548 }
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1549 else
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1550 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1551 fontset = FONTSET_FROM_ID (id);;
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1552 free_realized_fontsets (fontset);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1553 Fset_char_table_range (fontset, Qt, Qnil);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1554 }
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1555
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1556 for (; ! NILP (fontlist); fontlist = Fcdr (fontlist))
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1557 {
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1558 Lisp_Object elt, script;
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1559
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1560 elt = Fcar (fontlist);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1561 script = Fcar (elt);
89607
9090f7eba02c (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89603
diff changeset
1562 elt = Fcdr (elt);
9090f7eba02c (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89603
diff changeset
1563 if (CONSP (elt) && (NILP (XCDR (elt)) || CONSP (XCDR (elt))))
9090f7eba02c (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89603
diff changeset
1564 for (; CONSP (elt); elt = XCDR (elt))
9090f7eba02c (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89603
diff changeset
1565 Fset_fontset_font (name, script, XCAR (elt), Qnil, Qappend);
9090f7eba02c (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89603
diff changeset
1566 else
9090f7eba02c (Fnew_fontset): Check NAME more rigidly.
Kenichi Handa <handa@m17n.org>
parents: 89603
diff changeset
1567 Fset_fontset_font (name, script, elt, Qnil, Qappend);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1568 }
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1569 return name;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1570 }
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1571
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1572
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1573 /* Alist of automatically created fontsets. Each element is a cons
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1574 (FONTNAME . FONTSET-ID). */
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1575 static Lisp_Object auto_fontset_alist;
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1576
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1577 int
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1578 new_fontset_from_font_name (Lisp_Object fontname)
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1579 {
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1580 Lisp_Object val;
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1581 Lisp_Object name;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1582 Lisp_Object vec;
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1583 int id;
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1584
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1585 fontname = Fdowncase (fontname);
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1586 val = Fassoc (fontname, auto_fontset_alist);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1587 if (CONSP (val))
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1588 return XINT (XCDR (val));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1589
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1590 vec = split_font_name_into_vector (fontname);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1591 if ( NILP (vec))
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1592 vec = Fmake_vector (make_number (14), build_string (""));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1593 ASET (vec, 12, build_string ("fontset"));
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1594 if (NILP (auto_fontset_alist))
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1595 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1596 ASET (vec, 13, build_string ("startup"));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1597 name = build_font_name_from_vector (vec);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1598 }
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1599 else
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1600 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1601 char temp[20];
89865
d2b1cc2ef7f1 Include "intervals.h".
Kenichi Handa <handa@m17n.org>
parents: 89826
diff changeset
1602 int len = XINT (Flength (auto_fontset_alist));
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1603
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1604 sprintf (temp, "auto%d", len);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1605 ASET (vec, 13, build_string (temp));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1606 name = build_font_name_from_vector (vec);
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1607 }
89711
fca3686ff6bb (new_fontset_from_font_name): Use the specified font
Kenichi Handa <handa@m17n.org>
parents: 89699
diff changeset
1608 name = Fnew_fontset (name, Fcons (Fcons (Fcons (make_number (0),
fca3686ff6bb (new_fontset_from_font_name): Use the specified font
Kenichi Handa <handa@m17n.org>
parents: 89699
diff changeset
1609 make_number (MAX_CHAR)),
fca3686ff6bb (new_fontset_from_font_name): Use the specified font
Kenichi Handa <handa@m17n.org>
parents: 89699
diff changeset
1610 Fcons (fontname, Qnil)),
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1611 Qnil));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1612 id = fs_query_fontset (name, 0);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1613 auto_fontset_alist
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1614 = Fcons (Fcons (fontname, make_number (id)), auto_fontset_alist);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1615 return id;
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1616 }
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1617
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1618
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1619 DEFUN ("font-info", Ffont_info, Sfont_info, 1, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1620 doc: /* Return information about a font named NAME on frame FRAME.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1621 If FRAME is omitted or nil, use the selected frame.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1622 The returned value is a vector of OPENED-NAME, FULL-NAME, CHARSET, SIZE,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1623 HEIGHT, BASELINE-OFFSET, RELATIVE-COMPOSE, and DEFAULT-ASCENT,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1624 where
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1625 OPENED-NAME is the name used for opening the font,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1626 FULL-NAME is the full name of the font,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1627 SIZE is the maximum bound width of the font,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1628 HEIGHT is the height of the font,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1629 BASELINE-OFFSET is the upward offset pixels from ASCII baseline,
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1630 RELATIVE-COMPOSE and DEFAULT-ASCENT are the numbers controlling
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1631 how to compose characters.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1632 If the named font is not yet loaded, return nil. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1633 (name, frame)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1634 Lisp_Object name, frame;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 FRAME_PTR f;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637 struct font_info *fontp;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1638 Lisp_Object info;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1639
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1640 (*check_window_system_func) ();
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1642 CHECK_STRING (name);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1643 name = Fdowncase (name);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1644 if (NILP (frame))
25668
99290b59352d (Ffont_info): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents: 24611
diff changeset
1645 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1646 CHECK_LIVE_FRAME (frame);
25668
99290b59352d (Ffont_info): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents: 24611
diff changeset
1647 f = XFRAME (frame);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1649 if (!query_font_func)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1650 error ("Font query function is not supported");
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45848
diff changeset
1652 fontp = (*query_font_func) (f, SDATA (name));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 if (!fontp)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 return Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1655
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1656 info = Fmake_vector (make_number (7), Qnil);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1657
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1658 XVECTOR (info)->contents[0] = build_string (fontp->name);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1659 XVECTOR (info)->contents[1] = build_string (fontp->full_name);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1660 XVECTOR (info)->contents[2] = make_number (fontp->size);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1661 XVECTOR (info)->contents[3] = make_number (fontp->height);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1662 XVECTOR (info)->contents[4] = make_number (fontp->baseline_offset);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1663 XVECTOR (info)->contents[5] = make_number (fontp->relative_compose);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1664 XVECTOR (info)->contents[6] = make_number (fontp->default_ascent);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1665
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1666 return info;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1667 }
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1668
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1669
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1670 /* Return the font name for the character at POSITION in the current
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1671 buffer. This is computed from all the text properties and overlays
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1672 that apply to POSITION. It returns nil in the following cases:
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1673
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1674 (1) The window system doesn't have a font for the character (thus
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1675 it is displayed by an empty box).
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1676
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1677 (2) The character code is invalid.
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1678
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1679 (3) The current buffer is not displayed in any window.
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1680
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1681 In addition, the returned font name may not take into account of
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1682 such redisplay engine hooks as what used in jit-lock-mode if
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1683 POSITION is currently not visible. */
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1684
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1685
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1686 DEFUN ("internal-char-font", Finternal_char_font, Sinternal_char_font, 1, 1, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1687 doc: /* For internal use only. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1688 (position)
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1689 Lisp_Object position;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1690 {
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1691 int pos, pos_byte, dummy;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1692 int face_id;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1693 int c;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1694 Lisp_Object window;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1695 struct window *w;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1696 struct frame *f;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1697 struct face *face;
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1698 Lisp_Object charset, rfont_def;
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1699 int charset_id;
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1700
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1701 CHECK_NUMBER_COERCE_MARKER (position);
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1702 pos = XINT (position);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1703 if (pos < BEGV || pos >= ZV)
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1704 args_out_of_range_3 (position, make_number (BEGV), make_number (ZV));
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1705 pos_byte = CHAR_TO_BYTE (pos);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1706 c = FETCH_CHAR (pos_byte);
30941
ac162a21c419 (Finternal_char_font): Search only the selected frame for a window of
Kenichi Handa <handa@m17n.org>
parents: 30398
diff changeset
1707 window = Fget_buffer_window (Fcurrent_buffer (), Qnil);
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1708 if (NILP (window))
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1709 return Qnil;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1710 w = XWINDOW (window);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1711 f = XFRAME (w->frame);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1712 face_id = face_at_buffer_position (w, pos, -1, -1, &dummy, pos + 100, 0);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1713 face = FACE_FROM_ID (f, face_id);
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1714 charset = Fget_char_property (position, Qcharset, Qnil);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1715 if (CHARSETP (charset))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1716 charset_id = XINT (CHARSET_SYMBOL_ID (charset));
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1717 else
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1718 charset_id = -1;
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1719 rfont_def = fontset_font (FONTSET_FROM_ID (face->fontset),
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1720 c, face, charset_id);
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1721 return (VECTORP (rfont_def) && STRINGP (AREF (rfont_def, 3))
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1722 ? AREF (rfont_def, 3)
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1723 : Qnil);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1724 }
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1725
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1726
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1727 DEFUN ("fontset-info", Ffontset_info, Sfontset_info, 1, 2, 0,
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1728 doc: /* Return information about a fontset FONTSET on frame FRAME.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1729 The value is a char-table of which elements has this form.
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1730
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1731 ((FONT-PATTERN OPENED-FONT ...) ...)
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1732
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1733 FONT-PATTERN is a vector:
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1734
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1735 [ FAMILY WEIGHT SLANT SWIDTH ADSTYLE REGISTRY ]
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1736
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1737 or a string of font name pattern.
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1738
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1739 OPENED-FONT is a name of a font actually opened.
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1740
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1741 The char-table has one extra slot. The value is a char-table
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1742 containing the information about the derived fonts from the default
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1743 fontset. The format is the same as abobe. */)
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1744 (fontset, frame)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1745 Lisp_Object fontset, frame;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1746 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1747 FRAME_PTR f;
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1748 Lisp_Object *realized[2], fontsets[2], tables[2];
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1749 Lisp_Object val, elt;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1750 int c, i, j, k;
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
1751
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1752 (*check_window_system_func) ();
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1753
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1754 fontset = check_fontset_name (fontset);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1755
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1756 if (NILP (frame))
25668
99290b59352d (Ffont_info): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents: 24611
diff changeset
1757 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40028
diff changeset
1758 CHECK_LIVE_FRAME (frame);
25668
99290b59352d (Ffont_info): Change for Lisp_Object selected_frame.
Gerd Moellmann <gerd@gnu.org>
parents: 24611
diff changeset
1759 f = XFRAME (frame);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1760
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1761 /* Recode fontsets realized on FRAME from the base fontset FONTSET
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1762 in the table `realized'. */
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1763 realized[0] = (Lisp_Object *) alloca (sizeof (Lisp_Object)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1764 * ASIZE (Vfontset_table));
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1765 for (i = j = 0; i < ASIZE (Vfontset_table); i++)
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1766 {
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1767 elt = FONTSET_FROM_ID (i);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1768 if (!NILP (elt)
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1769 && EQ (FONTSET_BASE (elt), fontset)
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1770 && EQ (FONTSET_FRAME (elt), frame))
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1771 realized[0][j++] = elt;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1772 }
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1773 realized[0][j] = Qnil;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1774
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1775 realized[1] = (Lisp_Object *) alloca (sizeof (Lisp_Object)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1776 * ASIZE (Vfontset_table));
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1777 for (i = j = 0; ! NILP (realized[0][i]); i++)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1778 {
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1779 elt = FONTSET_DEFAULT (realized[0][i]);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1780 if (! NILP (elt))
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1781 realized[1][j++] = elt;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1782 }
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1783 realized[1][j] = Qnil;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1784
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1785 tables[0] = Fmake_char_table (Qfontset_info, Qnil);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1786 tables[1] = Fmake_char_table (Qnil, Qnil);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1787 XCHAR_TABLE (tables[0])->extras[0] = tables[1];
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1788 fontsets[0] = fontset;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1789 fontsets[1] = Vdefault_fontset;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1790
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1791 /* Accumulate information of the fontset in TABLE. The format of
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1792 each element is ((FONT-SPEC OPENED-FONT ...) ...). */
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1793 for (k = 0; k <= 1; k++)
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1794 {
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1795 for (c = 0; c <= MAX_CHAR; )
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1796 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1797 int from, to;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1798
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1799 if (c <= MAX_5_BYTE_CHAR)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1800 {
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1801 val = char_table_ref_and_range (fontsets[k], c, &from, &to);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1802 if (to > MAX_5_BYTE_CHAR)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1803 to = MAX_5_BYTE_CHAR;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1804 }
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1805 else
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1806 {
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1807 val = FONTSET_FALLBACK (fontsets[k]);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1808 to = MAX_CHAR;
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1809 }
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1810 if (VECTORP (val))
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1811 {
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1812 Lisp_Object alist;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1813
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1814 /* At first, set ALIST to ((FONT-SPEC) ...). */
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1815 for (alist = Qnil, i = 0; i < ASIZE (val); i++)
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1816 alist = Fcons (Fcons (AREF (AREF (val, i), 0), Qnil), alist);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1817 alist = Fnreverse (alist);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1818
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1819 /* Then store opend font names to cdr of each elements. */
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1820 for (i = 0; ! NILP (realized[k][i]); i++)
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1821 {
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1822 if (c <= MAX_5_BYTE_CHAR)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1823 val = FONTSET_REF (realized[k][i], c);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1824 else
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1825 val = FONTSET_FALLBACK (realized[k][i]);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1826 if (! VECTORP (val))
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1827 continue;
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1828 /* VAL is [int int ?
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1829 [FACE-ID FONT-INDEX FONT-DEF FONT-NAME] ...].
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1830 If a font of an element is already opened,
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1831 FONT-NAME is the name of a opened font. */
89699
cda6f41a592e (reorder_font_vector): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 89687
diff changeset
1832 for (j = 3; j < ASIZE (val); j++)
89898
0167306cb580 (fontset_font): Renamed from fontset_face. Return
Kenichi Handa <handa@m17n.org>
parents: 89865
diff changeset
1833 if (STRINGP (AREF (AREF (val, j), 3)))
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1834 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1835 Lisp_Object font_idx;
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1836
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1837 font_idx = AREF (AREF (val, j), 1);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1838 elt = Fassq (AREF (AREF (AREF (val, j), 2), 0), alist);
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1839 if (CONSP (elt)
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1840 && NILP (Fmemq (font_idx, XCDR(elt))))
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1841 nconc2 (elt, Fcons (font_idx, Qnil));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1842 }
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1843 }
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1844 for (val = alist; CONSP (val); val = XCDR (val))
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1845 for (elt = XCDR (XCAR (val)); CONSP (elt); elt = XCDR (elt))
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1846 {
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1847 struct font_info *font_info
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1848 = (*get_font_info_func) (f, XINT (XCAR (elt)));
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1849 XSETCAR (elt, build_string (font_info->full_name));
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1850 }
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1851
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1852 /* Store ALIST in TBL for characters C..TO. */
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1853 if (c <= MAX_5_BYTE_CHAR)
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1854 char_table_set_range (tables[k], c, to, alist);
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1855 else
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1856 XCHAR_TABLE (tables[k])->defalt = alist;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1857 }
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1858 c = to + 1;
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1859 }
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1860 }
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1861
89811
d13626b05df3 (fontset_face): Handle fallback fonts correctly.
Kenichi Handa <handa@m17n.org>
parents: 89805
diff changeset
1862 return tables[0];
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1863 }
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1864
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1865
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1866 DEFUN ("fontset-font", Ffontset_font, Sfontset_font, 2, 2, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1867 doc: /* Return a font name pattern for character CH in fontset NAME.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1868 If NAME is t, find a font name pattern in the default fontset. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1869 (name, ch)
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1870 Lisp_Object name, ch;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1871 {
34975
0d69e2d2724e (fontset_ref): Remove unused variable `i'.
Eli Zaretskii <eliz@gnu.org>
parents: 32978
diff changeset
1872 int c;
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1873 Lisp_Object fontset, elt;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1874
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1875 fontset = check_fontset_name (name);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1876
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1877 CHECK_CHARACTER (ch);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1878 c = XINT (ch);
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1879 elt = FONTSET_REF (fontset, c);
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1880 return Fcopy_sequence (elt);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1881 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1882
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1883 DEFUN ("fontset-list", Ffontset_list, Sfontset_list, 0, 0, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1884 doc: /* Return a list of all defined fontset names. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
1885 ()
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1886 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1887 Lisp_Object fontset, list;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1888 int i;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1889
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1890 list = Qnil;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1891 for (i = 0; i < ASIZE (Vfontset_table); i++)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1892 {
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1893 fontset = FONTSET_FROM_ID (i);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1894 if (!NILP (fontset)
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1895 && BASE_FONTSET_P (fontset))
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1896 list = Fcons (FONTSET_NAME (fontset), list);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1897 }
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1898
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1899 return list;
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1900 }
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1901
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1902
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1903 #ifdef FONTSET_DEBUG
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1904
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1905 Lisp_Object
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1906 dump_fontset (fontset)
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1907 Lisp_Object fontset;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1908 {
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1909 Lisp_Object vec;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1910
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1911 vec = Fmake_vector (make_number (3), Qnil);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1912 ASET (vec, 0, FONTSET_ID (fontset));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1913
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1914 if (BASE_FONTSET_P (fontset))
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1915 {
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1916 ASET (vec, 1, FONTSET_NAME (fontset));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1917 }
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1918 else
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1919 {
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1920 Lisp_Object frame;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1921
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1922 frame = FONTSET_FRAME (fontset);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1923 if (FRAMEP (frame))
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1924 {
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1925 FRAME_PTR f = XFRAME (frame);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1926
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1927 if (FRAME_LIVE_P (f))
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1928 ASET (vec, 1, f->name);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1929 else
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1930 ASET (vec, 1, Qt);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1931 }
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1932 if (!NILP (FONTSET_DEFAULT (fontset)))
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1933 ASET (vec, 2, FONTSET_ID (FONTSET_DEFAULT (fontset)));
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1934 }
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1935 return vec;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1936 }
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1937
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1938 DEFUN ("fontset-list-all", Ffontset_list_all, Sfontset_list_all, 0, 0, 0,
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1939 doc: /* Return a brief summary of all fontsets for debug use. */)
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1940 ()
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1941 {
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1942 Lisp_Object val;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1943 int i;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1944
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1945 for (i = 0, val = Qnil; i < ASIZE (Vfontset_table); i++)
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1946 if (! NILP (AREF (Vfontset_table, i)))
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1947 val = Fcons (dump_fontset (AREF (Vfontset_table, i)), val);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1948 return (Fnreverse (val));
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1949 }
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1950 #endif /* FONTSET_DEBUG */
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1951
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21127
diff changeset
1952 void
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1953 syms_of_fontset ()
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1954 {
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1955 if (!load_font_func)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1956 /* Window system initializer should have set proper functions. */
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1957 abort ();
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1958
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1959 DEFSYM (Qfontset, "fontset");
89805
35a0a24752d3 (FONTSET_DEFAULT): New macro.
Kenichi Handa <handa@m17n.org>
parents: 89711
diff changeset
1960 Fput (Qfontset, Qchar_table_extra_slots, make_number (9));
89349
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1961 DEFSYM (Qfontset_info, "fontset-info");
9a305cf42688 Give 8 extra slots to fontset objects.
Kenichi Handa <handa@m17n.org>
parents: 89337
diff changeset
1962 Fput (Qfontset_info, Qchar_table_extra_slots, make_number (1));
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1963
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1964 DEFSYM (Qprepend, "prepend");
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1965 DEFSYM (Qappend, "append");
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
1966
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1967 Vcached_fontset_data = Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1968 staticpro (&Vcached_fontset_data);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1969
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1970 Vfontset_table = Fmake_vector (make_number (32), Qnil);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1971 staticpro (&Vfontset_table);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1972
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1973 Vdefault_fontset = Fmake_char_table (Qfontset, Qnil);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
1974 staticpro (&Vdefault_fontset);
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1975 FONTSET_ID (Vdefault_fontset) = make_number (0);
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1976 FONTSET_NAME (Vdefault_fontset)
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1977 = build_string ("-*-*-*-*-*-*-*-*-*-*-*-*-fontset-default");
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1978 {
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1979 Lisp_Object default_ascii_font;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1980
32790
131348208699 (syms_of_fontset) [WINDOWSNT]: Special case for ASCII font of default
Jason Rumney <jasonr@gnu.org>
parents: 32752
diff changeset
1981 #if defined (macintosh)
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1982 default_ascii_font
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1983 = build_string ("-apple-monaco-medium-r-*--*-120-*-*-*-*-mac-roman");
32790
131348208699 (syms_of_fontset) [WINDOWSNT]: Special case for ASCII font of default
Jason Rumney <jasonr@gnu.org>
parents: 32752
diff changeset
1984 #elif defined (WINDOWSNT)
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1985 default_ascii_font
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1986 = build_string ("-*-courier new-normal-r-*-*-*-100-*-*-*-*-iso8859-1");
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 31102
diff changeset
1987 #else
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1988 default_ascii_font
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1989 = build_string ("-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 31102
diff changeset
1990 #endif
88405
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1991 FONTSET_ASCII (Vdefault_fontset) = default_ascii_font;
8ae0d0693ed9 Mostly re-written.
Kenichi Handa <handa@m17n.org>
parents: 41987
diff changeset
1992 }
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1993 AREF (Vfontset_table, 0) = Vdefault_fontset;
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
1994 next_fontset_id = 1;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1995
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1996 auto_fontset_alist = Qnil;
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1997 staticpro (&auto_fontset_alist);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
1998
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1999 DEFVAR_LISP ("font-encoding-alist", &Vfont_encoding_alist,
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2000 doc: /*
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2001 Alist of fontname patterns vs the corresponding encoding and repertory info.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2002 Each element looks like (REGEXP . (ENCODING . REPERTORY)),
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2003 where ENCODING is a charset or a char-table,
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89428
diff changeset
2004 and REPERTORY is a charset, a char-table, or nil.
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2005
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2006 ENCODING is for converting a character to a glyph code of the font.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2007 If ENCODING is a charset, encoding a character by the charset gives
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2008 the corresponding glyph code. If ENCODING is a char-table, looking up
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2009 the table by a character gives the corresponding glyph code.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2010
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2011 REPERTORY specifies a repertory of characters supported by the font.
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2012 If REPERTORY is a charset, all characters beloging to the charset are
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2013 supported. If REPERTORY is a char-table, all characters who have a
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2014 non-nil value in the table are supported. It REPERTORY is nil, Emacs
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2015 gets the repertory information by an opened font and ENCODING. */);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2016 Vfont_encoding_alist = Qnil;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2017
17112
5c48ff325655 (syms_of_fontset): Intern Qfontset. Declare new lisp
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
2018 DEFVAR_LISP ("use-default-ascent", &Vuse_default_ascent,
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2019 doc: /*
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2020 Char table of characters whose ascent values should be ignored.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2021 If an entry for a character is non-nil, the ascent value of the glyph
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2022 is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2023
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2024 This affects how a composite character which contains
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2025 such a character is displayed on screen. */);
19282
09a1536debb4 (Vignore_relative_composition): New variable.
Kenichi Handa <handa@m17n.org>
parents: 19172
diff changeset
2026 Vuse_default_ascent = Qnil;
09a1536debb4 (Vignore_relative_composition): New variable.
Kenichi Handa <handa@m17n.org>
parents: 19172
diff changeset
2027
09a1536debb4 (Vignore_relative_composition): New variable.
Kenichi Handa <handa@m17n.org>
parents: 19172
diff changeset
2028 DEFVAR_LISP ("ignore-relative-composition", &Vignore_relative_composition,
88903
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2029 doc: /*
d32a3736c4fe (Qprepend, Qappend): New variables.
Kenichi Handa <handa@m17n.org>
parents: 88857
diff changeset
2030 Char table of characters which is not composed relatively.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2031 If an entry for a character is non-nil, a composition sequence
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2032 which contains that character is displayed so that
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2033 the glyph of that character is put without considering
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2034 an ascent and descent value of a previous character. */);
26858
7cc081b4e084 (Vvertical_centering_font_regexp): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26164
diff changeset
2035 Vignore_relative_composition = Qnil;
17112
5c48ff325655 (syms_of_fontset): Intern Qfontset. Declare new lisp
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
2036
19450
895dc2520755 (Valternate_fontname_alist): Name changed from
Kenichi Handa <handa@m17n.org>
parents: 19282
diff changeset
2037 DEFVAR_LISP ("alternate-fontname-alist", &Valternate_fontname_alist,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2038 doc: /* Alist of fontname vs list of the alternate fontnames.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2039 When a specified font name is not found, the corresponding
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2040 alternate fontnames (if any) are tried instead. */);
19450
895dc2520755 (Valternate_fontname_alist): Name changed from
Kenichi Handa <handa@m17n.org>
parents: 19282
diff changeset
2041 Valternate_fontname_alist = Qnil;
17193
dc4562b0152a (Valternative_fontname_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17190
diff changeset
2042
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
2043 DEFVAR_LISP ("fontset-alias-alist", &Vfontset_alias_alist,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2044 doc: /* Alist of fontset names vs the aliases. */);
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
2045 Vfontset_alias_alist = Fcons (Fcons (FONTSET_NAME (Vdefault_fontset),
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
2046 build_string ("fontset-default")),
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
2047 Qnil);
17730
4bbcc6804b5d (Vfontset_alias_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 17331
diff changeset
2048
26858
7cc081b4e084 (Vvertical_centering_font_regexp): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26164
diff changeset
2049 DEFVAR_LISP ("vertical-centering-font-regexp",
7cc081b4e084 (Vvertical_centering_font_regexp): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26164
diff changeset
2050 &Vvertical_centering_font_regexp,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2051 doc: /* *Regexp matching font names that require vertical centering on display.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40771
diff changeset
2052 When a character is displayed with such fonts, the character is displayed
41987
34952771ae85 Fix typos, remove unnecessary space.
Pavel Janík <Pavel@Janik.cz>
parents: 41052
diff changeset
2053 at the vertical center of lines. */);
26858
7cc081b4e084 (Vvertical_centering_font_regexp): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26164
diff changeset
2054 Vvertical_centering_font_regexp = Qnil;
7cc081b4e084 (Vvertical_centering_font_regexp): New variable.
Kenichi Handa <handa@m17n.org>
parents: 26164
diff changeset
2055
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2056 defsubr (&Squery_fontset);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2057 defsubr (&Snew_fontset);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2058 defsubr (&Sset_fontset_font);
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2059 defsubr (&Sfont_info);
28963
24af4ff8f7b6 Include "buffer.h".
Kenichi Handa <handa@m17n.org>
parents: 28766
diff changeset
2060 defsubr (&Sinternal_char_font);
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2061 defsubr (&Sfontset_info);
28223
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
2062 defsubr (&Sfontset_font);
b888c69e8bf0 All codes rewritten or adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents: 26858
diff changeset
2063 defsubr (&Sfontset_list);
89610
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
2064 #ifdef FONTSET_DEBUG
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
2065 defsubr (&Sfontset_list_all);
3aa74296be55 (fontset_face): Create a fallback fontset on demand
Kenichi Handa <handa@m17n.org>
parents: 89607
diff changeset
2066 #endif
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2067 }