annotate src/xfaces.c @ 72000:8c5ba642d479

(minibuffer-local-map): Rebind TAB so it inserts a \t.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 Jul 2006 14:39:57 +0000
parents 760807463226
children c594a1694d31 02e39decdc84 8a8e69664178
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1 /* xfaces.c -- "Face" primitives.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64578
diff changeset
2 Copyright (C) 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 67130
diff changeset
3 2005, 2006 Free Software Foundation, Inc.
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
4
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 This file is part of GNU Emacs.
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 any later version.
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 GNU General Public License for more details.
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63705
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63705
diff changeset
20 Boston, MA 02110-1301, USA. */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
22 /* New face implementation by Gerd Moellmann <gerd@gnu.org>. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
23
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
24 /* Faces.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
25
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
26 When using Emacs with X, the display style of characters can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
27 changed by defining `faces'. Each face can specify the following
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
28 display attributes:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
29
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
30 1. Font family name.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
31
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
32 2. Relative proportionate width, aka character set width or set
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
33 width (swidth), e.g. `semi-compressed'.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
34
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
35 3. Font height in 1/10pt.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
36
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
37 4. Font weight, e.g. `bold'.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
38
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
39 5. Font slant, e.g. `italic'.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
40
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
41 6. Foreground color.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
42
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
43 7. Background color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
44
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
45 8. Whether or not characters should be underlined, and in what color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
46
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
47 9. Whether or not characters should be displayed in inverse video.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
48
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
49 10. A background stipple, a bitmap.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
50
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
51 11. Whether or not characters should be overlined, and in what color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
52
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
53 12. Whether or not characters should be strike-through, and in what
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
54 color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
55
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
56 13. Whether or not a box should be drawn around characters, the box
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
57 type, and, for simple boxes, in what color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
58
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
59 14. Font or fontset pattern, or nil. This is a special attribute.
36946
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36942
diff changeset
60 When this attribute is specified, the face uses a font opened by
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
61 that pattern as is. In addition, all the other font-related
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
62 attributes (1st thru 5th) are generated from the opened font name.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
63 On the other hand, if one of the other font-related attributes are
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
64 specified, this attribute is set to nil. In that case, the face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
65 doesn't inherit this attribute from the `default' face, and uses a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
66 font determined by the other attributes (those may be inherited
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
67 from the `default' face).
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
68
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
69 15. A face name or list of face names from which to inherit attributes.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
70
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
71 16. A specified average font width, which is invisible from Lisp,
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
72 and is used to ensure that a font specified on the command line,
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
73 for example, can be matched exactly.
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
74
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
75 Faces are frame-local by nature because Emacs allows to define the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
76 same named face (face names are symbols) differently for different
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
77 frames. Each frame has an alist of face definitions for all named
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
78 faces. The value of a named face in such an alist is a Lisp vector
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
79 with the symbol `face' in slot 0, and a slot for each of the face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
80 attributes mentioned above.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
81
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
82 There is also a global face alist `Vface_new_frame_defaults'. Face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
83 definitions from this list are used to initialize faces of newly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
84 created frames.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
85
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
86 A face doesn't have to specify all attributes. Those not specified
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
87 have a value of `unspecified'. Faces specifying all attributes but
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
88 the 14th are called `fully-specified'.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
89
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
90
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
91 Face merging.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
92
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
93 The display style of a given character in the text is determined by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
94 combining several faces. This process is called `face merging'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
95 Any aspect of the display style that isn't specified by overlays or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
96 text properties is taken from the `default' face. Since it is made
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
97 sure that the default face is always fully-specified, face merging
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
98 always results in a fully-specified face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
99
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
101 Face realization.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
102
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
103 After all face attributes for a character have been determined by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
104 merging faces of that character, that face is `realized'. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
105 realization process maps face attributes to what is physically
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
106 available on the system where Emacs runs. The result is a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
107 `realized face' in form of a struct face which is stored in the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
108 face cache of the frame on which it was realized.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
109
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
110 Face realization is done in the context of the character to display
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
111 because different fonts may be used for different characters. In
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
112 other words, for characters that have different font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
113 specifications, different realized faces are needed to display
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
114 them.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
115
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
116 Font specification is done by fontsets. See the comment in
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
117 fontset.c for the details. In the current implementation, all ASCII
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
118 characters share the same font in a fontset.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
119
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
120 Faces are at first realized for ASCII characters, and, at that
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
121 time, assigned a specific realized fontset. Hereafter, we call
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
122 such a face as `ASCII face'. When a face for a multibyte character
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
123 is realized, it inherits (thus shares) a fontset of an ASCII face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
124 that has the same attributes other than font-related ones.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
125
36946
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36942
diff changeset
126 Thus, all realized face have a realized fontset.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
127
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
128
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
129 Unibyte text.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
130
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
131 Unibyte text (i.e. raw 8-bit characters) is displayed with the same
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
132 font as ASCII characters. That is because it is expected that
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
133 unibyte text users specify a font that is suitable both for ASCII
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
134 and raw 8-bit characters.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
135
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
136
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
137 Font selection.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
138
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
139 Font selection tries to find the best available matching font for a
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
140 given (character, face) combination.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
141
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
142 If the face specifies a fontset name, that fontset determines a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
143 pattern for fonts of the given character. If the face specifies a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
144 font name or the other font-related attributes, a fontset is
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
145 realized from the default fontset. In that case, that
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
146 specification determines a pattern for ASCII characters and the
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
147 default fontset determines a pattern for multibyte characters.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
148
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
149 Available fonts on the system on which Emacs runs are then matched
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
150 against the font pattern. The result of font selection is the best
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
151 match for the given face attributes in this font list.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
152
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
153 Font selection can be influenced by the user.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
154
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
155 1. The user can specify the relative importance he gives the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
156 attributes width, height, weight, and slant by setting
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
157 face-font-selection-order (faces.el) to a list of face attribute
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
158 names. The default is '(:width :height :weight :slant), and means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
159 that font selection first tries to find a good match for the font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
160 width specified by a face, then---within fonts with that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
161 width---tries to find a best match for the specified font height,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
162 etc.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
163
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
164 2. Setting face-font-family-alternatives allows the user to
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
165 specify alternative font families to try if a family specified by a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
166 face doesn't exist.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
167
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
168 3. Setting face-font-registry-alternatives allows the user to
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
169 specify all alternative font registries to try for a face
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
170 specifying a registry.
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
171
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
172 4. Setting face-ignored-fonts allows the user to ignore specific
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
173 fonts.
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
174
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
175
36946
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36942
diff changeset
176 Character composition.
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
177
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
178 Usually, the realization process is already finished when Emacs
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
179 actually reflects the desired glyph matrix on the screen. However,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
180 on displaying a composition (sequence of characters to be composed
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
181 on the screen), a suitable font for the components of the
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
182 composition is selected and realized while drawing them on the
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
183 screen, i.e. the realization process is delayed but in principle
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
184 the same.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
185
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
186
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
187 Initialization of basic faces.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
188
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
189 The faces `default', `modeline' are considered `basic faces'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
190 When redisplay happens the first time for a newly created frame,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
191 basic faces are realized for CHARSET_ASCII. Frame parameters are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
192 used to fill in unspecified attributes of the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
193
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25890
diff changeset
194 #include <config.h>
53901
d85f8f2e71f7 Move include stdio.h to same place as in other files.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53354
diff changeset
195 #include <stdio.h>
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 #include <sys/types.h>
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 #include <sys/stat.h>
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
198
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 #include "lisp.h"
17047
6c586afaa572 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16051
diff changeset
200 #include "charset.h"
37700
0e6b93106f2a Include keyboard.h before frame.h, not after it.
Eli Zaretskii <eliz@gnu.org>
parents: 37679
diff changeset
201 #include "keyboard.h"
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
202 #include "frame.h"
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
203
29897
cd1bb44e646d Include fontset.h dependent on HAVE_WINDOW_SYSTEM, not HAVE_X_WINDOWS.
Dave Love <fx@gnu.org>
parents: 29768
diff changeset
204 #ifdef HAVE_WINDOW_SYSTEM
cd1bb44e646d Include fontset.h dependent on HAVE_WINDOW_SYSTEM, not HAVE_X_WINDOWS.
Dave Love <fx@gnu.org>
parents: 29768
diff changeset
205 #include "fontset.h"
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
206 #endif /* HAVE_WINDOW_SYSTEM */
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
207
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
208 #ifdef HAVE_X_WINDOWS
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 #include "xterm.h"
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
210 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
211 #include <Xm/Xm.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
212 #include <Xm/XmStrDefs.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
213 #endif /* USE_MOTIF */
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
214 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
215
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
216 #ifdef MSDOS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
217 #include "dosfns.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
218 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
219
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
220 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
221 #include "w32term.h"
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
222 #include "fontset.h"
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
223 /* Redefine X specifics to W32 equivalents to avoid cluttering the
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
224 code with #ifdef blocks. */
37700
0e6b93106f2a Include keyboard.h before frame.h, not after it.
Eli Zaretskii <eliz@gnu.org>
parents: 37679
diff changeset
225 #undef FRAME_X_DISPLAY_INFO
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
226 #define FRAME_X_DISPLAY_INFO FRAME_W32_DISPLAY_INFO
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
227 #define x_display_info w32_display_info
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
228 #define FRAME_X_FONT_TABLE FRAME_W32_FONT_TABLE
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
229 #define check_x check_w32
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
230 #define x_list_fonts w32_list_fonts
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
231 #define GCGraphicsExposures 0
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
232 #endif /* WINDOWSNT */
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
233
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
234 #ifdef MAC_OS
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
235 #include "macterm.h"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
236 #define x_display_info mac_display_info
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
237 #define check_x check_mac
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
238 #endif /* MAC_OS */
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
239
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 #include "buffer.h"
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
241 #include "dispextern.h"
2438
b513de4de386 * xfaces.c: Doc fixes.
Jim Blandy <jimb@redhat.com>
parents: 2391
diff changeset
242 #include "blockinput.h"
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
243 #include "window.h"
8848
48b3ac951c53 Add #include "intervals.h"
Karl Heuer <kwzh@gnu.org>
parents: 8472
diff changeset
244 #include "intervals.h"
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
246 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
247
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
248 /* Compensate for a bug in Xos.h on some systems, on which it requires
3997
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
249 time.h. On some such systems, Xos.h tries to redefine struct
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
250 timeval and struct timezone if USG is #defined while it is
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
251 #included. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
252
3436
291f28da7ea1 Test XOS_NEEDS_TIME_H, not HPUX, for including time.hj.
Richard M. Stallman <rms@gnu.org>
parents: 3401
diff changeset
253 #ifdef XOS_NEEDS_TIME_H
3997
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
254 #include <time.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
255 #undef USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
256 #include <X11/Xos.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
257 #define USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
258 #define __TIMEVAL__
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
259 #else /* not XOS_NEEDS_TIME_H */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 #include <X11/Xos.h>
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
261 #endif /* not XOS_NEEDS_TIME_H */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
262
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
263 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
264
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
265 #include <ctype.h>
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
266
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
267 #define abs(X) ((X) < 0 ? -(X) : (X))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
268
34882
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
269 /* Number of pt per inch (from the TeXbook). */
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
270
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
271 #define PT_PER_INCH 72.27
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
272
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
273 /* Non-zero if face attribute ATTR is unspecified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
274
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
275 #define UNSPECIFIEDP(ATTR) EQ ((ATTR), Qunspecified)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
276
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
277 /* Non-zero if face attribute ATTR is `ignore-defface'. */
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
278
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
279 #define IGNORE_DEFFACE_P(ATTR) EQ ((ATTR), Qignore_defface)
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
280
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
281 /* Value is the number of elements of VECTOR. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
282
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
283 #define DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
284
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
285 /* Make a copy of string S on the stack using alloca. Value is a pointer
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
286 to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
287
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
288 #define STRDUPA(S) strcpy ((char *) alloca (strlen ((S)) + 1), (S))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
289
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
290 /* Make a copy of the contents of Lisp string S on the stack using
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
291 alloca. Value is a pointer to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
292
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
293 #define LSTRDUPA(S) STRDUPA (SDATA ((S)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
294
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
295 /* Size of hash table of realized faces in face caches (should be a
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
296 prime number). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
297
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
298 #define FACE_CACHE_BUCKETS_SIZE 1001
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
299
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
300 /* Keyword symbols used for face attribute names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
301
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
302 Lisp_Object QCfamily, QCheight, QCweight, QCslant, QCunderline;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
303 Lisp_Object QCinverse_video, QCforeground, QCbackground, QCstipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
304 Lisp_Object QCwidth, QCfont, QCbold, QCitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
305 Lisp_Object QCreverse_video;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
306 Lisp_Object QCoverline, QCstrike_through, QCbox, QCinherit;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
307
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
308 /* Symbols used for attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
309
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
310 Lisp_Object Qnormal, Qbold, Qultra_light, Qextra_light, Qlight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
311 Lisp_Object Qsemi_light, Qsemi_bold, Qextra_bold, Qultra_bold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
312 Lisp_Object Qoblique, Qitalic, Qreverse_oblique, Qreverse_italic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
313 Lisp_Object Qultra_condensed, Qextra_condensed, Qcondensed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
314 Lisp_Object Qsemi_condensed, Qsemi_expanded, Qexpanded, Qextra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
315 Lisp_Object Qultra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
316 Lisp_Object Qreleased_button, Qpressed_button;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
317 Lisp_Object QCstyle, QCcolor, QCline_width;
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
318 Lisp_Object Qunspecified;
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
319 Lisp_Object Qignore_defface;
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
320
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
321 char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg";
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
322
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
323 /* The name of the function to call when the background of the frame
63642
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
324 has changed, frame_set_background_mode. */
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
325
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
326 Lisp_Object Qframe_set_background_mode;
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
327
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
328 /* Names of basic faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
329
26574
5510d0cc07c3 Don't duplicate Qmode_line definition done elsewhere.
Dave Love <fx@gnu.org>
parents: 26088
diff changeset
330 Lisp_Object Qdefault, Qtool_bar, Qregion, Qfringe;
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
331 Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu;
63649
144440a09db1 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-438
Miles Bader <miles@gnu.org>
parents: 63642
diff changeset
332 Lisp_Object Qmode_line_inactive, Qvertical_border;
26574
5510d0cc07c3 Don't duplicate Qmode_line definition done elsewhere.
Dave Love <fx@gnu.org>
parents: 26088
diff changeset
333 extern Lisp_Object Qmode_line;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
334
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
335 /* The symbol `face-alias'. A symbols having that property is an
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
336 alias for another face. Value of the property is the name of
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
337 the aliased face. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
338
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
339 Lisp_Object Qface_alias;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
340
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
341 extern Lisp_Object Qcircular_list;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
342
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
343 /* Default stipple pattern used on monochrome displays. This stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
344 pattern is used on monochrome displays instead of shades of gray
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
345 for a face background color. See `set-face-stipple' for possible
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
346 values for this variable. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
347
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
348 Lisp_Object Vface_default_stipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
349
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
350 /* Alist of alternative font families. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
351 (FAMILY FAMILY1 FAMILY2 ...). If fonts of FAMILY can't be loaded,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
352 try FAMILY1, then FAMILY2, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
353
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
354 Lisp_Object Vface_alternative_font_family_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
355
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
356 /* Alist of alternative font registries. Each element is of the form
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
357 (REGISTRY REGISTRY1 REGISTRY2...). If fonts of REGISTRY can't be
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
358 loaded, try REGISTRY1, then REGISTRY2, ... */
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
359
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
360 Lisp_Object Vface_alternative_font_registry_alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
361
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
362 /* Allowed scalable fonts. A value of nil means don't allow any
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
363 scalable fonts. A value of t means allow the use of any scalable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
364 font. Otherwise, value must be a list of regular expressions. A
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
365 font may be scaled if its name matches a regular expression in the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
366 list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
367
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
368 Lisp_Object Vscalable_fonts_allowed, Qscalable_fonts_allowed;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
369
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
370 /* List of regular expressions that matches names of fonts to ignore. */
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
371
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
372 Lisp_Object Vface_ignored_fonts;
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
373
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
374 /* Alist of font name patterns vs the rescaling factor. */
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
375
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
376 Lisp_Object Vface_font_rescale_alist;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
377
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
378 /* Maximum number of fonts to consider in font_list. If not an
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
379 integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead. */
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
380
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
381 Lisp_Object Vfont_list_limit;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
382 #define DEFAULT_FONT_LIST_LIMIT 100
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
383
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
384 /* The symbols `foreground-color' and `background-color' which can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
385 used as part of a `face' property. This is for compatibility with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
386 Emacs 20.2. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
387
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
388 Lisp_Object Qforeground_color, Qbackground_color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
389
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
390 /* The symbols `face' and `mouse-face' used as text properties. */
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
391
23730
c71c3ac4b80a (Qmouse_face): Replace definition with extern decl.
Richard M. Stallman <rms@gnu.org>
parents: 21766
diff changeset
392 Lisp_Object Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
393 extern Lisp_Object Qmouse_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
394
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
395 /* Property for basic faces which other faces cannot inherit. */
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
396
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
397 Lisp_Object Qface_no_inherit;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
398
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
399 /* Error symbol for wrong_type_argument in load_pixmap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
400
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
401 Lisp_Object Qbitmap_spec_p;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
402
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
403 /* Alist of global face definitions. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
404 (FACE . LFACE) where FACE is a symbol naming a face and LFACE
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
405 is a Lisp vector of face attributes. These faces are used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
406 to initialize faces for new frames. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
407
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
408 Lisp_Object Vface_new_frame_defaults;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
409
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
410 /* The next ID to assign to Lisp faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
411
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
412 static int next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
413
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
414 /* A vector mapping Lisp face Id's to face names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
415
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
416 static Lisp_Object *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
417 static int lface_id_to_name_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
418
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
419 /* TTY color-related functions (defined in tty-colors.el). */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
420
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
421 Lisp_Object Qtty_color_desc, Qtty_color_by_index, Qtty_color_standard_values;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
422
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
423 /* The name of the function used to compute colors on TTYs. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
424
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
425 Lisp_Object Qtty_color_alist;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
426
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
427 /* An alist of defined terminal colors and their RGB values. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
428
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
429 Lisp_Object Vtty_defined_color_alist;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
430
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
431 /* Counter for calls to clear_face_cache. If this counter reaches
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
432 CLEAR_FONT_TABLE_COUNT, and a frame has more than
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
433 CLEAR_FONT_TABLE_NFONTS load, unused fonts are freed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
434
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
435 static int clear_font_table_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
436 #define CLEAR_FONT_TABLE_COUNT 100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
437 #define CLEAR_FONT_TABLE_NFONTS 10
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
438
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
439 /* Non-zero means face attributes have been changed since the last
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
440 redisplay. Used in redisplay_internal. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
441
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
442 int face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
443
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
444 /* Non-zero means don't display bold text if a face's foreground
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
445 and background colors are the inverse of the default colors of the
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
446 display. This is a kluge to suppress `bold black' foreground text
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
447 which is hard to read on an LCD monitor. */
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
448
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
449 int tty_suppress_bold_inverse_default_colors_p;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
450
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
451 /* A list of the form `((x . y))' used to avoid consing in
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
452 Finternal_set_lisp_face_attribute. */
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
453
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
454 static Lisp_Object Vparam_value_alist;
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
455
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
456 /* The total number of colors currently allocated. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
457
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
458 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
459 static int ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
460 static int npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
461 static int ngcs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
462 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
463
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
464 /* Non-zero means the definition of the `menu' face for new frames has
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
465 been changed. */
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
466
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
467 int menu_face_changed_default;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
468
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
470 /* Function prototypes. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
471
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
472 struct font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
473 struct table_entry;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
474 struct named_merge_point;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
475
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
476 static void map_tty_color P_ ((struct frame *, struct face *,
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
477 enum lface_attribute_index, int *));
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
478 static Lisp_Object resolve_face_name P_ ((Lisp_Object, int));
46556
71e205b50a3e (may_use_scalable_font_p): Argument now points to
Ken Raeburn <raeburn@raeburn.org>
parents: 46478
diff changeset
479 static int may_use_scalable_font_p P_ ((const char *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
480 static void set_font_frame_param P_ ((Lisp_Object, Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
481 static int better_font_p P_ ((int *, struct font_name *, struct font_name *,
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
482 int, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
483 static int x_face_list_fonts P_ ((struct frame *, char *,
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
484 struct font_name **, int, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
485 static int font_scalable_p P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
486 static int get_lface_attributes P_ ((struct frame *, Lisp_Object, Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
487 static int load_pixmap P_ ((struct frame *, Lisp_Object, unsigned *, unsigned *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
488 static unsigned char *xstrlwr P_ ((unsigned char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
489 static struct frame *frame_or_selected_frame P_ ((Lisp_Object, int));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
490 static void load_face_font P_ ((struct frame *, struct face *, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
491 static void load_face_colors P_ ((struct frame *, struct face *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
492 static void free_face_colors P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
493 static int face_color_gray_p P_ ((struct frame *, char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
494 static char *build_font_name P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
495 static void free_font_names P_ ((struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
496 static int sorted_font_list P_ ((struct frame *, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
497 int (*cmpfn) P_ ((const void *, const void *)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
498 struct font_name **));
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
499 static int font_list_1 P_ ((struct frame *, Lisp_Object, Lisp_Object,
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
500 Lisp_Object, struct font_name **));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
501 static int font_list P_ ((struct frame *, Lisp_Object, Lisp_Object,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
502 Lisp_Object, struct font_name **));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
503 static int try_font_list P_ ((struct frame *, Lisp_Object *,
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
504 Lisp_Object, Lisp_Object, struct font_name **,
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
505 int));
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
506 static int try_alternative_families P_ ((struct frame *f, Lisp_Object,
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
507 Lisp_Object, struct font_name **));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
508 static int cmp_font_names P_ ((const void *, const void *));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
509 static struct face *realize_face P_ ((struct face_cache *, Lisp_Object *, int,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
510 struct face *, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
511 static struct face *realize_x_face P_ ((struct face_cache *,
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
512 Lisp_Object *, int, struct face *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
513 static struct face *realize_tty_face P_ ((struct face_cache *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
514 Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
515 static int realize_basic_faces P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
516 static int realize_default_face P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
517 static void realize_named_face P_ ((struct frame *, Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
518 static int lface_fully_specified_p P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
519 static int lface_equal_p P_ ((Lisp_Object *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
520 static unsigned hash_string_case_insensitive P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
521 static unsigned lface_hash P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
522 static int lface_same_font_attributes_p P_ ((Lisp_Object *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
523 static struct face_cache *make_face_cache P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
524 static void free_realized_face P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
525 static void clear_face_gcs P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
526 static void free_face_cache P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
527 static int face_numeric_weight P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
528 static int face_numeric_slant P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
529 static int face_numeric_swidth P_ ((Lisp_Object));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
530 static int face_fontset P_ ((Lisp_Object *));
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
531 static char *choose_face_font P_ ((struct frame *, Lisp_Object *, int, int, int*));
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
532 static void merge_face_vectors P_ ((struct frame *, Lisp_Object *, Lisp_Object*,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
533 struct named_merge_point *));
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
534 static int merge_face_ref P_ ((struct frame *, Lisp_Object, Lisp_Object *,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
535 int, struct named_merge_point *));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
536 static int set_lface_from_font_name P_ ((struct frame *, Lisp_Object,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
537 Lisp_Object, int, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
538 static Lisp_Object lface_from_face_name P_ ((struct frame *, Lisp_Object, int));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
539 static struct face *make_realized_face P_ ((Lisp_Object *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
540 static void free_realized_faces P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
541 static char *best_matching_font P_ ((struct frame *, Lisp_Object *,
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
542 struct font_name *, int, int, int *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
543 static void cache_face P_ ((struct face_cache *, struct face *, unsigned));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
544 static void uncache_face P_ ((struct face_cache *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
545 static int xlfd_numeric_slant P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
546 static int xlfd_numeric_weight P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
547 static int xlfd_numeric_swidth P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
548 static Lisp_Object xlfd_symbolic_slant P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
549 static Lisp_Object xlfd_symbolic_weight P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
550 static Lisp_Object xlfd_symbolic_swidth P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
551 static int xlfd_fixed_p P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
552 static int xlfd_numeric_value P_ ((struct table_entry *, int, struct font_name *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
553 int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
554 static Lisp_Object xlfd_symbolic_value P_ ((struct table_entry *, int,
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
555 struct font_name *, int,
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
556 Lisp_Object));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
557 static struct table_entry *xlfd_lookup_field_contents P_ ((struct table_entry *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
558 struct font_name *, int));
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
559
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
560 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
561
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
562 static int split_font_name P_ ((struct frame *, struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
563 static int xlfd_point_size P_ ((struct frame *, struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
564 static void sort_fonts P_ ((struct frame *, struct font_name *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
565 int (*cmpfn) P_ ((const void *, const void *))));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
566 static GC x_create_gc P_ ((struct frame *, unsigned long, XGCValues *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
567 static void x_free_gc P_ ((struct frame *, GC));
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
568 static void clear_font_table P_ ((struct x_display_info *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
569
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
570 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
571 extern Lisp_Object w32_list_fonts P_ ((struct frame *, Lisp_Object, int, int));
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
572 #endif /* WINDOWSNT */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
573
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
574 #ifdef USE_X_TOOLKIT
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
575 static void x_update_menu_appearance P_ ((struct frame *));
39675
a4def4204419 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 38905
diff changeset
576
a4def4204419 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 38905
diff changeset
577 extern void free_frame_menubar P_ ((struct frame *));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
578 #endif /* USE_X_TOOLKIT */
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
579
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
580 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
581
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
582
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
583 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
584 Utilities
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
585 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
586
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
587 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
588
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
589 #ifdef DEBUG_X_COLORS
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
590
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
591 /* The following is a poor mans infrastructure for debugging X color
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
592 allocation problems on displays with PseudoColor-8. Some X servers
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
593 like 3.3.5 XF86_SVGA with Matrox cards apparently don't implement
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
594 color reference counts completely so that they don't signal an
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
595 error when a color is freed whose reference count is already 0.
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
596 Other X servers do. To help me debug this, the following code
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
597 implements a simple reference counting schema of its own, for a
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
598 single display/screen. --gerd. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
599
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
600 /* Reference counts for pixel colors. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
601
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
602 int color_count[256];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
603
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
604 /* Register color PIXEL as allocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
605
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
606 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
607 register_color (pixel)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
608 unsigned long pixel;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
609 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
610 xassert (pixel < 256);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
611 ++color_count[pixel];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
612 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
613
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
614
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
615 /* Register color PIXEL as deallocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
616
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
617 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
618 unregister_color (pixel)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
619 unsigned long pixel;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
620 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
621 xassert (pixel < 256);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
622 if (color_count[pixel] > 0)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
623 --color_count[pixel];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
624 else
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
625 abort ();
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
626 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
627
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
628
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
629 /* Register N colors from PIXELS as deallocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
630
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
631 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
632 unregister_colors (pixels, n)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
633 unsigned long *pixels;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
634 int n;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
635 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
636 int i;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
637 for (i = 0; i < n; ++i)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
638 unregister_color (pixels[i]);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
639 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
640
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
641
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
642 DEFUN ("dump-colors", Fdump_colors, Sdump_colors, 0, 0, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
643 doc: /* Dump currently allocated colors to stderr. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
644 ()
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
645 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
646 int i, n;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
647
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
648 fputc ('\n', stderr);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
649
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
650 for (i = n = 0; i < sizeof color_count / sizeof color_count[0]; ++i)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
651 if (color_count[i])
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
652 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
653 fprintf (stderr, "%3d: %5d", i, color_count[i]);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
654 ++n;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
655 if (n % 5 == 0)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
656 fputc ('\n', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
657 else
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
658 fputc ('\t', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
659 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
660
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
661 if (n % 5 != 0)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
662 fputc ('\n', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
663 return Qnil;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
664 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
665
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
666 #endif /* DEBUG_X_COLORS */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
667
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
668
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
669 /* Free colors used on frame F. PIXELS is an array of NPIXELS pixel
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
670 color values. Interrupt input must be blocked when this function
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
671 is called. */
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
672
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
673 void
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
674 x_free_colors (f, pixels, npixels)
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
675 struct frame *f;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
676 unsigned long *pixels;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
677 int npixels;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
678 {
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
679 int class = FRAME_X_DISPLAY_INFO (f)->visual->class;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
680
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
681 /* If display has an immutable color map, freeing colors is not
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
682 necessary and some servers don't allow it. So don't do it. */
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
683 if (class != StaticColor && class != StaticGray && class != TrueColor)
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
684 {
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
685 #ifdef DEBUG_X_COLORS
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
686 unregister_colors (pixels, npixels);
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
687 #endif
35228
ae27a81ee8dc (x_free_colors, x_free_dpy_colors): Do the
Gerd Moellmann <gerd@gnu.org>
parents: 35040
diff changeset
688 XFreeColors (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f),
ae27a81ee8dc (x_free_colors, x_free_dpy_colors): Do the
Gerd Moellmann <gerd@gnu.org>
parents: 35040
diff changeset
689 pixels, npixels, 0);
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
690 }
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
691 }
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
692
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
693
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
694 /* Free colors used on frame F. PIXELS is an array of NPIXELS pixel
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
695 color values. Interrupt input must be blocked when this function
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
696 is called. */
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
697
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
698 void
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
699 x_free_dpy_colors (dpy, screen, cmap, pixels, npixels)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
700 Display *dpy;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
701 Screen *screen;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
702 Colormap cmap;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
703 unsigned long *pixels;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
704 int npixels;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
705 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
706 struct x_display_info *dpyinfo = x_display_info_for_display (dpy);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
707 int class = dpyinfo->visual->class;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
708
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
709 /* If display has an immutable color map, freeing colors is not
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
710 necessary and some servers don't allow it. So don't do it. */
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
711 if (class != StaticColor && class != StaticGray && class != TrueColor)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
712 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
713 #ifdef DEBUG_X_COLORS
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
714 unregister_colors (pixels, npixels);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
715 #endif
35228
ae27a81ee8dc (x_free_colors, x_free_dpy_colors): Do the
Gerd Moellmann <gerd@gnu.org>
parents: 35040
diff changeset
716 XFreeColors (dpy, cmap, pixels, npixels, 0);
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
717 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
718 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
719
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
720
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
721 /* Create and return a GC for use on frame F. GC values and mask
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
722 are given by XGCV and MASK. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
723
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
724 static INLINE GC
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
725 x_create_gc (f, mask, xgcv)
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
726 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
727 unsigned long mask;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
728 XGCValues *xgcv;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
729 {
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 GC gc;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
731 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
732 gc = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), mask, xgcv);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
733 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
734 IF_DEBUG (++ngcs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
735 return gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
736 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
737
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
738
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
739 /* Free GC which was used on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
740
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
741 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
742 x_free_gc (f, gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
743 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
744 GC gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
745 {
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
746 BLOCK_INPUT;
59903
f2619addaa72 (x_free_gc) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59458
diff changeset
747 IF_DEBUG (xassert (--ngcs >= 0));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
748 XFreeGC (FRAME_X_DISPLAY (f), gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
749 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
750 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
751
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
752 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
753
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
754 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
755 /* W32 emulation of GCs */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
756
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
757 static INLINE GC
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
758 x_create_gc (f, mask, xgcv)
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
759 struct frame *f;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
760 unsigned long mask;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
761 XGCValues *xgcv;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
762 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
763 GC gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
764 BLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
765 gc = XCreateGC (NULL, FRAME_W32_WINDOW (f), mask, xgcv);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
766 UNBLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
767 IF_DEBUG (++ngcs);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
768 return gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
769 }
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
770
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
771
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
772 /* Free GC which was used on frame F. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
773
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
774 static INLINE void
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
775 x_free_gc (f, gc)
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
776 struct frame *f;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
777 GC gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
778 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
779 BLOCK_INPUT;
59903
f2619addaa72 (x_free_gc) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59458
diff changeset
780 IF_DEBUG (xassert (--ngcs >= 0));
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
781 xfree (gc);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
782 UNBLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
783 }
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
784
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
785 #endif /* WINDOWSNT */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
786
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
787 #ifdef MAC_OS
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
788 /* Mac OS emulation of GCs */
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
789
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
790 static INLINE GC
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
791 x_create_gc (f, mask, xgcv)
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
792 struct frame *f;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
793 unsigned long mask;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
794 XGCValues *xgcv;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
795 {
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
796 GC gc;
65912
da86e1af8629 (x_create_gc, x_free_gc) [MAC_OS]: Add BLOCK_INPUT. Add debug code.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 65781
diff changeset
797 BLOCK_INPUT;
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
798 gc = XCreateGC (FRAME_MAC_DISPLAY (f), FRAME_MAC_WINDOW (f), mask, xgcv);
65912
da86e1af8629 (x_create_gc, x_free_gc) [MAC_OS]: Add BLOCK_INPUT. Add debug code.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 65781
diff changeset
799 UNBLOCK_INPUT;
da86e1af8629 (x_create_gc, x_free_gc) [MAC_OS]: Add BLOCK_INPUT. Add debug code.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 65781
diff changeset
800 IF_DEBUG (++ngcs);
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
801 return gc;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
802 }
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
803
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
804 static INLINE void
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
805 x_free_gc (f, gc)
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
806 struct frame *f;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
807 GC gc;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
808 {
65912
da86e1af8629 (x_create_gc, x_free_gc) [MAC_OS]: Add BLOCK_INPUT. Add debug code.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 65781
diff changeset
809 BLOCK_INPUT;
da86e1af8629 (x_create_gc, x_free_gc) [MAC_OS]: Add BLOCK_INPUT. Add debug code.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 65781
diff changeset
810 IF_DEBUG (xassert (--ngcs >= 0));
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
811 XFreeGC (FRAME_MAC_DISPLAY (f), gc);
65912
da86e1af8629 (x_create_gc, x_free_gc) [MAC_OS]: Add BLOCK_INPUT. Add debug code.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 65781
diff changeset
812 UNBLOCK_INPUT;
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
813 }
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
814
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
815 #endif /* MAC_OS */
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
816
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
817 /* Like stricmp. Used to compare parts of font names which are in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
818 ISO8859-1. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
819
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
820 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
821 xstricmp (s1, s2)
46478
d6b51ec01987 (xstricmp): String pointer args now point to const.
Ken Raeburn <raeburn@raeburn.org>
parents: 46370
diff changeset
822 const unsigned char *s1, *s2;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
823 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
824 while (*s1 && *s2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
825 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
826 unsigned char c1 = tolower (*s1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
827 unsigned char c2 = tolower (*s2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
828 if (c1 != c2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
829 return c1 < c2 ? -1 : 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
830 ++s1, ++s2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
831 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
832
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
833 if (*s1 == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
834 return *s2 == 0 ? 0 : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
835 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
836 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
837
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
838
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
839 /* Like strlwr, which might not always be available. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
840
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
841 static unsigned char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
842 xstrlwr (s)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
843 unsigned char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
844 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
845 unsigned char *p = s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
846
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
847 for (p = s; *p; ++p)
65347
307b8f7742fe (xstrlwr): Don't use tolower for non-ASCII characters.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64770
diff changeset
848 /* On Mac OS X 10.3, tolower also converts non-ASCII characters
307b8f7742fe (xstrlwr): Don't use tolower for non-ASCII characters.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64770
diff changeset
849 for some locales. */
307b8f7742fe (xstrlwr): Don't use tolower for non-ASCII characters.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64770
diff changeset
850 if (isascii (*p))
307b8f7742fe (xstrlwr): Don't use tolower for non-ASCII characters.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64770
diff changeset
851 *p = tolower (*p);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
852
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
853 return s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
854 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
855
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
856
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
857 /* If FRAME is nil, return a pointer to the selected frame.
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
858 Otherwise, check that FRAME is a live frame, and return a pointer
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
859 to it. NPARAM is the parameter number of FRAME, for
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
860 CHECK_LIVE_FRAME. This is here because it's a frequent pattern in
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
861 Lisp function definitions. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
862
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
863 static INLINE struct frame *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
864 frame_or_selected_frame (frame, nparam)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
865 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
866 int nparam;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
867 {
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
868 if (NILP (frame))
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
869 frame = selected_frame;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
870
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
871 CHECK_LIVE_FRAME (frame);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
872 return XFRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
873 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
874
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
875
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
876 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
877 Frames and faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
878 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
879
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
880 /* Initialize face cache and basic faces for frame F. */
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
881
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
882 void
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
883 init_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
884 struct frame *f;
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
885 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
886 /* Make a face cache, if F doesn't have one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
887 if (FRAME_FACE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
888 FRAME_FACE_CACHE (f) = make_face_cache (f);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
889
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
890 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
891 /* Make the image cache. */
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
892 if (FRAME_WINDOW_P (f))
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
893 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
894 if (FRAME_X_IMAGE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
895 FRAME_X_IMAGE_CACHE (f) = make_image_cache ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
896 ++FRAME_X_IMAGE_CACHE (f)->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
897 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
898 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
899
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
900 /* Realize basic faces. Must have enough information in frame
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
901 parameters to realize basic faces at this point. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
902 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
903 if (!FRAME_X_P (f) || FRAME_X_WINDOW (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
904 #endif
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
905 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
906 if (!FRAME_WINDOW_P (f) || FRAME_W32_WINDOW (f))
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
907 #endif
45848
39cdf9669519 In src/:
Andrew Choi <akochoi@shaw.ca>
parents: 45746
diff changeset
908 #ifdef MAC_OS
39cdf9669519 In src/:
Andrew Choi <akochoi@shaw.ca>
parents: 45746
diff changeset
909 if (!FRAME_MAC_P (f) || FRAME_MAC_WINDOW (f))
39cdf9669519 In src/:
Andrew Choi <akochoi@shaw.ca>
parents: 45746
diff changeset
910 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
911 if (!realize_basic_faces (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
912 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
913 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
914
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
915
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
916 /* Free face cache of frame F. Called from Fdelete_frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
917
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
918 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
919 free_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
920 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
921 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
922 struct face_cache *face_cache = FRAME_FACE_CACHE (f);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
923
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
924 if (face_cache)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
925 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
926 free_face_cache (face_cache);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
927 FRAME_FACE_CACHE (f) = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
928 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
929
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
930 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
931 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
932 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
933 struct image_cache *image_cache = FRAME_X_IMAGE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
934 if (image_cache)
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
935 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
936 --image_cache->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
937 if (image_cache->refcount == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
938 free_image_cache (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
939 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
940 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
941 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
942 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
943
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
944
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
945 /* Clear face caches, and recompute basic faces for frame F. Call
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
946 this after changing frame parameters on which those faces depend,
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
947 or when realized faces have been freed due to changing attributes
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
948 of named faces. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
949
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
950 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
951 recompute_basic_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
952 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
953 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
954 if (FRAME_FACE_CACHE (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
955 {
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
956 clear_face_cache (0);
26601
e23e3120d84f (set_lface_from_font_name): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26594
diff changeset
957 if (!realize_basic_faces (f))
e23e3120d84f (set_lface_from_font_name): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26594
diff changeset
958 abort ();
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
959 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
960 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
961
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
962
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
963 /* Clear the face caches of all frames. CLEAR_FONTS_P non-zero means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
964 try to free unused fonts, too. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
965
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
966 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
967 clear_face_cache (clear_fonts_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
968 int clear_fonts_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
969 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
970 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
971 Lisp_Object tail, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
972 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
973
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
974 if (clear_fonts_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
975 || ++clear_font_table_count == CLEAR_FONT_TABLE_COUNT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
976 {
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
977 struct x_display_info *dpyinfo;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
978
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
979 /* Fonts are common for frames on one display, i.e. on
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
980 one X screen. */
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
981 for (dpyinfo = x_display_list; dpyinfo; dpyinfo = dpyinfo->next)
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
982 if (dpyinfo->n_fonts > CLEAR_FONT_TABLE_NFONTS)
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
983 clear_font_table (dpyinfo);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
984
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
985 /* From time to time see if we can unload some fonts. This also
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
986 frees all realized faces on all frames. Fonts needed by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
987 faces will be loaded again when faces are realized again. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
988 clear_font_table_count = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
989
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
990 FOR_EACH_FRAME (tail, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
991 {
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
992 struct frame *f = XFRAME (frame);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
993 if (FRAME_WINDOW_P (f)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
994 && FRAME_X_DISPLAY_INFO (f)->n_fonts > CLEAR_FONT_TABLE_NFONTS)
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
995 free_all_realized_faces (frame);
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
996 }
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
997 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
998 else
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
999 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1000 /* Clear GCs of realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1001 FOR_EACH_FRAME (tail, frame)
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
1002 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1003 f = XFRAME (frame);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1004 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1005 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1006 clear_face_gcs (FRAME_FACE_CACHE (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1007 clear_image_cache (f, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1008 }
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
1009 }
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
1010 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1011 #endif /* HAVE_WINDOW_SYSTEM */
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1012 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1013
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1014
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1015 DEFUN ("clear-face-cache", Fclear_face_cache, Sclear_face_cache, 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1016 doc: /* Clear face caches on all frames.
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1017 Optional THOROUGHLY non-nil means try to free unused fonts, too. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1018 (thoroughly)
35843
c032770ba567 (Fclear_face_cache): Rename the `thorougly' argument
Eli Zaretskii <eliz@gnu.org>
parents: 35443
diff changeset
1019 Lisp_Object thoroughly;
c032770ba567 (Fclear_face_cache): Rename the `thorougly' argument
Eli Zaretskii <eliz@gnu.org>
parents: 35443
diff changeset
1020 {
c032770ba567 (Fclear_face_cache): Rename the `thorougly' argument
Eli Zaretskii <eliz@gnu.org>
parents: 35443
diff changeset
1021 clear_face_cache (!NILP (thoroughly));
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
1022 ++face_change_count;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
1023 ++windows_or_buffers_changed;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1024 return Qnil;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1025 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1026
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1027
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1028
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1029 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1030
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1031
38435
a9102b5472f0 Comment fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38434
diff changeset
1032 /* Remove fonts from the font table of DPYINFO except for the default
a9102b5472f0 Comment fix.
Gerd Moellmann <gerd@gnu.org>
parents: 38434
diff changeset
1033 ASCII fonts of frames on that display. Called from clear_face_cache
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1034 from time to time. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1035
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1036 static void
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1037 clear_font_table (dpyinfo)
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1038 struct x_display_info *dpyinfo;
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1039 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1040 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1041
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1042 /* Free those fonts that are not used by frames on DPYINFO. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1043 for (i = 0; i < dpyinfo->n_fonts; ++i)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1044 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1045 struct font_info *font_info = dpyinfo->font_table + i;
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1046 Lisp_Object tail, frame;
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1047
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1048 /* Check if slot is already free. */
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1049 if (font_info->name == NULL)
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1050 continue;
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1051
44705
413dd322c77d (clear_font_table): Don't free the default font of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43270
diff changeset
1052 /* Don't free a default font of some frame. */
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1053 FOR_EACH_FRAME (tail, frame)
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1054 {
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1055 struct frame *f = XFRAME (frame);
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1056 if (FRAME_WINDOW_P (f)
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1057 && font_info->font == FRAME_FONT (f))
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1058 break;
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1059 }
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1060
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
1061 if (!NILP (tail))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1062 continue;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1063
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1064 /* Free names. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1065 if (font_info->full_name != font_info->name)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1066 xfree (font_info->full_name);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1067 xfree (font_info->name);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1068
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1069 /* Free the font. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1070 BLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1071 #ifdef HAVE_X_WINDOWS
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1072 XFreeFont (dpyinfo->display, font_info->font);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1073 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1074 #ifdef WINDOWSNT
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1075 w32_unload_font (dpyinfo, font_info->font);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1076 #endif
59146
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 58439
diff changeset
1077 #ifdef MAC_OS
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 58439
diff changeset
1078 mac_unload_font (dpyinfo, font_info->font);
9bde7721ad0f * dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents: 58439
diff changeset
1079 #endif
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1080 UNBLOCK_INPUT;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1081
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1082 /* Mark font table slot free. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1083 font_info->font = NULL;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1084 font_info->name = font_info->full_name = NULL;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1085 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1086 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1087
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1088 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1089
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1090
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1091
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1092 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1093 X Pixmaps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1094 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1095
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1096 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1097
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1098 DEFUN ("bitmap-spec-p", Fbitmap_spec_p, Sbitmap_spec_p, 1, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1099 doc: /* Value is non-nil if OBJECT is a valid bitmap specification.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1100 A bitmap specification is either a string, a file name, or a list
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1101 \(WIDTH HEIGHT DATA) where WIDTH is the pixel width of the bitmap,
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1102 HEIGHT is its height, and DATA is a string containing the bits of
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1103 the pixmap. Bits are stored row by row, each row occupies
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1104 \(WIDTH + 7)/8 bytes. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1105 (object)
14090
24b93860d392 (Fpixmap_spec_p): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1106 Lisp_Object object;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1107 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1108 int pixmap_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1109
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1110 if (STRINGP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1111 /* If OBJECT is a string, it's a file name. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1112 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1113 else if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1114 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1115 /* Otherwise OBJECT must be (WIDTH HEIGHT DATA), WIDTH and
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1116 HEIGHT must be integers > 0, and DATA must be string large
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1117 enough to hold a bitmap of the specified size. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1118 Lisp_Object width, height, data;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1119
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1120 height = width = data = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1121
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1122 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1123 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1124 width = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1125 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1126 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1127 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1128 height = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1129 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1130 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1131 data = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1132 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1133 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1134
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1135 if (NATNUMP (width) && NATNUMP (height) && STRINGP (data))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1136 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1137 int bytes_per_row = ((XFASTINT (width) + BITS_PER_CHAR - 1)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1138 / BITS_PER_CHAR);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1139 if (SBYTES (data) >= bytes_per_row * XINT (height))
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1140 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1141 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1142 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1143
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1144 return pixmap_p ? Qt : Qnil;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1145 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1146
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1147
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1148 /* Load a bitmap according to NAME (which is either a file name or a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1149 pixmap spec) for use on frame F. Value is the bitmap_id (see
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1150 xfns.c). If NAME is nil, return with a bitmap id of zero. If
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1151 bitmap cannot be loaded, display a message saying so, and return
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1152 zero. Store the bitmap width in *W_PTR and its height in *H_PTR,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1153 if these pointers are not null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1154
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1155 static int
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1156 load_pixmap (f, name, w_ptr, h_ptr)
9902
32ed712a45a3 (load_pixmap): Handle bitmap_id < 0. F is a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9671
diff changeset
1157 FRAME_PTR f;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1158 Lisp_Object name;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1159 unsigned int *w_ptr, *h_ptr;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1160 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1161 int bitmap_id;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1162
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1163 if (NILP (name))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1164 return 0;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1165
71845
085d9056841a (load_pixmap): Use CHECK_TYPE.
Kim F. Storm <storm@cua.dk>
parents: 71576
diff changeset
1166 CHECK_TYPE (!NILP (Fbitmap_spec_p (name)), Qbitmap_spec_p, name);
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1167
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1168 BLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1169 if (CONSP (name))
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1170 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1171 /* Decode a bitmap spec into a bitmap. */
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1172
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1173 int h, w;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1174 Lisp_Object bits;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1175
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1176 w = XINT (Fcar (name));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1177 h = XINT (Fcar (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1178 bits = Fcar (Fcdr (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1179
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1180 bitmap_id = x_create_bitmap_from_data (f, SDATA (bits),
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1181 w, h);
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1182 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1183 else
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1184 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1185 /* It must be a string -- a file name. */
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1186 bitmap_id = x_create_bitmap_from_file (f, name);
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1187 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1188 UNBLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1189
9902
32ed712a45a3 (load_pixmap): Handle bitmap_id < 0. F is a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9671
diff changeset
1190 if (bitmap_id < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1191 {
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1192 add_to_log ("Invalid or undefined bitmap %s", name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1193 bitmap_id = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1194
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1195 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1196 *w_ptr = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1197 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1198 *h_ptr = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1199 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1200 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1201 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1202 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1203 ++npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1204 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1205 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1206 *w_ptr = x_bitmap_width (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1207
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1208 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1209 *h_ptr = x_bitmap_height (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1210 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1211
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1212 return bitmap_id;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1213 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
1214
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1215 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1216
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
1217
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1218
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1219 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1220 Fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1221 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1222
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1223 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1224
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1225 /* Load font of face FACE which is used on frame F to display
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1226 character C. The name of the font to load is determined by lface
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1227 and fontset of FACE. */
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
1228
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1229 static void
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1230 load_face_font (f, face, c)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1231 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1232 struct face *face;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1233 int c;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1234 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1235 struct font_info *font_info = NULL;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1236 char *font_name;
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
1237 int needs_overstrike;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1238
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1239 face->font_info_id = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1240 face->font = NULL;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1241
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
1242 font_name = choose_face_font (f, face->lface, face->fontset, c,
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
1243 &needs_overstrike);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1244 if (!font_name)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1245 return;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1246
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1247 BLOCK_INPUT;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1248 font_info = FS_LOAD_FACE_FONT (f, c, font_name, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1249 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1250
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1251 if (font_info)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1252 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1253 face->font_info_id = font_info->font_idx;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1254 face->font = font_info->font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1255 face->font_name = font_info->full_name;
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
1256 face->overstrike = needs_overstrike;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1257 if (face->gc)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1258 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1259 x_free_gc (f, face->gc);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1260 face->gc = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1261 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1262 }
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1263 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1264 add_to_log ("Unable to load font %s",
25301
2042c4a224ad (add_to_log): Renamed from display_message.
Gerd Moellmann <gerd@gnu.org>
parents: 25270
diff changeset
1265 build_string (font_name), Qnil);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1266 xfree (font_name);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1267 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1268
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1269 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1270
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1271
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1272
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1273 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1274 X Colors
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1275 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1276
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1277 /* Parse RGB_LIST, and fill in the RGB fields of COLOR.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1278 RGB_LIST should contain (at least) 3 lisp integers.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1279 Return 0 if there's a problem with RGB_LIST, otherwise return 1. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1280
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1281 static int
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1282 parse_rgb_list (rgb_list, color)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1283 Lisp_Object rgb_list;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1284 XColor *color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1285 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1286 #define PARSE_RGB_LIST_FIELD(field) \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1287 if (CONSP (rgb_list) && INTEGERP (XCAR (rgb_list))) \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1288 { \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1289 color->field = XINT (XCAR (rgb_list)); \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1290 rgb_list = XCDR (rgb_list); \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1291 } \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1292 else \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1293 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1294
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1295 PARSE_RGB_LIST_FIELD (red);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1296 PARSE_RGB_LIST_FIELD (green);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1297 PARSE_RGB_LIST_FIELD (blue);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1298
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1299 return 1;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1300 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1301
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1302
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1303 /* Lookup on frame F the color described by the lisp string COLOR.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1304 The resulting tty color is returned in TTY_COLOR; if STD_COLOR is
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1305 non-zero, then the `standard' definition of the same color is
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1306 returned in it. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1307
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1308 static int
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1309 tty_lookup_color (f, color, tty_color, std_color)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1310 struct frame *f;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1311 Lisp_Object color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1312 XColor *tty_color, *std_color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1313 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1314 Lisp_Object frame, color_desc;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1315
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1316 if (!STRINGP (color) || NILP (Ffboundp (Qtty_color_desc)))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1317 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1318
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1319 XSETFRAME (frame, f);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1320
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1321 color_desc = call2 (Qtty_color_desc, color, frame);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1322 if (CONSP (color_desc) && CONSP (XCDR (color_desc)))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1323 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1324 Lisp_Object rgb;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1325
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1326 if (! INTEGERP (XCAR (XCDR (color_desc))))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1327 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1328
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1329 tty_color->pixel = XINT (XCAR (XCDR (color_desc)));
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1330
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1331 rgb = XCDR (XCDR (color_desc));
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1332 if (! parse_rgb_list (rgb, tty_color))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1333 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1334
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1335 /* Should we fill in STD_COLOR too? */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1336 if (std_color)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1337 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1338 /* Default STD_COLOR to the same as TTY_COLOR. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1339 *std_color = *tty_color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1340
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1341 /* Do a quick check to see if the returned descriptor is
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1342 actually _exactly_ equal to COLOR, otherwise we have to
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1343 lookup STD_COLOR separately. If it's impossible to lookup
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1344 a standard color, we just give up and use TTY_COLOR. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1345 if ((!STRINGP (XCAR (color_desc))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1346 || NILP (Fstring_equal (color, XCAR (color_desc))))
45746
8f026a28517c (tty_lookup_color): Type bool/Lisp_Object mismatch fixed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 45718
diff changeset
1347 && !NILP (Ffboundp (Qtty_color_standard_values)))
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1348 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1349 /* Look up STD_COLOR separately. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1350 rgb = call1 (Qtty_color_standard_values, color);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1351 if (! parse_rgb_list (rgb, std_color))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1352 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1353 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1354 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1355
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1356 return 1;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1357 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1358 else if (NILP (Fsymbol_value (intern ("tty-defined-color-alist"))))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1359 /* We were called early during startup, and the colors are not
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1360 yet set up in tty-defined-color-alist. Don't return a failure
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1361 indication, since this produces the annoying "Unable to
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1362 load color" messages in the *Messages* buffer. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1363 return 1;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1364 else
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1365 /* tty-color-desc seems to have returned a bad value. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1366 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1367 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1368
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1369 /* A version of defined_color for non-X frames. */
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1370
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1371 int
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1372 tty_defined_color (f, color_name, color_def, alloc)
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1373 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1374 char *color_name;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1375 XColor *color_def;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1376 int alloc;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1377 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1378 int status = 1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1379
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1380 /* Defaults. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
1381 color_def->pixel = FACE_TTY_DEFAULT_COLOR;
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1382 color_def->red = 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1383 color_def->blue = 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1384 color_def->green = 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1385
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1386 if (*color_name)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1387 status = tty_lookup_color (f, build_string (color_name), color_def, 0);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1388
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1389 if (color_def->pixel == FACE_TTY_DEFAULT_COLOR && *color_name)
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1390 {
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1391 if (strcmp (color_name, "unspecified-fg") == 0)
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1392 color_def->pixel = FACE_TTY_DEFAULT_FG_COLOR;
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1393 else if (strcmp (color_name, "unspecified-bg") == 0)
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1394 color_def->pixel = FACE_TTY_DEFAULT_BG_COLOR;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1395 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1396
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1397 if (color_def->pixel != FACE_TTY_DEFAULT_COLOR)
27743
2e020ab026b8 (tty_defined_color): Don't return faulire indication
Eli Zaretskii <eliz@gnu.org>
parents: 27695
diff changeset
1398 status = 1;
2e020ab026b8 (tty_defined_color): Don't return faulire indication
Eli Zaretskii <eliz@gnu.org>
parents: 27695
diff changeset
1399
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1400 return status;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1401 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1402
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1403
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1404 /* Decide if color named COLOR_NAME is valid for the display
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1405 associated with the frame F; if so, return the rgb values in
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1406 COLOR_DEF. If ALLOC is nonzero, allocate a new colormap cell.
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1407
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1408 This does the right thing for any type of frame. */
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1409
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1410 int
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1411 defined_color (f, color_name, color_def, alloc)
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1412 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1413 char *color_name;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1414 XColor *color_def;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1415 int alloc;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1416 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1417 if (!FRAME_WINDOW_P (f))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1418 return tty_defined_color (f, color_name, color_def, alloc);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1419 #ifdef HAVE_X_WINDOWS
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1420 else if (FRAME_X_P (f))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1421 return x_defined_color (f, color_name, color_def, alloc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1422 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1423 #ifdef WINDOWSNT
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1424 else if (FRAME_W32_P (f))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1425 return w32_defined_color (f, color_name, color_def, alloc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1426 #endif
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
1427 #ifdef MAC_OS
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1428 else if (FRAME_MAC_P (f))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1429 return mac_defined_color (f, color_name, color_def, alloc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1430 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1431 else
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1432 abort ();
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1433 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1434
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1435
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1436 /* Given the index IDX of a tty color on frame F, return its name, a
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1437 Lisp string. */
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1438
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1439 Lisp_Object
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1440 tty_color_name (f, idx)
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1441 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1442 int idx;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1443 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1444 if (idx >= 0 && !NILP (Ffboundp (Qtty_color_by_index)))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1445 {
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1446 Lisp_Object frame;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1447 Lisp_Object coldesc;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1448
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1449 XSETFRAME (frame, f);
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1450 coldesc = call2 (Qtty_color_by_index, make_number (idx), frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1451
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1452 if (!NILP (coldesc))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1453 return XCAR (coldesc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1454 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1455 #ifdef MSDOS
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1456 /* We can have an MSDOG frame under -nw for a short window of
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1457 opportunity before internal_terminal_init is called. DTRT. */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1458 if (FRAME_MSDOS_P (f) && !inhibit_window_system)
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1459 return msdos_stdcolor_name (idx);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1460 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1461
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1462 if (idx == FACE_TTY_DEFAULT_FG_COLOR)
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1463 return build_string (unspecified_fg);
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1464 if (idx == FACE_TTY_DEFAULT_BG_COLOR)
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1465 return build_string (unspecified_bg);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1466
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1467 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1468 return vga_stdcolor_name (idx);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1469 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1470
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1471 return Qunspecified;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1472 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1473
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1474
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1475 /* Return non-zero if COLOR_NAME is a shade of gray (or white or
65781
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1476 black) on frame F.
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1477
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1478 The criterion implemented here is not a terribly sophisticated one. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1479
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1480 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1481 face_color_gray_p (f, color_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1482 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1483 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1484 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1485 XColor color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1486 int gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1487
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1488 if (defined_color (f, color_name, &color, 0))
65781
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1489 gray_p = (/* Any color sufficiently close to black counts as grey. */
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1490 (color.red < 5000 && color.green < 5000 && color.blue < 5000)
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1491 ||
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1492 ((abs (color.red - color.green)
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1493 < max (color.red, color.green) / 20)
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1494 && (abs (color.green - color.blue)
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1495 < max (color.green, color.blue) / 20)
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1496 && (abs (color.blue - color.red)
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1497 < max (color.blue, color.red) / 20)));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1498 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1499 gray_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1500
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1501 return gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1502 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1503
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1504
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1505 /* Return non-zero if color COLOR_NAME can be displayed on frame F.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1506 BACKGROUND_P non-zero means the color will be used as background
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1507 color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1508
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1509 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1510 face_color_supported_p (f, color_name, background_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1511 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1512 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1513 int background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1514 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1515 Lisp_Object frame;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1516 XColor not_used;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1517
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1518 XSETFRAME (frame, f);
54766
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1519 return
59924
3590dd3050ba (face_color_supported_p): Use HAVE_WINDOW_SYSTEM
Eli Zaretskii <eliz@gnu.org>
parents: 59905
diff changeset
1520 #ifdef HAVE_WINDOW_SYSTEM
54766
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1521 FRAME_WINDOW_P (f)
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1522 ? (!NILP (Fxw_display_color_p (frame))
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1523 || xstricmp (color_name, "black") == 0
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1524 || xstricmp (color_name, "white") == 0
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1525 || (background_p
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1526 && face_color_gray_p (f, color_name))
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1527 || (!NILP (Fx_display_grayscale_p (frame))
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1528 && face_color_gray_p (f, color_name)))
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1529 :
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1530 #endif
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1531 tty_defined_color (f, color_name, &not_used, 0);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1532 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1533
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1534
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1535 DEFUN ("color-gray-p", Fcolor_gray_p, Scolor_gray_p, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1536 doc: /* Return non-nil if COLOR is a shade of gray (or white or black).
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1537 FRAME specifies the frame and thus the display for interpreting COLOR.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1538 If FRAME is nil or omitted, use the selected frame. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1539 (color, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1540 Lisp_Object color, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1541 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1542 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1543
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
1544 CHECK_STRING (color);
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1545 if (NILP (frame))
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1546 frame = selected_frame;
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1547 else
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1548 CHECK_FRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1549 f = XFRAME (frame);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1550 return face_color_gray_p (f, SDATA (color)) ? Qt : Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1551 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1552
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1553
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1554 DEFUN ("color-supported-p", Fcolor_supported_p,
47471
8ed65bf4ee3d (Fcolor_supported_p): Just one arg is required.
Richard M. Stallman <rms@gnu.org>
parents: 46556
diff changeset
1555 Scolor_supported_p, 1, 3, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1556 doc: /* Return non-nil if COLOR can be displayed on FRAME.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1557 BACKGROUND-P non-nil means COLOR is used as a background.
56518
b058a7674dcd (Fcolor_supported_p): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56296
diff changeset
1558 Otherwise, this function tells whether it can be used as a foreground.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1559 If FRAME is nil or omitted, use the selected frame.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1560 COLOR must be a valid color name. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
1561 (color, frame, background_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1562 Lisp_Object frame, color, background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1563 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1564 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1565
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
1566 CHECK_STRING (color);
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1567 if (NILP (frame))
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1568 frame = selected_frame;
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1569 else
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1570 CHECK_FRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1571 f = XFRAME (frame);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1572 if (face_color_supported_p (f, SDATA (color), !NILP (background_p)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1573 return Qt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1574 return Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1575 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1576
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1577
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1578 /* Load color with name NAME for use by face FACE on frame F.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1579 TARGET_INDEX must be one of LFACE_FOREGROUND_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1580 LFACE_BACKGROUND_INDEX, LFACE_UNDERLINE_INDEX, LFACE_OVERLINE_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1581 LFACE_STRIKE_THROUGH_INDEX, or LFACE_BOX_INDEX. Value is the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1582 pixel color. If color cannot be loaded, display a message, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1583 return the foreground, background or underline color of F, but
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1584 record that fact in flags of the face so that we don't try to free
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1585 these colors. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1586
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1587 unsigned long
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1588 load_color (f, face, name, target_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1589 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1590 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1591 Lisp_Object name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1592 enum lface_attribute_index target_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1593 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1594 XColor color;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1595
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1596 xassert (STRINGP (name));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1597 xassert (target_index == LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1598 || target_index == LFACE_BACKGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1599 || target_index == LFACE_UNDERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1600 || target_index == LFACE_OVERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1601 || target_index == LFACE_STRIKE_THROUGH_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1602 || target_index == LFACE_BOX_INDEX);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1603
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1604 /* if the color map is full, defined_color will return a best match
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1605 to the values in an existing cell. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1606 if (!defined_color (f, SDATA (name), &color, 1))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1607 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1608 add_to_log ("Unable to load color \"%s\"", name, Qnil);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1609
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1610 switch (target_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1611 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1612 case LFACE_FOREGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1613 face->foreground_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1614 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1615 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1616
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1617 case LFACE_BACKGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1618 face->background_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1619 color.pixel = FRAME_BACKGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1620 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1621
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1622 case LFACE_UNDERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1623 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1624 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1625 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1626
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1627 case LFACE_OVERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1628 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1629 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1630 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1631
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1632 case LFACE_STRIKE_THROUGH_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1633 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1634 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1635 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1636
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1637 case LFACE_BOX_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1638 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1639 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1640 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1641
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1642 default:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1643 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1644 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1645 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1646 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1647 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1648 ++ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1649 #endif
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1650
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1651 return color.pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1652 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1653
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1654
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1655 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1656
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1657 /* Load colors for face FACE which is used on frame F. Colors are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1658 specified by slots LFACE_BACKGROUND_INDEX and LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1659 of ATTRS. If the background color specified is not supported on F,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1660 try to emulate gray colors with a stipple from Vface_default_stipple. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1661
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1662 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1663 load_face_colors (f, face, attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1664 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1665 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1666 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1667 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1668 Lisp_Object fg, bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1669
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1670 bg = attrs[LFACE_BACKGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1671 fg = attrs[LFACE_FOREGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1672
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1673 /* Swap colors if face is inverse-video. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1674 if (EQ (attrs[LFACE_INVERSE_INDEX], Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1675 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1676 Lisp_Object tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1677 tmp = fg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1678 fg = bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1679 bg = tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1680 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1681
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1682 /* Check for support for foreground, not for background because
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1683 face_color_supported_p is smart enough to know that grays are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1684 "supported" as background because we are supposed to use stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1685 for them. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1686 if (!face_color_supported_p (f, SDATA (bg), 0)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1687 && !NILP (Fbitmap_spec_p (Vface_default_stipple)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1688 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1689 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1690 face->stipple = load_pixmap (f, Vface_default_stipple,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1691 &face->pixmap_w, &face->pixmap_h);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1692 }
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1693
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1694 face->background = load_color (f, face, bg, LFACE_BACKGROUND_INDEX);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1695 face->foreground = load_color (f, face, fg, LFACE_FOREGROUND_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1696 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1697
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1698
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1699 /* Free color PIXEL on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1700
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1701 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1702 unload_color (f, pixel)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1703 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1704 unsigned long pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1705 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1706 #ifdef HAVE_X_WINDOWS
38346
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1707 if (pixel != -1)
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1708 {
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1709 BLOCK_INPUT;
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1710 x_free_colors (f, &pixel, 1);
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1711 UNBLOCK_INPUT;
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1712 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1713 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1714 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1715
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1716
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1717 /* Free colors allocated for FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1718
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1719 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1720 free_face_colors (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1721 struct frame *f;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1722 struct face *face;
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1723 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1724 #ifdef HAVE_X_WINDOWS
40555
dfc4450c2329 (realize_x_face): If C is not a single-byte character,
Gerd Moellmann <gerd@gnu.org>
parents: 40532
diff changeset
1725 if (face->colors_copied_bitwise_p)
dfc4450c2329 (realize_x_face): If C is not a single-byte character,
Gerd Moellmann <gerd@gnu.org>
parents: 40532
diff changeset
1726 return;
dfc4450c2329 (realize_x_face): If C is not a single-byte character,
Gerd Moellmann <gerd@gnu.org>
parents: 40532
diff changeset
1727
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1728 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1729
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1730 if (!face->foreground_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1731 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1732 x_free_colors (f, &face->foreground, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1733 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1734 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1735
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1736 if (!face->background_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1737 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1738 x_free_colors (f, &face->background, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1739 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1740 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1741
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1742 if (face->underline_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1743 && !face->underline_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1744 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1745 x_free_colors (f, &face->underline_color, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1746 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1747 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1748
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1749 if (face->overline_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1750 && !face->overline_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1751 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1752 x_free_colors (f, &face->overline_color, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1753 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1754 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1755
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1756 if (face->strike_through_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1757 && !face->strike_through_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1758 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1759 x_free_colors (f, &face->strike_through_color, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1760 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1761 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1762
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1763 if (face->box != FACE_NO_BOX
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1764 && !face->box_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1765 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1766 x_free_colors (f, &face->box_color, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1767 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1768 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1769
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1770 UNBLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1771 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1772 }
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1773
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1774 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1775
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1776
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1777
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1778 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1779 XLFD Font Names
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1780 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1781
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1782 /* An enumerator for each field of an XLFD font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1783
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1784 enum xlfd_field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1785 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1786 XLFD_FOUNDRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1787 XLFD_FAMILY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1788 XLFD_WEIGHT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1789 XLFD_SLANT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1790 XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1791 XLFD_ADSTYLE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1792 XLFD_PIXEL_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1793 XLFD_POINT_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1794 XLFD_RESX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1795 XLFD_RESY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1796 XLFD_SPACING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1797 XLFD_AVGWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1798 XLFD_REGISTRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1799 XLFD_ENCODING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1800 XLFD_LAST
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1801 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1802
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1803 /* An enumerator for each possible slant value of a font. Taken from
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1804 the XLFD specification. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1805
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1806 enum xlfd_slant
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1807 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1808 XLFD_SLANT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1809 XLFD_SLANT_ROMAN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1810 XLFD_SLANT_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1811 XLFD_SLANT_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1812 XLFD_SLANT_REVERSE_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1813 XLFD_SLANT_REVERSE_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1814 XLFD_SLANT_OTHER
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1815 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1816
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1817 /* Relative font weight according to XLFD documentation. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1818
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1819 enum xlfd_weight
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1820 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1821 XLFD_WEIGHT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1822 XLFD_WEIGHT_ULTRA_LIGHT, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1823 XLFD_WEIGHT_EXTRA_LIGHT, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1824 XLFD_WEIGHT_LIGHT, /* 30 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1825 XLFD_WEIGHT_SEMI_LIGHT, /* 40: SemiLight, Book, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1826 XLFD_WEIGHT_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1827 XLFD_WEIGHT_SEMI_BOLD, /* 60: SemiBold, DemiBold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1828 XLFD_WEIGHT_BOLD, /* 70: Bold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1829 XLFD_WEIGHT_EXTRA_BOLD, /* 80: ExtraBold, Heavy, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1830 XLFD_WEIGHT_ULTRA_BOLD /* 90: UltraBold, Black, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1831 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1832
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1833 /* Relative proportionate width. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1834
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1835 enum xlfd_swidth
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1836 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1837 XLFD_SWIDTH_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1838 XLFD_SWIDTH_ULTRA_CONDENSED, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1839 XLFD_SWIDTH_EXTRA_CONDENSED, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1840 XLFD_SWIDTH_CONDENSED, /* 30: Condensed, Narrow, Compressed, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1841 XLFD_SWIDTH_SEMI_CONDENSED, /* 40: semicondensed */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1842 XLFD_SWIDTH_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1843 XLFD_SWIDTH_SEMI_EXPANDED, /* 60: SemiExpanded, DemiExpanded, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1844 XLFD_SWIDTH_EXPANDED, /* 70: Expanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1845 XLFD_SWIDTH_EXTRA_EXPANDED, /* 80: ExtraExpanded, Wide... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1846 XLFD_SWIDTH_ULTRA_EXPANDED /* 90: UltraExpanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1847 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1848
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1849 /* Structure used for tables mapping XLFD weight, slant, and width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1850 names to numeric and symbolic values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1851
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1852 struct table_entry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1853 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1854 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1855 int numeric;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1856 Lisp_Object *symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1857 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1858
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1859 /* Table of XLFD slant names and their numeric and symbolic
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1860 representations. This table must be sorted by slant names in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1861 ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1862
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1863 static struct table_entry slant_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1864 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1865 {"i", XLFD_SLANT_ITALIC, &Qitalic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1866 {"o", XLFD_SLANT_OBLIQUE, &Qoblique},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1867 {"ot", XLFD_SLANT_OTHER, &Qitalic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1868 {"r", XLFD_SLANT_ROMAN, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1869 {"ri", XLFD_SLANT_REVERSE_ITALIC, &Qreverse_italic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1870 {"ro", XLFD_SLANT_REVERSE_OBLIQUE, &Qreverse_oblique}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1871 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1872
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1873 /* Table of XLFD weight names. This table must be sorted by weight
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1874 names in ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1875
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1876 static struct table_entry weight_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1877 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1878 {"black", XLFD_WEIGHT_ULTRA_BOLD, &Qultra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1879 {"bold", XLFD_WEIGHT_BOLD, &Qbold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1880 {"book", XLFD_WEIGHT_SEMI_LIGHT, &Qsemi_light},
33529
2e6d343c238d (weight_table): Add `demi' with the same meaning as
Gerd Moellmann <gerd@gnu.org>
parents: 33372
diff changeset
1881 {"demi", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1882 {"demibold", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1883 {"extralight", XLFD_WEIGHT_EXTRA_LIGHT, &Qextra_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1884 {"extrabold", XLFD_WEIGHT_EXTRA_BOLD, &Qextra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1885 {"heavy", XLFD_WEIGHT_EXTRA_BOLD, &Qextra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1886 {"light", XLFD_WEIGHT_LIGHT, &Qlight},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1887 {"medium", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1888 {"normal", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1889 {"regular", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1890 {"semibold", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1891 {"semilight", XLFD_WEIGHT_SEMI_LIGHT, &Qsemi_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1892 {"ultralight", XLFD_WEIGHT_ULTRA_LIGHT, &Qultra_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1893 {"ultrabold", XLFD_WEIGHT_ULTRA_BOLD, &Qultra_bold}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1894 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1895
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1896 /* Table of XLFD width names. This table must be sorted by width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1897 names in ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1898
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1899 static struct table_entry swidth_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1900 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1901 {"compressed", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1902 {"condensed", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1903 {"demiexpanded", XLFD_SWIDTH_SEMI_EXPANDED, &Qsemi_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1904 {"expanded", XLFD_SWIDTH_EXPANDED, &Qexpanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1905 {"extracondensed", XLFD_SWIDTH_EXTRA_CONDENSED, &Qextra_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1906 {"extraexpanded", XLFD_SWIDTH_EXTRA_EXPANDED, &Qextra_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1907 {"medium", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1908 {"narrow", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1909 {"normal", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1910 {"regular", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1911 {"semicondensed", XLFD_SWIDTH_SEMI_CONDENSED, &Qsemi_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1912 {"semiexpanded", XLFD_SWIDTH_SEMI_EXPANDED, &Qsemi_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1913 {"ultracondensed", XLFD_SWIDTH_ULTRA_CONDENSED, &Qultra_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1914 {"ultraexpanded", XLFD_SWIDTH_ULTRA_EXPANDED, &Qultra_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1915 {"wide", XLFD_SWIDTH_EXTRA_EXPANDED, &Qextra_expanded}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1916 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1917
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1918 /* Structure used to hold the result of splitting font names in XLFD
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1919 format into their fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1920
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1921 struct font_name
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1922 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1923 /* The original name which is modified destructively by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1924 split_font_name. The pointer is kept here to be able to free it
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1925 if it was allocated from the heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1926 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1927
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1928 /* Font name fields. Each vector element points into `name' above.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1929 Fields are NUL-terminated. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1930 char *fields[XLFD_LAST];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1931
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1932 /* Numeric values for those fields that interest us. See
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1933 split_font_name for which these are. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1934 int numeric[XLFD_LAST];
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
1935
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1936 /* If the original name matches one of Vface_font_rescale_alist,
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1937 the value is the corresponding rescale ratio. Otherwise, the
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1938 value is 1.0. */
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1939 double rescale_ratio;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1940
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
1941 /* Lower value mean higher priority. */
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
1942 int registry_priority;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1943 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1944
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1945 /* The frame in effect when sorting font names. Set temporarily in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1946 sort_fonts so that it is available in font comparison functions. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1947
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1948 static struct frame *font_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1949
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1950 /* Order by which font selection chooses fonts. The default values
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1951 mean `first, find a best match for the font width, then for the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1952 font height, then for weight, then for slant.' This variable can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1953 set via set-face-font-sort-order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1954
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
1955 #ifdef MAC_OS
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1956 static int font_sort_order[4] = {
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1957 XLFD_SWIDTH, XLFD_POINT_SIZE, XLFD_WEIGHT, XLFD_SLANT
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1958 };
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
1959 #else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1960 static int font_sort_order[4];
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
1961 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1962
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1963 /* Look up FONT.fields[FIELD_INDEX] in TABLE which has DIM entries.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1964 TABLE must be sorted by TABLE[i]->name in ascending order. Value
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1965 is a pointer to the matching table entry or null if no table entry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1966 matches. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1967
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1968 static struct table_entry *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1969 xlfd_lookup_field_contents (table, dim, font, field_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1970 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1971 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1972 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1973 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1974 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1975 /* Function split_font_name converts fields to lower-case, so there
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1976 is no need to use xstrlwr or xstricmp here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1977 char *s = font->fields[field_index];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1978 int low, mid, high, cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1979
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1980 low = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1981 high = dim - 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1982
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1983 while (low <= high)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1984 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1985 mid = (low + high) / 2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1986 cmp = strcmp (table[mid].name, s);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1987
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1988 if (cmp < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1989 low = mid + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1990 else if (cmp > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1991 high = mid - 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1992 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1993 return table + mid;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1994 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1996 return NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1997 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1998
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1999
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2000 /* Return a numeric representation for font name field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2001 FONT.fields[FIELD_INDEX]. The field is looked up in TABLE which
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2002 has DIM entries. Value is the numeric value found or DFLT if no
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2003 table entry matches. This function is used to translate weight,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2004 slant, and swidth names of XLFD font names to numeric values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2005
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2006 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2007 xlfd_numeric_value (table, dim, font, field_index, dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2008 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2009 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2010 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2011 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2012 int dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2013 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2014 struct table_entry *p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2015 p = xlfd_lookup_field_contents (table, dim, font, field_index);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2016 return p ? p->numeric : dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2017 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2018
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2019
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2020 /* Return a symbolic representation for font name field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2021 FONT.fields[FIELD_INDEX]. The field is looked up in TABLE which
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2022 has DIM entries. Value is the symbolic value found or DFLT if no
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2023 table entry matches. This function is used to translate weight,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2024 slant, and swidth names of XLFD font names to symbols. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2025
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2026 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2027 xlfd_symbolic_value (table, dim, font, field_index, dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2028 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2029 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2030 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2031 int field_index;
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
2032 Lisp_Object dflt;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2033 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2034 struct table_entry *p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2035 p = xlfd_lookup_field_contents (table, dim, font, field_index);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2036 return p ? *p->symbol : dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2037 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2038
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2039
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2040 /* Return a numeric value for the slant of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2041
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2042 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2043 xlfd_numeric_slant (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2044 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2045 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2046 return xlfd_numeric_value (slant_table, DIM (slant_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2047 font, XLFD_SLANT, XLFD_SLANT_ROMAN);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2048 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2049
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2050
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2051 /* Return a symbol representing the weight of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2052
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2053 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2054 xlfd_symbolic_slant (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2055 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2056 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2057 return xlfd_symbolic_value (slant_table, DIM (slant_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2058 font, XLFD_SLANT, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2059 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2060
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2061
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2062 /* Return a numeric value for the weight of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2063
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2064 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2065 xlfd_numeric_weight (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2066 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2067 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2068 return xlfd_numeric_value (weight_table, DIM (weight_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2069 font, XLFD_WEIGHT, XLFD_WEIGHT_MEDIUM);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2070 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2071
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2072
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2073 /* Return a symbol representing the slant of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2074
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2075 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2076 xlfd_symbolic_weight (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2077 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2078 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2079 return xlfd_symbolic_value (weight_table, DIM (weight_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2080 font, XLFD_WEIGHT, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2081 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2082
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2083
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2084 /* Return a numeric value for the swidth of the font whose XLFD font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2085 name fields are found in FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2086
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2087 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2088 xlfd_numeric_swidth (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2089 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2090 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2091 return xlfd_numeric_value (swidth_table, DIM (swidth_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2092 font, XLFD_SWIDTH, XLFD_SWIDTH_MEDIUM);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2093 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2094
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2095
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2096 /* Return a symbolic value for the swidth of FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2097
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2098 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2099 xlfd_symbolic_swidth (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2100 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2101 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2102 return xlfd_symbolic_value (swidth_table, DIM (swidth_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2103 font, XLFD_SWIDTH, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2104 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2105
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2106
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2107 /* Look up the entry of SYMBOL in the vector TABLE which has DIM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2108 entries. Value is a pointer to the matching table entry or null if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2109 no element of TABLE contains SYMBOL. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2110
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2111 static struct table_entry *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2112 face_value (table, dim, symbol)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2113 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2114 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2115 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2116 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2117 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2118
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2119 xassert (SYMBOLP (symbol));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2120
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2121 for (i = 0; i < dim; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2122 if (EQ (*table[i].symbol, symbol))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2123 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2124
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2125 return i < dim ? table + i : NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2126 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2127
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2128
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2129 /* Return a numeric value for SYMBOL in the vector TABLE which has DIM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2130 entries. Value is -1 if SYMBOL is not found in TABLE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2131
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2132 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2133 face_numeric_value (table, dim, symbol)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2134 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2135 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2136 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2137 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2138 struct table_entry *p = face_value (table, dim, symbol);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2139 return p ? p->numeric : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2140 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2141
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2142
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2143 /* Return a numeric value representing the weight specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2144 symbol WEIGHT. Value is one of the enumerators of enum
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2145 xlfd_weight. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2146
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2147 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2148 face_numeric_weight (weight)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2149 Lisp_Object weight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2150 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2151 return face_numeric_value (weight_table, DIM (weight_table), weight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2152 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2153
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2154
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2155 /* Return a numeric value representing the slant specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2156 symbol SLANT. Value is one of the enumerators of enum xlfd_slant. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2157
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2158 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2159 face_numeric_slant (slant)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2160 Lisp_Object slant;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2161 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2162 return face_numeric_value (slant_table, DIM (slant_table), slant);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2163 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2164
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2165
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2166 /* Return a numeric value representing the swidth specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2167 symbol WIDTH. Value is one of the enumerators of enum xlfd_swidth. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2168
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2169 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2170 face_numeric_swidth (width)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2171 Lisp_Object width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2172 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2173 return face_numeric_value (swidth_table, DIM (swidth_table), width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2174 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2175
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2176
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2177 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2178
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2179 /* Return non-zero if FONT is the name of a fixed-pitch font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2180
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2181 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2182 xlfd_fixed_p (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2183 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2184 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2185 /* Function split_font_name converts fields to lower-case, so there
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2186 is no need to use tolower here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2187 return *font->fields[XLFD_SPACING] != 'p';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2188 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2189
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2190
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2191 /* Return the point size of FONT on frame F, measured in 1/10 pt.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2192
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2193 The actual height of the font when displayed on F depends on the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2194 resolution of both the font and frame. For example, a 10pt font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2195 designed for a 100dpi display will display larger than 10pt on a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2196 75dpi display. (It's not unusual to use fonts not designed for the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2197 display one is using. For example, some intlfonts are available in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2198 72dpi versions, only.)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2199
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2200 Value is the real point size of FONT on frame F, or 0 if it cannot
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2201 be determined. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2202
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2203 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2204 xlfd_point_size (f, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2205 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2206 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2207 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2208 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2209 char *pixel_field = font->fields[XLFD_PIXEL_SIZE];
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2210 double pixel;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2211 int real_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2212
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2213 if (*pixel_field == '[')
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2214 {
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2215 /* The pixel size field is `[A B C D]' which specifies
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2216 a transformation matrix.
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2217
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2218 A B 0
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2219 C D 0
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2220 0 0 1
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2221
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2222 by which all glyphs of the font are transformed. The spec
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2223 says that s scalar value N for the pixel size is equivalent
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2224 to A = N * resx/resy, B = C = 0, D = N. */
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2225 char *start = pixel_field + 1, *end;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2226 double matrix[4];
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2227 int i;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2228
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2229 for (i = 0; i < 4; ++i)
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2230 {
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2231 matrix[i] = strtod (start, &end);
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2232 start = end;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2233 }
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2234
37798
d4b4c850abc0 (xlfd_point_size): Don't divide pixel size from
Gerd Moellmann <gerd@gnu.org>
parents: 37756
diff changeset
2235 pixel = matrix[3];
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2236 }
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2237 else
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2238 pixel = atoi (pixel_field);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
2239
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2240 if (pixel == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2241 real_pt = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2242 else
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2243 real_pt = PT_PER_INCH * 10.0 * pixel / resy + 0.5;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2244
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2245 return real_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2246 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2247
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2248
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2249 /* Return point size of PIXEL dots while considering Y-resultion (DPI)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2250 of frame F. This function is used to guess a point size of font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2251 when only the pixel height of the font is available. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2252
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2253 static INLINE int
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2254 pixel_point_size (f, pixel)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2255 struct frame *f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2256 int pixel;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2257 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2258 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2259 double real_pt;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2260 int int_pt;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2261
34882
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
2262 /* As one inch is PT_PER_INCH points, PT_PER_INCH/RESY gives the
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
2263 point size of one dot. */
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
2264 real_pt = pixel * PT_PER_INCH / resy;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2265 int_pt = real_pt + 0.5;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2266
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2267 return int_pt;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2268 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2269
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2270
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2271 /* Return a rescaling ratio of a font of NAME. */
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2272
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2273 static double
51401
bcf91e20f6a2 (font_rescale_ratio): Fix for K&R.
Dave Love <fx@gnu.org>
parents: 51315
diff changeset
2274 font_rescale_ratio (name)
bcf91e20f6a2 (font_rescale_ratio): Fix for K&R.
Dave Love <fx@gnu.org>
parents: 51315
diff changeset
2275 char *name;
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2276 {
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
2277 Lisp_Object tail, elt;
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2278
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2279 for (tail = Vface_font_rescale_alist; CONSP (tail); tail = XCDR (tail))
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2280 {
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2281 elt = XCAR (tail);
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2282 if (STRINGP (XCAR (elt)) && FLOATP (XCDR (elt))
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2283 && fast_c_string_match_ignore_case (XCAR (elt), name) >= 0)
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2284 return XFLOAT_DATA (XCDR (elt));
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2285 }
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2286 return 1.0;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2287 }
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2288
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2289
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2290 /* Split XLFD font name FONT->name destructively into NUL-terminated,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2291 lower-case fields in FONT->fields. NUMERIC_P non-zero means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2292 compute numeric values for fields XLFD_POINT_SIZE, XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2293 XLFD_RESY, XLFD_SLANT, and XLFD_WEIGHT in FONT->numeric. Value is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2294 zero if the font name doesn't have the format we expect. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2295 expected format is a font name that starts with a `-' and has
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2296 XLFD_LAST fields separated by `-'. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2297
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2298 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2299 split_font_name (f, font, numeric_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2300 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2301 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2302 int numeric_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2303 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2304 int i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2305 int success_p;
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2306 double rescale_ratio;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2307
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2308 if (numeric_p)
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2309 /* This must be done before splitting the font name. */
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2310 rescale_ratio = font_rescale_ratio (font->name);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2311
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2312 if (*font->name == '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2313 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2314 char *p = xstrlwr (font->name) + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2315
37716
018b29727e8d (split_font_name): Make sure to leave the loop
Gerd Moellmann <gerd@gnu.org>
parents: 37714
diff changeset
2316 while (i < XLFD_LAST)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2317 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2318 font->fields[i] = p;
37716
018b29727e8d (split_font_name): Make sure to leave the loop
Gerd Moellmann <gerd@gnu.org>
parents: 37714
diff changeset
2319 ++i;
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2320
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2321 /* Pixel and point size may be of the form `[....]'. For
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2322 BNF, see XLFD spec, chapter 4. Negative values are
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2323 indicated by tilde characters which we replace with
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2324 `-' characters, here. */
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2325 if (*p == '['
37736
d6f944b128c4 (split_font_name): Handle `[...]' for the right
Gerd Moellmann <gerd@gnu.org>
parents: 37724
diff changeset
2326 && (i - 1 == XLFD_PIXEL_SIZE
d6f944b128c4 (split_font_name): Handle `[...]' for the right
Gerd Moellmann <gerd@gnu.org>
parents: 37724
diff changeset
2327 || i - 1 == XLFD_POINT_SIZE))
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2328 {
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2329 char *start, *end;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2330 int j;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
2331
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2332 for (++p; *p && *p != ']'; ++p)
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2333 if (*p == '~')
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2334 *p = '-';
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2335
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2336 /* Check that the matrix contains 4 floating point
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2337 numbers. */
37756
2cea00ea4d76 (split_font_name): Use the right field when
Gerd Moellmann <gerd@gnu.org>
parents: 37736
diff changeset
2338 for (j = 0, start = font->fields[i - 1] + 1;
37714
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2339 j < 4;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2340 ++j, start = end)
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2341 if (strtod (start, &end) == 0 && start == end)
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2342 break;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2343
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2344 if (j < 4)
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2345 break;
cf79e6de9752 (split_font_name): Handle matrix transformations
Gerd Moellmann <gerd@gnu.org>
parents: 37700
diff changeset
2346 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2347
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2348 while (*p && *p != '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2349 ++p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2350
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2351 if (*p != '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2352 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2353
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2354 *p++ = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2355 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2356 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2357
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2358 success_p = i == XLFD_LAST;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2359
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2360 /* If requested, and font name was in the expected format,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2361 compute numeric values for some fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2362 if (numeric_p && success_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2363 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2364 font->numeric[XLFD_POINT_SIZE] = xlfd_point_size (f, font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2365 font->numeric[XLFD_RESY] = atoi (font->fields[XLFD_RESY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2366 font->numeric[XLFD_SLANT] = xlfd_numeric_slant (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2367 font->numeric[XLFD_WEIGHT] = xlfd_numeric_weight (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2368 font->numeric[XLFD_SWIDTH] = xlfd_numeric_swidth (font);
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
2369 font->numeric[XLFD_AVGWIDTH] = atoi (font->fields[XLFD_AVGWIDTH]);
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
2370 font->rescale_ratio = rescale_ratio;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2371 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2372
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2373 /* Initialize it to zero. It will be overridden by font_list while
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2374 trying alternate registries. */
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2375 font->registry_priority = 0;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2376
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2377 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2378 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2379
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2380
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2381 /* Build an XLFD font name from font name fields in FONT. Value is a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2382 pointer to the font name, which is allocated via xmalloc. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2383
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2384 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2385 build_font_name (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2386 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2387 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2388 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2389 int size = 100;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2390 char *font_name = (char *) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2391 int total_length = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2392
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2393 for (i = 0; i < XLFD_LAST; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2394 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2395 /* Add 1 because of the leading `-'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2396 int len = strlen (font->fields[i]) + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2397
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2398 /* Reallocate font_name if necessary. Add 1 for the final
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2399 NUL-byte. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2400 if (total_length + len + 1 >= size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2401 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2402 int new_size = max (2 * size, size + len + 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2403 int sz = new_size * sizeof *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2404 font_name = (char *) xrealloc (font_name, sz);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2405 size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2406 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2407
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2408 font_name[total_length] = '-';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2409 bcopy (font->fields[i], font_name + total_length + 1, len - 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2410 total_length += len;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2411 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2412
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2413 font_name[total_length] = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2414 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2415 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2416
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2417
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2418 /* Free an array FONTS of N font_name structures. This frees FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2419 itself and all `name' fields in its elements. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2420
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2421 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2422 free_font_names (fonts, n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2423 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2424 int n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2425 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2426 while (n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2427 xfree (fonts[--n].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2428 xfree (fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2429 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2430
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2431
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2432 /* Sort vector FONTS of font_name structures which contains NFONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2433 elements using qsort and comparison function CMPFN. F is the frame
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2434 on which the fonts will be used. The global variable font_frame
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2435 is temporarily set to F to make it available in CMPFN. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2436
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2437 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2438 sort_fonts (f, fonts, nfonts, cmpfn)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2439 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2440 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2441 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2442 int (*cmpfn) P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2443 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2444 font_frame = f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2445 qsort (fonts, nfonts, sizeof *fonts, cmpfn);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2446 font_frame = NULL;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
2447 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
2448
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2449
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2450 /* Get fonts matching PATTERN on frame F. If F is null, use the first
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2451 display in x_display_list. FONTS is a pointer to a vector of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2452 NFONTS font_name structures. TRY_ALTERNATIVES_P non-zero means try
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2453 alternative patterns from Valternate_fontname_alist if no fonts are
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2454 found matching PATTERN.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2455
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2456 For all fonts found, set FONTS[i].name to the name of the font,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2457 allocated via xmalloc, and split font names into fields. Ignore
35371
dc0d772c9d3d (x_face_list_fonts): Don't BLOCK_INPUT around the
Gerd Moellmann <gerd@gnu.org>
parents: 35369
diff changeset
2458 fonts that we can't parse. Value is the number of fonts found. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2459
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2460 static int
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2461 x_face_list_fonts (f, pattern, pfonts, nfonts, try_alternatives_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2462 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2463 char *pattern;
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2464 struct font_name **pfonts;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2465 int nfonts, try_alternatives_p;
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2466 {
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2467 int n, nignored;
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2468
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2469 /* NTEMACS_TODO : currently this uses w32_list_fonts, but it may be
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2470 better to do it the other way around. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2471 Lisp_Object lfonts;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2472 Lisp_Object lpattern, tem;
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2473 struct font_name *fonts = 0;
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2474 int num_fonts = nfonts;
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2475
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2476 *pfonts = 0;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2477 lpattern = build_string (pattern);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2478
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2479 /* Get the list of fonts matching PATTERN. */
35371
dc0d772c9d3d (x_face_list_fonts): Don't BLOCK_INPUT around the
Gerd Moellmann <gerd@gnu.org>
parents: 35369
diff changeset
2480 #ifdef WINDOWSNT
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2481 BLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2482 lfonts = w32_list_fonts (f, lpattern, 0, nfonts);
35371
dc0d772c9d3d (x_face_list_fonts): Don't BLOCK_INPUT around the
Gerd Moellmann <gerd@gnu.org>
parents: 35369
diff changeset
2483 UNBLOCK_INPUT;
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2484 #else
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2485 lfonts = x_list_fonts (f, lpattern, -1, nfonts);
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2486 #endif
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2487
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2488 if (nfonts < 0 && CONSP (lfonts))
49914
b4b6ede28a6f (x_face_list_fonts): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 49864
diff changeset
2489 num_fonts = XFASTINT (Flength (lfonts));
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
2490
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2491 /* Make a copy of the font names we got from X, and
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2492 split them into fields. */
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2493 n = nignored = 0;
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2494 for (tem = lfonts; CONSP (tem) && n < num_fonts; tem = XCDR (tem))
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2495 {
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2496 Lisp_Object elt, tail;
46556
71e205b50a3e (may_use_scalable_font_p): Argument now points to
Ken Raeburn <raeburn@raeburn.org>
parents: 46478
diff changeset
2497 const char *name = SDATA (XCAR (tem));
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2498
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2499 /* Ignore fonts matching a pattern from face-ignored-fonts. */
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2500 for (tail = Vface_ignored_fonts; CONSP (tail); tail = XCDR (tail))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2501 {
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2502 elt = XCAR (tail);
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2503 if (STRINGP (elt)
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2504 && fast_c_string_match_ignore_case (elt, name) >= 0)
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2505 break;
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2506 }
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2507 if (!NILP (tail))
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2508 {
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2509 ++nignored;
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2510 continue;
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2511 }
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2512
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2513 if (! fonts)
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2514 {
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2515 *pfonts = (struct font_name *) xmalloc (num_fonts * sizeof **pfonts);
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2516 fonts = *pfonts;
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2517 }
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2518
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2519 /* Make a copy of the font name. */
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2520 fonts[n].name = xstrdup (name);
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2521
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2522 if (split_font_name (f, fonts + n, 1))
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2523 {
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2524 if (font_scalable_p (fonts + n)
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2525 && !may_use_scalable_font_p (name))
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2526 {
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2527 ++nignored;
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2528 xfree (fonts[n].name);
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2529 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2530 else
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2531 ++n;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2532 }
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
2533 else
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2534 xfree (fonts[n].name);
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2535 }
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
2536
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2537 /* If no fonts found, try patterns from Valternate_fontname_alist. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2538 if (n == 0 && try_alternatives_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2539 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2540 Lisp_Object list = Valternate_fontname_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2541
49863
6d5c33f4dd05 * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49859
diff changeset
2542 if (*pfonts)
6d5c33f4dd05 * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49859
diff changeset
2543 {
6d5c33f4dd05 * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49859
diff changeset
2544 xfree (*pfonts);
6d5c33f4dd05 * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49859
diff changeset
2545 *pfonts = 0;
6d5c33f4dd05 * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49859
diff changeset
2546 }
6d5c33f4dd05 * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49859
diff changeset
2547
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2548 while (CONSP (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2549 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2550 Lisp_Object entry = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2551 if (CONSP (entry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2552 && STRINGP (XCAR (entry))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
2553 && strcmp (SDATA (XCAR (entry)), pattern) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2554 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2555 list = XCDR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2556 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2557
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2558 if (CONSP (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2559 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2560 Lisp_Object patterns = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2561 Lisp_Object name;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2562
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2563 while (CONSP (patterns)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2564 /* If list is screwed up, give up. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2565 && (name = XCAR (patterns),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2566 STRINGP (name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2567 /* Ignore patterns equal to PATTERN because we tried that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2568 already with no success. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
2569 && (strcmp (SDATA (name), pattern) == 0
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
2570 || (n = x_face_list_fonts (f, SDATA (name),
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2571 pfonts, nfonts, 0),
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2572 n == 0)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2573 patterns = XCDR (patterns);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2574 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2575 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2576
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2577 return n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2578 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2579
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2580
53354
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2581 /* Check if a font matching pattern_offset_t on frame F is available
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2582 or not. PATTERN may be a cons (FAMILY . REGISTRY), in which case,
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2583 a font name pattern is generated from FAMILY and REGISTRY. */
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2584
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2585 int
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2586 face_font_available_p (f, pattern)
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2587 struct frame *f;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2588 Lisp_Object pattern;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2589 {
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2590 Lisp_Object fonts;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2591
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2592 if (! STRINGP (pattern))
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2593 {
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2594 Lisp_Object family, registry;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2595 char *family_str, *registry_str, *pattern_str;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2596
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2597 CHECK_CONS (pattern);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2598 family = XCAR (pattern);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2599 if (NILP (family))
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2600 family_str = "*";
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2601 else
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2602 {
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2603 CHECK_STRING (family);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2604 family_str = (char *) SDATA (family);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2605 }
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2606 registry = XCDR (pattern);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2607 if (NILP (registry))
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2608 registry_str = "*";
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2609 else
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2610 {
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2611 CHECK_STRING (registry);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2612 registry_str = (char *) SDATA (registry);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2613 }
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2614
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2615 pattern_str = (char *) alloca (strlen (family_str)
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2616 + strlen (registry_str)
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2617 + 10);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2618 strcpy (pattern_str, index (family_str, '-') ? "-" : "-*-");
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2619 strcat (pattern_str, family_str);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2620 strcat (pattern_str, "-*-");
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2621 strcat (pattern_str, registry_str);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2622 if (!index (registry_str, '-'))
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2623 {
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2624 if (registry_str[strlen (registry_str) - 1] == '*')
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2625 strcat (pattern_str, "-*");
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2626 else
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2627 strcat (pattern_str, "*-*");
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2628 }
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2629 pattern = build_string (pattern_str);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2630 }
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2631
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2632 /* Get the list of fonts matching PATTERN. */
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2633 #ifdef WINDOWSNT
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2634 BLOCK_INPUT;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2635 fonts = w32_list_fonts (f, pattern, 0, 1);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2636 UNBLOCK_INPUT;
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2637 #else
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2638 fonts = x_list_fonts (f, pattern, -1, 1);
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2639 #endif
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2640 return XINT (Flength (fonts));
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2641 }
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2642
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
2643
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2644 /* Determine fonts matching PATTERN on frame F. Sort resulting fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2645 using comparison function CMPFN. Value is the number of fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2646 found. If value is non-zero, *FONTS is set to a vector of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2647 font_name structures allocated from the heap containing matching
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2648 fonts. Each element of *FONTS contains a name member that is also
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2649 allocated from the heap. Font names in these structures are split
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2650 into fields. Use free_font_names to free such an array. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2651
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2652 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2653 sorted_font_list (f, pattern, cmpfn, fonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2654 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2655 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2656 int (*cmpfn) P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2657 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2658 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2659 int nfonts;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2660
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2661 /* Get the list of fonts matching pattern. 100 should suffice. */
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2662 nfonts = DEFAULT_FONT_LIST_LIMIT;
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2663 if (INTEGERP (Vfont_list_limit))
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2664 nfonts = XINT (Vfont_list_limit);
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2665
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2666 *fonts = NULL;
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2667 nfonts = x_face_list_fonts (f, pattern, fonts, nfonts, 1);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2668
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2669 /* Sort the resulting array and return it in *FONTS. If no
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2670 fonts were found, make sure to set *FONTS to null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2671 if (nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2672 sort_fonts (f, *fonts, nfonts, cmpfn);
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2673 else if (*fonts)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2674 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2675 xfree (*fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2676 *fonts = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2677 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2678
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2679 return nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2680 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2681
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2682
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2683 /* Compare two font_name structures *A and *B. Value is analogous to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2684 strcmp. Sort order is given by the global variable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2685 font_sort_order. Font names are sorted so that, everything else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2686 being equal, fonts with a resolution closer to that of the frame on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2687 which they are used are listed first. The global variable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2688 font_frame is the frame on which we operate. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2689
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2690 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2691 cmp_font_names (a, b)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2692 const void *a, *b;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2693 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2694 struct font_name *x = (struct font_name *) a;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2695 struct font_name *y = (struct font_name *) b;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2696 int cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2697
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2698 /* All strings have been converted to lower-case by split_font_name,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2699 so we can use strcmp here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2700 cmp = strcmp (x->fields[XLFD_FAMILY], y->fields[XLFD_FAMILY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2701 if (cmp == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2702 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2703 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2704
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2705 for (i = 0; i < DIM (font_sort_order) && cmp == 0; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2706 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2707 int j = font_sort_order[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2708 cmp = x->numeric[j] - y->numeric[j];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2709 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2710
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2711 if (cmp == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2712 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2713 /* Everything else being equal, we prefer fonts with an
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2714 y-resolution closer to that of the frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2715 int resy = FRAME_X_DISPLAY_INFO (font_frame)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2716 int x_resy = x->numeric[XLFD_RESY];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2717 int y_resy = y->numeric[XLFD_RESY];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2718 cmp = abs (resy - x_resy) - abs (resy - y_resy);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2719 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2720 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2721
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2722 return cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2723 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2724
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2725
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2726 /* Get a sorted list of fonts of family FAMILY on frame F. If PATTERN
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2727 is non-nil list fonts matching that pattern. Otherwise, if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2728 REGISTRY is non-nil return only fonts with that registry, otherwise
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2729 return fonts of any registry. Set *FONTS to a vector of font_name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2730 structures allocated from the heap containing the fonts found.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2731 Value is the number of fonts found. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2732
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2733 static int
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2734 font_list_1 (f, pattern, family, registry, fonts)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2735 struct frame *f;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2736 Lisp_Object pattern, family, registry;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2737 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2738 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2739 char *pattern_str, *family_str, *registry_str;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2740
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2741 if (NILP (pattern))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2742 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
2743 family_str = (NILP (family) ? "*" : (char *) SDATA (family));
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
2744 registry_str = (NILP (registry) ? "*" : (char *) SDATA (registry));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2745
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2746 pattern_str = (char *) alloca (strlen (family_str)
29768
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2747 + strlen (registry_str)
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2748 + 10);
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2749 strcpy (pattern_str, index (family_str, '-') ? "-" : "-*-");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2750 strcat (pattern_str, family_str);
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2751 strcat (pattern_str, "-*-");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2752 strcat (pattern_str, registry_str);
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2753 if (!index (registry_str, '-'))
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2754 {
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2755 if (registry_str[strlen (registry_str) - 1] == '*')
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2756 strcat (pattern_str, "-*");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2757 else
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2758 strcat (pattern_str, "*-*");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2759 }
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2760 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2761 else
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
2762 pattern_str = (char *) SDATA (pattern);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2763
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2764 return sorted_font_list (f, pattern_str, cmp_font_names, fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2765 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2766
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2767
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2768 /* Concatenate font list FONTS1 and FONTS2. FONTS1 and FONTS2
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2769 contains NFONTS1 fonts and NFONTS2 fonts respectively. Return a
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2770 pointer to a newly allocated font list. FONTS1 and FONTS2 are
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2771 freed. */
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2772
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2773 static struct font_name *
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2774 concat_font_list (fonts1, nfonts1, fonts2, nfonts2)
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2775 struct font_name *fonts1, *fonts2;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2776 int nfonts1, nfonts2;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2777 {
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2778 int new_nfonts = nfonts1 + nfonts2;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2779 struct font_name *new_fonts;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2780
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2781 new_fonts = (struct font_name *) xmalloc (sizeof *new_fonts * new_nfonts);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2782 bcopy (fonts1, new_fonts, sizeof *new_fonts * nfonts1);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2783 bcopy (fonts2, new_fonts + nfonts1, sizeof *new_fonts * nfonts2);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2784 xfree (fonts1);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2785 xfree (fonts2);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2786 return new_fonts;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2787 }
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2788
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2789
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2790 /* Get a sorted list of fonts of family FAMILY on frame F.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2791
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2792 If PATTERN is non-nil list fonts matching that pattern.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2793
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2794 If REGISTRY is non-nil, return fonts with that registry and the
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2795 alternative registries from Vface_alternative_font_registry_alist.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
2796
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2797 If REGISTRY is nil return fonts of any registry.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2798
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2799 Set *FONTS to a vector of font_name structures allocated from the
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2800 heap containing the fonts found. Value is the number of fonts
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2801 found. */
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2802
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2803 static int
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2804 font_list (f, pattern, family, registry, fonts)
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2805 struct frame *f;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2806 Lisp_Object pattern, family, registry;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2807 struct font_name **fonts;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2808 {
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2809 int nfonts = font_list_1 (f, pattern, family, registry, fonts);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
2810
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2811 if (!NILP (registry)
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2812 && CONSP (Vface_alternative_font_registry_alist))
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2813 {
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2814 Lisp_Object alter;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2815
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2816 alter = Fassoc (registry, Vface_alternative_font_registry_alist);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2817 if (CONSP (alter))
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2818 {
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2819 int reg_prio, i;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2820
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2821 for (alter = XCDR (alter), reg_prio = 1;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2822 CONSP (alter);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2823 alter = XCDR (alter), reg_prio++)
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2824 if (STRINGP (XCAR (alter)))
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2825 {
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2826 int nfonts2;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2827 struct font_name *fonts2;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2828
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2829 nfonts2 = font_list_1 (f, pattern, family, XCAR (alter),
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2830 &fonts2);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2831 for (i = 0; i < nfonts2; i++)
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2832 fonts2[i].registry_priority = reg_prio;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2833 *fonts = (nfonts > 0
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2834 ? concat_font_list (*fonts, nfonts, fonts2, nfonts2)
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2835 : fonts2);
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2836 nfonts += nfonts2;
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
2837 }
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2838 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2839 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2840
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2841 return nfonts;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2842 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2843
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2844
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2845 /* Remove elements from LIST whose cars are `equal'. Called from
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2846 x-family-fonts and x-font-family-list to remove duplicate font
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2847 entries. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2848
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2849 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2850 remove_duplicates (list)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2851 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2852 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2853 Lisp_Object tail = list;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2854
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2855 while (!NILP (tail) && !NILP (XCDR (tail)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2856 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2857 Lisp_Object next = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2858 if (!NILP (Fequal (XCAR (next), XCAR (tail))))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39914
diff changeset
2859 XSETCDR (tail, XCDR (next));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2860 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2861 tail = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2862 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2863 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2864
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2865
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2866 DEFUN ("x-family-fonts", Fx_family_fonts, Sx_family_fonts, 0, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2867 doc: /* Return a list of available fonts of family FAMILY on FRAME.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2868 If FAMILY is omitted or nil, list all families.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2869 Otherwise, FAMILY must be a string, possibly containing wildcards
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2870 `?' and `*'.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2871 If FRAME is omitted or nil, use the selected frame.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2872 Each element of the result is a vector [FAMILY WIDTH POINT-SIZE WEIGHT
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2873 SLANT FIXED-P FULL REGISTRY-AND-ENCODING].
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2874 FAMILY is the font family name. POINT-SIZE is the size of the
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2875 font in 1/10 pt. WIDTH, WEIGHT, and SLANT are symbols describing the
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2876 width, weight and slant of the font. These symbols are the same as for
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2877 face attributes. FIXED-P is non-nil if the font is fixed-pitch.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2878 FULL is the full name of the font, and REGISTRY-AND-ENCODING is a string
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2879 giving the registry and encoding of the font.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2880 The result list is sorted according to the current setting of
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2881 the face font sort order. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2882 (family, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2883 Lisp_Object family, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2884 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2885 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2886 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2887 int i, nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2888 Lisp_Object result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2889 struct gcpro gcpro1;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2890
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2891 if (!NILP (family))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2892 CHECK_STRING (family);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2893
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2894 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2895 GCPRO1 (result);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2896 nfonts = font_list (f, Qnil, family, Qnil, &fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2897 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2898 {
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2899 Lisp_Object v = Fmake_vector (make_number (8), Qnil);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2900 char *tem;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2901
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2902 ASET (v, 0, build_string (fonts[i].fields[XLFD_FAMILY]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2903 ASET (v, 1, xlfd_symbolic_swidth (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2904 ASET (v, 2, make_number (xlfd_point_size (f, fonts + i)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2905 ASET (v, 3, xlfd_symbolic_weight (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2906 ASET (v, 4, xlfd_symbolic_slant (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2907 ASET (v, 5, xlfd_fixed_p (fonts + i) ? Qt : Qnil);
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2908 tem = build_font_name (fonts + i);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2909 ASET (v, 6, build_string (tem));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2910 sprintf (tem, "%s-%s", fonts[i].fields[XLFD_REGISTRY],
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2911 fonts[i].fields[XLFD_ENCODING]);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2912 ASET (v, 7, build_string (tem));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2913 xfree (tem);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2914
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2915 result = Fcons (v, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2916 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2917
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2918 remove_duplicates (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2919 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2920 UNGCPRO;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2921 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2922 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2923
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2924
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2925 DEFUN ("x-font-family-list", Fx_font_family_list, Sx_font_family_list,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2926 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2927 doc: /* Return a list of available font families on FRAME.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2928 If FRAME is omitted or nil, use the selected frame.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2929 Value is a list of conses (FAMILY . FIXED-P) where FAMILY
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2930 is a font family, and FIXED-P is non-nil if fonts of that family
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2931 are fixed-pitch. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2932 (frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2933 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2934 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2935 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2936 int nfonts, i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2937 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2938 Lisp_Object result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2939 struct gcpro gcpro1;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 46285
diff changeset
2940 int count = SPECPDL_INDEX ();
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2941
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2942 /* Let's consider all fonts. */
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2943 specbind (intern ("font-list-limit"), make_number (-1));
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2944 nfonts = font_list (f, Qnil, Qnil, Qnil, &fonts);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2945
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2946 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2947 GCPRO1 (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2948 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2949 result = Fcons (Fcons (build_string (fonts[i].fields[XLFD_FAMILY]),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2950 xlfd_fixed_p (fonts + i) ? Qt : Qnil),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2951 result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2952
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2953 remove_duplicates (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2954 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2955 UNGCPRO;
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2956 return unbind_to (count, result);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2957 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2958
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2959
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2960 DEFUN ("x-list-fonts", Fx_list_fonts, Sx_list_fonts, 1, 5, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2961 doc: /* Return a list of the names of available fonts matching PATTERN.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2962 If optional arguments FACE and FRAME are specified, return only fonts
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2963 the same size as FACE on FRAME.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2964 PATTERN is a string, perhaps with wildcard characters;
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2965 the * character matches any substring, and
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2966 the ? character matches any single character.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2967 PATTERN is case-insensitive.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2968 FACE is a face name--a symbol.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2969
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2970 The return value is a list of strings, suitable as arguments to
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2971 set-face-font.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2972
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2973 Fonts Emacs can't use may or may not be excluded
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2974 even if they match PATTERN and FACE.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2975 The optional fourth argument MAXIMUM sets a limit on how many
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2976 fonts to match. The first MAXIMUM fonts are reported.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2977 The optional fifth argument WIDTH, if specified, is a number of columns
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2978 occupied by a character of a font. In that case, return only fonts
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2979 the WIDTH times as wide as FACE on FRAME. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2980 (pattern, face, frame, maximum, width)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2981 Lisp_Object pattern, face, frame, maximum, width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2982 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2983 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2984 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2985 int maxnames;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2986
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2987 check_x ();
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2988 CHECK_STRING (pattern);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2989
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2990 if (NILP (maximum))
49859
c6bacc76cfb6 * xterm.c (x_list_fonts): If maxnames is less than 0, get all font
Jan Djärv <jan.h.d@swipnet.se>
parents: 49600
diff changeset
2991 maxnames = -1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2992 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2993 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2994 CHECK_NATNUM (maximum);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2995 maxnames = XINT (maximum);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2996 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2997
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2998 if (!NILP (width))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2999 CHECK_NUMBER (width);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3000
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3001 /* We can't simply call check_x_frame because this function may be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3002 called before any frame is created. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3003 f = frame_or_selected_frame (frame, 2);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3004 if (!FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3005 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3006 /* Perhaps we have not yet created any frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3007 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3008 face = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3009 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3010
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3011 /* Determine the width standard for comparison with the fonts we find. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3012
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3013 if (NILP (face))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3014 size = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3015 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3016 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3017 /* This is of limited utility since it works with character
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3018 widths. Keep it for compatibility. --gerd. */
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
3019 int face_id = lookup_named_face (f, face, 0, 0);
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
3020 struct face *face = (face_id < 0
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
3021 ? NULL
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
3022 : FACE_FROM_ID (f, face_id));
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
3023
51210
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3024 #ifdef WINDOWSNT
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3025 /* For historic reasons, FONT_WIDTH refers to average width on W32,
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3026 not maximum as on X. Redefine here. */
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3027 #undef FONT_WIDTH
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3028 #define FONT_WIDTH FONT_MAX_WIDTH
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3029 #endif
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3030
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
3031 if (face && face->font)
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3032 size = FONT_WIDTH (face->font);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3033 else
51210
491ca5acf5b3 [WINDOWSNT]: Move redefinition of FONT_WIDTH macro to
Kim F. Storm <storm@cua.dk>
parents: 51092
diff changeset
3034 size = FONT_WIDTH (FRAME_FONT (f)); /* FRAME_COLUMN_WIDTH (f) */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3035
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3036 if (!NILP (width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3037 size *= XINT (width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3038 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3039
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3040 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3041 Lisp_Object args[2];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3042
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3043 args[0] = x_list_fonts (f, pattern, size, maxnames);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3044 if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3045 /* We don't have to check fontsets. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3046 return args[0];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3047 args[1] = list_fontsets (f, pattern, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3048 return Fnconc (2, args);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3049 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3050 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3051
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3052 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3053
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3054
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3055
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3056 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3057 Lisp Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3058 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3059
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3060 /* Access face attributes of face LFACE, a Lisp vector. */
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3061
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3062 #define LFACE_FAMILY(LFACE) AREF ((LFACE), LFACE_FAMILY_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3063 #define LFACE_HEIGHT(LFACE) AREF ((LFACE), LFACE_HEIGHT_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3064 #define LFACE_WEIGHT(LFACE) AREF ((LFACE), LFACE_WEIGHT_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3065 #define LFACE_SLANT(LFACE) AREF ((LFACE), LFACE_SLANT_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3066 #define LFACE_UNDERLINE(LFACE) AREF ((LFACE), LFACE_UNDERLINE_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3067 #define LFACE_INVERSE(LFACE) AREF ((LFACE), LFACE_INVERSE_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3068 #define LFACE_FOREGROUND(LFACE) AREF ((LFACE), LFACE_FOREGROUND_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3069 #define LFACE_BACKGROUND(LFACE) AREF ((LFACE), LFACE_BACKGROUND_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3070 #define LFACE_STIPPLE(LFACE) AREF ((LFACE), LFACE_STIPPLE_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3071 #define LFACE_SWIDTH(LFACE) AREF ((LFACE), LFACE_SWIDTH_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3072 #define LFACE_OVERLINE(LFACE) AREF ((LFACE), LFACE_OVERLINE_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3073 #define LFACE_STRIKE_THROUGH(LFACE) AREF ((LFACE), LFACE_STRIKE_THROUGH_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3074 #define LFACE_BOX(LFACE) AREF ((LFACE), LFACE_BOX_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3075 #define LFACE_FONT(LFACE) AREF ((LFACE), LFACE_FONT_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3076 #define LFACE_INHERIT(LFACE) AREF ((LFACE), LFACE_INHERIT_INDEX)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3077 #define LFACE_AVGWIDTH(LFACE) AREF ((LFACE), LFACE_AVGWIDTH_INDEX)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3078
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3079 /* Non-zero if LFACE is a Lisp face. A Lisp face is a vector of size
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3080 LFACE_VECTOR_SIZE which has the symbol `face' in slot 0. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3081
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3082 #define LFACEP(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3083 (VECTORP (LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3084 && XVECTOR (LFACE)->size == LFACE_VECTOR_SIZE \
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3085 && EQ (AREF (LFACE, 0), Qface))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3086
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3087
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3088 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3089
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3090 /* Check consistency of Lisp face attribute vector ATTRS. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3091
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3092 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3093 check_lface_attrs (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3094 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3095 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3096 xassert (UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3097 || IGNORE_DEFFACE_P (attrs[LFACE_FAMILY_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3098 || STRINGP (attrs[LFACE_FAMILY_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3099 xassert (UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3100 || IGNORE_DEFFACE_P (attrs[LFACE_SWIDTH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3101 || SYMBOLP (attrs[LFACE_SWIDTH_INDEX]));
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3102 xassert (UNSPECIFIEDP (attrs[LFACE_AVGWIDTH_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3103 || IGNORE_DEFFACE_P (attrs[LFACE_AVGWIDTH_INDEX])
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3104 || INTEGERP (attrs[LFACE_AVGWIDTH_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3105 xassert (UNSPECIFIEDP (attrs[LFACE_HEIGHT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3106 || IGNORE_DEFFACE_P (attrs[LFACE_HEIGHT_INDEX])
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3107 || INTEGERP (attrs[LFACE_HEIGHT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3108 || FLOATP (attrs[LFACE_HEIGHT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3109 || FUNCTIONP (attrs[LFACE_HEIGHT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3110 xassert (UNSPECIFIEDP (attrs[LFACE_WEIGHT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3111 || IGNORE_DEFFACE_P (attrs[LFACE_WEIGHT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3112 || SYMBOLP (attrs[LFACE_WEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3113 xassert (UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3114 || IGNORE_DEFFACE_P (attrs[LFACE_SLANT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3115 || SYMBOLP (attrs[LFACE_SLANT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3116 xassert (UNSPECIFIEDP (attrs[LFACE_UNDERLINE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3117 || IGNORE_DEFFACE_P (attrs[LFACE_UNDERLINE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3118 || SYMBOLP (attrs[LFACE_UNDERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3119 || STRINGP (attrs[LFACE_UNDERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3120 xassert (UNSPECIFIEDP (attrs[LFACE_OVERLINE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3121 || IGNORE_DEFFACE_P (attrs[LFACE_OVERLINE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3122 || SYMBOLP (attrs[LFACE_OVERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3123 || STRINGP (attrs[LFACE_OVERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3124 xassert (UNSPECIFIEDP (attrs[LFACE_STRIKE_THROUGH_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3125 || IGNORE_DEFFACE_P (attrs[LFACE_STRIKE_THROUGH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3126 || SYMBOLP (attrs[LFACE_STRIKE_THROUGH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3127 || STRINGP (attrs[LFACE_STRIKE_THROUGH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3128 xassert (UNSPECIFIEDP (attrs[LFACE_BOX_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3129 || IGNORE_DEFFACE_P (attrs[LFACE_BOX_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3130 || SYMBOLP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3131 || STRINGP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3132 || INTEGERP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3133 || CONSP (attrs[LFACE_BOX_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3134 xassert (UNSPECIFIEDP (attrs[LFACE_INVERSE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3135 || IGNORE_DEFFACE_P (attrs[LFACE_INVERSE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3136 || SYMBOLP (attrs[LFACE_INVERSE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3137 xassert (UNSPECIFIEDP (attrs[LFACE_FOREGROUND_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3138 || IGNORE_DEFFACE_P (attrs[LFACE_FOREGROUND_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3139 || STRINGP (attrs[LFACE_FOREGROUND_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3140 xassert (UNSPECIFIEDP (attrs[LFACE_BACKGROUND_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3141 || IGNORE_DEFFACE_P (attrs[LFACE_BACKGROUND_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3142 || STRINGP (attrs[LFACE_BACKGROUND_INDEX]));
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3143 xassert (UNSPECIFIEDP (attrs[LFACE_INHERIT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3144 || IGNORE_DEFFACE_P (attrs[LFACE_INHERIT_INDEX])
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3145 || NILP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3146 || SYMBOLP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3147 || CONSP (attrs[LFACE_INHERIT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3148 #ifdef HAVE_WINDOW_SYSTEM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3149 xassert (UNSPECIFIEDP (attrs[LFACE_STIPPLE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3150 || IGNORE_DEFFACE_P (attrs[LFACE_STIPPLE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3151 || SYMBOLP (attrs[LFACE_STIPPLE_INDEX])
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
3152 || !NILP (Fbitmap_spec_p (attrs[LFACE_STIPPLE_INDEX])));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3153 xassert (UNSPECIFIEDP (attrs[LFACE_FONT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3154 || IGNORE_DEFFACE_P (attrs[LFACE_FONT_INDEX])
28237
2f636fd2f714 (check_lface_attrs) [GLYPH_DEBUG]: Fix syntax error.
Gerd Moellmann <gerd@gnu.org>
parents: 28230
diff changeset
3155 || NILP (attrs[LFACE_FONT_INDEX])
2f636fd2f714 (check_lface_attrs) [GLYPH_DEBUG]: Fix syntax error.
Gerd Moellmann <gerd@gnu.org>
parents: 28230
diff changeset
3156 || STRINGP (attrs[LFACE_FONT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3157 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3158 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3159
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3160
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3161 /* Check consistency of attributes of Lisp face LFACE (a Lisp vector). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3162
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3163 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3164 check_lface (lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3165 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3166 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3167 if (!NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3168 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3169 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3170 check_lface_attrs (XVECTOR (lface)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3171 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3172 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3173
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3174 #else /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3175
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3176 #define check_lface_attrs(attrs) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3177 #define check_lface(lface) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3178
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3179 #endif /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3180
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3181
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3182
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3183 /* Face-merge cycle checking. */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3184
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3185 /* A `named merge point' is simply a point during face-merging where we
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3186 look up a face by name. We keep a stack of which named lookups we're
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3187 currently processing so that we can easily detect cycles, using a
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3188 linked- list of struct named_merge_point structures, typically
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3189 allocated on the stack frame of the named lookup functions which are
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3190 active (so no consing is required). */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3191 struct named_merge_point
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3192 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3193 Lisp_Object face_name;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3194 struct named_merge_point *prev;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3195 };
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3196
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3197
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3198 /* If a face merging cycle is detected for FACE_NAME, return 0,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3199 otherwise add NEW_NAMED_MERGE_POINT, which is initialized using
55982
de4c259f651b Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-385
Miles Bader <miles@gnu.org>
parents: 55966
diff changeset
3200 FACE_NAME, as the head of the linked list pointed to by
de4c259f651b Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-385
Miles Bader <miles@gnu.org>
parents: 55966
diff changeset
3201 NAMED_MERGE_POINTS, and return 1. */
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3202
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3203 static INLINE int
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3204 push_named_merge_point (struct named_merge_point *new_named_merge_point,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3205 Lisp_Object face_name,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3206 struct named_merge_point **named_merge_points)
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3207 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3208 struct named_merge_point *prev;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3209
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3210 for (prev = *named_merge_points; prev; prev = prev->prev)
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3211 if (EQ (face_name, prev->face_name))
55982
de4c259f651b Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-385
Miles Bader <miles@gnu.org>
parents: 55966
diff changeset
3212 return 0;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3213
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3214 new_named_merge_point->face_name = face_name;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3215 new_named_merge_point->prev = *named_merge_points;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3216
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3217 *named_merge_points = new_named_merge_point;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3218
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3219 return 1;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3220 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3221
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3222
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3223
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3224
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3225 /* Resolve face name FACE_NAME. If FACE_NAME is a string, intern it
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3226 to make it a symbol. If FACE_NAME is an alias for another face,
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3227 return that face's name.
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3228
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3229 Return default face in case of errors. */
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3230
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3231 static Lisp_Object
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3232 resolve_face_name (face_name, signal_p)
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3233 Lisp_Object face_name;
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3234 int signal_p;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3235 {
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3236 Lisp_Object orig_face;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3237 Lisp_Object tortoise, hare;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3238
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3239 if (STRINGP (face_name))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
3240 face_name = intern (SDATA (face_name));
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3241
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3242 if (NILP (face_name) || !SYMBOLP (face_name))
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3243 return face_name;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3244
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3245 orig_face = face_name;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3246 tortoise = hare = face_name;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3247
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3248 while (1)
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3249 {
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3250 face_name = hare;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3251 hare = Fget (hare, Qface_alias);
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3252 if (NILP (hare) || !SYMBOLP (hare))
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3253 break;
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3254
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3255 face_name = hare;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3256 hare = Fget (hare, Qface_alias);
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3257 if (NILP (hare) || !SYMBOLP (hare))
61647
a39c60b30e5a (resolve_face_name): Use Fsafe_get to avoid redisplay
Kim F. Storm <storm@cua.dk>
parents: 61628
diff changeset
3258 break;
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3259
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3260 tortoise = Fget (tortoise, Qface_alias);
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3261 if (EQ (hare, tortoise))
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3262 {
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3263 if (signal_p)
71992
760807463226 * xfaces.c (signal_error): Move to eval.c.
Kim F. Storm <storm@cua.dk>
parents: 71845
diff changeset
3264 xsignal1 (Qcircular_list, orig_face);
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3265 return Qdefault;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3266 }
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3267 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3268
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3269 return face_name;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3270 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3271
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3272
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3273 /* Return the face definition of FACE_NAME on frame F. F null means
33853
eb4affa4abc6 (lface_from_face_name): Function comment fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33529
diff changeset
3274 return the definition for new frames. FACE_NAME may be a string or
eb4affa4abc6 (lface_from_face_name): Function comment fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33529
diff changeset
3275 a symbol (apparently Emacs 20.2 allowed strings as face names in
eb4affa4abc6 (lface_from_face_name): Function comment fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33529
diff changeset
3276 face text properties; Ediff uses that). If FACE_NAME is an alias
eb4affa4abc6 (lface_from_face_name): Function comment fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33529
diff changeset
3277 for another face, return that face's definition. If SIGNAL_P is
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3278 non-zero, signal an error if FACE_NAME is not a valid face name.
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3279 If SIGNAL_P is zero, value is nil if FACE_NAME is not a valid face
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3280 name. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3281
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3282 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3283 lface_from_face_name (f, face_name, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3284 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3285 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3286 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3287 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3288 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3289
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
3290 face_name = resolve_face_name (face_name, signal_p);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3291
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3292 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3293 lface = assq_no_quit (face_name, f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3294 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3295 lface = assq_no_quit (face_name, Vface_new_frame_defaults);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3296
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3297 if (CONSP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3298 lface = XCDR (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3299 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3300 signal_error ("Invalid face", face_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3301
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3302 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3303 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3304 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3305
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3306
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3307 /* Get face attributes of face FACE_NAME from frame-local faces on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3308 frame F. Store the resulting attributes in ATTRS which must point
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3309 to a vector of Lisp_Objects of size LFACE_VECTOR_SIZE. If SIGNAL_P
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3310 is non-zero, signal an error if FACE_NAME does not name a face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3311 Otherwise, value is zero if FACE_NAME is not a face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3312
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3313 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3314 get_lface_attributes (f, face_name, attrs, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3315 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3316 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3317 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3318 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3319 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3320 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3321 int success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3322
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3323 lface = lface_from_face_name (f, face_name, signal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3324 if (!NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3325 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3326 bcopy (XVECTOR (lface)->contents, attrs,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3327 LFACE_VECTOR_SIZE * sizeof *attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3328 success_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3329 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3330 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3331 success_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3332
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3333 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3334 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3335
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3336
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3337 /* Non-zero if all attributes in face attribute vector ATTRS are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3338 specified, i.e. are non-nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3339
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3340 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3341 lface_fully_specified_p (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3342 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3343 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3344 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3345
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3346 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3347 if (i != LFACE_FONT_INDEX && i != LFACE_INHERIT_INDEX
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3348 && i != LFACE_AVGWIDTH_INDEX)
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3349 if ((UNSPECIFIEDP (attrs[i]) || IGNORE_DEFFACE_P (attrs[i]))
53274
c6ecb6ee69bf * xfaces.c (lface_fully_specified_p): Take into account that
Jan Djärv <jan.h.d@swipnet.se>
parents: 53267
diff changeset
3350 #ifdef MAC_OS
c6ecb6ee69bf * xfaces.c (lface_fully_specified_p): Take into account that
Jan Djärv <jan.h.d@swipnet.se>
parents: 53267
diff changeset
3351 /* MAC_TODO: No stipple support on Mac OS yet, this index is
c6ecb6ee69bf * xfaces.c (lface_fully_specified_p): Take into account that
Jan Djärv <jan.h.d@swipnet.se>
parents: 53267
diff changeset
3352 always unspecified. */
c6ecb6ee69bf * xfaces.c (lface_fully_specified_p): Take into account that
Jan Djärv <jan.h.d@swipnet.se>
parents: 53267
diff changeset
3353 && i != LFACE_STIPPLE_INDEX
c6ecb6ee69bf * xfaces.c (lface_fully_specified_p): Take into account that
Jan Djärv <jan.h.d@swipnet.se>
parents: 53267
diff changeset
3354 #endif
c6ecb6ee69bf * xfaces.c (lface_fully_specified_p): Take into account that
Jan Djärv <jan.h.d@swipnet.se>
parents: 53267
diff changeset
3355 )
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3356 break;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3357
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3358 return i == LFACE_VECTOR_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3359 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3360
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3361 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3362
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3363 /* Set font-related attributes of Lisp face LFACE from the fullname of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3364 the font opened by FONTNAME. If FORCE_P is zero, set only
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3365 unspecified attributes of LFACE. The exception is `font'
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3366 attribute. It is set to FONTNAME as is regardless of FORCE_P.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3367
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3368 If FONTNAME is not available on frame F,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3369 return 0 if MAY_FAIL_P is non-zero, otherwise abort.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3370 If the fullname is not in a valid XLFD format,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3371 return 0 if MAY_FAIL_P is non-zero, otherwise set normal values
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3372 in LFACE and return 1.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3373 Otherwise, return 1. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3374
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3375 static int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3376 set_lface_from_font_name (f, lface, fontname, force_p, may_fail_p)
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
3377 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3378 Lisp_Object lface;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3379 Lisp_Object fontname;
26594
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3380 int force_p, may_fail_p;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3381 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3382 struct font_name font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3383 char *buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3384 int pt;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3385 int have_xlfd_p;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3386 int fontset;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
3387 char *font_name = SDATA (fontname);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3388 struct font_info *font_info;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3389
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3390 /* If FONTNAME is actually a fontset name, get ASCII font name of it. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3391 fontset = fs_query_fontset (fontname, 0);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3392 if (fontset >= 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
3393 font_name = SDATA (fontset_ascii (fontset));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3394
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3395 /* Check if FONT_NAME is surely available on the system. Usually
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3396 FONT_NAME is already cached for the frame F and FS_LOAD_FONT
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3397 returns quickly. But, even if FONT_NAME is not yet cached,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3398 caching it now is not futail because we anyway load the font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3399 later. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3400 BLOCK_INPUT;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3401 font_info = FS_LOAD_FONT (f, 0, font_name, -1);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3402 UNBLOCK_INPUT;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3403
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3404 if (!font_info)
26594
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3405 {
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3406 if (may_fail_p)
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3407 return 0;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3408 abort ();
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3409 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3410
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3411 font.name = STRDUPA (font_info->full_name);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3412 have_xlfd_p = split_font_name (f, &font, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3413
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3414 /* Set attributes only if unspecified, otherwise face defaults for
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3415 new frames would never take effect. If we couldn't get a font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3416 name conforming to XLFD, set normal values. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3417
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3418 if (force_p || UNSPECIFIEDP (LFACE_FAMILY (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3419 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3420 Lisp_Object val;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3421 if (have_xlfd_p)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3422 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3423 buffer = (char *) alloca (strlen (font.fields[XLFD_FAMILY])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3424 + strlen (font.fields[XLFD_FOUNDRY])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3425 + 2);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3426 sprintf (buffer, "%s-%s", font.fields[XLFD_FOUNDRY],
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3427 font.fields[XLFD_FAMILY]);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3428 val = build_string (buffer);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3429 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3430 else
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3431 val = build_string ("*");
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3432 LFACE_FAMILY (lface) = val;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3433 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3434
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3435 if (force_p || UNSPECIFIEDP (LFACE_HEIGHT (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3436 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3437 if (have_xlfd_p)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3438 pt = xlfd_point_size (f, &font);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3439 else
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3440 pt = pixel_point_size (f, font_info->height * 10);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3441 xassert (pt > 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3442 LFACE_HEIGHT (lface) = make_number (pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3443 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3444
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3445 if (force_p || UNSPECIFIEDP (LFACE_SWIDTH (lface)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3446 LFACE_SWIDTH (lface)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3447 = have_xlfd_p ? xlfd_symbolic_swidth (&font) : Qnormal;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3448
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3449 if (force_p || UNSPECIFIEDP (LFACE_AVGWIDTH (lface)))
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3450 LFACE_AVGWIDTH (lface)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3451 = (have_xlfd_p
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3452 ? make_number (font.numeric[XLFD_AVGWIDTH])
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3453 : Qunspecified);
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3454
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3455 if (force_p || UNSPECIFIEDP (LFACE_WEIGHT (lface)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3456 LFACE_WEIGHT (lface)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3457 = have_xlfd_p ? xlfd_symbolic_weight (&font) : Qnormal;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3458
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3459 if (force_p || UNSPECIFIEDP (LFACE_SLANT (lface)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3460 LFACE_SLANT (lface)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3461 = have_xlfd_p ? xlfd_symbolic_slant (&font) : Qnormal;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3462
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3463 LFACE_FONT (lface) = fontname;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3464
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3465 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3466 }
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
3467
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3468 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3469
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3470
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3471 /* Merges the face height FROM with the face height TO, and returns the
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3472 merged height. If FROM is an invalid height, then INVALID is
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3473 returned instead. FROM and TO may be either absolute face heights or
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3474 `relative' heights; the returned value is always an absolute height
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3475 unless both FROM and TO are relative. GCPRO is a lisp value that
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3476 will be protected from garbage-collection if this function makes a
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3477 call into lisp. */
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3478
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3479 Lisp_Object
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3480 merge_face_heights (from, to, invalid)
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3481 Lisp_Object from, to, invalid;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3482 {
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3483 Lisp_Object result = invalid;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3484
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3485 if (INTEGERP (from))
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3486 /* FROM is absolute, just use it as is. */
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3487 result = from;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3488 else if (FLOATP (from))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3489 /* FROM is a scale, use it to adjust TO. */
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3490 {
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3491 if (INTEGERP (to))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3492 /* relative X absolute => absolute */
41518
ee7c1fe5feaf (merge_face_heights): Coerce back to int explicitly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41129
diff changeset
3493 result = make_number ((EMACS_INT)(XFLOAT_DATA (from) * XINT (to)));
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3494 else if (FLOATP (to))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3495 /* relative X relative => relative */
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3496 result = make_float (XFLOAT_DATA (from) * XFLOAT_DATA (to));
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3497 else if (UNSPECIFIEDP (to))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3498 result = from;
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3499 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3500 else if (FUNCTIONP (from))
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3501 /* FROM is a function, which use to adjust TO. */
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3502 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3503 /* Call function with current height as argument.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3504 From is the new height. */
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3505 Lisp_Object args[2];
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3506
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3507 args[0] = from;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3508 args[1] = to;
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3509 result = safe_call (2, args);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3510
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3511 /* Ensure that if TO was absolute, so is the result. */
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3512 if (INTEGERP (to) && !INTEGERP (result))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3513 result = invalid;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3514 }
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3515
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3516 return result;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3517 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3518
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3519
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3520 /* Merge two Lisp face attribute vectors on frame F, FROM and TO, and
31259
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3521 store the resulting attributes in TO, which must be already be
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3522 completely specified and contain only absolute attributes. Every
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3523 specified attribute of FROM overrides the corresponding attribute of
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3524 TO; relative attributes in FROM are merged with the absolute value in
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3525 TO and replace it. NAMED_MERGE_POINTS is used internally to detect
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3526 loops in face inheritance; it should be 0 when called from other
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3527 places. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3528
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3529 static INLINE void
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3530 merge_face_vectors (f, from, to, named_merge_points)
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3531 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3532 Lisp_Object *from, *to;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3533 struct named_merge_point *named_merge_points;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3534 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3535 int i;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3536
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3537 /* If FROM inherits from some other faces, merge their attributes into
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3538 TO before merging FROM's direct attributes. Note that an :inherit
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3539 attribute of `unspecified' is the same as one of nil; we never
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3540 merge :inherit attributes, so nil is more correct, but lots of
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3541 other code uses `unspecified' as a generic value for face attributes. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3542 if (!UNSPECIFIEDP (from[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3543 && !NILP (from[LFACE_INHERIT_INDEX]))
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3544 merge_face_ref (f, from[LFACE_INHERIT_INDEX], to, 0, named_merge_points);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3545
31221
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3546 /* If TO specifies a :font attribute, and FROM specifies some
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3547 font-related attribute, we need to clear TO's :font attribute
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3548 (because it will be inconsistent with whatever FROM specifies, and
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3549 FROM takes precedence). */
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3550 if (!NILP (to[LFACE_FONT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3551 && (!UNSPECIFIEDP (from[LFACE_FAMILY_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3552 || !UNSPECIFIEDP (from[LFACE_HEIGHT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3553 || !UNSPECIFIEDP (from[LFACE_WEIGHT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3554 || !UNSPECIFIEDP (from[LFACE_SLANT_INDEX])
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3555 || !UNSPECIFIEDP (from[LFACE_SWIDTH_INDEX])
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3556 || !UNSPECIFIEDP (from[LFACE_AVGWIDTH_INDEX])))
31221
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3557 to[LFACE_FONT_INDEX] = Qnil;
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3558
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3559 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3560 if (!UNSPECIFIEDP (from[i]))
40838
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3561 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3562 if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i]))
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3563 to[i] = merge_face_heights (from[i], to[i], to[i]);
40838
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3564 else
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3565 to[i] = from[i];
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3566 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3567
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3568 /* TO is always an absolute face, which should inherit from nothing.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3569 We blindly copy the :inherit attribute above and fix it up here. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3570 to[LFACE_INHERIT_INDEX] = Qnil;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3571 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3572
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3573 /* Merge the named face FACE_NAME on frame F, into the vector of face
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3574 attributes TO. NAMED_MERGE_POINTS is used to detect loops in face
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3575 inheritance. Returns true if FACE_NAME is a valid face name and
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3576 merging succeeded. */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3577
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3578 static int
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3579 merge_named_face (f, face_name, to, named_merge_points)
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3580 struct frame *f;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3581 Lisp_Object face_name;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3582 Lisp_Object *to;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3583 struct named_merge_point *named_merge_points;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3584 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3585 struct named_merge_point named_merge_point;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3586
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3587 if (push_named_merge_point (&named_merge_point,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3588 face_name, &named_merge_points))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3589 {
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3590 struct gcpro gcpro1;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3591 Lisp_Object from[LFACE_VECTOR_SIZE];
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3592 int ok = get_lface_attributes (f, face_name, from, 0);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3593
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3594 if (ok)
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3595 {
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3596 GCPRO1 (named_merge_point.face_name);
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3597 merge_face_vectors (f, from, to, named_merge_points);
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3598 UNGCPRO;
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3599 }
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3600
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3601 return ok;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3602 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3603 else
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3604 return 0;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3605 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3606
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3607
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3608 /* Merge face attributes from the lisp `face reference' FACE_REF on
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3609 frame F into the face attribute vector TO. If ERR_MSGS is non-zero,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3610 problems with FACE_REF cause an error message to be shown. Return
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3611 non-zero if no errors occurred (regardless of the value of ERR_MSGS).
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3612 NAMED_MERGE_POINTS is used to detect loops in face inheritance or
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3613 list structure; it may be 0 for most callers.
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3614
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3615 FACE_REF may be a single face specification or a list of such
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3616 specifications. Each face specification can be:
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3617
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3618 1. A symbol or string naming a Lisp face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3619
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3620 2. A property list of the form (KEYWORD VALUE ...) where each
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3621 KEYWORD is a face attribute name, and value is an appropriate value
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3622 for that attribute.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3623
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3624 3. Conses or the form (FOREGROUND-COLOR . COLOR) or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3625 (BACKGROUND-COLOR . COLOR) where COLOR is a color name. This is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3626 for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3627
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3628 Face specifications earlier in lists take precedence over later
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3629 specifications. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3630
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3631 static int
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3632 merge_face_ref (f, face_ref, to, err_msgs, named_merge_points)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3633 struct frame *f;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3634 Lisp_Object face_ref;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3635 Lisp_Object *to;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3636 int err_msgs;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3637 struct named_merge_point *named_merge_points;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3638 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3639 int ok = 1; /* Succeed without an error? */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3640
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3641 if (CONSP (face_ref))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3642 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3643 Lisp_Object first = XCAR (face_ref);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3644
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3645 if (EQ (first, Qforeground_color)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3646 || EQ (first, Qbackground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3647 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3648 /* One of (FOREGROUND-COLOR . COLOR) or (BACKGROUND-COLOR
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3649 . COLOR). COLOR must be a string. */
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3650 Lisp_Object color_name = XCDR (face_ref);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3651 Lisp_Object color = first;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3652
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3653 if (STRINGP (color_name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3654 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3655 if (EQ (color, Qforeground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3656 to[LFACE_FOREGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3657 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3658 to[LFACE_BACKGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3659 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3660 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3661 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3662 if (err_msgs)
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3663 add_to_log ("Invalid face color", color_name, Qnil);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3664 ok = 0;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3665 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3666 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3667 else if (SYMBOLP (first)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
3668 && *SDATA (SYMBOL_NAME (first)) == ':')
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3669 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3670 /* Assume this is the property list form. */
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3671 while (CONSP (face_ref) && CONSP (XCDR (face_ref)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3672 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3673 Lisp_Object keyword = XCAR (face_ref);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3674 Lisp_Object value = XCAR (XCDR (face_ref));
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3675 int err = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3676
56694
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
3677 /* Specifying `unspecified' is a no-op. */
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
3678 if (EQ (value, Qunspecified))
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
3679 ;
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
3680 else if (EQ (keyword, QCfamily))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3681 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3682 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3683 to[LFACE_FAMILY_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3684 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3685 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3686 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3687 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3688 {
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3689 Lisp_Object new_height =
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
3690 merge_face_heights (value, to[LFACE_HEIGHT_INDEX], Qnil);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3691
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3692 if (! NILP (new_height))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3693 to[LFACE_HEIGHT_INDEX] = new_height;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3694 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3695 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3696 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3697 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3698 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3699 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3700 && face_numeric_weight (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3701 to[LFACE_WEIGHT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3702 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3703 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3704 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3705 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3706 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3707 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3708 && face_numeric_slant (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3709 to[LFACE_SLANT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3710 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3711 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3712 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3713 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3714 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3715 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3716 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3717 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3718 to[LFACE_UNDERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3719 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3720 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3721 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3722 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3723 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3724 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3725 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3726 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3727 to[LFACE_OVERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3728 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3729 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3730 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3731 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3732 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3733 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3734 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3735 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3736 to[LFACE_STRIKE_THROUGH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3737 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3738 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3739 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3740 else if (EQ (keyword, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3741 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3742 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3743 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3744 if (INTEGERP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3745 || STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3746 || CONSP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3747 || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3748 to[LFACE_BOX_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3749 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3750 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3751 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3752 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3753 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3754 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3755 if (EQ (value, Qt) || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3756 to[LFACE_INVERSE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3757 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3758 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3759 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3760 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3761 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3762 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3763 to[LFACE_FOREGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3764 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3765 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3766 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3767 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3768 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3769 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3770 to[LFACE_BACKGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3771 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3772 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3773 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3774 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3775 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3776 #ifdef HAVE_X_WINDOWS
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
3777 Lisp_Object pixmap_p = Fbitmap_spec_p (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3778 if (!NILP (pixmap_p))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3779 to[LFACE_STIPPLE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3780 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3781 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3782 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3783 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3784 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3785 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3786 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3787 && face_numeric_swidth (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3788 to[LFACE_SWIDTH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3789 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3790 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3791 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3792 else if (EQ (keyword, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3793 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3794 /* This is not really very useful; it's just like a
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3795 normal face reference. */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3796 if (! merge_face_ref (f, value, to,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3797 err_msgs, named_merge_points))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3798 err = 1;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3799 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3800 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3801 err = 1;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3802
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3803 if (err)
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3804 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3805 add_to_log ("Invalid face attribute %S %S", keyword, value);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3806 ok = 0;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3807 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3808
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3809 face_ref = XCDR (XCDR (face_ref));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3810 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3811 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3812 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3813 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3814 /* This is a list of face refs. Those at the beginning of the
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3815 list take precedence over what follows, so we have to merge
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3816 from the end backwards. */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3817 Lisp_Object next = XCDR (face_ref);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3818
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3819 if (! NILP (next))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3820 ok = merge_face_ref (f, next, to, err_msgs, named_merge_points);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3821
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3822 if (! merge_face_ref (f, first, to, err_msgs, named_merge_points))
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3823 ok = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3824 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3825 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3826 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3827 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3828 /* FACE_REF ought to be a face name. */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3829 ok = merge_named_face (f, face_ref, to, named_merge_points);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3830 if (!ok && err_msgs)
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3831 add_to_log ("Invalid face reference: %s", face_ref, Qnil);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3832 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3833
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
3834 return ok;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3835 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3836
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3837
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3838 DEFUN ("internal-make-lisp-face", Finternal_make_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3839 Sinternal_make_lisp_face, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3840 doc: /* Make FACE, a symbol, a Lisp face with all attributes nil.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
3841 If FACE was not known as a face before, create a new one.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
3842 If optional argument FRAME is specified, make a frame-local face
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
3843 for that frame. Otherwise operate on the global face definition.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3844 Value is a vector of face attributes. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3845 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3846 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3847 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3848 Lisp_Object global_lface, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3849 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3850 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3851
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3852 CHECK_SYMBOL (face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3853 global_lface = lface_from_face_name (NULL, face, 0);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3854
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3855 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3856 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3857 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3858 f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3859 lface = lface_from_face_name (f, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3860 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3861 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3862 f = NULL, lface = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3863
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3864 /* Add a global definition if there is none. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3865 if (NILP (global_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3866 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3867 global_lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3868 Qunspecified);
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3869 AREF (global_lface, 0) = Qface;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3870 Vface_new_frame_defaults = Fcons (Fcons (face, global_lface),
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3871 Vface_new_frame_defaults);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3872
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3873 /* Assign the new Lisp face a unique ID. The mapping from Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3874 face id to Lisp face is given by the vector lface_id_to_name.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3875 The mapping from Lisp face to Lisp face id is given by the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3876 property `face' of the Lisp face name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3877 if (next_lface_id == lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3878 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3879 int new_size = max (50, 2 * lface_id_to_name_size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3880 int sz = new_size * sizeof *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3881 lface_id_to_name = (Lisp_Object *) xrealloc (lface_id_to_name, sz);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3882 lface_id_to_name_size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3883 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3884
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3885 lface_id_to_name[next_lface_id] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3886 Fput (face, Qface, make_number (next_lface_id));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3887 ++next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3888 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3889 else if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3890 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3891 AREF (global_lface, i) = Qunspecified;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3892
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3893 /* Add a frame-local definition. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3894 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3895 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3896 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3897 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3898 lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3899 Qunspecified);
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3900 AREF (lface, 0) = Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3901 f->face_alist = Fcons (Fcons (face, lface), f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3902 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3903 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3904 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
3905 AREF (lface, i) = Qunspecified;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3906 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3907 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3908 lface = global_lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3909
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3910 /* Changing a named face means that all realized faces depending on
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3911 that face are invalid. Since we cannot tell which realized faces
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3912 depend on the face, make sure they are all removed. This is done
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3913 by incrementing face_change_count. The next call to
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3914 init_iterator will then free realized faces. */
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3915 if (NILP (Fget (face, Qface_no_inherit)))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3916 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3917 ++face_change_count;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3918 ++windows_or_buffers_changed;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3919 }
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3920
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3921 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3922 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3923 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3924 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3925
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3926
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3927 DEFUN ("internal-lisp-face-p", Finternal_lisp_face_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3928 Sinternal_lisp_face_p, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3929 doc: /* Return non-nil if FACE names a face.
64578
91757d0e430d (Finternal_lisp_face_p): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 64426
diff changeset
3930 If optional second argument FRAME is non-nil, check for the
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
3931 existence of a frame-local face with name FACE on that frame.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3932 Otherwise check for the existence of a global face. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3933 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3934 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3935 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3936 Lisp_Object lface;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3937
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3938 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3939 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3940 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3941 lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3942 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3943 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3944 lface = lface_from_face_name (NULL, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3945
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3946 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3947 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3948
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3949
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3950 DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3951 Sinternal_copy_lisp_face, 4, 4, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3952 doc: /* Copy face FROM to TO.
56176
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3953 If FRAME is t, copy the global face definition of FROM.
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3954 Otherwise, copy the frame-local definition of FROM on FRAME.
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3955 If NEW-FRAME is a frame, copy that data into the frame-local
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3956 definition of TO on NEW-FRAME. If NEW-FRAME is nil.
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3957 FRAME controls where the data is copied to.
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3958
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3959 The value is TO. */)
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3960 (from, to, frame, new_frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3961 Lisp_Object from, to, frame, new_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3962 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3963 Lisp_Object lface, copy;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3964
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3965 CHECK_SYMBOL (from);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3966 CHECK_SYMBOL (to);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3967
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3968 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3969 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3970 /* Copy global definition of FROM. We don't make copies of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3971 strings etc. because 20.2 didn't do it either. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3972 lface = lface_from_face_name (NULL, from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3973 copy = Finternal_make_lisp_face (to, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3974 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3975 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3976 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3977 /* Copy frame-local definition of FROM. */
56176
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3978 if (NILP (new_frame))
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
3979 new_frame = frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3980 CHECK_LIVE_FRAME (frame);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3981 CHECK_LIVE_FRAME (new_frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3982 lface = lface_from_face_name (XFRAME (frame), from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3983 copy = Finternal_make_lisp_face (to, new_frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3984 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3985
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3986 bcopy (XVECTOR (lface)->contents, XVECTOR (copy)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3987 LFACE_VECTOR_SIZE * sizeof (Lisp_Object));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3988
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3989 /* Changing a named face means that all realized faces depending on
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3990 that face are invalid. Since we cannot tell which realized faces
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3991 depend on the face, make sure they are all removed. This is done
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3992 by incrementing face_change_count. The next call to
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3993 init_iterator will then free realized faces. */
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3994 if (NILP (Fget (to, Qface_no_inherit)))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3995 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3996 ++face_change_count;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3997 ++windows_or_buffers_changed;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3998 }
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
3999
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4000 return to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4001 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4002
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4003
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4004 DEFUN ("internal-set-lisp-face-attribute", Finternal_set_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4005 Sinternal_set_lisp_face_attribute, 3, 4, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4006 doc: /* Set attribute ATTR of FACE to VALUE.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4007 FRAME being a frame means change the face on that frame.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4008 FRAME nil means change the face of the selected frame.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4009 FRAME t means change the default for new frames.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4010 FRAME 0 means change the face on all frames, and change the default
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4011 for new frames. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4012 (face, attr, value, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4013 Lisp_Object face, attr, value, frame;
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
4014 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4015 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4016 Lisp_Object old_value = Qnil;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4017 /* Set 1 if ATTR is QCfont. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4018 int font_attr_p = 0;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4019 /* Set 1 if ATTR is one of font-related attributes other than QCfont. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4020 int font_related_attr_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4021
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4022 CHECK_SYMBOL (face);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4023 CHECK_SYMBOL (attr);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4024
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
4025 face = resolve_face_name (face, 1);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4026
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4027 /* If FRAME is 0, change face on all frames, and change the
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4028 default for new frames. */
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4029 if (INTEGERP (frame) && XINT (frame) == 0)
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4030 {
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4031 Lisp_Object tail;
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
4032 Finternal_set_lisp_face_attribute (face, attr, value, Qt);
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4033 FOR_EACH_FRAME (tail, frame)
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4034 Finternal_set_lisp_face_attribute (face, attr, value, frame);
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
4035 return face;
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4036 }
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
4037
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4038 /* Set lface to the Lisp attribute vector of FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4039 if (EQ (frame, Qt))
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4040 {
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4041 lface = lface_from_face_name (NULL, face, 1);
67056
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4042
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4043 /* When updating face-new-frame-defaults, we put :ignore-defface
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4044 where the caller wants `unspecified'. This forces the frame
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4045 defaults to ignore the defface value. Otherwise, the defface
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4046 will take effect, which is generally not what is intended.
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4047 The value of that attribute will be inherited from some other
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4048 face during face merging. See internal_merge_in_global_face. */
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4049 if (UNSPECIFIEDP (value))
67056
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
4050 value = Qignore_defface;
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4051 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4052 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4053 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4054 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4055 frame = selected_frame;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4056
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4057 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4058 lface = lface_from_face_name (XFRAME (frame), face, 0);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4059
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4060 /* If a frame-local face doesn't exist yet, create one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4061 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4062 lface = Finternal_make_lisp_face (face, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4063 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4064
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4065 if (EQ (attr, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4066 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4067 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4068 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4069 CHECK_STRING (value);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4070 if (SCHARS (value) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4071 signal_error ("Invalid face family", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4072 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4073 old_value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4074 LFACE_FAMILY (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4075 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4076 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4077 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4078 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4079 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4080 {
40023
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4081 Lisp_Object test;
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4082
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4083 test = (EQ (face, Qdefault)
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4084 ? value
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4085 /* The default face must have an absolute size,
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4086 otherwise, we do a test merge with a random
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4087 height to see if VALUE's ok. */
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
4088 : merge_face_heights (value, make_number (10), Qnil));
40023
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4089
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
4090 if (!INTEGERP (test) || XINT (test) <= 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4091 signal_error ("Invalid face height", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4092 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4093
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4094 old_value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4095 LFACE_HEIGHT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4096 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4097 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4098 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4099 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4100 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4101 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4102 CHECK_SYMBOL (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4103 if (face_numeric_weight (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4104 signal_error ("Invalid face weight", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4105 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4106 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4107 LFACE_WEIGHT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4108 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4109 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4110 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4111 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4112 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4113 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4114 CHECK_SYMBOL (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4115 if (face_numeric_slant (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4116 signal_error ("Invalid face slant", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4117 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4118 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4119 LFACE_SLANT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4120 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4121 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4122 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4123 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4124 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4125 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4126 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4127 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4128 /* Underline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4129 || (STRINGP (value)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4130 && SCHARS (value) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4131 signal_error ("Invalid face underline", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4132
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4133 old_value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4134 LFACE_UNDERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4135 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4136 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4137 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4138 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4139 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4140 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4141 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4142 /* Overline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4143 || (STRINGP (value)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4144 && SCHARS (value) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4145 signal_error ("Invalid face overline", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4146
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4147 old_value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4148 LFACE_OVERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4149 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4150 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4151 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4152 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4153 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4154 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4155 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4156 /* Strike-through color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4157 || (STRINGP (value)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4158 && SCHARS (value) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4159 signal_error ("Invalid face strike-through", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4160
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4161 old_value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4162 LFACE_STRIKE_THROUGH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4163 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4164 else if (EQ (attr, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4165 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4166 int valid_p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4167
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4168 /* Allow t meaning a simple box of width 1 in foreground color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4169 of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4170 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4171 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4172
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4173 if (UNSPECIFIEDP (value) || IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4174 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4175 else if (NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4176 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4177 else if (INTEGERP (value))
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
4178 valid_p = XINT (value) != 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4179 else if (STRINGP (value))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4180 valid_p = SCHARS (value) > 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4181 else if (CONSP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4182 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4183 Lisp_Object tem;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4184
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4185 tem = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4186 while (CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4187 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4188 Lisp_Object k, v;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4189
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4190 k = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4191 tem = XCDR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4192 if (!CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4193 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4194 v = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4195 tem = XCDR (tem);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4196
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4197 if (EQ (k, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4198 {
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
4199 if (!INTEGERP (v) || XINT (v) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4200 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4201 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4202 else if (EQ (k, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4203 {
60150
ffb5cb773521 (Finternal_set_lisp_face_attribute): Allow :color property
Kim F. Storm <storm@cua.dk>
parents: 59924
diff changeset
4204 if (!NILP (v) && (!STRINGP (v) || SCHARS (v) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4205 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4206 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4207 else if (EQ (k, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4208 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4209 if (!EQ (v, Qpressed_button) && !EQ (v, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4210 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4211 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4212 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4213 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4214 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4215
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4216 valid_p = NILP (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4217 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4218 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4219 valid_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4220
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4221 if (!valid_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4222 signal_error ("Invalid face box", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4223
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4224 old_value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4225 LFACE_BOX (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4226 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4227 else if (EQ (attr, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4228 || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4229 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4230 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4231 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4232 CHECK_SYMBOL (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4233 if (!EQ (value, Qt) && !NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4234 signal_error ("Invalid inverse-video face attribute value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4235 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4236 old_value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4237 LFACE_INVERSE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4238 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4239 else if (EQ (attr, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4240 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4241 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4242 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4243 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4244 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4245 when the face is realized. */
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4246 CHECK_STRING (value);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4247 if (SCHARS (value) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4248 signal_error ("Empty foreground color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4249 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4250 old_value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4251 LFACE_FOREGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4252 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4253 else if (EQ (attr, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4254 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4255 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4256 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4257 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4258 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4259 when the face is realized. */
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4260 CHECK_STRING (value);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4261 if (SCHARS (value) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4262 signal_error ("Empty background color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4263 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4264 old_value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4265 LFACE_BACKGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4266 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4267 else if (EQ (attr, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4268 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4269 #ifdef HAVE_X_WINDOWS
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4270 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4271 && !NILP (value)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
4272 && NILP (Fbitmap_spec_p (value)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4273 signal_error ("Invalid stipple attribute", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4274 old_value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4275 LFACE_STIPPLE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4276 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4277 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4278 else if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4279 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4280 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4281 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4282 CHECK_SYMBOL (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4283 if (face_numeric_swidth (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4284 signal_error ("Invalid face width", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4285 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4286 old_value = LFACE_SWIDTH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4287 LFACE_SWIDTH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4288 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4289 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4290 else if (EQ (attr, QCfont))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4291 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4292 #ifdef HAVE_WINDOW_SYSTEM
44705
413dd322c77d (clear_font_table): Don't free the default font of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43270
diff changeset
4293 if (EQ (frame, Qt) || FRAME_WINDOW_P (XFRAME (frame)))
40224
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4294 {
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4295 /* Set font-related attributes of the Lisp face from an XLFD
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4296 font name. */
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4297 struct frame *f;
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4298 Lisp_Object tmp;
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4299
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4300 if (EQ (frame, Qt))
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4301 f = SELECTED_FRAME ();
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4302 else
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4303 f = check_x_frame (frame);
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4304
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4305 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
51092
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4306 {
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4307 CHECK_STRING (value);
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4308
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4309 /* VALUE may be a fontset name or an alias of fontset. In
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4310 such a case, use the base fontset name. */
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4311 tmp = Fquery_fontset (value, Qnil);
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4312 if (!NILP (tmp))
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4313 value = tmp;
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4314
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4315 if (!set_lface_from_font_name (f, lface, value, 1, 1))
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4316 signal_error ("Invalid font or fontset name", value);
c559952fe972 (Finternal_set_lisp_face_attribute): Handle Qunspecified
Richard M. Stallman <rms@gnu.org>
parents: 50515
diff changeset
4317 }
40224
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4318
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4319 font_attr_p = 1;
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
4320 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4321 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4322 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4323 else if (EQ (attr, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4324 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4325 Lisp_Object tail;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4326 if (SYMBOLP (value))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4327 tail = Qnil;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4328 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4329 for (tail = value; CONSP (tail); tail = XCDR (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4330 if (!SYMBOLP (XCAR (tail)))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4331 break;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4332 if (NILP (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4333 LFACE_INHERIT (lface) = value;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4334 else
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
4335 signal_error ("Invalid face inheritance", value);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4336 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4337 else if (EQ (attr, QCbold))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4338 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4339 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4340 LFACE_WEIGHT (lface) = NILP (value) ? Qnormal : Qbold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4341 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4342 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4343 else if (EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4344 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4345 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4346 LFACE_SLANT (lface) = NILP (value) ? Qnormal : Qitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4347 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4348 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4349 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4350 signal_error ("Invalid face attribute name", attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4351
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4352 if (font_related_attr_p
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4353 && !UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4354 /* If a font-related attribute other than QCfont is specified, the
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4355 original `font' attribute nor that of default face is useless
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4356 to determine a new font. Thus, we set it to nil so that font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4357 selection mechanism doesn't use it. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4358 LFACE_FONT (lface) = Qnil;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4359
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4360 /* Changing a named face means that all realized faces depending on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4361 that face are invalid. Since we cannot tell which realized faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4362 depend on the face, make sure they are all removed. This is done
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4363 by incrementing face_change_count. The next call to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4364 init_iterator will then free realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4365 if (!EQ (frame, Qt)
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4366 && NILP (Fget (face, Qface_no_inherit))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4367 && (EQ (attr, QCfont)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4368 || NILP (Fequal (old_value, value))))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4369 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4370 ++face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4371 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4372 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4373
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
4374 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4375 && NILP (Fequal (old_value, value)))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4376 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4377 Lisp_Object param;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4378
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4379 param = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4380
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4381 if (EQ (face, Qdefault))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4382 {
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4383 #ifdef HAVE_WINDOW_SYSTEM
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4384 /* Changed font-related attributes of the `default' face are
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4385 reflected in changed `font' frame parameters. */
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4386 if (FRAMEP (frame)
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4387 && (font_related_attr_p || font_attr_p)
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4388 && lface_fully_specified_p (XVECTOR (lface)->contents))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4389 set_font_frame_param (frame, lface);
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4390 else
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4391 #endif /* HAVE_WINDOW_SYSTEM */
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4392
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4393 if (EQ (attr, QCforeground))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4394 param = Qforeground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4395 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4396 param = Qbackground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4397 }
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4398 #ifdef HAVE_WINDOW_SYSTEM
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4399 #ifndef WINDOWSNT
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4400 else if (EQ (face, Qscroll_bar))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4401 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4402 /* Changing the colors of `scroll-bar' sets frame parameters
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4403 `scroll-bar-foreground' and `scroll-bar-background'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4404 if (EQ (attr, QCforeground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4405 param = Qscroll_bar_foreground;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4406 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4407 param = Qscroll_bar_background;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4408 }
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
4409 #endif /* not WINDOWSNT */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4410 else if (EQ (face, Qborder))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4411 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4412 /* Changing background color of `border' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4413 `border-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4414 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4415 param = Qborder_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4416 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4417 else if (EQ (face, Qcursor))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4418 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4419 /* Changing background color of `cursor' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4420 `cursor-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4421 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4422 param = Qcursor_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4423 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4424 else if (EQ (face, Qmouse))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4425 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4426 /* Changing background color of `mouse' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4427 `mouse-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4428 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4429 param = Qmouse_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4430 }
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
4431 #endif /* HAVE_WINDOW_SYSTEM */
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
4432 else if (EQ (face, Qmenu))
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4433 {
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4434 /* Indicate that we have to update the menu bar when
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4435 realizing faces on FRAME. FRAME t change the
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4436 default for new frames. We do this by setting
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4437 setting the flag in new face caches */
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4438 if (FRAMEP (frame))
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4439 {
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4440 struct frame *f = XFRAME (frame);
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4441 if (FRAME_FACE_CACHE (f) == NULL)
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4442 FRAME_FACE_CACHE (f) = make_face_cache (f);
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4443 FRAME_FACE_CACHE (f)->menu_face_changed_p = 1;
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4444 }
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4445 else
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4446 menu_face_changed_default = 1;
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4447 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4448
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4449 if (!NILP (param))
40838
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4450 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4451 if (EQ (frame, Qt))
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4452 /* Update `default-frame-alist', which is used for new frames. */
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4453 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4454 store_in_alist (&Vdefault_frame_alist, param, value);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4455 }
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4456 else
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4457 /* Update the current frame's parameters. */
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4458 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4459 Lisp_Object cons;
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4460 cons = XCAR (Vparam_value_alist);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4461 XSETCAR (cons, param);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4462 XSETCDR (cons, value);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4463 Fmodify_frame_parameters (frame, Vparam_value_alist);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4464 }
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
4465 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4466 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4467
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4468 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4469 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4470
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4471
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4472 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4473
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4474 /* Set the `font' frame parameter of FRAME determined from `default'
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4475 face attributes LFACE. If a face or fontset name is explicitely
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4476 specfied in LFACE, use it as is. Otherwise, determine a font name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4477 from the other font-related atrributes of LFACE. In that case, if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4478 there's no matching font, signals an error. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4479
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4480 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4481 set_font_frame_param (frame, lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4482 Lisp_Object frame, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4483 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4484 struct frame *f = XFRAME (frame);
35040
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4485
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4486 if (FRAME_WINDOW_P (f))
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4487 {
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4488 Lisp_Object font_name;
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4489 char *font;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
4490
35040
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4491 if (STRINGP (LFACE_FONT (lface)))
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4492 font_name = LFACE_FONT (lface);
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4493 else
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4494 {
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4495 /* Choose a font name that reflects LFACE's attributes and has
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4496 the registry and encoding pattern specified in the default
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4497 fontset (3rd arg: -1) for ASCII characters (4th arg: 0). */
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
4498 font = choose_face_font (f, XVECTOR (lface)->contents, -1, 0, 0);
35040
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4499 if (!font)
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4500 error ("No font matches the specified attribute");
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4501 font_name = build_string (font);
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4502 xfree (font);
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4503 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
4504
51665
c1f65dfc56eb Fix some of the font/face problems.
Jan Djärv <jan.h.d@swipnet.se>
parents: 51500
diff changeset
4505 f->default_face_done_p = 0;
35040
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4506 Fmodify_frame_parameters (frame, Fcons (Fcons (Qfont, font_name), Qnil));
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
4507 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4508 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4509
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4510
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4511 /* Update the corresponding face when frame parameter PARAM on frame F
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4512 has been assigned the value NEW_VALUE. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4513
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4514 void
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4515 update_face_from_frame_parameter (f, param, new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4516 struct frame *f;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4517 Lisp_Object param, new_value;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4518 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4519 Lisp_Object face = Qnil;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4520 Lisp_Object lface;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4521
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4522 /* If there are no faces yet, give up. This is the case when called
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4523 from Fx_create_frame, and we do the necessary things later in
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4524 face-set-after-frame-defaults. */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4525 if (NILP (f->face_alist))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4526 return;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4527
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4528 if (EQ (param, Qforeground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4529 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4530 face = Qdefault;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4531 lface = lface_from_face_name (f, face, 1);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4532 LFACE_FOREGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4533 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4534 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4535 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4536 else if (EQ (param, Qbackground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4537 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4538 Lisp_Object frame;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4539
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4540 /* Changing the background color might change the background
63642
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
4541 mode, so that we have to load new defface specs.
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
4542 Call frame-set-background-mode to do that. */
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4543 XSETFRAME (frame, f);
63642
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
4544 call1 (Qframe_set_background_mode, frame);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4545
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4546 face = Qdefault;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4547 lface = lface_from_face_name (f, face, 1);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4548 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4549 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4550 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4551 }
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4552 else if (EQ (param, Qborder_color))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4553 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4554 face = Qborder;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4555 lface = lface_from_face_name (f, face, 1);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4556 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4557 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4558 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4559 else if (EQ (param, Qcursor_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4560 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4561 face = Qcursor;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4562 lface = lface_from_face_name (f, face, 1);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4563 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4564 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4565 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4566 else if (EQ (param, Qmouse_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4567 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4568 face = Qmouse;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4569 lface = lface_from_face_name (f, face, 1);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4570 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4571 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4572 }
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4573
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4574 /* Changing a named face means that all realized faces depending on
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4575 that face are invalid. Since we cannot tell which realized faces
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4576 depend on the face, make sure they are all removed. This is done
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4577 by incrementing face_change_count. The next call to
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4578 init_iterator will then free realized faces. */
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4579 if (!NILP (face)
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4580 && NILP (Fget (face, Qface_no_inherit)))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4581 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4582 ++face_change_count;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4583 ++windows_or_buffers_changed;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
4584 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4585 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4586
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4587
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4588 /* Get the value of X resource RESOURCE, class CLASS for the display
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4589 of frame FRAME. This is here because ordinary `x-get-resource'
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4590 doesn't take a frame argument. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4591
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4592 DEFUN ("internal-face-x-get-resource", Finternal_face_x_get_resource,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4593 Sinternal_face_x_get_resource, 3, 3, 0, doc: /* */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4594 (resource, class, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4595 Lisp_Object resource, class, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4596 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4597 Lisp_Object value = Qnil;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4598 CHECK_STRING (resource);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4599 CHECK_STRING (class);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4600 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4601 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4602 value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4603 resource, class, Qnil, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4604 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4605 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4606 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4607
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4608
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4609 /* Return resource string VALUE as a boolean value, i.e. nil, or t.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4610 If VALUE is "on" or "true", return t. If VALUE is "off" or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4611 "false", return nil. Otherwise, if SIGNAL_P is non-zero, signal an
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4612 error; if SIGNAL_P is zero, return 0. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4613
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4614 static Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4615 face_boolean_x_resource_value (value, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4616 Lisp_Object value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4617 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4618 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4619 Lisp_Object result = make_number (0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4620
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4621 xassert (STRINGP (value));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4622
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4623 if (xstricmp (SDATA (value), "on") == 0
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4624 || xstricmp (SDATA (value), "true") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4625 result = Qt;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4626 else if (xstricmp (SDATA (value), "off") == 0
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4627 || xstricmp (SDATA (value), "false") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4628 result = Qnil;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4629 else if (xstricmp (SDATA (value), "unspecified") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4630 result = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4631 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4632 signal_error ("Invalid face attribute value from X resource", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4633
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4634 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4635 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4636
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4637
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4638 DEFUN ("internal-set-lisp-face-attribute-from-resource",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4639 Finternal_set_lisp_face_attribute_from_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4640 Sinternal_set_lisp_face_attribute_from_resource,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4641 3, 4, 0, doc: /* */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4642 (face, attr, value, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4643 Lisp_Object face, attr, value, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4644 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4645 CHECK_SYMBOL (face);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4646 CHECK_SYMBOL (attr);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4647 CHECK_STRING (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4648
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4649 if (xstricmp (SDATA (value), "unspecified") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4650 value = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4651 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4652 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4653 value = Fstring_to_number (value, make_number (10));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4654 if (XINT (value) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4655 signal_error ("Invalid face height from X resource", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4656 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4657 else if (EQ (attr, QCbold) || EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4658 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4659 else if (EQ (attr, QCweight) || EQ (attr, QCslant) || EQ (attr, QCwidth))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4660 value = intern (SDATA (value));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4661 else if (EQ (attr, QCreverse_video) || EQ (attr, QCinverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4662 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4663 else if (EQ (attr, QCunderline)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4664 || EQ (attr, QCoverline)
40603
e8ff19a0b76e (Finternal_set_lisp_face_attribute_from_resource):
Gerd Moellmann <gerd@gnu.org>
parents: 40598
diff changeset
4665 || EQ (attr, QCstrike_through))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4666 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4667 Lisp_Object boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4668
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4669 /* If the result of face_boolean_x_resource_value is t or nil,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4670 VALUE does NOT specify a color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4671 boolean_value = face_boolean_x_resource_value (value, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4672 if (SYMBOLP (boolean_value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4673 value = boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4674 }
67130
c5ff1098b0b8 (Finternal_set_lisp_face_attribute_from_resource): Handle :inherit property
Eli Zaretskii <eliz@gnu.org>
parents: 67056
diff changeset
4675 else if (EQ (attr, QCbox) || EQ (attr, QCinherit))
40603
e8ff19a0b76e (Finternal_set_lisp_face_attribute_from_resource):
Gerd Moellmann <gerd@gnu.org>
parents: 40598
diff changeset
4676 value = Fcar (Fread_from_string (value, Qnil, Qnil));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4677
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4678 return Finternal_set_lisp_face_attribute (face, attr, value, frame);
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
4679 }
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4680
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4681 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4682
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4683
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4684 /***********************************************************************
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4685 Menu face
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4686 ***********************************************************************/
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4687
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4688 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4689
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4690 /* Make menus on frame F appear as specified by the `menu' face. */
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4691
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4692 static void
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4693 x_update_menu_appearance (f)
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4694 struct frame *f;
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
4695 {
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
4696 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4697 XrmDatabase rdb;
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4698
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4699 if (dpyinfo
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4700 && (rdb = XrmGetDatabase (FRAME_X_DISPLAY (f)),
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4701 rdb != NULL))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4702 {
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4703 char line[512];
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4704 Lisp_Object lface = lface_from_face_name (f, Qmenu, 1);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4705 struct face *face = FACE_FROM_ID (f, MENU_FACE_ID);
46556
71e205b50a3e (may_use_scalable_font_p): Argument now points to
Ken Raeburn <raeburn@raeburn.org>
parents: 46478
diff changeset
4706 const char *myname = SDATA (Vx_resource_name);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4707 int changed_p = 0;
36956
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4708 #ifdef USE_MOTIF
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4709 const char *popup_path = "popup_menu";
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4710 #else
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4711 const char *popup_path = "menu.popup";
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4712 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
4713
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4714 if (STRINGP (LFACE_FOREGROUND (lface)))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4715 {
36956
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4716 sprintf (line, "%s.%s*foreground: %s",
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4717 myname, popup_path,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4718 SDATA (LFACE_FOREGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4719 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4720 sprintf (line, "%s.pane.menubar*foreground: %s",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4721 myname, SDATA (LFACE_FOREGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4722 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4723 changed_p = 1;
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4724 }
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4725
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4726 if (STRINGP (LFACE_BACKGROUND (lface)))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4727 {
36956
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4728 sprintf (line, "%s.%s*background: %s",
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
4729 myname, popup_path,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4730 SDATA (LFACE_BACKGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4731 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4732 sprintf (line, "%s.pane.menubar*background: %s",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
4733 myname, SDATA (LFACE_BACKGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4734 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4735 changed_p = 1;
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4736 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
4737
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4738 if (face->font_name
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4739 && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4740 || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4741 || !UNSPECIFIEDP (LFACE_AVGWIDTH (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4742 || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4743 || !UNSPECIFIEDP (LFACE_SLANT (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4744 || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4745 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4746 #ifdef USE_MOTIF
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4747 const char *suffix = "List";
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
4748 Bool motif = True;
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
4749 #else
64232
7325563a1148 * xfaces.c (x_update_menu_appearance): Use fontSet resource for
Jan Djärv <jan.h.d@swipnet.se>
parents: 64084
diff changeset
4750 #if defined HAVE_X_I18N
7325563a1148 * xfaces.c (x_update_menu_appearance): Use fontSet resource for
Jan Djärv <jan.h.d@swipnet.se>
parents: 64084
diff changeset
4751
7325563a1148 * xfaces.c (x_update_menu_appearance): Use fontSet resource for
Jan Djärv <jan.h.d@swipnet.se>
parents: 64084
diff changeset
4752 const char *suffix = "Set";
7325563a1148 * xfaces.c (x_update_menu_appearance): Use fontSet resource for
Jan Djärv <jan.h.d@swipnet.se>
parents: 64084
diff changeset
4753 #else
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4754 const char *suffix = "";
64232
7325563a1148 * xfaces.c (x_update_menu_appearance): Use fontSet resource for
Jan Djärv <jan.h.d@swipnet.se>
parents: 64084
diff changeset
4755 #endif
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
4756 Bool motif = False;
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4757 #endif
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
4758 #if defined HAVE_X_I18N
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4759 extern char *xic_create_fontsetname
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4760 P_ ((char *base_fontname, Bool motif));
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
4761 char *fontsetname = xic_create_fontsetname (face->font_name, motif);
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4762 #else
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4763 char *fontsetname = face->font_name;
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4764 #endif
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4765 sprintf (line, "%s.pane.menubar*font%s: %s",
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4766 myname, suffix, fontsetname);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4767 XrmPutLineResource (&rdb, line);
36996
46d9cc8def79 (x_update_menu_appearance): Use local variable
Gerd Moellmann <gerd@gnu.org>
parents: 36956
diff changeset
4768 sprintf (line, "%s.%s*font%s: %s",
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
4769 myname, popup_path, suffix, fontsetname);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4770 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4771 changed_p = 1;
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
4772 if (fontsetname != face->font_name)
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
4773 xfree (fontsetname);
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
4774 }
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4775
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4776 if (changed_p && f->output_data.x->menubar_widget)
38818
b0327e4e1da7 (x_update_menu_appearance): Don't call
Gerd Moellmann <gerd@gnu.org>
parents: 38802
diff changeset
4777 free_frame_menubar (f);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4778 }
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4779 }
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4780
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
4781 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4782
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4783
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
4784 DEFUN ("face-attribute-relative-p", Fface_attribute_relative_p,
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4785 Sface_attribute_relative_p,
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4786 2, 2, 0,
71576
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4787 doc: /* Check whether a face attribute value is relative.
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4788 Specifically, this function returns t if the attribute ATTRIBUTE
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4789 with the value VALUE is relative.
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4790
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4791 A relative value is one that doesn't entirely override whatever is
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4792 inherited from another face. For most possible attributes,
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4793 the only relative value that users see is `unspecified'.
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
4794 However, for :height, floating point values are also relative. */)
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4795 (attribute, value)
40532
221868112227 (Fface_attribute_relative_p): Declare args.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40441
diff changeset
4796 Lisp_Object attribute, value;
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4797 {
66983
79256abc393d (Fface_attribute_relative_p, Fmerge_face_attribute): Handle
Chong Yidong <cyd@stupidchicken.com>
parents: 66974
diff changeset
4798 if (EQ (value, Qunspecified) || (EQ (value, Qignore_defface)))
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4799 return Qt;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4800 else if (EQ (attribute, QCheight))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4801 return INTEGERP (value) ? Qnil : Qt;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4802 else
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4803 return Qnil;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4804 }
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4805
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4806 DEFUN ("merge-face-attribute", Fmerge_face_attribute, Smerge_face_attribute,
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4807 3, 3, 0,
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4808 doc: /* Return face ATTRIBUTE VALUE1 merged with VALUE2.
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4809 If VALUE1 or VALUE2 are absolute (see `face-attribute-relative-p'), then
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4810 the result will be absolute, otherwise it will be relative. */)
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4811 (attribute, value1, value2)
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4812 Lisp_Object attribute, value1, value2;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4813 {
66983
79256abc393d (Fface_attribute_relative_p, Fmerge_face_attribute): Handle
Chong Yidong <cyd@stupidchicken.com>
parents: 66974
diff changeset
4814 if (EQ (value1, Qunspecified) || EQ (value1, Qignore_defface))
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4815 return value2;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4816 else if (EQ (attribute, QCheight))
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
4817 return merge_face_heights (value1, value2, value1);
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4818 else
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4819 return value1;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4820 }
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
4821
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4822
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4823 DEFUN ("internal-get-lisp-face-attribute", Finternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4824 Sinternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4825 2, 3, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4826 doc: /* Return face attribute KEYWORD of face SYMBOL.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4827 If SYMBOL does not name a valid Lisp face or KEYWORD isn't a valid
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4828 face attribute name, signal an error.
55560
f262795a9004 (Ftty_supports_face_attributes_p, Finternal_copy_lisp_face): Fix typo in
Juanma Barranquero <lekktu@gmail.com>
parents: 55142
diff changeset
4829 If the optional argument FRAME is given, report on face SYMBOL in that
f262795a9004 (Ftty_supports_face_attributes_p, Finternal_copy_lisp_face): Fix typo in
Juanma Barranquero <lekktu@gmail.com>
parents: 55142
diff changeset
4830 frame. If FRAME is t, report on the defaults for face SYMBOL (for new
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4831 frames). If FRAME is omitted or nil, use the selected frame. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4832 (symbol, keyword, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4833 Lisp_Object symbol, keyword, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4834 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4835 Lisp_Object lface, value = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4836
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4837 CHECK_SYMBOL (symbol);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4838 CHECK_SYMBOL (keyword);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4839
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4840 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4841 lface = lface_from_face_name (NULL, symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4842 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4843 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4844 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4845 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4846 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4847 lface = lface_from_face_name (XFRAME (frame), symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4848 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4849
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4850 if (EQ (keyword, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4851 value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4852 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4853 value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4854 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4855 value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4856 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4857 value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4858 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4859 value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4860 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4861 value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4862 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4863 value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4864 else if (EQ (keyword, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4865 value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4866 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4867 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4868 value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4869 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4870 value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4871 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4872 value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4873 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4874 value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4875 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4876 value = LFACE_SWIDTH (lface);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4877 else if (EQ (keyword, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4878 value = LFACE_INHERIT (lface);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4879 else if (EQ (keyword, QCfont))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4880 value = LFACE_FONT (lface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4881 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4882 signal_error ("Invalid face attribute name", keyword);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4883
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4884 if (IGNORE_DEFFACE_P (value))
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4885 return Qunspecified;
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
4886
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4887 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4888 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4889
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4890
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4891 DEFUN ("internal-lisp-face-attribute-values",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4892 Finternal_lisp_face_attribute_values,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4893 Sinternal_lisp_face_attribute_values, 1, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4894 doc: /* Return a list of valid discrete values for face attribute ATTR.
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4895 Value is nil if ATTR doesn't have a discrete set of valid values. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4896 (attr)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4897 Lisp_Object attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4898 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4899 Lisp_Object result = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4900
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4901 CHECK_SYMBOL (attr);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4902
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4903 if (EQ (attr, QCweight)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4904 || EQ (attr, QCslant)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4905 || EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4906 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4907 /* Extract permissible symbols from tables. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4908 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4909 int i, dim;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4910
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4911 if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4912 table = weight_table, dim = DIM (weight_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4913 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4914 table = slant_table, dim = DIM (slant_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4915 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4916 table = swidth_table, dim = DIM (swidth_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4917
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4918 for (i = 0; i < dim; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4919 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4920 Lisp_Object symbol = *table[i].symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4921 Lisp_Object tail = result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4922
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4923 while (!NILP (tail)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4924 && !EQ (XCAR (tail), symbol))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4925 tail = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4926
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4927 if (NILP (tail))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4928 result = Fcons (symbol, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4929 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4930 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4931 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4932 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4933 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4934 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4935 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4936 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4937 else if (EQ (attr, QCinverse_video) || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4938 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4939
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4940 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4941 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4942
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4943
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4944 DEFUN ("internal-merge-in-global-face", Finternal_merge_in_global_face,
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4945 Sinternal_merge_in_global_face, 2, 2, 0,
40598
7f3db64c7d42 (Finternal_merge_in_global_face): Reindent.
Pavel Janík <Pavel@Janik.cz>
parents: 40555
diff changeset
4946 doc: /* Add attributes from frame-default definition of FACE to FACE on FRAME.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4947 Default face attributes override any local face attributes. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4948 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4949 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4950 {
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4951 int i;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4952 Lisp_Object global_lface, local_lface, *gvec, *lvec;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4953
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4954 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4955 global_lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4956 local_lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4957 if (NILP (local_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4958 local_lface = Finternal_make_lisp_face (face, frame);
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4959
31519
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
4960 /* Make every specified global attribute override the local one.
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
4961 BEWARE!! This is only used from `face-set-after-frame-default' where
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
4962 the local frame is defined from default specs in `face-defface-spec'
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
4963 and those should be overridden by global settings. Hence the strange
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
4964 "global before local" priority. */
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4965 lvec = XVECTOR (local_lface)->contents;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4966 gvec = XVECTOR (global_lface)->contents;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4967 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4968 if (! UNSPECIFIEDP (gvec[i]))
69968
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
4969 {
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
4970 if (IGNORE_DEFFACE_P (gvec[i]))
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
4971 lvec[i] = Qunspecified;
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
4972 else
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
4973 lvec[i] = gvec[i];
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
4974 }
31507
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
4975
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
4976 return Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4977 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4978
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4979
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4980 /* The following function is implemented for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4981 The function is used in x-resolve-fonts when it is asked to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4982 return fonts with the same size as the font of a face. This is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4983 done in fontset.el. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4984
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4985 DEFUN ("face-font", Fface_font, Sface_font, 1, 2, 0,
40598
7f3db64c7d42 (Finternal_merge_in_global_face): Reindent.
Pavel Janík <Pavel@Janik.cz>
parents: 40555
diff changeset
4986 doc: /* Return the font name of face FACE, or nil if it is unspecified.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4987 If the optional argument FRAME is given, report on face FACE in that frame.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4988 If FRAME is t, report on the defaults for face FACE (for new frames).
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4989 The font default for a face is either nil, or a list
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4990 of the form (bold), (italic) or (bold italic).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4991 If FRAME is omitted or nil, use the selected frame. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4992 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4993 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4994 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4995 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4996 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4997 Lisp_Object result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4998 Lisp_Object lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4999
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5000 if (!UNSPECIFIEDP (LFACE_WEIGHT (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5001 && !EQ (LFACE_WEIGHT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5002 result = Fcons (Qbold, result);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5003
40441
024f6efc3f87 (Fface_font): Use UNSPECIFIEDP instead of NILP for
Gerd Moellmann <gerd@gnu.org>
parents: 40398
diff changeset
5004 if (!UNSPECIFIEDP (LFACE_SLANT (lface))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5005 && !EQ (LFACE_SLANT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5006 result = Fcons (Qitalic, result);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5007
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5008 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5009 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5010 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5011 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5012 struct frame *f = frame_or_selected_frame (frame, 1);
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5013 int face_id = lookup_named_face (f, face, 0, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5014 struct face *face = FACE_FROM_ID (f, face_id);
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5015 return face ? build_string (face->font_name) : Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5016 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5017 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5018
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5019
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5020 /* Compare face-attribute values v1 and v2 for equality. Value is non-zero if
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5021 all attributes are `equal'. Tries to be fast because this function
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5022 is called quite often. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5023
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5024 static INLINE int
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5025 face_attr_equal_p (v1, v2)
56063
109c0a603543 (face_attr_equal_p): Declare parameters.
Andreas Schwab <schwab@suse.de>
parents: 55982
diff changeset
5026 Lisp_Object v1, v2;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5027 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5028 /* Type can differ, e.g. when one attribute is unspecified, i.e. nil,
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5029 and the other is specified. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5030 if (XTYPE (v1) != XTYPE (v2))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5031 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5032
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5033 if (EQ (v1, v2))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5034 return 1;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5035
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5036 switch (XTYPE (v1))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5037 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5038 case Lisp_String:
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5039 if (SBYTES (v1) != SBYTES (v2))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5040 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5041
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5042 return bcmp (SDATA (v1), SDATA (v2), SBYTES (v1)) == 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5043
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5044 case Lisp_Int:
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5045 case Lisp_Symbol:
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5046 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5047
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5048 default:
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5049 return !NILP (Fequal (v1, v2));
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5050 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5051 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5052
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5053
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5054 /* Compare face vectors V1 and V2 for equality. Value is non-zero if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5055 all attributes are `equal'. Tries to be fast because this function
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5056 is called quite often. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5057
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5058 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5059 lface_equal_p (v1, v2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5060 Lisp_Object *v1, *v2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5061 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5062 int i, equal_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5063
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5064 for (i = 1; i < LFACE_VECTOR_SIZE && equal_p; ++i)
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5065 equal_p = face_attr_equal_p (v1[i], v2[i]);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5066
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5067 return equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5068 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5069
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5070
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5071 DEFUN ("internal-lisp-face-equal-p", Finternal_lisp_face_equal_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5072 Sinternal_lisp_face_equal_p, 2, 3, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5073 doc: /* True if FACE1 and FACE2 are equal.
62969
24f25f7c89cd (Finternal_lisp_face_equal_p): Really report on faces in a frame, if the
Juanma Barranquero <lekktu@gmail.com>
parents: 62945
diff changeset
5074 If the optional argument FRAME is given, report on FACE1 and FACE2 in that frame.
24f25f7c89cd (Finternal_lisp_face_equal_p): Really report on faces in a frame, if the
Juanma Barranquero <lekktu@gmail.com>
parents: 62945
diff changeset
5075 If FRAME is t, report on the defaults for FACE1 and FACE2 (for new frames).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5076 If FRAME is omitted or nil, use the selected frame. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5077 (face1, face2, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5078 Lisp_Object face1, face2, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5079 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5080 int equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5081 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5082 Lisp_Object lface1, lface2;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5083
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5084 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5085 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5086 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5087 /* Don't use check_x_frame here because this function is called
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5088 before X frames exist. At that time, if FRAME is nil,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5089 selected_frame will be used which is the frame dumped with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5090 Emacs. That frame is not an X frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5091 f = frame_or_selected_frame (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5092
62969
24f25f7c89cd (Finternal_lisp_face_equal_p): Really report on faces in a frame, if the
Juanma Barranquero <lekktu@gmail.com>
parents: 62945
diff changeset
5093 lface1 = lface_from_face_name (f, face1, 1);
24f25f7c89cd (Finternal_lisp_face_equal_p): Really report on faces in a frame, if the
Juanma Barranquero <lekktu@gmail.com>
parents: 62945
diff changeset
5094 lface2 = lface_from_face_name (f, face2, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5095 equal_p = lface_equal_p (XVECTOR (lface1)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5096 XVECTOR (lface2)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5097 return equal_p ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5098 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5099
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5100
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5101 DEFUN ("internal-lisp-face-empty-p", Finternal_lisp_face_empty_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5102 Sinternal_lisp_face_empty_p, 1, 2, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5103 doc: /* True if FACE has no attribute specified.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
5104 If the optional argument FRAME is given, report on face FACE in that frame.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
5105 If FRAME is t, report on the defaults for face FACE (for new frames).
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5106 If FRAME is omitted or nil, use the selected frame. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5107 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5108 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5109 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5110 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5111 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5112 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5113
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5114 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
5115 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
5116 CHECK_LIVE_FRAME (frame);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
5117 f = XFRAME (frame);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5118
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5119 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5120 lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5121 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5122 lface = lface_from_face_name (f, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5123
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5124 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
5125 if (!UNSPECIFIEDP (AREF (lface, i)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5126 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5127
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5128 return i == LFACE_VECTOR_SIZE ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5129 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5130
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5131
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5132 DEFUN ("frame-face-alist", Fframe_face_alist, Sframe_face_alist,
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5133 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5134 doc: /* Return an alist of frame-local faces defined on FRAME.
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5135 For internal use only. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5136 (frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5137 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5138 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5139 struct frame *f = frame_or_selected_frame (frame, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5140 return f->face_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5141 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5142
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5143
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5144 /* Return a hash code for Lisp string STRING with case ignored. Used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5145 below in computing a hash value for a Lisp face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5146
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5147 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5148 hash_string_case_insensitive (string)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5149 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5150 {
46556
71e205b50a3e (may_use_scalable_font_p): Argument now points to
Ken Raeburn <raeburn@raeburn.org>
parents: 46478
diff changeset
5151 const unsigned char *s;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5152 unsigned hash = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5153 xassert (STRINGP (string));
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5154 for (s = SDATA (string); *s; ++s)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5155 hash = (hash << 1) ^ tolower (*s);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5156 return hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5157 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5158
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5159
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5160 /* Return a hash code for face attribute vector V. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5161
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5162 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5163 lface_hash (v)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5164 Lisp_Object *v;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5165 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5166 return (hash_string_case_insensitive (v[LFACE_FAMILY_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5167 ^ hash_string_case_insensitive (v[LFACE_FOREGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5168 ^ hash_string_case_insensitive (v[LFACE_BACKGROUND_INDEX])
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
5169 ^ XFASTINT (v[LFACE_WEIGHT_INDEX])
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
5170 ^ XFASTINT (v[LFACE_SLANT_INDEX])
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
5171 ^ XFASTINT (v[LFACE_SWIDTH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5172 ^ XFASTINT (v[LFACE_HEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5173 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5174
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5175
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5176 /* Return non-zero if LFACE1 and LFACE2 specify the same font (without
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5177 considering charsets/registries). They do if they specify the same
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5178 family, point size, weight, width, slant, and fontset. Both LFACE1
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5179 and LFACE2 must be fully-specified. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5180
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5181 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5182 lface_same_font_attributes_p (lface1, lface2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5183 Lisp_Object *lface1, *lface2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5184 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5185 xassert (lface_fully_specified_p (lface1)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5186 && lface_fully_specified_p (lface2));
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5187 return (xstricmp (SDATA (lface1[LFACE_FAMILY_INDEX]),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5188 SDATA (lface2[LFACE_FAMILY_INDEX])) == 0
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
5189 && EQ (lface1[LFACE_HEIGHT_INDEX], lface2[LFACE_HEIGHT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5190 && EQ (lface1[LFACE_SWIDTH_INDEX], lface2[LFACE_SWIDTH_INDEX])
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
5191 && EQ (lface1[LFACE_AVGWIDTH_INDEX], lface2[LFACE_AVGWIDTH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5192 && EQ (lface1[LFACE_WEIGHT_INDEX], lface2[LFACE_WEIGHT_INDEX])
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5193 && EQ (lface1[LFACE_SLANT_INDEX], lface2[LFACE_SLANT_INDEX])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5194 && (EQ (lface1[LFACE_FONT_INDEX], lface2[LFACE_FONT_INDEX])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5195 || (STRINGP (lface1[LFACE_FONT_INDEX])
28263
73181b84ea57 (lface_same_font_attributes_p): Compare font attributes
Gerd Moellmann <gerd@gnu.org>
parents: 28237
diff changeset
5196 && STRINGP (lface2[LFACE_FONT_INDEX])
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5197 && xstricmp (SDATA (lface1[LFACE_FONT_INDEX]),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5198 SDATA (lface2[LFACE_FONT_INDEX])))));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5199 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5200
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5201
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5202
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5203 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5204 Realized Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5205 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5206
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5207 /* Allocate and return a new realized face for Lisp face attribute
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5208 vector ATTR. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5209
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5210 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5211 make_realized_face (attr)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5212 Lisp_Object *attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5213 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5214 struct face *face = (struct face *) xmalloc (sizeof *face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5215 bzero (face, sizeof *face);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5216 face->ascii_face = face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5217 bcopy (attr, face->lface, sizeof face->lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5218 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5219 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5220
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5221
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5222 /* Free realized face FACE, including its X resources. FACE may
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5223 be null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5224
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5225 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5226 free_realized_face (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5227 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5228 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5229 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5230 if (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5231 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5232 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5233 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5234 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5235 /* Free fontset of FACE if it is ASCII face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5236 if (face->fontset >= 0 && face == face->ascii_face)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5237 free_face_fontset (f, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5238 if (face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5239 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5240 x_free_gc (f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5241 face->gc = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5242 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5243
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5244 free_face_colors (f, face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5245 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5246 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5247 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5248
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5249 xfree (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5250 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5251 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5252
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5253
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5254 /* Prepare face FACE for subsequent display on frame F. This
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5255 allocated GCs if they haven't been allocated yet or have been freed
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5256 by clearing the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5257
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5258 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5259 prepare_face_for_display (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5260 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5261 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5262 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5263 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5264 xassert (FRAME_WINDOW_P (f));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5265
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5266 if (face->gc == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5267 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5268 XGCValues xgcv;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5269 unsigned long mask = GCForeground | GCBackground | GCGraphicsExposures;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5270
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5271 xgcv.foreground = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5272 xgcv.background = face->background;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5273 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5274 xgcv.graphics_exposures = False;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5275 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5276 /* The font of FACE may be null if we couldn't load it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5277 if (face->font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5278 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5279 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5280 xgcv.font = face->font->fid;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5281 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5282 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5283 xgcv.font = face->font;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5284 #endif
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44705
diff changeset
5285 #ifdef MAC_OS
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
5286 xgcv.font = face->font;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
5287 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5288 mask |= GCFont;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5289 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5290
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5291 BLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5292 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5293 if (face->stipple)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5294 {
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
5295 xgcv.fill_style = FillOpaqueStippled;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5296 xgcv.stipple = x_bitmap_pixmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5297 mask |= GCFillStyle | GCStipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5298 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5299 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5300 face->gc = x_create_gc (f, mask, &xgcv);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5301 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5302 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5303 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5304 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5305
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5306
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5307 /* Returns the `distance' between the colors X and Y. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5308
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5309 static int
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5310 color_distance (x, y)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5311 XColor *x, *y;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5312 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5313 /* This formula is from a paper title `Colour metric' by Thiadmer Riemersma.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5314 Quoting from that paper:
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5315
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5316 This formula has results that are very close to L*u*v* (with the
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5317 modified lightness curve) and, more importantly, it is a more even
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5318 algorithm: it does not have a range of colours where it suddenly
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5319 gives far from optimal results.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5320
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5321 See <http://www.compuphase.com/cmetric.htm> for more info. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5322
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5323 long r = (x->red - y->red) >> 8;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5324 long g = (x->green - y->green) >> 8;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5325 long b = (x->blue - y->blue) >> 8;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5326 long r_mean = (x->red + y->red) >> 9;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5327
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5328 return
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5329 (((512 + r_mean) * r * r) >> 8)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5330 + 4 * g * g
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5331 + (((767 - r_mean) * b * b) >> 8);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5332 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5333
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5334
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5335 DEFUN ("color-distance", Fcolor_distance, Scolor_distance, 2, 3, 0,
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5336 doc: /* Return an integer distance between COLOR1 and COLOR2 on FRAME.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5337 COLOR1 and COLOR2 may be either strings containing the color name,
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5338 or lists of the form (RED GREEN BLUE).
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5339 If FRAME is unspecified or nil, the current frame is used. */)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5340 (color1, color2, frame)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5341 Lisp_Object color1, color2, frame;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5342 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5343 struct frame *f;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5344 XColor cdef1, cdef2;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5345
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5346 if (NILP (frame))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5347 frame = selected_frame;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5348 CHECK_LIVE_FRAME (frame);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5349 f = XFRAME (frame);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5350
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5351 if ((CONSP (color1) && !parse_rgb_list (color1, &cdef1))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5352 || !STRINGP (color1)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5353 || !defined_color (f, SDATA (color1), &cdef1, 0))
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5354 signal_error ("Invalid color", color1);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5355 if ((CONSP (color2) && !parse_rgb_list (color2, &cdef2))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5356 || !STRINGP (color2)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
5357 || !defined_color (f, SDATA (color2), &cdef2, 0))
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5358 signal_error ("Invalid color", color2);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5359
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5360 return make_number (color_distance (&cdef1, &cdef2));
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5361 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5362
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5363
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
5364 /***********************************************************************
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5365 Face Cache
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5366 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5367
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5368 /* Return a new face cache for frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5369
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5370 static struct face_cache *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5371 make_face_cache (f)
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5372 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5373 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5374 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5375 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5376
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5377 c = (struct face_cache *) xmalloc (sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5378 bzero (c, sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5379 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5380 c->buckets = (struct face **) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5381 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5382 c->size = 50;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5383 c->faces_by_id = (struct face **) xmalloc (c->size * sizeof *c->faces_by_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5384 c->f = f;
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
5385 c->menu_face_changed_p = menu_face_changed_default;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5386 return c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5387 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5388
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5389
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5390 /* Clear out all graphics contexts for all realized faces, except for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5391 the basic faces. This should be done from time to time just to avoid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5392 keeping too many graphics contexts that are no longer needed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5393
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5394 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5395 clear_face_gcs (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5396 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5397 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5398 if (c && FRAME_WINDOW_P (c->f))
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5399 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5400 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5401 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5402 for (i = BASIC_FACE_ID_SENTINEL; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5403 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5404 struct face *face = c->faces_by_id[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5405 if (face && face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5406 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5407 x_free_gc (c->f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5408 face->gc = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5409 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5410 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5411 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5412 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5413 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5414
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5415
55560
f262795a9004 (Ftty_supports_face_attributes_p, Finternal_copy_lisp_face): Fix typo in
Juanma Barranquero <lekktu@gmail.com>
parents: 55142
diff changeset
5416 /* Free all realized faces in face cache C, including basic faces.
f262795a9004 (Ftty_supports_face_attributes_p, Finternal_copy_lisp_face): Fix typo in
Juanma Barranquero <lekktu@gmail.com>
parents: 55142
diff changeset
5417 C may be null. If faces are freed, make sure the frame's current
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5418 matrix is marked invalid, so that a display caused by an expose
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5419 event doesn't try to use faces we destroyed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5420
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5421 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5422 free_realized_faces (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5423 struct face_cache *c;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5424 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5425 if (c && c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5426 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5427 int i, size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5428 struct frame *f = c->f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5429
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5430 /* We must block input here because we can't process X events
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5431 safely while only some faces are freed, or when the frame's
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5432 current matrix still references freed faces. */
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5433 BLOCK_INPUT;
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5434
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5435 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5436 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5437 free_realized_face (f, c->faces_by_id[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5438 c->faces_by_id[i] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5439 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5440
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5441 c->used = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5442 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5443 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5444
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5445 /* Must do a thorough redisplay the next time. Mark current
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5446 matrices as invalid because they will reference faces freed
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5447 above. This function is also called when a frame is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5448 destroyed. In this case, the root window of F is nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5449 if (WINDOWP (f->root_window))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5450 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5451 clear_current_matrices (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5452 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5453 }
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5454
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5455 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5456 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5457 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5458
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5459
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5460 /* Free all faces realized for multibyte characters on frame F that
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5461 has FONTSET. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5462
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5463 void
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5464 free_realized_multibyte_face (f, fontset)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5465 struct frame *f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5466 int fontset;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5467 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5468 struct face_cache *cache = FRAME_FACE_CACHE (f);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5469 struct face *face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5470 int i;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5471
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5472 /* We must block input here because we can't process X events safely
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5473 while only some faces are freed, or when the frame's current
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5474 matrix still references freed faces. */
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5475 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5476
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5477 for (i = 0; i < cache->used; i++)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5478 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5479 face = cache->faces_by_id[i];
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5480 if (face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5481 && face != face->ascii_face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5482 && face->fontset == fontset)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5483 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5484 uncache_face (cache, face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5485 free_realized_face (f, face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5486 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5487 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5488
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5489 /* Must do a thorough redisplay the next time. Mark current
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5490 matrices as invalid because they will reference faces freed
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5491 above. This function is also called when a frame is destroyed.
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5492 In this case, the root window of F is nil. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5493 if (WINDOWP (f->root_window))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5494 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5495 clear_current_matrices (f);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5496 ++windows_or_buffers_changed;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5497 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5498
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5499 UNBLOCK_INPUT;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5500 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5501
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5502
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5503 /* Free all realized faces on FRAME or on all frames if FRAME is nil.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5504 This is done after attributes of a named face have been changed,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5505 because we can't tell which realized faces depend on that face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5506
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5507 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5508 free_all_realized_faces (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5509 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5510 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5511 if (NILP (frame))
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5512 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5513 Lisp_Object rest;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5514 FOR_EACH_FRAME (rest, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5515 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5516 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5517 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5518 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5519 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5520
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5521
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5522 /* Free face cache C and faces in it, including their X resources. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5523
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5524 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5525 free_face_cache (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5526 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5527 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5528 if (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5529 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5530 free_realized_faces (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5531 xfree (c->buckets);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5532 xfree (c->faces_by_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5533 xfree (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5534 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5535 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5536
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5537
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5538 /* Cache realized face FACE in face cache C. HASH is the hash value
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5539 of FACE. If FACE->fontset >= 0, add the new face to the end of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5540 collision list of the face hash table of C. This is done because
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5541 otherwise lookup_face would find FACE for every character, even if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5542 faces with the same attributes but for specific characters exist. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5543
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5544 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5545 cache_face (c, face, hash)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5546 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5547 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5548 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5549 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5550 int i = hash % FACE_CACHE_BUCKETS_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5551
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5552 face->hash = hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5553
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5554 if (face->fontset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5555 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5556 struct face *last = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5557 if (last)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5558 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5559 while (last->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5560 last = last->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5561 last->next = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5562 face->prev = last;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5563 face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5564 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5565 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5566 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5567 c->buckets[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5568 face->prev = face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5569 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5570 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5571 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5572 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5573 face->prev = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5574 face->next = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5575 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5576 face->next->prev = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5577 c->buckets[i] = face;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5578 }
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5579
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5580 /* Find a free slot in C->faces_by_id and use the index of the free
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5581 slot as FACE->id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5582 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5583 if (c->faces_by_id[i] == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5584 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5585 face->id = i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5586
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5587 /* Maybe enlarge C->faces_by_id. */
53334
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5588 if (i == c->used)
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5589 {
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5590 if (c->used == c->size)
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5591 {
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5592 int new_size, sz;
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5593 new_size = min (2 * c->size, MAX_FACE_ID);
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5594 if (new_size == c->size)
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5595 abort (); /* Alternatives? ++kfs */
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5596 sz = new_size * sizeof *c->faces_by_id;
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5597 c->faces_by_id = (struct face **) xrealloc (c->faces_by_id, sz);
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5598 c->size = new_size;
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5599 }
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
5600 c->used++;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5601 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5602
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5603 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5604 /* Check that FACE got a unique id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5605 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5606 int j, n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5607 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5608
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5609 for (j = n = 0; j < FACE_CACHE_BUCKETS_SIZE; ++j)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5610 for (face = c->buckets[j]; face; face = face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5611 if (face->id == i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5612 ++n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5613
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5614 xassert (n == 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5615 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5616 #endif /* GLYPH_DEBUG */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5617
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5618 c->faces_by_id[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5619 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5620
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5621
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5622 /* Remove face FACE from cache C. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5623
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5624 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5625 uncache_face (c, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5626 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5627 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5628 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5629 int i = face->hash % FACE_CACHE_BUCKETS_SIZE;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5630
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5631 if (face->prev)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5632 face->prev->next = face->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5633 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5634 c->buckets[i] = face->next;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5635
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5636 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5637 face->next->prev = face->prev;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5638
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5639 c->faces_by_id[face->id] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5640 if (face->id == c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5641 --c->used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5642 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5643
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5644
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5645 /* Look up a realized face with face attributes ATTR in the face cache
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5646 of frame F. The face will be used to display character C. Value
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5647 is the ID of the face found. If no suitable face is found, realize
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5648 a new one. In that case, if C is a multibyte character, BASE_FACE
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
5649 is a face that has the same attributes. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5650
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5651 INLINE int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5652 lookup_face (f, attr, c, base_face)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5653 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5654 Lisp_Object *attr;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5655 int c;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5656 struct face *base_face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5657 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5658 struct face_cache *cache = FRAME_FACE_CACHE (f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5659 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5660 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5661 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5662
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5663 xassert (cache != NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5664 check_lface_attrs (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5665
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5666 /* Look up ATTR in the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5667 hash = lface_hash (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5668 i = hash % FACE_CACHE_BUCKETS_SIZE;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5669
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5670 for (face = cache->buckets[i]; face; face = face->next)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5671 if (face->hash == hash
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5672 && (!FRAME_WINDOW_P (f)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5673 || FACE_SUITABLE_FOR_CHAR_P (face, c))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5674 && lface_equal_p (face->lface, attr))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5675 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5676
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5677 /* If not found, realize a new face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5678 if (face == NULL)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5679 face = realize_face (cache, attr, c, base_face, -1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5680
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5681 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5682 xassert (face == FACE_FROM_ID (f, face->id));
28409
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5683
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5684 /* When this function is called from face_for_char (in this case, C is
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5685 a multibyte character), a fontset of a face returned by
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5686 realize_face is not yet set, i.e. FACE_SUITABLE_FOR_CHAR_P (FACE,
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5687 C) is not sutisfied. The fontset is set for this face by
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5688 face_for_char later. */
28349
26f2a2e9a2b5 (lookup_face): Don't assert FACE_SUITABLE_FOR_CHAR_P.
Gerd Moellmann <gerd@gnu.org>
parents: 28263
diff changeset
5689 #if 0
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5690 if (FRAME_WINDOW_P (f))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5691 xassert (FACE_SUITABLE_FOR_CHAR_P (face, c));
28349
26f2a2e9a2b5 (lookup_face): Don't assert FACE_SUITABLE_FOR_CHAR_P.
Gerd Moellmann <gerd@gnu.org>
parents: 28263
diff changeset
5692 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5693 #endif /* GLYPH_DEBUG */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5694
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5695 return face->id;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5696 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5697
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5698
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5699 /* Return the face id of the realized face for named face SYMBOL on
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5700 frame F suitable for displaying character C. Value is -1 if the
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5701 face couldn't be determined, which might happen if the default face
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5702 isn't realized and cannot be realized. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5703
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5704 int
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5705 lookup_named_face (f, symbol, c, signal_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5706 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5707 Lisp_Object symbol;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5708 int c;
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5709 int signal_p;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5710 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5711 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5712 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5713 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5714
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5715 if (default_face == NULL)
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5716 {
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5717 if (!realize_basic_faces (f))
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5718 return -1;
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5719 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5720 }
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5721
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5722 if (!get_lface_attributes (f, symbol, symbol_attrs, signal_p))
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5723 return -1;
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5724
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5725 bcopy (default_face->lface, attrs, sizeof attrs);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5726 merge_face_vectors (f, symbol_attrs, attrs, 0);
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5727
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5728 return lookup_face (f, attrs, c, NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5729 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5730
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5731
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5732 /* Return the ID of the realized ASCII face of Lisp face with ID
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5733 LFACE_ID on frame F. Value is -1 if LFACE_ID isn't valid. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5734
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5735 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5736 ascii_face_of_lisp_face (f, lface_id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5737 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5738 int lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5739 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5740 int face_id;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5741
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5742 if (lface_id >= 0 && lface_id < lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5743 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5744 Lisp_Object face_name = lface_id_to_name[lface_id];
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
5745 face_id = lookup_named_face (f, face_name, 0, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5746 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5747 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5748 face_id = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5749
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5750 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5751 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5752
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5753
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5754 /* Return a face for charset ASCII that is like the face with id
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5755 FACE_ID on frame F, but has a font that is STEPS steps smaller.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5756 STEPS < 0 means larger. Value is the id of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5757
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5758 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5759 smaller_face (f, face_id, steps)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5760 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5761 int face_id, steps;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5762 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5763 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5764 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5765 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5766 int pt, last_pt, last_height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5767 int delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5768 int new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5769 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5770
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5771 /* If not called for an X frame, just return the original face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5772 if (FRAME_TERMCAP_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5773 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5774
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5775 /* Try in increments of 1/2 pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5776 delta = steps < 0 ? 5 : -5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5777 steps = abs (steps);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5778
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5779 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5780 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5781 pt = last_pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5782 new_face_id = face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5783 last_height = FONT_HEIGHT (face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5784
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5785 while (steps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5786 && pt + delta > 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5787 /* Give up if we cannot find a font within 10pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5788 && abs (last_pt - pt) < 100)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5789 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5790 /* Look up a face for a slightly smaller/larger font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5791 pt += delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5792 attrs[LFACE_HEIGHT_INDEX] = make_number (pt);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5793 new_face_id = lookup_face (f, attrs, 0, NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5794 new_face = FACE_FROM_ID (f, new_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5795
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5796 /* If height changes, count that as one step. */
31463
628bb2264f46 (smaller_face): Compare font heights with `<' and `>'
Gerd Moellmann <gerd@gnu.org>
parents: 31449
diff changeset
5797 if ((delta < 0 && FONT_HEIGHT (new_face->font) < last_height)
628bb2264f46 (smaller_face): Compare font heights with `<' and `>'
Gerd Moellmann <gerd@gnu.org>
parents: 31449
diff changeset
5798 || (delta > 0 && FONT_HEIGHT (new_face->font) > last_height))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5799 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5800 --steps;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5801 last_height = FONT_HEIGHT (new_face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5802 last_pt = pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5803 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5804 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5805
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5806 return new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5807
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5808 #else /* not HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5809
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5810 return face_id;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5811
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5812 #endif /* not HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5813 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5814
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5815
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5816 /* Return a face for charset ASCII that is like the face with id
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5817 FACE_ID on frame F, but has height HEIGHT. */
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
5818
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
5819 int
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5820 face_with_height (f, face_id, height)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5821 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5822 int face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5823 int height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5824 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5825 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5826 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5827 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5828
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5829 if (FRAME_TERMCAP_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5830 || height <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5831 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5832
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5833 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5834 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5835 attrs[LFACE_HEIGHT_INDEX] = make_number (height);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5836 face_id = lookup_face (f, attrs, 0, NULL);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5837 #endif /* HAVE_WINDOW_SYSTEM */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5838
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5839 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5840 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5841
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5842
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5843 /* Return the face id of the realized face for named face SYMBOL on
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5844 frame F suitable for displaying character C, and use attributes of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5845 the face FACE_ID for attributes that aren't completely specified by
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5846 SYMBOL. This is like lookup_named_face, except that the default
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5847 attributes come from FACE_ID, not from the default face. FACE_ID
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5848 is assumed to be already realized. */
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5849
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5850 int
60837
18fb43577f76 (lookup_derived_face): Add arg SIGNAL_P.
Kim F. Storm <storm@cua.dk>
parents: 60699
diff changeset
5851 lookup_derived_face (f, symbol, c, face_id, signal_p)
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5852 struct frame *f;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5853 Lisp_Object symbol;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5854 int c;
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5855 int face_id;
65713
ad24f42046b1 * xlwmenu.c (find_next_selectable):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65347
diff changeset
5856 int signal_p;
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5857 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5858 Lisp_Object attrs[LFACE_VECTOR_SIZE];
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5859 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5860 struct face *default_face = FACE_FROM_ID (f, face_id);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5861
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5862 if (!default_face)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5863 abort ();
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5864
60837
18fb43577f76 (lookup_derived_face): Add arg SIGNAL_P.
Kim F. Storm <storm@cua.dk>
parents: 60699
diff changeset
5865 get_lface_attributes (f, symbol, symbol_attrs, signal_p);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5866 bcopy (default_face->lface, attrs, sizeof attrs);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5867 merge_face_vectors (f, symbol_attrs, attrs, 0);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5868 return lookup_face (f, attrs, c, default_face);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5869 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5870
40278
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5871 DEFUN ("face-attributes-as-vector", Fface_attributes_as_vector,
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5872 Sface_attributes_as_vector, 1, 1, 0,
41010
edd3b39a7cd1 (Fface_attributes_as_vector): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 40991
diff changeset
5873 doc: /* Return a vector of face attributes corresponding to PLIST. */)
40278
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5874 (plist)
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5875 Lisp_Object plist;
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5876 {
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5877 Lisp_Object lface;
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5878 lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5879 Qunspecified);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5880 merge_face_ref (XFRAME (selected_frame), plist, XVECTOR (lface)->contents,
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5881 1, 0);
40278
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5882 return lface;
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5883 }
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5884
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5885
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5886
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5887 /***********************************************************************
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5888 Face capability testing
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5889 ***********************************************************************/
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5890
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5891
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5892 /* If the distance (as returned by color_distance) between two colors is
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5893 less than this, then they are considered the same, for determining
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5894 whether a color is supported or not. The range of values is 0-65535. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5895
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5896 #define TTY_SAME_COLOR_THRESHOLD 10000
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5897
55903
822bab94f6a3 (x_supports_face_attributes_p): Make this function
Eli Zaretskii <eliz@gnu.org>
parents: 55901
diff changeset
5898 #ifdef HAVE_WINDOW_SYSTEM
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5899
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5900 /* Return non-zero if all the face attributes in ATTRS are supported
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5901 on the window-system frame F.
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5902
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5903 The definition of `supported' is somewhat heuristic, but basically means
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5904 that a face containing all the attributes in ATTRS, when merged with the
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5905 default face for display, can be represented in a way that's
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5906
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5907 \(1) different in appearance than the default face, and
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5908 \(2) `close in spirit' to what the attributes specify, if not exact. */
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5909
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5910 static int
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5911 x_supports_face_attributes_p (f, attrs, def_face)
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5912 struct frame *f;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5913 Lisp_Object *attrs;
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5914 struct face *def_face;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5915 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5916 Lisp_Object *def_attrs = def_face->lface;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5917
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5918 /* Check that other specified attributes are different that the default
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5919 face. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5920 if ((!UNSPECIFIEDP (attrs[LFACE_UNDERLINE_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5921 && face_attr_equal_p (attrs[LFACE_UNDERLINE_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5922 def_attrs[LFACE_UNDERLINE_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5923 || (!UNSPECIFIEDP (attrs[LFACE_INVERSE_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5924 && face_attr_equal_p (attrs[LFACE_INVERSE_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5925 def_attrs[LFACE_INVERSE_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5926 || (!UNSPECIFIEDP (attrs[LFACE_FOREGROUND_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5927 && face_attr_equal_p (attrs[LFACE_FOREGROUND_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5928 def_attrs[LFACE_FOREGROUND_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5929 || (!UNSPECIFIEDP (attrs[LFACE_BACKGROUND_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5930 && face_attr_equal_p (attrs[LFACE_BACKGROUND_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5931 def_attrs[LFACE_BACKGROUND_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5932 || (!UNSPECIFIEDP (attrs[LFACE_STIPPLE_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5933 && face_attr_equal_p (attrs[LFACE_STIPPLE_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5934 def_attrs[LFACE_STIPPLE_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5935 || (!UNSPECIFIEDP (attrs[LFACE_OVERLINE_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5936 && face_attr_equal_p (attrs[LFACE_OVERLINE_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5937 def_attrs[LFACE_OVERLINE_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5938 || (!UNSPECIFIEDP (attrs[LFACE_STRIKE_THROUGH_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5939 && face_attr_equal_p (attrs[LFACE_STRIKE_THROUGH_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5940 def_attrs[LFACE_STRIKE_THROUGH_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5941 || (!UNSPECIFIEDP (attrs[LFACE_BOX_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5942 && face_attr_equal_p (attrs[LFACE_BOX_INDEX],
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5943 def_attrs[LFACE_BOX_INDEX])))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5944 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5945
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5946 /* Check font-related attributes, as those are the most commonly
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5947 "unsupported" on a window-system (because of missing fonts). */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5948 if (!UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5949 || !UNSPECIFIEDP (attrs[LFACE_HEIGHT_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5950 || !UNSPECIFIEDP (attrs[LFACE_WEIGHT_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5951 || !UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5952 || !UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX])
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5953 || !UNSPECIFIEDP (attrs[LFACE_AVGWIDTH_INDEX]))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5954 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5955 struct face *face;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5956 Lisp_Object merged_attrs[LFACE_VECTOR_SIZE];
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5957
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5958 bcopy (def_attrs, merged_attrs, sizeof merged_attrs);
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5959
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5960 merge_face_vectors (f, attrs, merged_attrs, 0);
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5961
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5962 face = FACE_FROM_ID (f, lookup_face (f, merged_attrs, 0, 0));
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5963
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5964 if (! face)
63705
9e649a045c18 (x_supports_face_attributes_p): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 63649
diff changeset
5965 error ("Cannot make face");
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5966
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5967 /* If the font is the same, then not supported. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5968 if (face->font == def_face->font)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5969 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5970 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5971
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5972 /* Everything checks out, this face is supported. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5973 return 1;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5974 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5975
55903
822bab94f6a3 (x_supports_face_attributes_p): Make this function
Eli Zaretskii <eliz@gnu.org>
parents: 55901
diff changeset
5976 #endif /* HAVE_WINDOW_SYSTEM */
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5977
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5978 /* Return non-zero if all the face attributes in ATTRS are supported
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5979 on the tty frame F.
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5980
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5981 The definition of `supported' is somewhat heuristic, but basically means
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5982 that a face containing all the attributes in ATTRS, when merged
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5983 with the default face for display, can be represented in a way that's
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5984
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5985 \(1) different in appearance than the default face, and
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5986 \(2) `close in spirit' to what the attributes specify, if not exact.
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5987
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5988 Point (2) implies that a `:weight black' attribute will be satisfied
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5989 by any terminal that can display bold, and a `:foreground "yellow"' as
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5990 long as the terminal can display a yellowish color, but `:slant italic'
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5991 will _not_ be satisfied by the tty display code's automatic
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5992 substitution of a `dim' face for italic. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5993
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5994 static int
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5995 tty_supports_face_attributes_p (f, attrs, def_face)
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5996 struct frame *f;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5997 Lisp_Object *attrs;
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5998 struct face *def_face;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5999 {
56296
075ad6932e06 (x_supports_face_attributes_p)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56176
diff changeset
6000 int weight;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6001 Lisp_Object val, fg, bg;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6002 XColor fg_tty_color, fg_std_color;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6003 XColor bg_tty_color, bg_std_color;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6004 unsigned test_caps = 0;
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6005 Lisp_Object *def_attrs = def_face->lface;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6006
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6007
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6008 /* First check some easy-to-check stuff; ttys support none of the
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6009 following attributes, so we can just return false if any are requested
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6010 (even if `nominal' values are specified, we should still return false,
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6011 as that will be the same value that the default face uses). We
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6012 consider :slant unsupportable on ttys, even though the face code
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6013 actually `fakes' them using a dim attribute if possible. This is
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6014 because the faked result is too different from what the face
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6015 specifies. */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6016 if (!UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6017 || !UNSPECIFIEDP (attrs[LFACE_STIPPLE_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6018 || !UNSPECIFIEDP (attrs[LFACE_HEIGHT_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6019 || !UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6020 || !UNSPECIFIEDP (attrs[LFACE_OVERLINE_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6021 || !UNSPECIFIEDP (attrs[LFACE_STRIKE_THROUGH_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6022 || !UNSPECIFIEDP (attrs[LFACE_BOX_INDEX])
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6023 || !UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX]))
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6024 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6025
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6026
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6027 /* Test for terminal `capabilities' (non-color character attributes). */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6028
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6029 /* font weight (bold/dim) */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6030 weight = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6031 if (weight >= 0)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6032 {
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6033 int def_weight = face_numeric_weight (def_attrs[LFACE_WEIGHT_INDEX]);
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6034
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6035 if (weight > XLFD_WEIGHT_MEDIUM)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6036 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6037 if (def_weight > XLFD_WEIGHT_MEDIUM)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6038 return 0; /* same as default */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6039 test_caps = TTY_CAP_BOLD;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6040 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6041 else if (weight < XLFD_WEIGHT_MEDIUM)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6042 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6043 if (def_weight < XLFD_WEIGHT_MEDIUM)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6044 return 0; /* same as default */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6045 test_caps = TTY_CAP_DIM;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6046 }
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6047 else if (def_weight == XLFD_WEIGHT_MEDIUM)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6048 return 0; /* same as default */
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6049 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6050
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6051 /* underlining */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6052 val = attrs[LFACE_UNDERLINE_INDEX];
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6053 if (!UNSPECIFIEDP (val))
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6054 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6055 if (STRINGP (val))
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6056 return 0; /* ttys can't use colored underlines */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6057 else if (face_attr_equal_p (val, def_attrs[LFACE_UNDERLINE_INDEX]))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6058 return 0; /* same as default */
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6059 else
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6060 test_caps |= TTY_CAP_UNDERLINE;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6061 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6062
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6063 /* inverse video */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6064 val = attrs[LFACE_INVERSE_INDEX];
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6065 if (!UNSPECIFIEDP (val))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6066 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6067 if (face_attr_equal_p (val, def_attrs[LFACE_UNDERLINE_INDEX]))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6068 return 0; /* same as default */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6069 else
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6070 test_caps |= TTY_CAP_INVERSE;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6071 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6072
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6073
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6074 /* Color testing. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6075
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6076 /* Default the color indices in FG_TTY_COLOR and BG_TTY_COLOR, since
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6077 we use them when calling `tty_capable_p' below, even if the face
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6078 specifies no colors. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6079 fg_tty_color.pixel = FACE_TTY_DEFAULT_FG_COLOR;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6080 bg_tty_color.pixel = FACE_TTY_DEFAULT_BG_COLOR;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6081
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6082 /* Check if foreground color is close enough. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6083 fg = attrs[LFACE_FOREGROUND_INDEX];
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6084 if (STRINGP (fg))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6085 {
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6086 Lisp_Object def_fg = def_attrs[LFACE_FOREGROUND_INDEX];
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6087
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6088 if (face_attr_equal_p (fg, def_fg))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6089 return 0; /* same as default */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6090 else if (! tty_lookup_color (f, fg, &fg_tty_color, &fg_std_color))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6091 return 0; /* not a valid color */
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6092 else if (color_distance (&fg_tty_color, &fg_std_color)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6093 > TTY_SAME_COLOR_THRESHOLD)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6094 return 0; /* displayed color is too different */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6095 else
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6096 /* Make sure the color is really different than the default. */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6097 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6098 XColor def_fg_color;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6099 if (tty_lookup_color (f, def_fg, &def_fg_color, 0)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6100 && (color_distance (&fg_tty_color, &def_fg_color)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6101 <= TTY_SAME_COLOR_THRESHOLD))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6102 return 0;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6103 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6104 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6105
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6106 /* Check if background color is close enough. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6107 bg = attrs[LFACE_BACKGROUND_INDEX];
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6108 if (STRINGP (bg))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6109 {
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6110 Lisp_Object def_bg = def_attrs[LFACE_FOREGROUND_INDEX];
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6111
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6112 if (face_attr_equal_p (bg, def_bg))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6113 return 0; /* same as default */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6114 else if (! tty_lookup_color (f, bg, &bg_tty_color, &bg_std_color))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6115 return 0; /* not a valid color */
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6116 else if (color_distance (&bg_tty_color, &bg_std_color)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6117 > TTY_SAME_COLOR_THRESHOLD)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6118 return 0; /* displayed color is too different */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6119 else
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6120 /* Make sure the color is really different than the default. */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6121 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6122 XColor def_bg_color;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6123 if (tty_lookup_color (f, def_bg, &def_bg_color, 0)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6124 && (color_distance (&bg_tty_color, &def_bg_color)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6125 <= TTY_SAME_COLOR_THRESHOLD))
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6126 return 0;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6127 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6128 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6129
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6130 /* If both foreground and background are requested, see if the
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6131 distance between them is OK. We just check to see if the distance
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6132 between the tty's foreground and background is close enough to the
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6133 distance between the standard foreground and background. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6134 if (STRINGP (fg) && STRINGP (bg))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6135 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6136 int delta_delta
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6137 = (color_distance (&fg_std_color, &bg_std_color)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6138 - color_distance (&fg_tty_color, &bg_tty_color));
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6139 if (delta_delta > TTY_SAME_COLOR_THRESHOLD
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6140 || delta_delta < -TTY_SAME_COLOR_THRESHOLD)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6141 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6142 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6143
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6144
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6145 /* See if the capabilities we selected above are supported, with the
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6146 given colors. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6147 if (test_caps != 0 &&
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6148 ! tty_capable_p (f, test_caps, fg_tty_color.pixel, bg_tty_color.pixel))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6149 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6150
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6151
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6152 /* Hmmm, everything checks out, this terminal must support this face. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6153 return 1;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6154 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6155
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6156
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6157 DEFUN ("display-supports-face-attributes-p",
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6158 Fdisplay_supports_face_attributes_p, Sdisplay_supports_face_attributes_p,
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6159 1, 2, 0,
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6160 doc: /* Return non-nil if all the face attributes in ATTRIBUTES are supported.
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6161 The optional argument DISPLAY can be a display name, a frame, or
63164
c4a3a3afa8ce (Fdisplay_supports_face_attributes_p): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 62969
diff changeset
6162 nil (meaning the selected frame's display).
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6163
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6164 The definition of `supported' is somewhat heuristic, but basically means
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6165 that a face containing all the attributes in ATTRIBUTES, when merged
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6166 with the default face for display, can be represented in a way that's
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6167
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6168 \(1) different in appearance than the default face, and
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6169 \(2) `close in spirit' to what the attributes specify, if not exact.
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6170
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6171 Point (2) implies that a `:weight black' attribute will be satisfied by
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6172 any display that can display bold, and a `:foreground \"yellow\"' as long
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6173 as it can display a yellowish color, but `:slant italic' will _not_ be
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6174 satisfied by the tty display code's automatic substitution of a `dim'
63164
c4a3a3afa8ce (Fdisplay_supports_face_attributes_p): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 62969
diff changeset
6175 face for italic. */)
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6176 (attributes, display)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6177 Lisp_Object attributes, display;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6178 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6179 int supports, i;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6180 Lisp_Object frame;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6181 struct frame *f;
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6182 struct face *def_face;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6183 Lisp_Object attrs[LFACE_VECTOR_SIZE];
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6184
55949
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
6185 if (noninteractive || !initialized)
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
6186 /* We may not be able to access low-level face information in batch
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
6187 mode, or before being dumped, and this function is not going to
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
6188 be very useful in those cases anyway, so just give up. */
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
6189 return Qnil;
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
6190
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6191 if (NILP (display))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6192 frame = selected_frame;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6193 else if (FRAMEP (display))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6194 frame = display;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6195 else
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6196 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6197 /* Find any frame on DISPLAY. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6198 Lisp_Object fl_tail;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6199
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6200 frame = Qnil;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6201 for (fl_tail = Vframe_list; CONSP (fl_tail); fl_tail = XCDR (fl_tail))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6202 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6203 frame = XCAR (fl_tail);
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6204 if (!NILP (Fequal (Fcdr (Fassq (Qdisplay,
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6205 XFRAME (frame)->param_alist)),
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6206 display)))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6207 break;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6208 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6209 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6210
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6211 CHECK_LIVE_FRAME (frame);
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6212 f = XFRAME (frame);
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6213
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6214 for (i = 0; i < LFACE_VECTOR_SIZE; i++)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6215 attrs[i] = Qunspecified;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
6216 merge_face_ref (f, attributes, attrs, 1, 0);
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6217
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6218 def_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6219 if (def_face == NULL)
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6220 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6221 if (! realize_basic_faces (f))
56296
075ad6932e06 (x_supports_face_attributes_p)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56176
diff changeset
6222 error ("Cannot realize default face");
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6223 def_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6224 }
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6225
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6226 /* Dispatch to the appropriate handler. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6227 if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6228 supports = tty_supports_face_attributes_p (f, attrs, def_face);
55903
822bab94f6a3 (x_supports_face_attributes_p): Make this function
Eli Zaretskii <eliz@gnu.org>
parents: 55901
diff changeset
6229 #ifdef HAVE_WINDOW_SYSTEM
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6230 else
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6231 supports = x_supports_face_attributes_p (f, attrs, def_face);
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
6232 #endif
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6233
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6234 return supports ? Qt : Qnil;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6235 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6236
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6237
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
6238 /***********************************************************************
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6239 Font selection
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6240 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6241
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6242 DEFUN ("internal-set-font-selection-order",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6243 Finternal_set_font_selection_order,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6244 Sinternal_set_font_selection_order, 1, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6245 doc: /* Set font selection order for face font selection to ORDER.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6246 ORDER must be a list of length 4 containing the symbols `:width',
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6247 `:height', `:weight', and `:slant'. Face attributes appearing
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6248 first in ORDER are matched first, e.g. if `:height' appears before
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6249 `:weight' in ORDER, font selection first tries to find a font with
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6250 a suitable height, and then tries to match the font weight.
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6251 Value is ORDER. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6252 (order)
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6253 Lisp_Object order;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6254 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6255 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6256 int i;
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6257 int indices[DIM (font_sort_order)];
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6258
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
6259 CHECK_LIST (order);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6260 bzero (indices, sizeof indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6261 i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6262
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6263 for (list = order;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6264 CONSP (list) && i < DIM (indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6265 list = XCDR (list), ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6266 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6267 Lisp_Object attr = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6268 int xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6269
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6270 if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6271 xlfd = XLFD_SWIDTH;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6272 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6273 xlfd = XLFD_POINT_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6274 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6275 xlfd = XLFD_WEIGHT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6276 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6277 xlfd = XLFD_SLANT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6278 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6279 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6280
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6281 if (indices[i] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6282 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6283 indices[i] = xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6284 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6285
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6286 if (!NILP (list) || i != DIM (indices))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6287 signal_error ("Invalid font sort order", order);
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6288 for (i = 0; i < DIM (font_sort_order); ++i)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6289 if (indices[i] == 0)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6290 signal_error ("Invalid font sort order", order);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6291
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6292 if (bcmp (indices, font_sort_order, sizeof indices) != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6293 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6294 bcopy (indices, font_sort_order, sizeof font_sort_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6295 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6296 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6297
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6298 return Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6299 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6300
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6301
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6302 DEFUN ("internal-set-alternative-font-family-alist",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6303 Finternal_set_alternative_font_family_alist,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6304 Sinternal_set_alternative_font_family_alist, 1, 1, 0,
40991
566c75efb733 (Finternal_set_alternative_font_family_alist): Reindent.
Pavel Janík <Pavel@Janik.cz>
parents: 40838
diff changeset
6305 doc: /* Define alternative font families to try in face font selection.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6306 ALIST is an alist of (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...) entries.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6307 Each ALTERNATIVE is tried in order if no fonts of font family FAMILY can
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6308 be found. Value is ALIST. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6309 (alist)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6310 Lisp_Object alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6311 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
6312 CHECK_LIST (alist);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6313 Vface_alternative_font_family_alist = alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6314 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6315 return alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6316 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6317
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6318
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6319 DEFUN ("internal-set-alternative-font-registry-alist",
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6320 Finternal_set_alternative_font_registry_alist,
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6321 Sinternal_set_alternative_font_registry_alist, 1, 1, 0,
40598
7f3db64c7d42 (Finternal_merge_in_global_face): Reindent.
Pavel Janík <Pavel@Janik.cz>
parents: 40555
diff changeset
6322 doc: /* Define alternative font registries to try in face font selection.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6323 ALIST is an alist of (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...) entries.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6324 Each ALTERNATIVE is tried in order if no fonts of font registry REGISTRY can
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6325 be found. Value is ALIST. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6326 (alist)
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6327 Lisp_Object alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6328 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
6329 CHECK_LIST (alist);
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6330 Vface_alternative_font_registry_alist = alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6331 free_all_realized_faces (Qnil);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6332 return alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6333 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6334
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6335
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6336 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6337
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6338 /* Value is non-zero if FONT is the name of a scalable font. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6339 X11R6 XLFD spec says that point size, pixel size, and average width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6340 are zero for scalable fonts. Intlfonts contain at least one
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6341 scalable font ("*-muleindian-1") for which this isn't true, so we
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6342 just test average width. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6343
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6344 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6345 font_scalable_p (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6346 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6347 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6348 char *s = font->fields[XLFD_AVGWIDTH];
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6349 return (*s == '0' && *(s + 1) == '\0')
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6350 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6351 /* Windows implementation of XLFD is slightly broken for backward
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6352 compatibility with previous broken versions, so test for
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6353 wildcards as well as 0. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6354 || *s == '*'
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6355 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6356 ;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6357 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6358
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6359
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
6360 /* Ignore the difference of font point size less than this value. */
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
6361
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
6362 #define FONT_POINT_SIZE_QUANTUM 5
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
6363
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6364 /* Value is non-zero if FONT1 is a better match for font attributes
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6365 VALUES than FONT2. VALUES is an array of face attribute values in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6366 font sort order. COMPARE_PT_P zero means don't compare point
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6367 sizes. AVGWIDTH, if not zero, is a specified font average width
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6368 to compare with. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6369
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6370 static int
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6371 better_font_p (values, font1, font2, compare_pt_p, avgwidth)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6372 int *values;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6373 struct font_name *font1, *font2;
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6374 int compare_pt_p, avgwidth;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6375 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6376 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6377
70699
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6378 /* Any font is better than no font. */
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6379 if (! font1)
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6380 return 0;
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6381 if (! font2)
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6382 return 1;
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6383
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6384 for (i = 0; i < DIM (font_sort_order); ++i)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6385 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6386 int xlfd_idx = font_sort_order[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6387
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6388 if (compare_pt_p || xlfd_idx != XLFD_POINT_SIZE)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6389 {
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6390 int delta1, delta2;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6391
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6392 if (xlfd_idx == XLFD_POINT_SIZE)
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6393 {
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6394 delta1 = abs (values[i] - (font1->numeric[xlfd_idx]
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6395 / font1->rescale_ratio));
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6396 delta2 = abs (values[i] - (font2->numeric[xlfd_idx]
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6397 / font2->rescale_ratio));
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6398 if (abs (delta1 - delta2) < FONT_POINT_SIZE_QUANTUM)
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6399 continue;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6400 }
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6401 else
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6402 {
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6403 delta1 = abs (values[i] - font1->numeric[xlfd_idx]);
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6404 delta2 = abs (values[i] - font2->numeric[xlfd_idx]);
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6405 }
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6406
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6407 if (delta1 > delta2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6408 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6409 else if (delta1 < delta2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6410 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6411 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6412 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6413 /* The difference may be equal because, e.g., the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6414 specifies `italic' but we have only `regular' and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6415 `oblique'. Prefer `oblique' in this case. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6416 if ((xlfd_idx == XLFD_WEIGHT || xlfd_idx == XLFD_SLANT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6417 && font1->numeric[xlfd_idx] > values[i]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6418 && font2->numeric[xlfd_idx] < values[i])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6419 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6420 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6421 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6422 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6423
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6424 if (avgwidth)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6425 {
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6426 int delta1 = abs (avgwidth - font1->numeric[XLFD_AVGWIDTH]);
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6427 int delta2 = abs (avgwidth - font2->numeric[XLFD_AVGWIDTH]);
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6428 if (delta1 > delta2)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6429 return 0;
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6430 else if (delta1 < delta2)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6431 return 1;
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6432 }
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6433
52200
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6434 if (! compare_pt_p)
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6435 {
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6436 /* We prefer a real scalable font; i.e. not what autoscaled. */
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6437 int auto_scaled_1 = (font1->numeric[XLFD_POINT_SIZE] == 0
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6438 && font1->numeric[XLFD_RESY] > 0);
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6439 int auto_scaled_2 = (font2->numeric[XLFD_POINT_SIZE] == 0
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6440 && font2->numeric[XLFD_RESY] > 0);
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6441
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6442 if (auto_scaled_1 != auto_scaled_2)
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6443 return auto_scaled_2;
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6444 }
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6445
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6446 return font1->registry_priority < font2->registry_priority;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6447 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6448
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6449
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6450 /* Value is non-zero if FONT is an exact match for face attributes in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6451 SPECIFIED. SPECIFIED is an array of face attribute values in font
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6452 sort order. AVGWIDTH, if non-zero, is an average width to compare
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6453 with. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6454
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6455 static int
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6456 exact_face_match_p (specified, font, avgwidth)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6457 int *specified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6458 struct font_name *font;
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6459 int avgwidth;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6460 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6461 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6462
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6463 for (i = 0; i < DIM (font_sort_order); ++i)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6464 if (specified[i] != font->numeric[font_sort_order[i]])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6465 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6466
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6467 return (i == DIM (font_sort_order)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6468 && (avgwidth <= 0
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6469 || avgwidth == font->numeric[XLFD_AVGWIDTH]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6470 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6471
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6472
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6473 /* Value is the name of a scaled font, generated from scalable font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6474 FONT on frame F. SPECIFIED_PT is the point-size to scale FONT to.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6475 Value is allocated from heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6476
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6477 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6478 build_scalable_font_name (f, font, specified_pt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6479 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6480 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6481 int specified_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6482 {
51237
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6483 char pixel_size[20];
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6484 int pixel_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6485 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6486 double pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6487
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6488 /* If scalable font is for a specific resolution, compute
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6489 the point size we must specify from the resolution of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6490 the display and the specified resolution of the font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6491 if (font->numeric[XLFD_RESY] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6492 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6493 pt = resy / font->numeric[XLFD_RESY] * specified_pt + 0.5;
62945
179873645b73 (build_scalable_font_name): Round pixel size to the
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61914
diff changeset
6494 pixel_value = font->numeric[XLFD_RESY] / (PT_PER_INCH * 10.0) * pt + 0.5;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6495 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6496 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6497 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6498 pt = specified_pt;
62945
179873645b73 (build_scalable_font_name): Round pixel size to the
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 61914
diff changeset
6499 pixel_value = resy / (PT_PER_INCH * 10.0) * pt + 0.5;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6500 }
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6501 /* We may need a font of the different size. */
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6502 pixel_value *= font->rescale_ratio;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6503
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6504 /* We should keep POINT_SIZE 0. Otherwise, X server can't open a
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6505 font of the specified PIXEL_SIZE. */
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6506 #if 0
51237
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6507 { /* Set point size of the font. */
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6508 char point_size[20];
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6509 sprintf (point_size, "%d", (int) pt);
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6510 font->fields[XLFD_POINT_SIZE] = point_size;
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6511 font->numeric[XLFD_POINT_SIZE] = pt;
ed40623b1ca6 (build_scalable_font_name): Remove `unused var pixel_size' warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51210
diff changeset
6512 }
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
6513 #endif
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6514
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6515 /* Set pixel size. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6516 sprintf (pixel_size, "%d", pixel_value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6517 font->fields[XLFD_PIXEL_SIZE] = pixel_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6518 font->numeric[XLFD_PIXEL_SIZE] = pixel_value;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6519
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6520 /* If font doesn't specify its resolution, use the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6521 resolution of the display. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6522 if (font->numeric[XLFD_RESY] == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6523 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6524 char buffer[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6525 sprintf (buffer, "%d", (int) resy);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6526 font->fields[XLFD_RESY] = buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6527 font->numeric[XLFD_RESY] = resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6528 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6529
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6530 if (strcmp (font->fields[XLFD_RESX], "0") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6531 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6532 char buffer[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6533 int resx = FRAME_X_DISPLAY_INFO (f)->resx;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6534 sprintf (buffer, "%d", resx);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6535 font->fields[XLFD_RESX] = buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6536 font->numeric[XLFD_RESX] = resx;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6537 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6538
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6539 return build_font_name (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6540 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6541
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6542
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6543 /* Value is non-zero if we are allowed to use scalable font FONT. We
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6544 can't run a Lisp function here since this function may be called
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6545 with input blocked. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6546
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6547 static int
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6548 may_use_scalable_font_p (font)
46556
71e205b50a3e (may_use_scalable_font_p): Argument now points to
Ken Raeburn <raeburn@raeburn.org>
parents: 46478
diff changeset
6549 const char *font;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6550 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6551 if (EQ (Vscalable_fonts_allowed, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6552 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6553 else if (CONSP (Vscalable_fonts_allowed))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6554 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6555 Lisp_Object tail, regexp;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6556
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6557 for (tail = Vscalable_fonts_allowed; CONSP (tail); tail = XCDR (tail))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6558 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6559 regexp = XCAR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6560 if (STRINGP (regexp)
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6561 && fast_c_string_match_ignore_case (regexp, font) >= 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6562 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6563 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6564 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6565
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6566 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6567 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6568
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6569
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6570
36066
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6571 /* Return the name of the best matching font for face attributes ATTRS
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6572 in the array of font_name structures FONTS which contains NFONTS
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6573 elements. WIDTH_RATIO is a factor with which to multiply average
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6574 widths if ATTRS specifies such a width.
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6575
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6576 Value is a font name which is allocated from the heap. FONTS is
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6577 freed by this function.
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6578
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6579 If NEEDS_OVERSTRIKE is non-zero, a boolean is returned in it to
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6580 indicate whether the resulting font should be drawn using overstrike
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6581 to simulate bold-face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6582
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6583 static char *
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6584 best_matching_font (f, attrs, fonts, nfonts, width_ratio, needs_overstrike)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6585 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6586 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6587 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6588 int nfonts;
36066
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6589 int width_ratio;
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6590 int *needs_overstrike;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6591 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6592 char *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6593 struct font_name *best;
31507
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
6594 int i, pt = 0;
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6595 int specified[5];
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6596 int exact_p, avgwidth;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6597
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6598 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6599 return NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6600
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6601 /* Make specified font attributes available in `specified',
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6602 indexed by sort order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6603 for (i = 0; i < DIM (font_sort_order); ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6604 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6605 int xlfd_idx = font_sort_order[i];
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6606
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6607 if (xlfd_idx == XLFD_SWIDTH)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6608 specified[i] = face_numeric_swidth (attrs[LFACE_SWIDTH_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6609 else if (xlfd_idx == XLFD_POINT_SIZE)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6610 specified[i] = pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6611 else if (xlfd_idx == XLFD_WEIGHT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6612 specified[i] = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6613 else if (xlfd_idx == XLFD_SLANT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6614 specified[i] = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6615 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6616 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6617 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6618
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6619 avgwidth = (UNSPECIFIEDP (attrs[LFACE_AVGWIDTH_INDEX])
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6620 ? 0
36066
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6621 : XFASTINT (attrs[LFACE_AVGWIDTH_INDEX]) * width_ratio);
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6622
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6623 exact_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6624
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6625 if (needs_overstrike)
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6626 *needs_overstrike = 0;
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6627
70699
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6628 best = NULL;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6629
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6630 /* Find the best match among the non-scalable fonts. */
70795
1d1c6a83c277 (best_matching_font): Fix crash in 2006-05-17 change.
Kim F. Storm <storm@cua.dk>
parents: 70699
diff changeset
6631 for (i = 0; i < nfonts; ++i)
70699
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6632 if (!font_scalable_p (fonts + i)
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6633 && better_font_p (specified, fonts + i, best, 1, avgwidth))
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6634 {
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6635 best = fonts + i;
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6636
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6637 exact_p = exact_face_match_p (specified, best, avgwidth);
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6638 if (exact_p)
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6639 break;
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6640 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6641
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6642 /* Unless we found an exact match among non-scalable fonts, see if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6643 we can find a better match among scalable fonts. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6644 if (!exact_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6645 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6646 /* A scalable font is better if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6647
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6648 1. its weight, slant, swidth attributes are better, or.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6649
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6650 2. the best non-scalable font doesn't have the required
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6651 point size, and the scalable fonts weight, slant, swidth
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6652 isn't worse. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6653
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6654 int non_scalable_has_exact_height_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6655
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6656 if (best && best->numeric[XLFD_POINT_SIZE] == pt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6657 non_scalable_has_exact_height_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6658 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6659 non_scalable_has_exact_height_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6660
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6661 for (i = 0; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6662 if (font_scalable_p (fonts + i))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6663 {
70699
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6664 if (better_font_p (specified, fonts + i, best, 0, 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6665 || (!non_scalable_has_exact_height_p
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
6666 && !better_font_p (specified, best, fonts + i, 0, 0)))
52200
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6667 {
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6668 non_scalable_has_exact_height_p = 1;
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6669 best = fonts + i;
b154b2a09262 * xfaces.c (better_font_p): Prefer a real scalable font; i.e. not
Kenichi Handa <handa@m17n.org>
parents: 51665
diff changeset
6670 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6671 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6672 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6673
70699
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6674 /* We should have found SOME font. */
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6675 if (best == NULL)
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6676 abort ();
434948c350d2 (better_font_p): Any font beats no font.
Richard M. Stallman <rms@gnu.org>
parents: 70566
diff changeset
6677
70834
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6678 if (! exact_p && needs_overstrike)
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6679 {
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6680 enum xlfd_weight want_weight = specified[XLFD_WEIGHT];
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6681 enum xlfd_weight got_weight = best->numeric[XLFD_WEIGHT];
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6682
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6683 if (want_weight > XLFD_WEIGHT_MEDIUM && want_weight > got_weight)
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6684 {
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6685 /* We want a bold font, but didn't get one; try to use
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6686 overstriking instead to simulate bold-face. However,
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6687 don't overstrike an already-bold fontn unless the
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6688 desired weight grossly exceeds the available weight. */
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6689 if (got_weight > XLFD_WEIGHT_MEDIUM)
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6690 *needs_overstrike = (got_weight - want_weight) > 2;
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6691 else
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6692 *needs_overstrike = 1;
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6693 }
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6694 }
7ca4cd6f07f2 (best_matching_font): Abort for best == NULL before we start to use it.
Richard M. Stallman <rms@gnu.org>
parents: 70795
diff changeset
6695
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6696 if (font_scalable_p (best))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6697 font_name = build_scalable_font_name (f, best, pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6698 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6699 font_name = build_font_name (best);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6700
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6701 /* Free font_name structures. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6702 free_font_names (fonts, nfonts);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6703
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6704 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6705 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6706
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6707
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6708 /* Get a list of matching fonts on frame F, considering FAMILY
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6709 and alternative font families from Vface_alternative_font_registry_alist.
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6710
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6711 FAMILY is the font family whose alternatives are considered.
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6712
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6713 REGISTRY, if a string, specifies a font registry and encoding to
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6714 match. A value of nil means include fonts of any registry and
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6715 encoding.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6716
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6717 Return in *FONTS a pointer to a vector of font_name structures for
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6718 the fonts matched. Value is the number of fonts found. */
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6719
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6720 static int
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6721 try_alternative_families (f, family, registry, fonts)
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6722 struct frame *f;
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6723 Lisp_Object family, registry;
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6724 struct font_name **fonts;
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6725 {
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6726 Lisp_Object alter;
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6727 int nfonts = 0;
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6728
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6729 nfonts = font_list (f, Qnil, family, registry, fonts);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6730 if (nfonts == 0)
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6731 {
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6732 /* Try alternative font families. */
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6733 alter = Fassoc (family, Vface_alternative_font_family_alist);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6734 if (CONSP (alter))
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6735 {
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6736 for (alter = XCDR (alter);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6737 CONSP (alter) && nfonts == 0;
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6738 alter = XCDR (alter))
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6739 {
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6740 if (STRINGP (XCAR (alter)))
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6741 nfonts = font_list (f, Qnil, XCAR (alter), registry, fonts);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6742 }
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6743 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6744
49864
a2add8cdc33a (try_alternative_families): Try all scalable fonts if
Kenichi Handa <handa@m17n.org>
parents: 49863
diff changeset
6745 /* Try all scalable fonts before giving up. */
a2add8cdc33a (try_alternative_families): Try all scalable fonts if
Kenichi Handa <handa@m17n.org>
parents: 49863
diff changeset
6746 if (nfonts == 0 && ! EQ (Vscalable_fonts_allowed, Qt))
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6747 {
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45848
diff changeset
6748 int count = SPECPDL_INDEX ();
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6749 specbind (Qscalable_fonts_allowed, Qt);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6750 nfonts = try_alternative_families (f, family, registry, fonts);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6751 unbind_to (count, Qnil);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6752 }
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6753 }
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6754 return nfonts;
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6755 }
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6756
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6757
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6758 /* Get a list of matching fonts on frame F.
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6759
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6760 FAMILY, if a string, specifies a font family derived from the fontset.
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6761 It is only used if the face does not specify any family in ATTRS or
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6762 if we cannot find any font of the face's family.
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6763
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6764 REGISTRY, if a string, specifies a font registry and encoding to
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6765 match. A value of nil means include fonts of any registry and
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6766 encoding.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6767
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6768 If PREFER_FACE_FAMILY is nonzero, perfer face's family to FAMILY.
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6769 Otherwise, prefer FAMILY.
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6770
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6771 Return in *FONTS a pointer to a vector of font_name structures for
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6772 the fonts matched. Value is the number of fonts found. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6773
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6774 static int
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6775 try_font_list (f, attrs, family, registry, fonts, prefer_face_family)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6776 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6777 Lisp_Object *attrs;
37186
e47810283f6b (best_matching_font): Remove unused parameter PATTERN.
Gerd Moellmann <gerd@gnu.org>
parents: 37036
diff changeset
6778 Lisp_Object family, registry;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6779 struct font_name **fonts;
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6780 int prefer_face_family;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6781 {
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6782 int nfonts = 0;
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6783 Lisp_Object face_family = attrs[LFACE_FAMILY_INDEX];
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6784 Lisp_Object try_family;
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6785
47639
a7c8409f5cad (try_font_list): Pay attention to the case that FAMILY is nil.
Kenichi Handa <handa@m17n.org>
parents: 47618
diff changeset
6786 try_family = (prefer_face_family || NILP (family)) ? face_family : family;
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6787
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6788 if (STRINGP (try_family))
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6789 nfonts = try_alternative_families (f, try_family, registry, fonts);
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6790
45848
39cdf9669519 In src/:
Andrew Choi <akochoi@shaw.ca>
parents: 45746
diff changeset
6791 #ifdef MAC_OS
64277
72dab4f8f589 (try_font_list) [MAC_OS]: Try font family name
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64232
diff changeset
6792 if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry))
69968
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6793 {
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6794 if (xstricmp (SDATA (registry), "mac-roman") == 0)
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6795 /* When realizing the default face and a font spec does not
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6796 matched exactly, Emacs looks for ones with the same registry
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6797 as the default font. On the Mac, this is mac-roman, which
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6798 does not work if the family is -etl-fixed, e.g. The
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6799 following widens the choices and fixes that problem. */
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6800 nfonts = try_alternative_families (f, try_family, Qnil, fonts);
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6801 else if (SBYTES (try_family) > 0
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6802 && SREF (try_family, SBYTES (try_family) - 1) != '*')
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6803 /* Some Central European/Cyrillic font family names have the
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6804 Roman counterpart name as their prefix. */
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6805 nfonts = try_alternative_families (f, concat2 (try_family,
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6806 build_string ("*")),
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6807 registry, fonts);
d153d2fdd948 (Finternal_merge_in_global_face, try_font_list): Add
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68651
diff changeset
6808 }
45848
39cdf9669519 In src/:
Andrew Choi <akochoi@shaw.ca>
parents: 45746
diff changeset
6809 #endif
39cdf9669519 In src/:
Andrew Choi <akochoi@shaw.ca>
parents: 45746
diff changeset
6810
47639
a7c8409f5cad (try_font_list): Pay attention to the case that FAMILY is nil.
Kenichi Handa <handa@m17n.org>
parents: 47618
diff changeset
6811 if (EQ (try_family, family))
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6812 family = face_family;
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6813
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6814 if (nfonts == 0 && STRINGP (family))
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6815 nfonts = try_alternative_families (f, family, registry, fonts);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6816
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6817 /* Try font family of the default face or "fixed". */
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6818 if (nfonts == 0)
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6819 {
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6820 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6821 if (default_face)
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6822 family = default_face->lface[LFACE_FAMILY_INDEX];
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6823 else
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6824 family = build_string ("fixed");
37679
13efa6105da9 (try_alternative_families): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 37433
diff changeset
6825 nfonts = font_list (f, Qnil, family, registry, fonts);
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6826 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6827
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6828 /* Try any family with the given registry. */
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
6829 if (nfonts == 0)
52203
0941be5b523e (try_font_list): Call try_alternative_families to try any family
Kenichi Handa <handa@m17n.org>
parents: 52200
diff changeset
6830 nfonts = try_alternative_families (f, Qnil, registry, fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6831
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6832 return nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6833 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6834
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6835
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6836 /* Return the fontset id of the base fontset name or alias name given
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6837 by the fontset attribute of ATTRS. Value is -1 if the fontset
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6838 attribute of ATTRS doesn't name a fontset. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6839
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6840 static int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6841 face_fontset (attrs)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6842 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6843 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6844 Lisp_Object name;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6845
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6846 name = attrs[LFACE_FONT_INDEX];
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6847 if (!STRINGP (name))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6848 return -1;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6849 return fs_query_fontset (name, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6850 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6851
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6852
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6853 /* Choose a name of font to use on frame F to display character C with
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6854 Lisp face attributes specified by ATTRS. The font name is
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6855 determined by the font-related attributes in ATTRS and the name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6856 pattern for C in FONTSET. Value is the font name which is
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6857 allocated from the heap and must be freed by the caller, or NULL if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6858 we can get no information about the font name of C. It is assured
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6859 that we always get some information for a single byte
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6860 character.
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6861
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6862 If NEEDS_OVERSTRIKE is non-zero, a boolean is returned in it to
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6863 indicate whether the resulting font should be drawn using overstrike
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6864 to simulate bold-face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6865
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6866 static char *
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6867 choose_face_font (f, attrs, fontset, c, needs_overstrike)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6868 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6869 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6870 int fontset, c;
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6871 int *needs_overstrike;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6872 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6873 Lisp_Object pattern;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6874 char *font_name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6875 struct font_name *fonts;
36066
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6876 int nfonts, width_ratio;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6877
50412
49cba7ce673a (choose_face_font): Make sure *NEEDS_OVERSTRIKE is always set.
Miles Bader <miles@gnu.org>
parents: 50369
diff changeset
6878 if (needs_overstrike)
49cba7ce673a (choose_face_font): Make sure *NEEDS_OVERSTRIKE is always set.
Miles Bader <miles@gnu.org>
parents: 50369
diff changeset
6879 *needs_overstrike = 0;
49cba7ce673a (choose_face_font): Make sure *NEEDS_OVERSTRIKE is always set.
Miles Bader <miles@gnu.org>
parents: 50369
diff changeset
6880
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6881 /* Get (foundry and) family name and registry (and encoding) name of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6882 a font for C. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6883 pattern = fontset_font_pattern (f, fontset, c);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6884 if (NILP (pattern))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6885 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6886 xassert (!SINGLE_BYTE_CHAR_P (c));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6887 return NULL;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6888 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6889
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6890 /* If what we got is a name pattern, return it. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6891 if (STRINGP (pattern))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
6892 return xstrdup (SDATA (pattern));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6893
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6894 /* Get a list of fonts matching that pattern and choose the
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6895 best match for the specified face attributes from it. */
47618
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6896 nfonts = try_font_list (f, attrs, XCAR (pattern), XCDR (pattern), &fonts,
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6897 (SINGLE_BYTE_CHAR_P (c)
e620377a0596 (try_font_list): New arg PREFER_FACE_FAMILY. If it is
Kenichi Handa <handa@m17n.org>
parents: 47471
diff changeset
6898 || CHAR_CHARSET (c) == charset_latin_iso8859_1));
36066
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6899 width_ratio = (SINGLE_BYTE_CHAR_P (c)
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6900 ? 1
ea51e9f7266e (best_matching_font): New parameter width_ratio.
Gerd Moellmann <gerd@gnu.org>
parents: 36006
diff changeset
6901 : CHARSET_WIDTH (CHAR_CHARSET (c)));
48384
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6902 font_name = best_matching_font (f, attrs, fonts, nfonts, width_ratio,
acfaa904eb56 (load_face_font): Set `face->overstrike' based on result from
Miles Bader <miles@gnu.org>
parents: 47983
diff changeset
6903 needs_overstrike);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6904 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6905 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6906
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6907 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6908
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6909
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6910
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6911 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6912 Face Realization
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6913 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6914
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6915 /* Realize basic faces on frame F. Value is zero if frame parameters
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6916 of F don't contain enough information needed to realize the default
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6917 face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6918
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6919 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6920 realize_basic_faces (f)
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6921 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6922 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6923 int success_p = 0;
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45848
diff changeset
6924 int count = SPECPDL_INDEX ();
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6925
38802
7ca6f1c8e014 (x_update_menu_appearance): Save and restore value of
Gerd Moellmann <gerd@gnu.org>
parents: 38435
diff changeset
6926 /* Block input here so that we won't be surprised by an X expose
7ca6f1c8e014 (x_update_menu_appearance): Save and restore value of
Gerd Moellmann <gerd@gnu.org>
parents: 38435
diff changeset
6927 event, for instance, without having the faces set up. */
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6928 BLOCK_INPUT;
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
6929 specbind (Qscalable_fonts_allowed, Qt);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6930
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6931 if (realize_default_face (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6932 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6933 realize_named_face (f, Qmode_line, MODE_LINE_FACE_ID);
43203
dd98ef3675e5 (Qmode_line_inactive): New face variable for mode-line
Kim F. Storm <storm@cua.dk>
parents: 43069
diff changeset
6934 realize_named_face (f, Qmode_line_inactive, MODE_LINE_INACTIVE_FACE_ID);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
6935 realize_named_face (f, Qtool_bar, TOOL_BAR_FACE_ID);
41129
4aced7b9718b Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 41010
diff changeset
6936 realize_named_face (f, Qfringe, FRINGE_FACE_ID);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6937 realize_named_face (f, Qheader_line, HEADER_LINE_FACE_ID);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6938 realize_named_face (f, Qscroll_bar, SCROLL_BAR_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6939 realize_named_face (f, Qborder, BORDER_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6940 realize_named_face (f, Qcursor, CURSOR_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6941 realize_named_face (f, Qmouse, MOUSE_FACE_ID);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
6942 realize_named_face (f, Qmenu, MENU_FACE_ID);
63649
144440a09db1 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-438
Miles Bader <miles@gnu.org>
parents: 63642
diff changeset
6943 realize_named_face (f, Qvertical_border, VERTICAL_BORDER_FACE_ID);
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6944
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
6945 /* Reflect changes in the `menu' face in menu bars. */
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
6946 if (FRAME_FACE_CACHE (f)->menu_face_changed_p)
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6947 {
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
6948 FRAME_FACE_CACHE (f)->menu_face_changed_p = 0;
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6949 #ifdef USE_X_TOOLKIT
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
6950 x_update_menu_appearance (f);
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
6951 #endif
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6952 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6953
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6954 success_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6955 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6956
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
6957 unbind_to (count, Qnil);
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6958 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6959 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6960 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6961
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6962
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6963 /* Realize the default face on frame F. If the face is not fully
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6964 specified, make it fully-specified. Attributes of the default face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6965 that are not explicitly specified are taken from frame parameters. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6966
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6967 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6968 realize_default_face (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6969 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6970 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6971 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6972 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6973 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6974 Lisp_Object frame_font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6975 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6976
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6977 /* If the `default' face is not yet known, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6978 lface = lface_from_face_name (f, Qdefault, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6979 if (NILP (lface))
51315
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
6980 {
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
6981 Lisp_Object frame;
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
6982 XSETFRAME (frame, f);
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
6983 lface = Finternal_make_lisp_face (Qdefault, frame);
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
6984 }
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
6985
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6986
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6987 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6988 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6989 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6990 /* Set frame_font to the value of the `font' frame parameter. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6991 frame_font = Fassq (Qfont, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6992 xassert (CONSP (frame_font) && STRINGP (XCDR (frame_font)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6993 frame_font = XCDR (frame_font);
51665
c1f65dfc56eb Fix some of the font/face problems.
Jan Djärv <jan.h.d@swipnet.se>
parents: 51500
diff changeset
6994 set_lface_from_font_name (f, lface, frame_font,
c1f65dfc56eb Fix some of the font/face problems.
Jan Djärv <jan.h.d@swipnet.se>
parents: 51500
diff changeset
6995 f->default_face_done_p, 1);
c1f65dfc56eb Fix some of the font/face problems.
Jan Djärv <jan.h.d@swipnet.se>
parents: 51500
diff changeset
6996 f->default_face_done_p = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6997 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6998 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6999
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7000 if (!FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7001 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7002 LFACE_FAMILY (lface) = build_string ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7003 LFACE_SWIDTH (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7004 LFACE_HEIGHT (lface) = make_number (1);
43069
e1291f1c4a5b (realize_default_face): Don't set the weight and slant
Eli Zaretskii <eliz@gnu.org>
parents: 42206
diff changeset
7005 if (UNSPECIFIEDP (LFACE_WEIGHT (lface)))
e1291f1c4a5b (realize_default_face): Don't set the weight and slant
Eli Zaretskii <eliz@gnu.org>
parents: 42206
diff changeset
7006 LFACE_WEIGHT (lface) = Qnormal;
e1291f1c4a5b (realize_default_face): Don't set the weight and slant
Eli Zaretskii <eliz@gnu.org>
parents: 42206
diff changeset
7007 if (UNSPECIFIEDP (LFACE_SLANT (lface)))
e1291f1c4a5b (realize_default_face): Don't set the weight and slant
Eli Zaretskii <eliz@gnu.org>
parents: 42206
diff changeset
7008 LFACE_SLANT (lface) = Qnormal;
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
7009 LFACE_AVGWIDTH (lface) = Qunspecified;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7010 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7011
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7012 if (UNSPECIFIEDP (LFACE_UNDERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7013 LFACE_UNDERLINE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7014
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7015 if (UNSPECIFIEDP (LFACE_OVERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7016 LFACE_OVERLINE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7017
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7018 if (UNSPECIFIEDP (LFACE_STRIKE_THROUGH (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7019 LFACE_STRIKE_THROUGH (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7020
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7021 if (UNSPECIFIEDP (LFACE_BOX (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7022 LFACE_BOX (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7023
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7024 if (UNSPECIFIEDP (LFACE_INVERSE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7025 LFACE_INVERSE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7026
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7027 if (UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7028 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7029 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7030 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7031 Lisp_Object color = Fassq (Qforeground_color, f->param_alist);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7032
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7033 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7034 LFACE_FOREGROUND (lface) = XCDR (color);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7035 else if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7036 return 0;
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
7037 else if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
7038 LFACE_FOREGROUND (lface) = build_string (unspecified_fg);
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
7039 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7040 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7041 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7042
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7043 if (UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7044 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7045 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7046 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7047 Lisp_Object color = Fassq (Qbackground_color, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7048 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7049 LFACE_BACKGROUND (lface) = XCDR (color);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7050 else if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7051 return 0;
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
7052 else if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
7053 LFACE_BACKGROUND (lface) = build_string (unspecified_bg);
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
7054 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7055 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7056 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7057
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7058 if (UNSPECIFIEDP (LFACE_STIPPLE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7059 LFACE_STIPPLE (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7060
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7061 /* Realize the face; it must be fully-specified now. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7062 xassert (lface_fully_specified_p (XVECTOR (lface)->contents));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7063 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7064 bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7065 face = realize_face (c, attrs, 0, NULL, DEFAULT_FACE_ID);
70566
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7066
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7067 #ifdef HAVE_WINDOW_SYSTEM
70795
1d1c6a83c277 (best_matching_font): Fix crash in 2006-05-17 change.
Kim F. Storm <storm@cua.dk>
parents: 70699
diff changeset
7068 #ifdef HAVE_X_WINDOWS
70566
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7069 if (face->font != FRAME_FONT (f))
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7070 /* As the font specified for the frame was not acceptable as a
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7071 font for the default face (perhaps because auto-scaled fonts
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7072 are rejected), we must adjust the frame font. */
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7073 x_set_font (f, build_string (face->font_name), Qnil);
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7074 #endif /* HAVE_X_WINDOWS */
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
7075 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7076 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7077 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7078
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7079
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7080 /* Realize basic faces other than the default face in face cache C.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7081 SYMBOL is the face name, ID is the face id the realized face must
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7082 have. The default face must have been realized already. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7083
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7084 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7085 realize_named_face (f, symbol, id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7086 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7087 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7088 int id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7089 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7090 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7091 Lisp_Object lface = lface_from_face_name (f, symbol, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7092 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7093 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7094 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7095
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7096 /* The default face must exist and be fully specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7097 get_lface_attributes (f, Qdefault, attrs, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7098 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7099 xassert (lface_fully_specified_p (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7101 /* If SYMBOL isn't know as a face, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7102 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7103 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7104 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7105 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7106 lface = Finternal_make_lisp_face (symbol, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7107 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7108
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7109 /* Merge SYMBOL's face with the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7110 get_lface_attributes (f, symbol, symbol_attrs, 1);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7111 merge_face_vectors (f, symbol_attrs, attrs, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7112
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7113 /* Realize the face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7114 new_face = realize_face (c, attrs, 0, NULL, id);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7115 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7116
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7117
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7118 /* Realize the fully-specified face with attributes ATTRS in face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7119 cache CACHE for character C. If C is a multibyte character,
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7120 BASE_FACE is a face that has the same attributes. Otherwise,
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7121 BASE_FACE is ignored. If FORMER_FACE_ID is non-negative, it is an
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7122 ID of face to remove before caching the new face. Value is a
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7123 pointer to the newly created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7124
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7125 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7126 realize_face (cache, attrs, c, base_face, former_face_id)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7127 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7128 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7129 int c;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7130 struct face *base_face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7131 int former_face_id;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7132 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7133 struct face *face;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7134
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7135 /* LFACE must be fully specified. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7136 xassert (cache != NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7137 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7138
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7139 if (former_face_id >= 0 && cache->used > former_face_id)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7140 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7141 /* Remove the former face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7142 struct face *former_face = cache->faces_by_id[former_face_id];
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7143 uncache_face (cache, former_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7144 free_realized_face (cache->f, former_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7145 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7146
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7147 if (FRAME_WINDOW_P (cache->f))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7148 face = realize_x_face (cache, attrs, c, base_face);
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
7149 else if (FRAME_TERMCAP_P (cache->f) || FRAME_MSDOS_P (cache->f))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7150 face = realize_tty_face (cache, attrs, c);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7151 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7152 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7153
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7154 /* Insert the new face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7155 cache_face (cache, face, lface_hash (attrs));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7156 #ifdef HAVE_WINDOW_SYSTEM
28544
b42146066357 (realize_face): Change FRAME_X_P to FRAME_WINDOW_P.
Jason Rumney <jasonr@gnu.org>
parents: 28529
diff changeset
7157 if (FRAME_WINDOW_P (cache->f) && face->font == NULL)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7158 load_face_font (cache->f, face, c);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7159 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7160 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7161 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7162
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7163
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7164 /* Realize the fully-specified face with attributes ATTRS in face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7165 cache CACHE for character C. Do it for X frame CACHE->f. If C is
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7166 a multibyte character, BASE_FACE is a face that has the same
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7167 attributes. Otherwise, BASE_FACE is ignored. If the new face
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7168 doesn't share font with the default face, a fontname is allocated
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7169 from the heap and set in `font_name' of the new face, but it is not
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7170 yet loaded here. Value is a pointer to the newly created realized
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7171 face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7172
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7173 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7174 realize_x_face (cache, attrs, c, base_face)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7175 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7176 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7177 int c;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7178 struct face *base_face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7179 {
61628
c897778cd685 (realize_x_face) [!HAVE_WINDOW_SYSTEM]: Return NULL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 60837
diff changeset
7180 struct face *face = NULL;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7181 #ifdef HAVE_WINDOW_SYSTEM
61628
c897778cd685 (realize_x_face) [!HAVE_WINDOW_SYSTEM]: Return NULL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 60837
diff changeset
7182 struct face *default_face;
26875
d6aa11f2a4af (choose_face_fontset_font): Delete codes for a
Kenichi Handa <handa@m17n.org>
parents: 26759
diff changeset
7183 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7184 Lisp_Object stipple, overline, strike_through, box;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7185
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7186 xassert (FRAME_WINDOW_P (cache->f));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7187 xassert (SINGLE_BYTE_CHAR_P (c)
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
7188 || base_face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7189
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7190 /* Allocate a new realized face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7191 face = make_realized_face (attrs);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7192
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7193 f = cache->f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7194
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7195 /* If C is a multibyte character, we share all face attirbutes with
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7196 BASE_FACE including the realized fontset. But, we must load a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7197 different font. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7198 if (!SINGLE_BYTE_CHAR_P (c))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7199 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7200 bcopy (base_face, face, sizeof *face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7201 face->gc = 0;
29394
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
7202
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
7203 /* Don't try to free the colors copied bitwise from BASE_FACE. */
40555
dfc4450c2329 (realize_x_face): If C is not a single-byte character,
Gerd Moellmann <gerd@gnu.org>
parents: 40532
diff changeset
7204 face->colors_copied_bitwise_p = 1;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7205
29394
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
7206 /* to force realize_face to load font */
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
7207 face->font = NULL;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7208 return face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7209 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7210
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7211 /* Now we are realizing a face for ASCII (and unibyte) characters. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7212
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7213 /* Determine the font to use. Most of the time, the font will be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7214 the same as the font of the default face, so try that first. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7215 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7216 if (default_face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7217 && FACE_SUITABLE_FOR_CHAR_P (default_face, c)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7218 && lface_same_font_attributes_p (default_face->lface, attrs))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7219 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7220 face->font = default_face->font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7221 face->fontset = default_face->fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7222 face->font_info_id = default_face->font_info_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7223 face->font_name = default_face->font_name;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7224 face->ascii_face = face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7225
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7226 /* But, as we can't share the fontset, make a new realized
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7227 fontset that has the same base fontset as of the default
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7228 face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7229 face->fontset
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7230 = make_fontset_for_ascii_face (f, default_face->fontset);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7231 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7232 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7233 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7234 /* If the face attribute ATTRS specifies a fontset, use it as
30211
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7235 the base of a new realized fontset. Otherwise, use the same
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7236 base fontset as of the default face. The base determines
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7237 registry and encoding of a font. It may also determine
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7238 foundry and family. The other fields of font name pattern
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7239 are constructed from ATTRS. */
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7240 int fontset = face_fontset (attrs);
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7241
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7242 if ((fontset == -1) && default_face)
30211
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7243 fontset = default_face->fontset;
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
7244 face->fontset = make_fontset_for_ascii_face (f, fontset);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7245 face->font = NULL; /* to force realize_face to load font */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7246 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7247
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7248 /* Load colors, and set remaining attributes. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7249
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7250 load_face_colors (f, face, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7251
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7252 /* Set up box. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7253 box = attrs[LFACE_BOX_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7254 if (STRINGP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7255 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7256 /* A simple box of line width 1 drawn in color given by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7257 the string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7258 face->box_color = load_color (f, face, attrs[LFACE_BOX_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7259 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7260 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7261 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7262 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7263 else if (INTEGERP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7264 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7265 /* Simple box of specified line width in foreground color of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7266 face. */
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
7267 xassert (XINT (box) != 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7268 face->box = FACE_SIMPLE_BOX;
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
7269 face->box_line_width = XINT (box);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7270 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7271 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7272 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7273 else if (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7274 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7275 /* `(:width WIDTH :color COLOR :shadow SHADOW)'. SHADOW
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7276 being one of `raised' or `sunken'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7277 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7278 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7279 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7280 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7281
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7282 while (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7283 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7284 Lisp_Object keyword, value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7285
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7286 keyword = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7287 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7288
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7289 if (!CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7290 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7291 value = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7292 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7293
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7294 if (EQ (keyword, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7295 {
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
7296 if (INTEGERP (value) && XINT (value) != 0)
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
7297 face->box_line_width = XINT (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7298 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7299 else if (EQ (keyword, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7300 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7301 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7302 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7303 face->box_color = load_color (f, face, value,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7304 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7305 face->use_box_color_for_shadows_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7306 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7307 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7308 else if (EQ (keyword, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7309 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7310 if (EQ (value, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7311 face->box = FACE_RAISED_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7312 else if (EQ (value, Qpressed_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7313 face->box = FACE_SUNKEN_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7314 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7315 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7316 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7317
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7318 /* Text underline, overline, strike-through. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7319
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7320 if (EQ (attrs[LFACE_UNDERLINE_INDEX], Qt))
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7321 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7322 /* Use default color (same as foreground color). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7323 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7324 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7325 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7326 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7327 else if (STRINGP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7328 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7329 /* Use specified color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7330 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7331 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7332 face->underline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7333 = load_color (f, face, attrs[LFACE_UNDERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7334 LFACE_UNDERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7335 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7336 else if (NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7337 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7338 face->underline_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7339 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7340 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7341 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7342
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7343 overline = attrs[LFACE_OVERLINE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7344 if (STRINGP (overline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7345 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7346 face->overline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7347 = load_color (f, face, attrs[LFACE_OVERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7348 LFACE_OVERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7349 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7350 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7351 else if (EQ (overline, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7352 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7353 face->overline_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7354 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7355 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7356 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7357
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7358 strike_through = attrs[LFACE_STRIKE_THROUGH_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7359 if (STRINGP (strike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7360 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7361 face->strike_through_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7362 = load_color (f, face, attrs[LFACE_STRIKE_THROUGH_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7363 LFACE_STRIKE_THROUGH_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7364 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7365 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7366 else if (EQ (strike_through, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7367 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7368 face->strike_through_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7369 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7370 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7371 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7372
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7373 stipple = attrs[LFACE_STIPPLE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7374 if (!NILP (stipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7375 face->stipple = load_pixmap (f, stipple, &face->pixmap_w, &face->pixmap_h);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7376
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7377 xassert (FACE_SUITABLE_FOR_CHAR_P (face, c));
61628
c897778cd685 (realize_x_face) [!HAVE_WINDOW_SYSTEM]: Return NULL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 60837
diff changeset
7378 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7379 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7380 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7381
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7382
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7383 /* Map a specified color of face FACE on frame F to a tty color index.
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7384 IDX is either LFACE_FOREGROUND_INDEX or LFACE_BACKGROUND_INDEX, and
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7385 specifies which color to map. Set *DEFAULTED to 1 if mapping to the
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7386 default foreground/background colors. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7387
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7388 static void
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7389 map_tty_color (f, face, idx, defaulted)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7390 struct frame *f;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7391 struct face *face;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7392 enum lface_attribute_index idx;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7393 int *defaulted;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7394 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7395 Lisp_Object frame, color, def;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7396 int foreground_p = idx == LFACE_FOREGROUND_INDEX;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7397 unsigned long default_pixel, default_other_pixel, pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7398
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7399 xassert (idx == LFACE_FOREGROUND_INDEX || idx == LFACE_BACKGROUND_INDEX);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7400
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7401 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7402 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7403 pixel = default_pixel = FACE_TTY_DEFAULT_FG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7404 default_other_pixel = FACE_TTY_DEFAULT_BG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7405 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7406 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7407 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7408 pixel = default_pixel = FACE_TTY_DEFAULT_BG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7409 default_other_pixel = FACE_TTY_DEFAULT_FG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7410 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
7411
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7412 XSETFRAME (frame, f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7413 color = face->lface[idx];
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
7414
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7415 if (STRINGP (color)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
7416 && SCHARS (color)
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7417 && CONSP (Vtty_defined_color_alist)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7418 && (def = assq_no_quit (color, call1 (Qtty_color_alist, frame)),
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7419 CONSP (def)))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7420 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7421 /* Associations in tty-defined-color-alist are of the form
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7422 (NAME INDEX R G B). We need the INDEX part. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7423 pixel = XINT (XCAR (XCDR (def)));
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7424 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7425
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7426 if (pixel == default_pixel && STRINGP (color))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7427 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7428 pixel = load_color (f, face, color, idx);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7429
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7430 #if defined (MSDOS) || defined (WINDOWSNT)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7431 /* If the foreground of the default face is the default color,
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7432 use the foreground color defined by the frame. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7433 #ifdef MSDOS
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7434 if (FRAME_MSDOS_P (f))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7435 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7436 #endif /* MSDOS */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7437 if (pixel == default_pixel
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7438 || pixel == FACE_TTY_DEFAULT_COLOR)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7439 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7440 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7441 pixel = FRAME_FOREGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7442 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7443 pixel = FRAME_BACKGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7444 face->lface[idx] = tty_color_name (f, pixel);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7445 *defaulted = 1;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7446 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7447 else if (pixel == default_other_pixel)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7448 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7449 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7450 pixel = FRAME_BACKGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7451 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7452 pixel = FRAME_FOREGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7453 face->lface[idx] = tty_color_name (f, pixel);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7454 *defaulted = 1;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7455 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7456 #ifdef MSDOS
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7457 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7458 #endif
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7459 #endif /* MSDOS or WINDOWSNT */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7460 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7461
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7462 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7463 face->foreground = pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7464 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7465 face->background = pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7466 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7467
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7468
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7469 /* Realize the fully-specified face with attributes ATTRS in face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7470 cache CACHE for character C. Do it for TTY frame CACHE->f. Value is a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7471 pointer to the newly created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7472
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7473 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7474 realize_tty_face (cache, attrs, c)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7475 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7476 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7477 int c;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7478 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7479 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7480 int weight, slant;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7481 int face_colors_defaulted = 0;
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7482 struct frame *f = cache->f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7483
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7484 /* Frame must be a termcap frame. */
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
7485 xassert (FRAME_TERMCAP_P (cache->f) || FRAME_MSDOS_P (cache->f));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7486
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7487 /* Allocate a new realized face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7488 face = make_realized_face (attrs);
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
7489 face->font_name = FRAME_MSDOS_P (cache->f) ? "ms-dos" : "tty";
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7490
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7491 /* Map face attributes to TTY appearances. We map slant to
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7492 dimmed text because we want italic text to appear differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7493 and because dimmed text is probably used infrequently. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7494 weight = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7495 slant = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7496
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7497 if (weight > XLFD_WEIGHT_MEDIUM)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7498 face->tty_bold_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7499 if (weight < XLFD_WEIGHT_MEDIUM || slant != XLFD_SLANT_ROMAN)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7500 face->tty_dim_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7501 if (!NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7502 face->tty_underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7503 if (!NILP (attrs[LFACE_INVERSE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7504 face->tty_reverse_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7505
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7506 /* Map color names to color indices. */
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7507 map_tty_color (f, face, LFACE_FOREGROUND_INDEX, &face_colors_defaulted);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7508 map_tty_color (f, face, LFACE_BACKGROUND_INDEX, &face_colors_defaulted);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
7509
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7510 /* Swap colors if face is inverse-video. If the colors are taken
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7511 from the frame colors, they are already inverted, since the
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7512 frame-creation function calls x-handle-reverse-video. */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7513 if (face->tty_reverse_p && !face_colors_defaulted)
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7514 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7515 unsigned long tem = face->foreground;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7516 face->foreground = face->background;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7517 face->background = tem;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7518 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
7519
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7520 if (tty_suppress_bold_inverse_default_colors_p
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7521 && face->tty_bold_p
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7522 && face->background == FACE_TTY_DEFAULT_FG_COLOR
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7523 && face->foreground == FACE_TTY_DEFAULT_BG_COLOR)
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7524 face->tty_bold_p = 0;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7525
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7526 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7527 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7528
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7529
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7530 DEFUN ("tty-suppress-bold-inverse-default-colors",
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7531 Ftty_suppress_bold_inverse_default_colors,
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7532 Stty_suppress_bold_inverse_default_colors, 1, 1, 0,
40598
7f3db64c7d42 (Finternal_merge_in_global_face): Reindent.
Pavel Janík <Pavel@Janik.cz>
parents: 40555
diff changeset
7533 doc: /* Suppress/allow boldness of faces with inverse default colors.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
7534 SUPPRESS non-nil means suppress it.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
7535 This affects bold faces on TTYs whose foreground is the default background
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
7536 color of the display and whose background is the default foreground color.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
7537 For such faces, the bold face attribute is ignored if this variable
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
7538 is non-nil. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
7539 (suppress)
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7540 Lisp_Object suppress;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7541 {
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7542 tty_suppress_bold_inverse_default_colors_p = !NILP (suppress);
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7543 ++face_change_count;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7544 return suppress;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7545 }
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7546
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7547
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7548
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7549 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7550 Computing Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7551 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7552
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7553 /* Return the ID of the face to use to display character CH with face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7554 property PROP on frame F in current_buffer. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7555
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7556 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7557 compute_char_face (f, ch, prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7558 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7559 int ch;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7560 Lisp_Object prop;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7561 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7562 int face_id;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7563
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7564 if (NILP (current_buffer->enable_multibyte_characters))
37433
94967574484c (compute_char_face): If buffer is unibyte, set CH to
Gerd Moellmann <gerd@gnu.org>
parents: 37394
diff changeset
7565 ch = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7566
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7567 if (NILP (prop))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7568 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7569 struct face *face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7570 face_id = FACE_FOR_CHAR (f, face, ch);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7571 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7572 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7573 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7574 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7575 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7576 bcopy (default_face->lface, attrs, sizeof attrs);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7577 merge_face_ref (f, prop, attrs, 1, 0);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7578 face_id = lookup_face (f, attrs, ch, NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7579 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7580
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7581 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7582 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7583
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7584 /* Return the face ID associated with buffer position POS for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7585 displaying ASCII characters. Return in *ENDPTR the position at
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7586 which a different face is needed, as far as text properties and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7587 overlays are concerned. W is a window displaying current_buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7588
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7589 REGION_BEG, REGION_END delimit the region, so it can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7590 highlighted.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7591
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7592 LIMIT is a position not to scan beyond. That is to limit the time
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7593 this function can take.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7594
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7595 If MOUSE is non-zero, use the character's mouse-face, not its face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7596
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7597 The face returned is suitable for displaying ASCII characters. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7598
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7599 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7600 face_at_buffer_position (w, pos, region_beg, region_end,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7601 endptr, limit, mouse)
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
7602 struct window *w;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7603 int pos;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7604 int region_beg, region_end;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7605 int *endptr;
5084
863e092a5891 (compute_char_face): Accept new arg LIMIT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
7606 int limit;
6615
96ddf85642d1 (compute_char_face): New arg MOUSE.
Richard M. Stallman <rms@gnu.org>
parents: 5858
diff changeset
7607 int mouse;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7608 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7609 struct frame *f = XFRAME (w->frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7610 Lisp_Object attrs[LFACE_VECTOR_SIZE];
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
7611 Lisp_Object prop, position;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7612 int i, noverlays;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7613 Lisp_Object *overlay_vec;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
7614 Lisp_Object frame;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7615 int endpos;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7616 Lisp_Object propname = mouse ? Qmouse_face : Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7617 Lisp_Object limit1, end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7618 struct face *default_face;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7619
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7620 /* W must display the current buffer. We could write this function
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7621 to use the frame and buffer of W, but right now it doesn't. */
25359
14135aa647e2 (face_at_buffer_position): Don't xassert that
Gerd Moellmann <gerd@gnu.org>
parents: 25301
diff changeset
7622 /* xassert (XBUFFER (w->buffer) == current_buffer); */
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
7623
9284
a969e0eefaf5 (compute_char_face): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
parents: 9186
diff changeset
7624 XSETFRAME (frame, f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7625 XSETFASTINT (position, pos);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7626
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7627 endpos = ZV;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7628 if (pos < region_beg && region_beg < endpos)
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7629 endpos = region_beg;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7630
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7631 /* Get the `face' or `mouse_face' text property at POS, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7632 determine the next position at which the property changes. */
6615
96ddf85642d1 (compute_char_face): New arg MOUSE.
Richard M. Stallman <rms@gnu.org>
parents: 5858
diff changeset
7633 prop = Fget_text_property (position, propname, w->buffer);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7634 XSETFASTINT (limit1, (limit < endpos ? limit : endpos));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7635 end = Fnext_single_property_change (position, propname, w->buffer, limit1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7636 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7637 endpos = XINT (end);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7638
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7639 /* Look at properties from overlays. */
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
7640 {
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7641 int next_overlay;
55654
edc2b57535e5 (face_at_buffer_position): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 55560
diff changeset
7642
edc2b57535e5 (face_at_buffer_position): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 55560
diff changeset
7643 GET_OVERLAYS_AT (pos, overlay_vec, noverlays, &next_overlay, 0);
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7644 if (next_overlay < endpos)
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
7645 endpos = next_overlay;
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
7646 }
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
7647
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
7648 *endptr = endpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7649
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7650 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7651
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7652 /* Optimize common cases where we can use the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7653 if (noverlays == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7654 && NILP (prop)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7655 && !(pos >= region_beg && pos < region_end))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7656 return DEFAULT_FACE_ID;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7657
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7658 /* Begin with attributes from the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7659 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7660
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7661 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7662 if (!NILP (prop))
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7663 merge_face_ref (f, prop, attrs, 1, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7664
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7665 /* Now merge the overlay data. */
5858
021e58905963 (compute_char_face): Extract overlay-sorting code as a separate function,
Karl Heuer <kwzh@gnu.org>
parents: 5801
diff changeset
7666 noverlays = sort_overlays (overlay_vec, noverlays, w);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7667 for (i = 0; i < noverlays; i++)
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7668 {
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7669 Lisp_Object oend;
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7670 int oendpos;
9186
45bac5feb065 (compute_char_face): Handle list as overlay face property.
Richard M. Stallman <rms@gnu.org>
parents: 9184
diff changeset
7671
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7672 prop = Foverlay_get (overlay_vec[i], propname);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7673 if (!NILP (prop))
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7674 merge_face_ref (f, prop, attrs, 1, 0);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7675
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7676 oend = OVERLAY_END (overlay_vec[i]);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7677 oendpos = OVERLAY_POSITION (oend);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7678 if (oendpos < endpos)
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7679 endpos = oendpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7680 }
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7681
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7682 /* If in the region, merge in the region face. */
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7683 if (pos >= region_beg && pos < region_end)
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7684 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7685 merge_named_face (f, Qregion, attrs, 0);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7686
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7687 if (region_end < endpos)
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7688 endpos = region_end;
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7689 }
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
7690
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7691 *endptr = endpos;
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7692
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7693 /* Look up a realized face with the given face attributes,
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7694 or realize a new one for ASCII characters. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7695 return lookup_face (f, attrs, 0, NULL);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
7696 }
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7697
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7698
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7699 /* Compute the face at character position POS in Lisp string STRING on
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7700 window W, for ASCII characters.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7701
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7702 If STRING is an overlay string, it comes from position BUFPOS in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7703 current_buffer, otherwise BUFPOS is zero to indicate that STRING is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7704 not an overlay string. W must display the current buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7705 REGION_BEG and REGION_END give the start and end positions of the
34289
1bf333d1b1de (face_at_string_position): Update function comment.
Gerd Moellmann <gerd@gnu.org>
parents: 34242
diff changeset
7706 region; both are -1 if no region is visible.
1bf333d1b1de (face_at_string_position): Update function comment.
Gerd Moellmann <gerd@gnu.org>
parents: 34242
diff changeset
7707
1bf333d1b1de (face_at_string_position): Update function comment.
Gerd Moellmann <gerd@gnu.org>
parents: 34242
diff changeset
7708 BASE_FACE_ID is the id of a face to merge with. For strings coming
1bf333d1b1de (face_at_string_position): Update function comment.
Gerd Moellmann <gerd@gnu.org>
parents: 34242
diff changeset
7709 from overlays or the `display' property it is the face at BUFPOS.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7710
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7711 If MOUSE_P is non-zero, use the character's mouse-face, not its face.
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7712
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7713 Set *ENDPTR to the next position where to check for faces in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7714 STRING; -1 if the face is constant from POS to the end of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7715 string.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7716
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7717 Value is the id of the face to use. The face returned is suitable
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7718 for displaying ASCII characters. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7719
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7720 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7721 face_at_string_position (w, string, pos, bufpos, region_beg,
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7722 region_end, endptr, base_face_id, mouse_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7723 struct window *w;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7724 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7725 int pos, bufpos;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7726 int region_beg, region_end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7727 int *endptr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7728 enum face_id base_face_id;
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7729 int mouse_p;
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7730 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7731 Lisp_Object prop, position, end, limit;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7732 struct frame *f = XFRAME (WINDOW_FRAME (w));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7733 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7734 struct face *base_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7735 int multibyte_p = STRING_MULTIBYTE (string);
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7736 Lisp_Object prop_name = mouse_p ? Qmouse_face : Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7737
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7738 /* Get the value of the face property at the current position within
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7739 STRING. Value is nil if there is no face property. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7740 XSETFASTINT (position, pos);
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7741 prop = Fget_text_property (position, prop_name, string);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7742
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7743 /* Get the next position at which to check for faces. Value of end
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7744 is nil if face is constant all the way to the end of the string.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7745 Otherwise it is a string position where to check faces next.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7746 Limit is the maximum position up to which to check for property
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7747 changes in Fnext_single_property_change. Strings are usually
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7748 short, so set the limit to the end of the string. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
7749 XSETFASTINT (limit, SCHARS (string));
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
7750 end = Fnext_single_property_change (position, prop_name, string, limit);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7751 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7752 *endptr = XFASTINT (end);
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
7753 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7754 *endptr = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7755
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7756 base_face = FACE_FROM_ID (f, base_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7757 xassert (base_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7758
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7759 /* Optimize the default case that there is no face property and we
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7760 are not in the region. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7761 if (NILP (prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7762 && (base_face_id != DEFAULT_FACE_ID
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7763 /* BUFPOS <= 0 means STRING is not an overlay string, so
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7764 that the region doesn't have to be taken into account. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7765 || bufpos <= 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7766 || bufpos < region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7767 || bufpos >= region_end)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7768 && (multibyte_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7769 /* We can't realize faces for different charsets differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7770 if we don't have fonts, so we can stop here if not working
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7771 on a window-system frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7772 || !FRAME_WINDOW_P (f)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7773 || FACE_SUITABLE_FOR_CHAR_P (base_face, 0)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7774 return base_face->id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7775
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7776 /* Begin with attributes from the base face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7777 bcopy (base_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7778
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7779 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7780 if (!NILP (prop))
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7781 merge_face_ref (f, prop, attrs, 1, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7782
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7783 /* If in the region, merge in the region face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7784 if (bufpos
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7785 && bufpos >= region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7786 && bufpos < region_end)
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
7787 merge_named_face (f, Qregion, attrs, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7788
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7789 /* Look up a realized face with the given face attributes,
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7790 or realize a new one for ASCII characters. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
7791 return lookup_face (f, attrs, 0, NULL);
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
7792 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
7793
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
7794
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7795 /* Merge a face into a realized face.
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7796
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7797 F is frame where faces are (to be) realized.
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7798
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7799 FACE_NAME is named face to merge.
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7800
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7801 If FACE_NAME is nil, FACE_ID is face_id of realized face to merge.
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7802
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7803 If FACE_NAME is t, FACE_ID is lface_id of face to merge.
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7804
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7805 BASE_FACE_ID is realized face to merge into.
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7806
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7807 Return new face id.
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7808 */
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7809
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7810 int
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7811 merge_faces (f, face_name, face_id, base_face_id)
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7812 struct frame *f;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7813 Lisp_Object face_name;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7814 int face_id, base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7815 {
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7816 Lisp_Object attrs[LFACE_VECTOR_SIZE];
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7817 struct face *base_face;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7818
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7819 base_face = FACE_FROM_ID (f, base_face_id);
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7820 if (!base_face)
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7821 return base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7822
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7823 if (EQ (face_name, Qt))
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7824 {
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7825 if (face_id < 0 || face_id >= lface_id_to_name_size)
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7826 return base_face_id;
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7827 face_name = lface_id_to_name[face_id];
60837
18fb43577f76 (lookup_derived_face): Add arg SIGNAL_P.
Kim F. Storm <storm@cua.dk>
parents: 60699
diff changeset
7828 face_id = lookup_derived_face (f, face_name, 0, base_face_id, 1);
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7829 if (face_id >= 0)
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7830 return face_id;
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7831 return base_face_id;
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7832 }
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7833
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7834 /* Begin with attributes from the base face. */
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7835 bcopy (base_face->lface, attrs, sizeof attrs);
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7836
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7837 if (!NILP (face_name))
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7838 {
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7839 if (!merge_named_face (f, face_name, attrs, 0))
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7840 return base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7841 }
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7842 else
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7843 {
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7844 struct face *face;
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7845 if (face_id < 0)
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
7846 return base_face_id;
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7847 face = FACE_FROM_ID (f, face_id);
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7848 if (!face)
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7849 return base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7850 merge_face_vectors (f, face->lface, attrs, 0);
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7851 }
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7852
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7853 /* Look up a realized face with the given face attributes,
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7854 or realize a new one for ASCII characters. */
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7855 return lookup_face (f, attrs, 0, NULL);
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7856 }
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
7857
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7858
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7859 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7860 Tests
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7861 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7862
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7863 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7864
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7865 /* Print the contents of the realized face FACE to stderr. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7866
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7867 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7868 dump_realized_face (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7869 struct face *face;
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7870 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7871 fprintf (stderr, "ID: %d\n", face->id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7872 #ifdef HAVE_X_WINDOWS
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
7873 fprintf (stderr, "gc: %ld\n", (long) face->gc);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7874 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7875 fprintf (stderr, "foreground: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7876 face->foreground,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
7877 SDATA (face->lface[LFACE_FOREGROUND_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7878 fprintf (stderr, "background: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7879 face->background,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
7880 SDATA (face->lface[LFACE_BACKGROUND_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7881 fprintf (stderr, "font_name: %s (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7882 face->font_name,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
7883 SDATA (face->lface[LFACE_FAMILY_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7884 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7885 fprintf (stderr, "font = %p\n", face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7886 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7887 fprintf (stderr, "font_info_id = %d\n", face->font_info_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7888 fprintf (stderr, "fontset: %d\n", face->fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7889 fprintf (stderr, "underline: %d (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7890 face->underline_p,
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
7891 SDATA (Fsymbol_name (face->lface[LFACE_UNDERLINE_INDEX])));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7892 fprintf (stderr, "hash: %d\n", face->hash);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7893 fprintf (stderr, "charset: %d\n", face->charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7894 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7895
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7896
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
7897 DEFUN ("dump-face", Fdump_face, Sdump_face, 0, 1, 0, doc: /* */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
7898 (n)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7899 Lisp_Object n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7900 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7901 if (NILP (n))
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7902 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7903 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7904
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7905 fprintf (stderr, "font selection order: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7906 for (i = 0; i < DIM (font_sort_order); ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7907 fprintf (stderr, "%d ", font_sort_order[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7908 fprintf (stderr, "\n");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7909
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7910 fprintf (stderr, "alternative fonts: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7911 debug_print (Vface_alternative_font_family_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7912 fprintf (stderr, "\n");
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7913
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
7914 for (i = 0; i < FRAME_FACE_CACHE (SELECTED_FRAME ())->used; ++i)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7915 Fdump_face (make_number (i));
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7916 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7917 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7918 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7919 struct face *face;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
7920 CHECK_NUMBER (n);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
7921 face = FACE_FROM_ID (SELECTED_FRAME (), XINT (n));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7922 if (face == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7923 error ("Not a valid face");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7924 dump_realized_face (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7925 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7926
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7927 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7928 }
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7929
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7930
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7931 DEFUN ("show-face-resources", Fshow_face_resources, Sshow_face_resources,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
7932 0, 0, 0, doc: /* */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
7933 ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7934 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7935 fprintf (stderr, "number of colors = %d\n", ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7936 fprintf (stderr, "number of pixmaps = %d\n", npixmaps_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7937 fprintf (stderr, "number of GCs = %d\n", ngcs);
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7938 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7939 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7940
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7941 #endif /* GLYPH_DEBUG != 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7942
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
7943
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
7944
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7945 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7946 Initialization
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7947 ***********************************************************************/
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
7948
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7949 void
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
7950 syms_of_xfaces ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7951 {
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
7952 Qface = intern ("face");
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
7953 staticpro (&Qface);
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
7954 Qface_no_inherit = intern ("face-no-inherit");
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
7955 staticpro (&Qface_no_inherit);
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
7956 Qbitmap_spec_p = intern ("bitmap-spec-p");
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
7957 staticpro (&Qbitmap_spec_p);
63642
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
7958 Qframe_set_background_mode = intern ("frame-set-background-mode");
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
7959 staticpro (&Qframe_set_background_mode);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7960
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7961 /* Lisp face attribute keywords. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7962 QCfamily = intern (":family");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7963 staticpro (&QCfamily);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7964 QCheight = intern (":height");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7965 staticpro (&QCheight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7966 QCweight = intern (":weight");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7967 staticpro (&QCweight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7968 QCslant = intern (":slant");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7969 staticpro (&QCslant);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7970 QCunderline = intern (":underline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7971 staticpro (&QCunderline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7972 QCinverse_video = intern (":inverse-video");
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7973 staticpro (&QCinverse_video);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7974 QCreverse_video = intern (":reverse-video");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7975 staticpro (&QCreverse_video);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7976 QCforeground = intern (":foreground");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7977 staticpro (&QCforeground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7978 QCbackground = intern (":background");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7979 staticpro (&QCbackground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7980 QCstipple = intern (":stipple");;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7981 staticpro (&QCstipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7982 QCwidth = intern (":width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7983 staticpro (&QCwidth);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7984 QCfont = intern (":font");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7985 staticpro (&QCfont);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7986 QCbold = intern (":bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7987 staticpro (&QCbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7988 QCitalic = intern (":italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7989 staticpro (&QCitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7990 QCoverline = intern (":overline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7991 staticpro (&QCoverline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7992 QCstrike_through = intern (":strike-through");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7993 staticpro (&QCstrike_through);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7994 QCbox = intern (":box");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7995 staticpro (&QCbox);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
7996 QCinherit = intern (":inherit");
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
7997 staticpro (&QCinherit);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7998
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7999 /* Symbols used for Lisp face attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8000 QCcolor = intern (":color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8001 staticpro (&QCcolor);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8002 QCline_width = intern (":line-width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8003 staticpro (&QCline_width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8004 QCstyle = intern (":style");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8005 staticpro (&QCstyle);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8006 Qreleased_button = intern ("released-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8007 staticpro (&Qreleased_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8008 Qpressed_button = intern ("pressed-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8009 staticpro (&Qpressed_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8010 Qnormal = intern ("normal");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8011 staticpro (&Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8012 Qultra_light = intern ("ultra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8013 staticpro (&Qultra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8014 Qextra_light = intern ("extra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8015 staticpro (&Qextra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8016 Qlight = intern ("light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8017 staticpro (&Qlight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8018 Qsemi_light = intern ("semi-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8019 staticpro (&Qsemi_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8020 Qsemi_bold = intern ("semi-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8021 staticpro (&Qsemi_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8022 Qbold = intern ("bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8023 staticpro (&Qbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8024 Qextra_bold = intern ("extra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8025 staticpro (&Qextra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8026 Qultra_bold = intern ("ultra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8027 staticpro (&Qultra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8028 Qoblique = intern ("oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8029 staticpro (&Qoblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8030 Qitalic = intern ("italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8031 staticpro (&Qitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8032 Qreverse_oblique = intern ("reverse-oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8033 staticpro (&Qreverse_oblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8034 Qreverse_italic = intern ("reverse-italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8035 staticpro (&Qreverse_italic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8036 Qultra_condensed = intern ("ultra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8037 staticpro (&Qultra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8038 Qextra_condensed = intern ("extra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8039 staticpro (&Qextra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8040 Qcondensed = intern ("condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8041 staticpro (&Qcondensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8042 Qsemi_condensed = intern ("semi-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8043 staticpro (&Qsemi_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8044 Qsemi_expanded = intern ("semi-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8045 staticpro (&Qsemi_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8046 Qexpanded = intern ("expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8047 staticpro (&Qexpanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8048 Qextra_expanded = intern ("extra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8049 staticpro (&Qextra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8050 Qultra_expanded = intern ("ultra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8051 staticpro (&Qultra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8052 Qbackground_color = intern ("background-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8053 staticpro (&Qbackground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8054 Qforeground_color = intern ("foreground-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8055 staticpro (&Qforeground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8056 Qunspecified = intern ("unspecified");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8057 staticpro (&Qunspecified);
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
8058 Qignore_defface = intern (":ignore-defface");
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
8059 staticpro (&Qignore_defface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8060
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
8061 Qface_alias = intern ("face-alias");
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
8062 staticpro (&Qface_alias);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8063 Qdefault = intern ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8064 staticpro (&Qdefault);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
8065 Qtool_bar = intern ("tool-bar");
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
8066 staticpro (&Qtool_bar);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8067 Qregion = intern ("region");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8068 staticpro (&Qregion);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8069 Qfringe = intern ("fringe");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8070 staticpro (&Qfringe);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
8071 Qheader_line = intern ("header-line");
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
8072 staticpro (&Qheader_line);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8073 Qscroll_bar = intern ("scroll-bar");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8074 staticpro (&Qscroll_bar);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
8075 Qmenu = intern ("menu");
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
8076 staticpro (&Qmenu);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8077 Qcursor = intern ("cursor");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8078 staticpro (&Qcursor);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8079 Qborder = intern ("border");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8080 staticpro (&Qborder);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8081 Qmouse = intern ("mouse");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
8082 staticpro (&Qmouse);
43203
dd98ef3675e5 (Qmode_line_inactive): New face variable for mode-line
Kim F. Storm <storm@cua.dk>
parents: 43069
diff changeset
8083 Qmode_line_inactive = intern ("mode-line-inactive");
dd98ef3675e5 (Qmode_line_inactive): New face variable for mode-line
Kim F. Storm <storm@cua.dk>
parents: 43069
diff changeset
8084 staticpro (&Qmode_line_inactive);
63649
144440a09db1 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-438
Miles Bader <miles@gnu.org>
parents: 63642
diff changeset
8085 Qvertical_border = intern ("vertical-border");
144440a09db1 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-438
Miles Bader <miles@gnu.org>
parents: 63642
diff changeset
8086 staticpro (&Qvertical_border);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
8087 Qtty_color_desc = intern ("tty-color-desc");
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
8088 staticpro (&Qtty_color_desc);
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
8089 Qtty_color_standard_values = intern ("tty-color-standard-values");
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
8090 staticpro (&Qtty_color_standard_values);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
8091 Qtty_color_by_index = intern ("tty-color-by-index");
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
8092 staticpro (&Qtty_color_by_index);
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
8093 Qtty_color_alist = intern ("tty-color-alist");
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
8094 staticpro (&Qtty_color_alist);
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
8095 Qscalable_fonts_allowed = intern ("scalable-fonts-allowed");
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
8096 staticpro (&Qscalable_fonts_allowed);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8097
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
8098 Vparam_value_alist = Fcons (Fcons (Qnil, Qnil), Qnil);
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
8099 staticpro (&Vparam_value_alist);
30304
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
8100 Vface_alternative_font_family_alist = Qnil;
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
8101 staticpro (&Vface_alternative_font_family_alist);
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
8102 Vface_alternative_font_registry_alist = Qnil;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
8103 staticpro (&Vface_alternative_font_registry_alist);
30304
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
8104
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8105 defsubr (&Sinternal_make_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8106 defsubr (&Sinternal_lisp_face_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8107 defsubr (&Sinternal_set_lisp_face_attribute);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
8108 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8109 defsubr (&Sinternal_set_lisp_face_attribute_from_resource);
27137
0ade9883b546 (syms_of_xfaces): defsubr Scolor_gray_p and
Eli Zaretskii <eliz@gnu.org>
parents: 27120
diff changeset
8110 #endif
27120
24a08208cf3a (syms_of_xfaces): Change Sface_color_gray_p to
Gerd Moellmann <gerd@gnu.org>
parents: 27114
diff changeset
8111 defsubr (&Scolor_gray_p);
24a08208cf3a (syms_of_xfaces): Change Sface_color_gray_p to
Gerd Moellmann <gerd@gnu.org>
parents: 27114
diff changeset
8112 defsubr (&Scolor_supported_p);
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
8113 defsubr (&Sface_attribute_relative_p);
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
8114 defsubr (&Smerge_face_attribute);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8115 defsubr (&Sinternal_get_lisp_face_attribute);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8116 defsubr (&Sinternal_lisp_face_attribute_values);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8117 defsubr (&Sinternal_lisp_face_equal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8118 defsubr (&Sinternal_lisp_face_empty_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8119 defsubr (&Sinternal_copy_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8120 defsubr (&Sinternal_merge_in_global_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8121 defsubr (&Sface_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8122 defsubr (&Sframe_face_alist);
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
8123 defsubr (&Sdisplay_supports_face_attributes_p);
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
8124 defsubr (&Scolor_distance);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8125 defsubr (&Sinternal_set_font_selection_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8126 defsubr (&Sinternal_set_alternative_font_family_alist);
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
8127 defsubr (&Sinternal_set_alternative_font_registry_alist);
40278
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
8128 defsubr (&Sface_attributes_as_vector);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8129 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8130 defsubr (&Sdump_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8131 defsubr (&Sshow_face_resources);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8132 #endif /* GLYPH_DEBUG */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8133 defsubr (&Sclear_face_cache);
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
8134 defsubr (&Stty_suppress_bold_inverse_default_colors);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8135
29711
913fab478495 (syms_of_xfaces) [DEBUG_X_COLORS]: Defsubr dump_colors
Gerd Moellmann <gerd@gnu.org>
parents: 29599
diff changeset
8136 #if defined DEBUG_X_COLORS && defined HAVE_X_WINDOWS
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
8137 defsubr (&Sdump_colors);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
8138 #endif
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
8139
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8140 DEFVAR_LISP ("font-list-limit", &Vfont_list_limit,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8141 doc: /* *Limit for font matching.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8142 If an integer > 0, font matching functions won't load more than
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8143 that number of fonts when searching for a matching font. */);
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
8144 Vfont_list_limit = make_number (DEFAULT_FONT_LIST_LIMIT);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
8145
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8146 DEFVAR_LISP ("face-new-frame-defaults", &Vface_new_frame_defaults,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8147 doc: /* List of global face definitions (for internal use only.) */);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8148 Vface_new_frame_defaults = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
8149
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8150 DEFVAR_LISP ("face-default-stipple", &Vface_default_stipple,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8151 doc: /* *Default stipple pattern used on monochrome displays.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8152 This stipple pattern is used on monochrome displays
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8153 instead of shades of gray for a face background color.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8154 See `set-face-stipple' for possible values for this variable. */);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8155 Vface_default_stipple = build_string ("gray3");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8156
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8157 DEFVAR_LISP ("tty-defined-color-alist", &Vtty_defined_color_alist,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8158 doc: /* An alist of defined terminal colors and their RGB values. */);
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
8159 Vtty_defined_color_alist = Qnil;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
8160
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8161 DEFVAR_LISP ("scalable-fonts-allowed", &Vscalable_fonts_allowed,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8162 doc: /* Allowed scalable fonts.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8163 A value of nil means don't allow any scalable fonts.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8164 A value of t means allow any scalable font.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8165 Otherwise, value must be a list of regular expressions. A font may be
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8166 scaled if its name matches a regular expression in the list.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8167 Note that if value is nil, a scalable font might still be used, if no
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8168 other font of the appropriate family and registry is available. */);
37724
3a5a6cd7ee9a (try_alternative_families): First try the FAMILY.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 37716
diff changeset
8169 Vscalable_fonts_allowed = Qnil;
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
8170
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8171 DEFVAR_LISP ("face-ignored-fonts", &Vface_ignored_fonts,
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
8172 doc: /* List of ignored fonts.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8173 Each element is a regular expression that matches names of fonts to
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
8174 ignore. */);
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
8175 Vface_ignored_fonts = Qnil;
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
8176
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8177 DEFVAR_LISP ("face-font-rescale-alist", &Vface_font_rescale_alist,
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8178 doc: /* Alist of fonts vs the rescaling factors.
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8179 Each element is a cons (FONT-NAME-PATTERN . RESCALE-RATIO), where
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8180 FONT-NAME-PATTERN is a regular expression matching a font name, and
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8181 RESCALE-RATIO is a floating point number to specify how much larger
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8182 \(or smaller) font we should use. For instance, if a face requests
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8183 a font of 10 point, we actually use a font of 10 * RESCALE-RATIO point. */);
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8184 Vface_font_rescale_alist = Qnil;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
8185
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
8186 #ifdef HAVE_WINDOW_SYSTEM
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
8187 defsubr (&Sbitmap_spec_p);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8188 defsubr (&Sx_list_fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8189 defsubr (&Sinternal_face_x_get_resource);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
8190 defsubr (&Sx_family_fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
8191 defsubr (&Sx_font_family_list);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
8192 #endif /* HAVE_WINDOW_SYSTEM */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8193 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52203
diff changeset
8194
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52203
diff changeset
8195 /* arch-tag: 8a0f7598-5517-408d-9ab3-1da6fcd4c749
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52203
diff changeset
8196 (do not change this comment) */