annotate src/xfaces.c @ 100158:19e63b683632

* ftfont.c (ftfont_match): Initialize entity variable.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 03 Dec 2008 04:52:32 +0000
parents 25295c680f6b
children e1b931c8770a
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,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 79336
diff changeset
3 2005, 2006, 2007, 2008 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
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94938
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
2336
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
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94938
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94938
diff changeset
10 (at your option) any later version.
2336
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
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94938
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
20 /* New face implementation by Gerd Moellmann <gerd@gnu.org>. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
21
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
22 /* Faces.
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 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
25 changed by defining `faces'. Each face can specify the following
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
26 display attributes:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
27
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
28 1. Font family name.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
29
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
30 2. Font foundary name.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
31
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
32 3. Relative proportionate width, aka character set width or set
24995
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
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
35 4. Font height in 1/10pt.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
36
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
37 5. Font weight, e.g. `bold'.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
38
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
39 6. Font slant, e.g. `italic'.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
40
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
41 7. Foreground color.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
42
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
43 8. Background color.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
44
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
45 9. Whether or not characters should be underlined, and in what color.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
46
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
47 10. Whether or not characters should be displayed in inverse video.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
48
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
49 11. A background stipple, a bitmap.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
50
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
51 12. Whether or not characters should be overlined, and in what color.
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
52
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
53 13. Whether or not characters should be strike-through, and in what
24995
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
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
56 14. Whether or not a box should be drawn around characters, the box
24995
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
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
59 15. Font-spec, or nil. This is a special attribute.
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
60
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
61 A font-spec is a collection of font attributes (specs).
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
62
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
63 When this attribute is specified, the face uses a font matching
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
64 with the specs as is except for what overwritten by the specs in
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
65 the fontset (see below). In addition, the other font-related
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
66 attributes (1st thru 5th) are updated from the spec.
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
67
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
68 On the other hand, if one of the other font-related attributes are
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
69 specified, the correspoinding specs in this attribute is set to nil.
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
70
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
71 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
72
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
73 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
74 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
75 for example, can be matched exactly.
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
76
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
77 17. A fontset name. This is another special attribute.
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
78
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
79 A fontset is a mappings from characters to font-specs, and the
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
80 specs overwrite the font-spec in the 14th attribute.
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
81
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
82
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
83 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
84 same named face (face names are symbols) differently for different
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
85 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
86 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
87 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
88 attributes mentioned above.
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 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
91 definitions from this list are used to initialize faces of newly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
92 created frames.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
93
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
94 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
95 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
96 the 14th are called `fully-specified'.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
97
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
98
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
99 Face merging.
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 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
102 combining several faces. This process is called `face merging'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
103 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
104 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
105 sure that the default face is always fully-specified, face merging
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
106 always results in a fully-specified face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
107
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
108
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
109 Face realization.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
110
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
111 After all face attributes for a character have been determined by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
112 merging faces of that character, that face is `realized'. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
113 realization process maps face attributes to what is physically
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
114 available on the system where Emacs runs. The result is a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
115 `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
116 face cache of the frame on which it was realized.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
117
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
118 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
119 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
120 other words, for characters that have different font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
121 specifications, different realized faces are needed to display
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
122 them.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
123
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
124 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
125 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
126 characters share the same font in a fontset.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
127
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
128 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
129 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
130 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
131 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
132 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
133
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
134 Thus, all realized faces have a realized fontset.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
135
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 Unibyte text.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
138
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
139 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
140 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
141 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
142 and raw 8-bit characters.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
143
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
144
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
145 Font selection.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
146
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
147 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
148 given (character, face) combination.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
149
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
150 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
151 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
152 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
153 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
154 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
155 default fontset determines a pattern for multibyte characters.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
156
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
157 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
158 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
159 match for the given face attributes in this font list.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
160
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
161 Font selection can be influenced by the user.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
162
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
163 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
164 attributes width, height, weight, and slant by setting
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
165 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
166 names. The default is '(:width :height :weight :slant), and means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
167 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
168 width specified by a face, then---within fonts with that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
169 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
170 etc.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
171
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
172 2. Setting face-font-family-alternatives allows the user to
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
173 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
174 face doesn't exist.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
175
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
176 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
177 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
178 specifying a registry.
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
179
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
180 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
181 fonts.
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
182
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
183
36946
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 36942
diff changeset
184 Character composition.
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
185
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
186 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
187 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
188 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
189 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
190 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
191 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
192 the same.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
193
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
194
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
195 Initialization of basic faces.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
196
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
197 The faces `default', `modeline' are considered `basic faces'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
198 When redisplay happens the first time for a newly created frame,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
199 basic faces are realized for CHARSET_ASCII. Frame parameters are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
200 used to fill in unspecified attributes of the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
201
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25890
diff changeset
202 #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
203 #include <stdio.h>
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 #include <sys/types.h>
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 #include <sys/stat.h>
82995
039bd6989d29 Portability fixes (now it compiles & runs fine on Solaris).
Karoly Lorentey <lorentey@elte.hu>
parents: 82990
diff changeset
206 #include <stdio.h> /* This needs to be before termchar.h */
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
207
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 #include "lisp.h"
88394
b954eee715da Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 43270
diff changeset
209 #include "character.h"
17047
6c586afaa572 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16051
diff changeset
210 #include "charset.h"
37700
0e6b93106f2a Include keyboard.h before frame.h, not after it.
Eli Zaretskii <eliz@gnu.org>
parents: 37679
diff changeset
211 #include "keyboard.h"
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
212 #include "frame.h"
83004
7900111db01c Converted display hooks to be display-local. Plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 82995
diff changeset
213 #include "termhooks.h"
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
214
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
215 #ifdef HAVE_X_WINDOWS
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 #include "xterm.h"
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
217 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
218 #include <Xm/Xm.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
219 #include <Xm/XmStrDefs.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
220 #endif /* USE_MOTIF */
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
221 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
222
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
223 #ifdef MSDOS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
224 #include "dosfns.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
225 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
226
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
227 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
228 #include "w32term.h"
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
229 #include "fontset.h"
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
230 /* 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
231 code with #ifdef blocks. */
37700
0e6b93106f2a Include keyboard.h before frame.h, not after it.
Eli Zaretskii <eliz@gnu.org>
parents: 37679
diff changeset
232 #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
233 #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
234 #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
235 #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
236 #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
237 #define GCGraphicsExposures 0
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
238 #endif /* WINDOWSNT */
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
239
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
240 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
241 #include "nsterm.h"
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
242 #undef FRAME_X_DISPLAY_INFO
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
243 #define FRAME_X_DISPLAY_INFO FRAME_NS_DISPLAY_INFO
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
244 #define x_display_info ns_display_info
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
245 #define FRAME_X_FONT_TABLE FRAME_NS_FONT_TABLE
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
246 #define check_x check_ns
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
247 #define GCGraphicsExposures 0
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
248 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
249
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 #include "buffer.h"
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
251 #include "dispextern.h"
2438
b513de4de386 * xfaces.c: Doc fixes.
Jim Blandy <jimb@redhat.com>
parents: 2391
diff changeset
252 #include "blockinput.h"
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
253 #include "window.h"
8848
48b3ac951c53 Add #include "intervals.h"
Karl Heuer <kwzh@gnu.org>
parents: 8472
diff changeset
254 #include "intervals.h"
53226
dd3018b4785b Implemented multiple tty support.
Karoly Lorentey <lorentey@elte.hu>
parents: 52401
diff changeset
255 #include "termchar.h"
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256
95128
9c4d21df23ff Include font.h unconditionally.
Kenichi Handa <handa@m17n.org>
parents: 95044
diff changeset
257 #include "font.h"
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
258 #ifdef HAVE_WINDOW_SYSTEM
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
259 #include "fontset.h"
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
260 #endif /* HAVE_WINDOW_SYSTEM */
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
261
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
262 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
263
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
264 /* 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
265 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
266 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
267 #included. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
268
3436
291f28da7ea1 Test XOS_NEEDS_TIME_H, not HPUX, for including time.hj.
Richard M. Stallman <rms@gnu.org>
parents: 3401
diff changeset
269 #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
270 #include <time.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
271 #undef USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
272 #include <X11/Xos.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
273 #define USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
274 #define __TIMEVAL__
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
275 #else /* not XOS_NEEDS_TIME_H */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 #include <X11/Xos.h>
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
277 #endif /* not XOS_NEEDS_TIME_H */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
278
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
279 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
280
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
281 #include <ctype.h>
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
282
34882
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
283 /* Number of pt per inch (from the TeXbook). */
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
284
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
285 #define PT_PER_INCH 72.27
ddb3abae49ee (PT_PER_INCH): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 34629
diff changeset
286
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
287 /* Non-zero if face attribute ATTR is unspecified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
288
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
289 #define UNSPECIFIEDP(ATTR) EQ ((ATTR), Qunspecified)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
290
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
291 /* 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
292
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
293 #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
294
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
295 /* Value is the number of elements of VECTOR. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
296
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
297 #define DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
298
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
299 /* 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
300 to the copy. */
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 #define STRDUPA(S) strcpy ((char *) alloca (strlen ((S)) + 1), (S))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
303
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
304 /* 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
305 alloca. Value is a pointer to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
306
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
307 #define LSTRDUPA(S) STRDUPA (SDATA ((S)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
308
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
309 /* 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
310 prime number). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
311
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
312 #define FACE_CACHE_BUCKETS_SIZE 1001
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
313
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
314 /* Keyword symbols used for face attribute names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
315
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
316 Lisp_Object QCfamily, QCheight, QCweight, QCslant, QCunderline;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
317 Lisp_Object QCinverse_video, QCforeground, QCbackground, QCstipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
318 Lisp_Object QCwidth, QCfont, QCbold, QCitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
319 Lisp_Object QCreverse_video;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
320 Lisp_Object QCoverline, QCstrike_through, QCbox, QCinherit;
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
321 Lisp_Object QCfontset;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
322
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
323 /* Keywords symbols used for font properties. */
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
324 extern Lisp_Object QCfoundry, QCadstyle, QCregistry;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
325 extern Lisp_Object QCspacing, QCsize, QCavgwidth;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
326 extern Lisp_Object Qp;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
327
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
328 /* Symbols used for attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
329
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
330 Lisp_Object Qnormal, Qbold, Qultra_light, Qextra_light, Qlight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
331 Lisp_Object Qsemi_light, Qsemi_bold, Qextra_bold, Qultra_bold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
332 Lisp_Object Qoblique, Qitalic, Qreverse_oblique, Qreverse_italic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
333 Lisp_Object Qultra_condensed, Qextra_condensed, Qcondensed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
334 Lisp_Object Qsemi_condensed, Qsemi_expanded, Qexpanded, Qextra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
335 Lisp_Object Qultra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
336 Lisp_Object Qreleased_button, Qpressed_button;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
337 Lisp_Object QCstyle, QCcolor, QCline_width;
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
338 Lisp_Object Qunspecified;
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
339 Lisp_Object Qignore_defface;
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
340
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
341 char unspecified_fg[] = "unspecified-fg", unspecified_bg[] = "unspecified-bg";
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
342
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
343 /* 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
344 has changed, frame_set_background_mode. */
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
345
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
346 Lisp_Object Qframe_set_background_mode;
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
347
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
348 /* Names of basic faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
349
26574
5510d0cc07c3 Don't duplicate Qmode_line definition done elsewhere.
Dave Love <fx@gnu.org>
parents: 26088
diff changeset
350 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
351 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
352 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
353 extern Lisp_Object Qmode_line;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
354
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
355 /* 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
356 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
357 the aliased face. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
358
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
359 Lisp_Object Qface_alias;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
360
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
361 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
362
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
363 /* Default stipple pattern used on monochrome displays. This stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
364 pattern is used on monochrome displays instead of shades of gray
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
365 for a face background color. See `set-face-stipple' for possible
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
366 values for this variable. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
367
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
368 Lisp_Object Vface_default_stipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
369
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
370 /* Alist of alternative font families. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
371 (FAMILY FAMILY1 FAMILY2 ...). If fonts of FAMILY can't be loaded,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
372 try FAMILY1, then FAMILY2, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
373
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
374 Lisp_Object Vface_alternative_font_family_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
375
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
376 /* 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
377 (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
378 loaded, try REGISTRY1, then REGISTRY2, ... */
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
379
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
380 Lisp_Object Vface_alternative_font_registry_alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
381
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
382 /* 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
383 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
384 font. Otherwise, value must be a list of regular expressions. A
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
385 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
386 list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
387
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
388 Lisp_Object Vscalable_fonts_allowed, Qscalable_fonts_allowed;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
389
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
390 /* 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
391
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
392 Lisp_Object Vface_ignored_fonts;
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
393
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
394 /* 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
395
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
396 Lisp_Object Vface_font_rescale_alist;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
397
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
398 /* 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
399 integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead. */
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
400
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
401 Lisp_Object Vfont_list_limit;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
402 #define DEFAULT_FONT_LIST_LIMIT 100
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
403
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
404 /* The symbols `foreground-color' and `background-color' which can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
405 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
406 Emacs 20.2. */
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 Qforeground_color, Qbackground_color;
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 symbols `face' and `mouse-face' used as text properties. */
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
411
23730
c71c3ac4b80a (Qmouse_face): Replace definition with extern decl.
Richard M. Stallman <rms@gnu.org>
parents: 21766
diff changeset
412 Lisp_Object Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
413 extern Lisp_Object Qmouse_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
414
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
415 /* 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
416
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
417 Lisp_Object Qface_no_inherit;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
418
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
419 /* Error symbol for wrong_type_argument in load_pixmap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
420
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
421 Lisp_Object Qbitmap_spec_p;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
422
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
423 /* Alist of global face definitions. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
424 (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
425 is a Lisp vector of face attributes. These faces are used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
426 to initialize faces for new frames. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
427
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
428 Lisp_Object Vface_new_frame_defaults;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
429
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
430 /* Alist of face remappings. Each element is of the form:
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
431 (FACE REPLACEMENT...) which causes display of the face FACE to use
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
432 REPLACEMENT... instead. REPLACEMENT... is interpreted the same way
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
433 the value of a `face' text property is: it may be (1) A face name,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
434 (2) A list of face names, (3) A property-list of face attribute/value
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
435 pairs, or (4) A list of face names intermixed with lists containing
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
436 face attribute/value pairs.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
437
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
438 Multiple entries in REPLACEMENT... are merged together to form the final
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
439 result, with faces or attributes earlier in the list taking precedence
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
440 over those that are later.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
441
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
442 Face-name remapping cycles are suppressed; recursive references use
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
443 the underlying face instead of the remapped face. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
444
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
445 Lisp_Object Vface_remapping_alist;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
446
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
447 /* The next ID to assign to Lisp faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
448
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
449 static int next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
450
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
451 /* A vector mapping Lisp face Id's to face names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
452
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
453 static Lisp_Object *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
454 static int lface_id_to_name_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
455
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
456 /* 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
457
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
458 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
459
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
460 /* 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
461
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
462 Lisp_Object Qtty_color_alist;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
463
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
464 /* 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
465
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
466 Lisp_Object Vtty_defined_color_alist;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
467
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
468 /* Counter for calls to clear_face_cache. If this counter reaches
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
469 CLEAR_FONT_TABLE_COUNT, and a frame has more than
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
470 CLEAR_FONT_TABLE_NFONTS load, unused fonts are freed. */
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 static int clear_font_table_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
473 #define CLEAR_FONT_TABLE_COUNT 100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
474 #define CLEAR_FONT_TABLE_NFONTS 10
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
475
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
476 /* Non-zero means face attributes have been changed since the last
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
477 redisplay. Used in redisplay_internal. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
478
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
479 int face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
480
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
481 /* 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
482 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
483 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
484 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
485
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
486 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
487
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
488 /* 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
489 Finternal_set_lisp_face_attribute. */
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
490
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
491 static Lisp_Object Vparam_value_alist;
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
492
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
493 /* The total number of colors currently allocated. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
494
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
495 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
496 static int ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
497 static int npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
498 static int ngcs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
499 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
500
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
501 /* 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
502 been changed. */
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
503
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
504 int menu_face_changed_default;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
505
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
507 /* Function prototypes. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
508
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
509 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
510 struct named_merge_point;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
511
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
512 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
513 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
514 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
515 static int may_use_scalable_font_p P_ ((const char *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
516 static void set_font_frame_param P_ ((Lisp_Object, Lisp_Object));
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
517 static int get_lface_attributes P_ ((struct frame *, Lisp_Object, Lisp_Object *,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
518 int, struct named_merge_point *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
519 static int load_pixmap P_ ((struct frame *, Lisp_Object, unsigned *, unsigned *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
520 static struct frame *frame_or_selected_frame P_ ((Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
521 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
522 static void free_face_colors P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
523 static int face_color_gray_p P_ ((struct frame *, char *));
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
524 static struct face *realize_face P_ ((struct face_cache *, Lisp_Object *,
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
525 int));
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
526 static struct face *realize_non_ascii_face P_ ((struct frame *, Lisp_Object,
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
527 struct face *));
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
528 static struct face *realize_x_face P_ ((struct face_cache *, Lisp_Object *));
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
529 static struct face *realize_tty_face P_ ((struct face_cache *, Lisp_Object *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
530 static int realize_basic_faces P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
531 static int realize_default_face P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
532 static void realize_named_face P_ ((struct frame *, Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
533 static int lface_fully_specified_p P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
534 static int lface_equal_p P_ ((Lisp_Object *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
535 static unsigned hash_string_case_insensitive P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
536 static unsigned lface_hash P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
537 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
538 static struct face_cache *make_face_cache P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
539 static void clear_face_gcs P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
540 static void free_face_cache P_ ((struct face_cache *));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
541 static int face_fontset P_ ((Lisp_Object *));
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
542 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
543 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
544 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
545 int, struct named_merge_point *));
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
546 static int set_lface_from_font P_ ((struct frame *, Lisp_Object, Lisp_Object,
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
547 int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
548 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
549 static struct face *make_realized_face P_ ((Lisp_Object *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
550 static void cache_face P_ ((struct face_cache *, struct face *, unsigned));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
551 static void uncache_face P_ ((struct face_cache *, struct face *));
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
552
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
553 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
554
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
555 static GC x_create_gc P_ ((struct frame *, unsigned long, XGCValues *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
556 static void x_free_gc P_ ((struct frame *, GC));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
557
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
558 #ifdef USE_X_TOOLKIT
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
559 static void x_update_menu_appearance P_ ((struct frame *));
39675
a4def4204419 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 38905
diff changeset
560
a4def4204419 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 38905
diff changeset
561 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
562 #endif /* USE_X_TOOLKIT */
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
563
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
564 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
565
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
566
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
567 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
568 Utilities
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
569 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
570
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
571 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
572
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
573 #ifdef DEBUG_X_COLORS
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
574
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
575 /* 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
576 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
577 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
578 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
579 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
580 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
581 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
582 single display/screen. --gerd. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
583
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
584 /* Reference counts for pixel colors. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
585
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
586 int color_count[256];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
587
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
588 /* Register color PIXEL as allocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
589
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
590 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
591 register_color (pixel)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
592 unsigned long pixel;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
593 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
594 xassert (pixel < 256);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
595 ++color_count[pixel];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
596 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
597
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
598
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
599 /* Register color PIXEL as deallocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
600
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
601 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
602 unregister_color (pixel)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
603 unsigned long pixel;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
604 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
605 xassert (pixel < 256);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
606 if (color_count[pixel] > 0)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
607 --color_count[pixel];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
608 else
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
609 abort ();
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
610 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
611
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 /* Register N colors from PIXELS as deallocated. */
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 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
616 unregister_colors (pixels, n)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
617 unsigned long *pixels;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
618 int n;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
619 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
620 int i;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
621 for (i = 0; i < n; ++i)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
622 unregister_color (pixels[i]);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
623 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
624
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
625
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
626 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
627 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
628 ()
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
629 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
630 int i, n;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
631
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
632 fputc ('\n', stderr);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
633
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
634 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
635 if (color_count[i])
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
636 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
637 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
638 ++n;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
639 if (n % 5 == 0)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
640 fputc ('\n', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
641 else
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
642 fputc ('\t', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
643 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
644
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
645 if (n % 5 != 0)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
646 fputc ('\n', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
647 return Qnil;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
648 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
649
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
650 #endif /* DEBUG_X_COLORS */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
651
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
652
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
653 /* 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
654 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
655 is called. */
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
656
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
657 void
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
658 x_free_colors (f, pixels, npixels)
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
659 struct frame *f;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
660 unsigned long *pixels;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
661 int npixels;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
662 {
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
663 int class = FRAME_X_DISPLAY_INFO (f)->visual->class;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
664
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
665 /* 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
666 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
667 if (class != StaticColor && class != StaticGray && class != TrueColor)
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
668 {
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
669 #ifdef DEBUG_X_COLORS
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
670 unregister_colors (pixels, npixels);
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
671 #endif
35228
ae27a81ee8dc (x_free_colors, x_free_dpy_colors): Do the
Gerd Moellmann <gerd@gnu.org>
parents: 35040
diff changeset
672 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
673 pixels, npixels, 0);
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
674 }
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
675 }
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
676
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
677
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
678 /* 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
679 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
680 is called. */
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
681
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
682 void
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
683 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
684 Display *dpy;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
685 Screen *screen;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
686 Colormap cmap;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
687 unsigned long *pixels;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
688 int npixels;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
689 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
690 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
691 int class = dpyinfo->visual->class;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
692
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
693 /* 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
694 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
695 if (class != StaticColor && class != StaticGray && class != TrueColor)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
696 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
697 #ifdef DEBUG_X_COLORS
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
698 unregister_colors (pixels, npixels);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
699 #endif
35228
ae27a81ee8dc (x_free_colors, x_free_dpy_colors): Do the
Gerd Moellmann <gerd@gnu.org>
parents: 35040
diff changeset
700 XFreeColors (dpy, cmap, pixels, npixels, 0);
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
701 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
702 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
703
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
704
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
705 /* 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
706 are given by XGCV and MASK. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
707
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
708 static INLINE GC
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
709 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
710 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
711 unsigned long mask;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
712 XGCValues *xgcv;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
713 {
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 GC gc;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
715 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
716 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
717 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
718 IF_DEBUG (++ngcs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
719 return gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
720 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
721
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
722
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
723 /* Free GC which was used on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
724
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
725 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
726 x_free_gc (f, gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
727 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
728 GC gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
729 {
84976
372151e622f3 (load_face_font, free_realized_face, clear_face_gcs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84801
diff changeset
730 eassert (interrupt_input_blocked);
59903
f2619addaa72 (x_free_gc) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59458
diff changeset
731 IF_DEBUG (xassert (--ngcs >= 0));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
732 XFreeGC (FRAME_X_DISPLAY (f), gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
733 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
734
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
735 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
736
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
737 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
738 /* W32 emulation of GCs */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
739
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
740 static INLINE GC
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
741 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
742 struct frame *f;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
743 unsigned long mask;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
744 XGCValues *xgcv;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
745 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
746 GC gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
747 BLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
748 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
749 UNBLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
750 IF_DEBUG (++ngcs);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
751 return gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
752 }
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
753
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
754
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
755 /* 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
756
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
757 static INLINE void
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
758 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
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 GC gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
761 {
59903
f2619addaa72 (x_free_gc) [!GLYPH_DEBUG]: Fix xassert.
Kim F. Storm <storm@cua.dk>
parents: 59458
diff changeset
762 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
763 xfree (gc);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
764 }
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
765
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
766 #endif /* WINDOWSNT */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
767
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
768 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
769 /* NS emulation of GCs */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
770
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
771 static INLINE GC
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
772 x_create_gc (f, mask, xgcv)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
773 struct frame *f;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
774 unsigned long mask;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
775 XGCValues *xgcv;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
776 {
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
777 GC gc = xmalloc (sizeof (*gc));
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
778 if (gc)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
779 bcopy(xgcv, gc, sizeof(XGCValues));
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
780 return gc;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
781 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
782
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
783 static INLINE void
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
784 x_free_gc (f, gc)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
785 struct frame *f;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
786 GC gc;
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
787 {
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
788 if (gc)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
789 xfree (gc);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
790 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
791 #endif /* HAVE_NS */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
792
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
793 /* Like strcasecmp/stricmp. Used to compare parts of font names which
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
794 are in ISO8859-1. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
795
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
796 int
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
797 xstrcasecmp (s1, s2)
46478
d6b51ec01987 (xstricmp): String pointer args now point to const.
Ken Raeburn <raeburn@raeburn.org>
parents: 46370
diff changeset
798 const unsigned char *s1, *s2;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
799 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
800 while (*s1 && *s2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
801 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
802 unsigned char c1 = tolower (*s1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
803 unsigned char c2 = tolower (*s2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
804 if (c1 != c2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
805 return c1 < c2 ? -1 : 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
806 ++s1, ++s2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
807 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
808
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
809 if (*s1 == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
810 return *s2 == 0 ? 0 : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
811 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
812 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
813
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
814
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
815 /* 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
816 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
817 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
818 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
819 Lisp function definitions. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
820
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
821 static INLINE struct frame *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
822 frame_or_selected_frame (frame, nparam)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
823 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
824 int nparam;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
825 {
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
826 if (NILP (frame))
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
827 frame = selected_frame;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
828
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
829 CHECK_LIVE_FRAME (frame);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
830 return XFRAME (frame);
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
834 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
835 Frames and faces
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 /* 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
839
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
840 void
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
841 init_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
842 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
843 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
844 /* Make a face cache, if F doesn't have one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
845 if (FRAME_FACE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
846 FRAME_FACE_CACHE (f) = make_face_cache (f);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
847
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
848 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
849 /* 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
850 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
851 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91900
diff changeset
852 if (FRAME_IMAGE_CACHE (f) == NULL)
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91900
diff changeset
853 /* Is that ever possible?? --Stef */
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91900
diff changeset
854 FRAME_IMAGE_CACHE (f) = make_image_cache ();
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91900
diff changeset
855 ++FRAME_IMAGE_CACHE (f)->refcount;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
856 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
857 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
858
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
859 /* Realize basic faces. Must have enough information in frame
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
860 parameters to realize basic faces at this point. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
861 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
862 if (!FRAME_X_P (f) || FRAME_X_WINDOW (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
863 #endif
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
864 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
865 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
866 #endif
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
867 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
868 if (!FRAME_NS_P (f) || FRAME_NS_WINDOW (f))
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
869 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
870 if (!realize_basic_faces (f))
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
871 abort ();
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
872 }
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 /* Free face cache of frame F. Called from Fdelete_frame. */
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 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
878 free_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
879 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
880 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
881 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
882
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
883 if (face_cache)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
884 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
885 free_face_cache (face_cache);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
886 FRAME_FACE_CACHE (f) = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
887 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
888
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
889 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
890 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
891 {
92109
4d9fc08769fa Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91900
diff changeset
892 struct image_cache *image_cache = FRAME_IMAGE_CACHE (f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
893 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
894 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
895 --image_cache->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
896 if (image_cache->refcount == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
897 free_image_cache (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
898 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
899 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
900 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
901 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
902
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
903
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
904 /* 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
905 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
906 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
907 of named faces. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
908
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
909 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
910 recompute_basic_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
911 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
912 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
913 if (FRAME_FACE_CACHE (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
914 {
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
915 clear_face_cache (0);
26601
e23e3120d84f (set_lface_from_font_name): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26594
diff changeset
916 if (!realize_basic_faces (f))
e23e3120d84f (set_lface_from_font_name): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26594
diff changeset
917 abort ();
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
918 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
919 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
920
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 /* 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
923 try to free unused fonts, too. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
924
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
925 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
926 clear_face_cache (clear_fonts_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
927 int clear_fonts_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
928 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
929 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
930 Lisp_Object tail, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
931 struct frame *f;
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 if (clear_fonts_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
934 || ++clear_font_table_count == CLEAR_FONT_TABLE_COUNT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
935 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
936 #if 0
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
937 /* Not yet implemented. */
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
938 clear_font_cache (frame);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
939 #endif
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
940
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
941 /* 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
942 frees all realized faces on all frames. Fonts needed by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
943 faces will be loaded again when faces are realized again. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
944 clear_font_table_count = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
945
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
946 FOR_EACH_FRAME (tail, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
947 {
38434
86a4e78aeae0 (clear_face_cache): Clear fonts on a display basis.
Gerd Moellmann <gerd@gnu.org>
parents: 38346
diff changeset
948 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
949 if (FRAME_WINDOW_P (f)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
950 && 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
951 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
952 }
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
953 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
954 else
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
955 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
956 /* Clear GCs of realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
957 FOR_EACH_FRAME (tail, frame)
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
958 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
959 f = XFRAME (frame);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
960 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
961 clear_face_gcs (FRAME_FACE_CACHE (f));
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
962 }
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
963 clear_image_caches (Qnil);
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
964 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
965 #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
966 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
967
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
968
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
969 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
970 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
971 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
972 (thoroughly)
35843
c032770ba567 (Fclear_face_cache): Rename the `thorougly' argument
Eli Zaretskii <eliz@gnu.org>
parents: 35443
diff changeset
973 Lisp_Object thoroughly;
c032770ba567 (Fclear_face_cache): Rename the `thorougly' argument
Eli Zaretskii <eliz@gnu.org>
parents: 35443
diff changeset
974 {
c032770ba567 (Fclear_face_cache): Rename the `thorougly' argument
Eli Zaretskii <eliz@gnu.org>
parents: 35443
diff changeset
975 clear_face_cache (!NILP (thoroughly));
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
976 ++face_change_count;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
977 ++windows_or_buffers_changed;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
978 return Qnil;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
979 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
980
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
981
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
982 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
983 X Pixmaps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
984 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
985
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
986 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
987
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
988 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
989 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
990 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
991 \(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
992 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
993 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
994 \(WIDTH + 7)/8 bytes. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
995 (object)
14090
24b93860d392 (Fpixmap_spec_p): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
996 Lisp_Object object;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
997 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
998 int pixmap_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
999
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1000 if (STRINGP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1001 /* 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
1002 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1003 else if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1004 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1005 /* 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
1006 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
1007 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
1008 Lisp_Object width, height, data;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1009
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1010 height = width = data = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1011
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1012 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1013 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1014 width = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1015 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1016 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1017 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1018 height = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1019 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1020 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1021 data = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1022 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1023 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1024
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1025 if (NATNUMP (width) && NATNUMP (height) && STRINGP (data))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1026 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1027 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
1028 / 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
1029 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
1030 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1031 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1032 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1033
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1034 return pixmap_p ? Qt : Qnil;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1035 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1036
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1037
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1038 /* 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
1039 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
1040 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
1041 bitmap cannot be loaded, display a message saying so, and return
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1042 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
1043 if these pointers are not null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1044
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1045 static int
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1046 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
1047 FRAME_PTR f;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1048 Lisp_Object name;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1049 unsigned int *w_ptr, *h_ptr;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1050 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1051 int bitmap_id;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1052
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1053 if (NILP (name))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1054 return 0;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1055
71845
085d9056841a (load_pixmap): Use CHECK_TYPE.
Kim F. Storm <storm@cua.dk>
parents: 71576
diff changeset
1056 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
1057
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1058 BLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1059 if (CONSP (name))
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1060 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1061 /* Decode a bitmap spec into a bitmap. */
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1062
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1063 int h, w;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1064 Lisp_Object bits;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1065
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1066 w = XINT (Fcar (name));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1067 h = XINT (Fcar (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1068 bits = Fcar (Fcdr (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1069
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1070 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
1071 w, h);
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1072 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1073 else
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1074 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1075 /* 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
1076 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
1077 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1078 UNBLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1079
9902
32ed712a45a3 (load_pixmap): Handle bitmap_id < 0. F is a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9671
diff changeset
1080 if (bitmap_id < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1081 {
72446
44f03dd44abf (load_pixmap): Add quotes in error message.
Richard M. Stallman <rms@gnu.org>
parents: 72170
diff changeset
1082 add_to_log ("Invalid or undefined bitmap `%s'", name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1083 bitmap_id = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1084
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1085 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1086 *w_ptr = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1087 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1088 *h_ptr = 0;
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 else
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1093 ++npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1094 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1095 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1096 *w_ptr = x_bitmap_width (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1097
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1098 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1099 *h_ptr = x_bitmap_height (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1100 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1101
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1102 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
1103 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
1104
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1105 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1106
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
1107
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1108
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1109 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1110 X Colors
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1111 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1112
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1113 /* 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
1114 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
1115 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
1116
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1117 static int
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1118 parse_rgb_list (rgb_list, color)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1119 Lisp_Object rgb_list;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1120 XColor *color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1121 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1122 #define PARSE_RGB_LIST_FIELD(field) \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1123 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
1124 { \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1125 color->field = XINT (XCAR (rgb_list)); \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1126 rgb_list = XCDR (rgb_list); \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1127 } \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1128 else \
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1129 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1130
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1131 PARSE_RGB_LIST_FIELD (red);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1132 PARSE_RGB_LIST_FIELD (green);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1133 PARSE_RGB_LIST_FIELD (blue);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1134
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1135 return 1;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1136 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1137
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1138
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1139 /* 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
1140 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
1141 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
1142 returned in it. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1143
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1144 static int
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1145 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
1146 struct frame *f;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1147 Lisp_Object color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1148 XColor *tty_color, *std_color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1149 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1150 Lisp_Object frame, color_desc;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1151
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1152 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
1153 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1154
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1155 XSETFRAME (frame, f);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1156
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1157 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
1158 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
1159 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1160 Lisp_Object rgb;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1161
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1162 if (! INTEGERP (XCAR (XCDR (color_desc))))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1163 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1164
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1165 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
1166
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1167 rgb = XCDR (XCDR (color_desc));
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1168 if (! parse_rgb_list (rgb, tty_color))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1169 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1170
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1171 /* Should we fill in STD_COLOR too? */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1172 if (std_color)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1173 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1174 /* 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
1175 *std_color = *tty_color;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1176
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1177 /* 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
1178 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
1179 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
1180 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
1181 if ((!STRINGP (XCAR (color_desc))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1182 || 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
1183 && !NILP (Ffboundp (Qtty_color_standard_values)))
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1184 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1185 /* Look up STD_COLOR separately. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1186 rgb = call1 (Qtty_color_standard_values, color);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1187 if (! parse_rgb_list (rgb, std_color))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1188 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1189 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1190 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1191
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1192 return 1;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1193 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1194 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
1195 /* 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
1196 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
1197 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
1198 load color" messages in the *Messages* buffer. */
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1199 return 1;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1200 else
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1201 /* 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
1202 return 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1203 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1204
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1205 /* 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
1206
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1207 int
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1208 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
1209 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1210 char *color_name;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1211 XColor *color_def;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1212 int alloc;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1213 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1214 int status = 1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1215
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1216 /* Defaults. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
1217 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
1218 color_def->red = 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1219 color_def->blue = 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1220 color_def->green = 0;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1221
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1222 if (*color_name)
89554
15da46f6f0ac (face_numeric_value): Declare dim size_t.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
1223 status = tty_lookup_color (f, build_string (color_name), color_def, NULL);
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1224
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1225 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
1226 {
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1227 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
1228 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
1229 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
1230 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
1231 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1232
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
1233 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
1234 status = 1;
2e020ab026b8 (tty_defined_color): Don't return faulire indication
Eli Zaretskii <eliz@gnu.org>
parents: 27695
diff changeset
1235
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1236 return status;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1237 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1238
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1239
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1240 /* 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
1241 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
1242 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
1243
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1244 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
1245
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1246 int
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1247 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
1248 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1249 char *color_name;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1250 XColor *color_def;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1251 int alloc;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1252 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1253 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
1254 return tty_defined_color (f, color_name, color_def, alloc);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1255 #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
1256 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
1257 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
1258 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1259 #ifdef WINDOWSNT
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1260 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
1261 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
1262 #endif
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
1263 #ifdef HAVE_NS
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
1264 else if (FRAME_NS_P (f))
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
1265 return ns_defined_color (f, color_name, color_def, alloc, 1);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
1266 #endif
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1267 else
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1268 abort ();
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1269 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1270
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1271
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1272 /* 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
1273 Lisp string. */
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1274
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1275 Lisp_Object
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1276 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
1277 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1278 int idx;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1279 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1280 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
1281 {
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1282 Lisp_Object frame;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1283 Lisp_Object coldesc;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1284
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1285 XSETFRAME (frame, f);
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1286 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
1287
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1288 if (!NILP (coldesc))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1289 return XCAR (coldesc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1290 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1291 #ifdef MSDOS
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1292 /* 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
1293 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
1294 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
1295 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
1296 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1297
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1298 if (idx == FACE_TTY_DEFAULT_FG_COLOR)
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1299 return build_string (unspecified_fg);
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1300 if (idx == FACE_TTY_DEFAULT_BG_COLOR)
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1301 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
1302
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1303 return Qunspecified;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1304 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1305
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1306
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1307 /* 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
1308 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
1309
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1310 The criterion implemented here is not a terribly sophisticated one. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1311
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1312 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1313 face_color_gray_p (f, color_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1314 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1315 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1316 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1317 XColor color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1318 int gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1319
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1320 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
1321 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
1322 (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
1323 ||
85262
77d6e76160a6 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85114
diff changeset
1324 ((eabs (color.red - color.green)
65781
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1325 < max (color.red, color.green) / 20)
85262
77d6e76160a6 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85114
diff changeset
1326 && (eabs (color.green - color.blue)
65781
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1327 < max (color.green, color.blue) / 20)
85262
77d6e76160a6 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85114
diff changeset
1328 && (eabs (color.blue - color.red)
65781
d9e5cd5bce05 (face_color_gray_p): Colors close to black count as gray.
Richard M. Stallman <rms@gnu.org>
parents: 65713
diff changeset
1329 < max (color.blue, color.red) / 20)));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1330 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1331 gray_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1332
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1333 return gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1334 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1335
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1336
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1337 /* 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
1338 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
1339 color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1340
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1341 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1342 face_color_supported_p (f, color_name, background_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1343 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1344 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1345 int background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1346 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1347 Lisp_Object frame;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1348 XColor not_used;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1349
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1350 XSETFRAME (frame, f);
54766
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1351 return
59924
3590dd3050ba (face_color_supported_p): Use HAVE_WINDOW_SYSTEM
Eli Zaretskii <eliz@gnu.org>
parents: 59905
diff changeset
1352 #ifdef HAVE_WINDOW_SYSTEM
54766
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1353 FRAME_WINDOW_P (f)
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1354 ? (!NILP (Fxw_display_color_p (frame))
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
1355 || xstrcasecmp (color_name, "black") == 0
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
1356 || xstrcasecmp (color_name, "white") == 0
54766
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1357 || (background_p
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1358 && 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
1359 || (!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
1360 && 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
1361 :
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1362 #endif
b87089cc7e4c (face_color_supported_p): Fix compilation without X11.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53901
diff changeset
1363 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
1364 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1365
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1366
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1367 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
1368 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
1369 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
1370 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
1371 (color, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1372 Lisp_Object color, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1373 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1374 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1375
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
1376 CHECK_STRING (color);
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1377 if (NILP (frame))
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1378 frame = selected_frame;
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1379 else
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1380 CHECK_FRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1381 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
1382 return face_color_gray_p (f, SDATA (color)) ? Qt : Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1383 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1384
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1385
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1386 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
1387 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
1388 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
1389 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
1390 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
1391 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
1392 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
1393 (color, frame, background_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1394 Lisp_Object frame, color, background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1395 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1396 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1397
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
1398 CHECK_STRING (color);
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1399 if (NILP (frame))
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1400 frame = selected_frame;
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1401 else
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1402 CHECK_FRAME (frame);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1403 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
1404 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
1405 return Qt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1406 return Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1407 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1408
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1409
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1410 /* 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
1411 TARGET_INDEX must be one of LFACE_FOREGROUND_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1412 LFACE_BACKGROUND_INDEX, LFACE_UNDERLINE_INDEX, LFACE_OVERLINE_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1413 LFACE_STRIKE_THROUGH_INDEX, or LFACE_BOX_INDEX. Value is the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1414 pixel color. If color cannot be loaded, display a message, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1415 return the foreground, background or underline color of F, but
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1416 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
1417 these colors. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1418
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1419 unsigned long
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1420 load_color (f, face, name, target_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1421 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1422 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1423 Lisp_Object name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1424 enum lface_attribute_index target_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1425 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1426 XColor color;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1427
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1428 xassert (STRINGP (name));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1429 xassert (target_index == LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1430 || target_index == LFACE_BACKGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1431 || target_index == LFACE_UNDERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1432 || target_index == LFACE_OVERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1433 || target_index == LFACE_STRIKE_THROUGH_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1434 || target_index == LFACE_BOX_INDEX);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1435
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1436 /* 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
1437 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
1438 if (!defined_color (f, SDATA (name), &color, 1))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1439 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1440 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
1441
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1442 switch (target_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1443 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1444 case LFACE_FOREGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1445 face->foreground_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1446 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1447 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1448
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1449 case LFACE_BACKGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1450 face->background_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1451 color.pixel = FRAME_BACKGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1452 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1453
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1454 case LFACE_UNDERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1455 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1456 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1457 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1458
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1459 case LFACE_OVERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1460 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1461 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1462 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1463
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1464 case LFACE_STRIKE_THROUGH_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1465 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1466 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1467 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1468
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1469 case LFACE_BOX_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1470 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1471 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1472 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1473
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1474 default:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1475 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1476 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1477 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1478 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1479 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1480 ++ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1481 #endif
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1482
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1483 return color.pixel;
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
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1486
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1487 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1488
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1489 /* 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
1490 specified by slots LFACE_BACKGROUND_INDEX and LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1491 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
1492 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
1493
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1494 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1495 load_face_colors (f, face, attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1496 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1497 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1498 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1499 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1500 Lisp_Object fg, bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1501
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1502 bg = attrs[LFACE_BACKGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1503 fg = attrs[LFACE_FOREGROUND_INDEX];
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 /* Swap colors if face is inverse-video. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1506 if (EQ (attrs[LFACE_INVERSE_INDEX], Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1507 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1508 Lisp_Object tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1509 tmp = fg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1510 fg = bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1511 bg = tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1512 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1513
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1514 /* Check for support for foreground, not for background because
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1515 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
1516 "supported" as background because we are supposed to use stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1517 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
1518 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
1519 && !NILP (Fbitmap_spec_p (Vface_default_stipple)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1520 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1521 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1522 face->stipple = load_pixmap (f, Vface_default_stipple,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1523 &face->pixmap_w, &face->pixmap_h);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1524 }
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1525
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1526 face->background = load_color (f, face, bg, LFACE_BACKGROUND_INDEX);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1527 face->foreground = load_color (f, face, fg, LFACE_FOREGROUND_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1528 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1529
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1530
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1531 /* Free color PIXEL on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1532
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1533 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1534 unload_color (f, pixel)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1535 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1536 unsigned long pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1537 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1538 #ifdef HAVE_X_WINDOWS
38346
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1539 if (pixel != -1)
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1540 {
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1541 BLOCK_INPUT;
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1542 x_free_colors (f, &pixel, 1);
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1543 UNBLOCK_INPUT;
a86234ceb517 (unload_color): Do nothing if PIXEL is -1.
Gerd Moellmann <gerd@gnu.org>
parents: 37798
diff changeset
1544 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1545 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1546 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1547
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1548
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1549 /* Free colors allocated for FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1550
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1551 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1552 free_face_colors (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1553 struct frame *f;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1554 struct face *face;
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1555 {
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
1556 /* PENDING(NS): need to do something here? */
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1557 #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
1558 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
1559 return;
dfc4450c2329 (realize_x_face): If C is not a single-byte character,
Gerd Moellmann <gerd@gnu.org>
parents: 40532
diff changeset
1560
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1561 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1562
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1563 if (!face->foreground_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1564 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1565 x_free_colors (f, &face->foreground, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1566 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1567 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1568
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1569 if (!face->background_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1570 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1571 x_free_colors (f, &face->background, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1572 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1573 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1574
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1575 if (face->underline_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1576 && !face->underline_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1577 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1578 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
1579 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1580 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1581
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1582 if (face->overline_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1583 && !face->overline_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1584 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1585 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
1586 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1587 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1588
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1589 if (face->strike_through_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1590 && !face->strike_through_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1591 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1592 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
1593 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1594 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1595
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1596 if (face->box != FACE_NO_BOX
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1597 && !face->box_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1598 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1599 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
1600 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1601 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1602
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1603 UNBLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1604 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1605 }
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1606
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1607 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1608
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1609
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1610
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 XLFD Font Names
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1613 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1614
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1615 /* An enumerator for each field of an XLFD font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1616
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1617 enum xlfd_field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1618 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1619 XLFD_FOUNDRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1620 XLFD_FAMILY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1621 XLFD_WEIGHT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1622 XLFD_SLANT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1623 XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1624 XLFD_ADSTYLE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1625 XLFD_PIXEL_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1626 XLFD_POINT_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1627 XLFD_RESX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1628 XLFD_RESY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1629 XLFD_SPACING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1630 XLFD_AVGWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1631 XLFD_REGISTRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1632 XLFD_ENCODING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1633 XLFD_LAST
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1634 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1635
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1636 /* 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
1637 the XLFD specification. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1638
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1639 enum xlfd_slant
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1640 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1641 XLFD_SLANT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1642 XLFD_SLANT_ROMAN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1643 XLFD_SLANT_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1644 XLFD_SLANT_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1645 XLFD_SLANT_REVERSE_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1646 XLFD_SLANT_REVERSE_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1647 XLFD_SLANT_OTHER
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1648 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1649
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1650 /* Relative font weight according to XLFD documentation. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1651
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1652 enum xlfd_weight
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1653 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1654 XLFD_WEIGHT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1655 XLFD_WEIGHT_ULTRA_LIGHT, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1656 XLFD_WEIGHT_EXTRA_LIGHT, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1657 XLFD_WEIGHT_LIGHT, /* 30 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1658 XLFD_WEIGHT_SEMI_LIGHT, /* 40: SemiLight, Book, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1659 XLFD_WEIGHT_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1660 XLFD_WEIGHT_SEMI_BOLD, /* 60: SemiBold, DemiBold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1661 XLFD_WEIGHT_BOLD, /* 70: Bold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1662 XLFD_WEIGHT_EXTRA_BOLD, /* 80: ExtraBold, Heavy, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1663 XLFD_WEIGHT_ULTRA_BOLD /* 90: UltraBold, Black, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1664 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1665
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1666 /* Relative proportionate width. */
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 enum xlfd_swidth
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 XLFD_SWIDTH_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1671 XLFD_SWIDTH_ULTRA_CONDENSED, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1672 XLFD_SWIDTH_EXTRA_CONDENSED, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1673 XLFD_SWIDTH_CONDENSED, /* 30: Condensed, Narrow, Compressed, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1674 XLFD_SWIDTH_SEMI_CONDENSED, /* 40: semicondensed */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1675 XLFD_SWIDTH_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1676 XLFD_SWIDTH_SEMI_EXPANDED, /* 60: SemiExpanded, DemiExpanded, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1677 XLFD_SWIDTH_EXPANDED, /* 70: Expanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1678 XLFD_SWIDTH_EXTRA_EXPANDED, /* 80: ExtraExpanded, Wide... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1679 XLFD_SWIDTH_ULTRA_EXPANDED /* 90: UltraExpanded... */
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 /* Order by which font selection chooses fonts. The default values
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1683 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
1684 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
1685 set via set-face-font-sort-order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1686
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1687 static int font_sort_order[4];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1688
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1689 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1690
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1691 /* 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
1692
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1693 static double
51401
bcf91e20f6a2 (font_rescale_ratio): Fix for K&R.
Dave Love <fx@gnu.org>
parents: 51315
diff changeset
1694 font_rescale_ratio (name)
bcf91e20f6a2 (font_rescale_ratio): Fix for K&R.
Dave Love <fx@gnu.org>
parents: 51315
diff changeset
1695 char *name;
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1696 {
53267
bec1d17789a6 (Fcolor_gray_p): Fix omission bug:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
1697 Lisp_Object tail, elt;
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1698
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1699 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
1700 {
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1701 elt = XCAR (tail);
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1702 if (STRINGP (XCAR (elt)) && FLOATP (XCDR (elt))
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1703 && 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
1704 return XFLOAT_DATA (XCDR (elt));
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1705 }
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1706 return 1.0;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1707 }
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
1708
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1709 static enum font_property_index font_props_for_sorting[FONT_SIZE_INDEX];
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1710
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1711 static int
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1712 compare_fonts_by_sort_order (v1, v2)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1713 const void *v1, *v2;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1714 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1715 Lisp_Object font1 = *(Lisp_Object *) v1;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1716 Lisp_Object font2 = *(Lisp_Object *) v2;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1717 int i;
95375
e743691cff9c (Fx_list_fonts, Finternal_copy_lisp_face): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 95373
diff changeset
1718
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1719 for (i = 0; i < FONT_SIZE_INDEX; i++)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1720 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1721 enum font_property_index idx = font_props_for_sorting[i];
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1722 Lisp_Object val1 = AREF (font1, idx), val2 = AREF (font2, idx);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1723 int result;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1724
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1725 if (idx <= FONT_REGISTRY_INDEX)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1726 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1727 if (STRINGP (val1))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1728 result = STRINGP (val2) ? strcmp (SDATA (val1), SDATA (val2)) : -1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1729 else
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1730 result = STRINGP (val2) ? 1 : 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1731 }
35369
aca9ba55cfcc (x_face_list_fonts): Call x_list_fonts with SIZE -1,
Gerd Moellmann <gerd@gnu.org>
parents: 35228
diff changeset
1732 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1733 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1734 if (INTEGERP (val1))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1735 result = INTEGERP (val2) ? XINT (val1) - XINT (val2) : -1;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1736 else
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1737 result = INTEGERP (val2) ? 1 : 0;
53354
605475ba45e3 (face_font_available_p): New function.
Kenichi Handa <handa@m17n.org>
parents: 53334
diff changeset
1738 }
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1739 if (result)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1740 return result;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1741 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1742 return 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1743 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1744
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
1745 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
1746 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
1747 If FAMILY is omitted or nil, list all families.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1748 Otherwise, FAMILY must be a string, possibly containing wildcards
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1749 `?' and `*'.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1750 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
1751 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
1752 SLANT FIXED-P FULL REGISTRY-AND-ENCODING].
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1753 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
1754 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
1755 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
1756 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
1757 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
1758 giving the registry and encoding of the font.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1759 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
1760 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
1761 (family, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1762 Lisp_Object family, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1763 {
95377
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1764 Lisp_Object font_spec, vec;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1765 int i, nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1766 Lisp_Object result;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1767
95377
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1768 if (NILP (frame))
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1769 frame = selected_frame;
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1770 CHECK_LIVE_FRAME (frame);
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1771
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1772 font_spec = Ffont_spec (0, NULL);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1773 if (!NILP (family))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1774 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1775 CHECK_STRING (family);
95574
fa7d768bdd0b (Fx_family_fonts): Use font_parse_family_registry instead of
Kenichi Handa <handa@m17n.org>
parents: 95567
diff changeset
1776 font_parse_family_registry (family, Qnil, font_spec);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1777 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1778 vec = font_list_entities (frame, font_spec);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1779 nfonts = ASIZE (vec);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1780 if (nfonts == 0)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1781 return Qnil;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1782 if (nfonts > 1)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1783 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1784 for (i = 0; i < 4; i++)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1785 switch (font_sort_order[i])
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1786 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1787 case XLFD_SWIDTH:
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1788 font_props_for_sorting[i] = FONT_WIDTH_INDEX; break;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1789 case XLFD_POINT_SIZE:
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1790 font_props_for_sorting[i] = FONT_SIZE_INDEX; break;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1791 case XLFD_WEIGHT:
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1792 font_props_for_sorting[i] = FONT_WEIGHT_INDEX; break;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1793 default:
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1794 font_props_for_sorting[i] = FONT_SLANT_INDEX; break;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1795 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1796 font_props_for_sorting[i++] = FONT_FAMILY_INDEX;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1797 font_props_for_sorting[i++] = FONT_FOUNDRY_INDEX;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1798 font_props_for_sorting[i++] = FONT_ADSTYLE_INDEX;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1799 font_props_for_sorting[i++] = FONT_REGISTRY_INDEX;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1800
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1801 qsort (XVECTOR (vec)->contents, nfonts, sizeof (Lisp_Object),
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1802 compare_fonts_by_sort_order);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1803 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1804
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1805 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1806 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1807 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1808 Lisp_Object font = AREF (vec, i);
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
1809 Lisp_Object v = Fmake_vector (make_number (8), Qnil);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1810 int point;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1811 Lisp_Object spacing;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1812
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1813 ASET (v, 0, AREF (font, FONT_FAMILY_INDEX));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1814 ASET (v, 1, FONT_WIDTH_SYMBOLIC (font));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1815 point = PIXEL_TO_POINT (XINT (AREF (font, FONT_SIZE_INDEX)) * 10,
95377
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1816 XFRAME (frame)->resy);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1817 ASET (v, 2, make_number (point));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1818 ASET (v, 3, FONT_WEIGHT_SYMBOLIC (font));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1819 ASET (v, 4, FONT_SLANT_SYMBOLIC (font));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1820 spacing = Ffont_get (font, QCspacing);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1821 ASET (v, 5, (NILP (spacing) || EQ (spacing, Qp)) ? Qnil : Qt);
95377
0c4bba8ae9f2 (Fx_family_fonts): Set frame correctly.
Kenichi Handa <handa@m17n.org>
parents: 95375
diff changeset
1822 ASET (v, 6, Ffont_xlfd_name (font, Qnil));
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1823 ASET (v, 7, AREF (font, FONT_REGISTRY_INDEX));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1824
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1825 result = Fcons (v, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1826 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1827
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1828 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1829 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1830
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1831 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
1832 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
1833 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
1834 the same size as FACE on FRAME.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1835 PATTERN is a string, perhaps with wildcard characters;
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1836 the * character matches any substring, and
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1837 the ? character matches any single character.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1838 PATTERN is case-insensitive.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1839 FACE is a face name--a symbol.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1840
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1841 The return value is a list of strings, suitable as arguments to
95375
e743691cff9c (Fx_list_fonts, Finternal_copy_lisp_face): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 95373
diff changeset
1842 `set-face-font'.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1843
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1844 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
1845 even if they match PATTERN and FACE.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1846 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
1847 fonts to match. The first MAXIMUM fonts are reported.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
1848 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
1849 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
1850 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
1851 (pattern, face, frame, maximum, width)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1852 Lisp_Object pattern, face, frame, maximum, width;
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 struct frame *f;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1855 int size, avgwidth;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1856
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1857 check_x ();
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
1858 CHECK_STRING (pattern);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1859
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1860 if (! NILP (maximum))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1861 CHECK_NATNUM (maximum);
24995
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 if (!NILP (width))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
1864 CHECK_NUMBER (width);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1865
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1866 /* 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
1867 called before any frame is created. */
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1868 if (NILP (frame))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1869 frame = selected_frame;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1870 f = frame_or_selected_frame (frame, 2);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1871 if (! FRAME_WINDOW_P (f))
24995
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 /* Perhaps we have not yet created any frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1874 f = NULL;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1875 frame = Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1876 face = Qnil;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1879 /* Determine the width standard for comparison with the fonts we find. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1880
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1881 if (NILP (face))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1882 size = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1883 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1884 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1885 /* This is of limited utility since it works with character
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1886 widths. Keep it for compatibility. --gerd. */
90054
f2ebccfa87d4 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74
Miles Bader <miles@gnu.org>
parents: 90044 58439
diff changeset
1887 int face_id = lookup_named_face (f, face, 0);
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
1888 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
1889 ? NULL
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
1890 : 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
1891
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
1892 if (face && face->font)
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1893 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1894 size = face->font->pixel_size;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1895 avgwidth = face->font->average_width;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1896 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1897 else
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1898 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1899 size = FRAME_FONT (f)->pixel_size;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1900 avgwidth = FRAME_FONT (f)->average_width;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1901 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1902 if (!NILP (width))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1903 avgwidth *= XINT (width);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1904 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1905
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1906 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1907 Lisp_Object font_spec;
95373
4ab9c6d31251 (Fx_list_fonts): Make it return a list of font names.
Kenichi Handa <handa@m17n.org>
parents: 95294
diff changeset
1908 Lisp_Object args[2], tail;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1909
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1910 font_spec = font_spec_from_name (pattern);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1911 if (size)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1912 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1913 Ffont_put (font_spec, QCsize, make_number (size));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1914 Ffont_put (font_spec, QCavgwidth, make_number (avgwidth));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1915 }
96263
9775da34ea47 (Fx_list_fonts): Call Flist_fonts with the arg PREFER.
Kenichi Handa <handa@m17n.org>
parents: 96027
diff changeset
1916 args[0] = Flist_fonts (font_spec, frame, maximum, font_spec);
95373
4ab9c6d31251 (Fx_list_fonts): Make it return a list of font names.
Kenichi Handa <handa@m17n.org>
parents: 95294
diff changeset
1917 for (tail = args[0]; CONSP (tail); tail = XCDR (tail))
4ab9c6d31251 (Fx_list_fonts): Make it return a list of font names.
Kenichi Handa <handa@m17n.org>
parents: 95294
diff changeset
1918 XSETCAR (tail, Ffont_xlfd_name (XCAR (tail), Qnil));
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
1919 if (NILP (frame))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1920 /* We don't have to check fontsets. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1921 return args[0];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1922 args[1] = list_fontsets (f, pattern, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1923 return Fnconc (2, args);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1924 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1925 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1926
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1927 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1928
99995
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1929 #if defined(HAVE_WINDOW_SYSTEM) || defined(__MSDOS__)
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1930
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1931 DEFUN ("x-font-family-list", Fx_font_family_list, Sx_font_family_list,
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1932 0, 1, 0,
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1933 doc: /* Return a list of available font families on FRAME.
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1934 If FRAME is omitted or nil, use the selected frame.
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1935 Value is a list of conses (FAMILY . FIXED-P) where FAMILY
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1936 is a font family, and FIXED-P is non-nil if fonts of that family
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1937 are fixed-pitch. */)
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1938 (frame)
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1939 Lisp_Object frame;
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1940 {
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1941 #ifdef __MSDOS__
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1942 return Fcons (Fcons (build_string ("default"), Qt), Qnil);
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1943 #else
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1944 return Ffont_family_list (frame);
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1945 #endif
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1946 }
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1947
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
1948 #endif /* HAVE_WINDOW_SYSTEM || __MSDOS__ */
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1951 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1952 Lisp Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1953 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1954
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1955 /* 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
1956
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1957 #define LFACE_FAMILY(LFACE) AREF ((LFACE), LFACE_FAMILY_INDEX)
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
1958 #define LFACE_FOUNDRY(LFACE) AREF ((LFACE), LFACE_FOUNDRY_INDEX)
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1959 #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
1960 #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
1961 #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
1962 #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
1963 #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
1964 #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
1965 #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
1966 #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
1967 #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
1968 #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
1969 #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
1970 #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
1971 #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
1972 #define LFACE_INHERIT(LFACE) AREF ((LFACE), LFACE_INHERIT_INDEX)
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
1973 #define LFACE_FONTSET(LFACE) AREF ((LFACE), LFACE_FONTSET_INDEX)
24995
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 /* 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
1976 LFACE_VECTOR_SIZE which has the symbol `face' in slot 0. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1977
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1978 #define LFACEP(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1979 (VECTORP (LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1980 && XVECTOR (LFACE)->size == LFACE_VECTOR_SIZE \
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
1981 && EQ (AREF (LFACE, 0), Qface))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1982
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1983
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1984 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1985
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1986 /* Check consistency of Lisp face attribute vector ATTRS. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1987
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1988 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1989 check_lface_attrs (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1990 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1991 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1992 xassert (UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
1993 || IGNORE_DEFFACE_P (attrs[LFACE_FAMILY_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1994 || STRINGP (attrs[LFACE_FAMILY_INDEX]));
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
1995 xassert (UNSPECIFIEDP (attrs[LFACE_FOUNDRY_INDEX])
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
1996 || IGNORE_DEFFACE_P (attrs[LFACE_FOUNDRY_INDEX])
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
1997 || STRINGP (attrs[LFACE_FOUNDRY_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1998 xassert (UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
1999 || IGNORE_DEFFACE_P (attrs[LFACE_SWIDTH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2000 || SYMBOLP (attrs[LFACE_SWIDTH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2001 xassert (UNSPECIFIEDP (attrs[LFACE_HEIGHT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2002 || IGNORE_DEFFACE_P (attrs[LFACE_HEIGHT_INDEX])
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2003 || INTEGERP (attrs[LFACE_HEIGHT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2004 || FLOATP (attrs[LFACE_HEIGHT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2005 || FUNCTIONP (attrs[LFACE_HEIGHT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2006 xassert (UNSPECIFIEDP (attrs[LFACE_WEIGHT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2007 || IGNORE_DEFFACE_P (attrs[LFACE_WEIGHT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2008 || SYMBOLP (attrs[LFACE_WEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2009 xassert (UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2010 || IGNORE_DEFFACE_P (attrs[LFACE_SLANT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2011 || SYMBOLP (attrs[LFACE_SLANT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2012 xassert (UNSPECIFIEDP (attrs[LFACE_UNDERLINE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2013 || IGNORE_DEFFACE_P (attrs[LFACE_UNDERLINE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2014 || SYMBOLP (attrs[LFACE_UNDERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2015 || STRINGP (attrs[LFACE_UNDERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2016 xassert (UNSPECIFIEDP (attrs[LFACE_OVERLINE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2017 || IGNORE_DEFFACE_P (attrs[LFACE_OVERLINE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2018 || SYMBOLP (attrs[LFACE_OVERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2019 || STRINGP (attrs[LFACE_OVERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2020 xassert (UNSPECIFIEDP (attrs[LFACE_STRIKE_THROUGH_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2021 || IGNORE_DEFFACE_P (attrs[LFACE_STRIKE_THROUGH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2022 || SYMBOLP (attrs[LFACE_STRIKE_THROUGH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2023 || STRINGP (attrs[LFACE_STRIKE_THROUGH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2024 xassert (UNSPECIFIEDP (attrs[LFACE_BOX_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2025 || IGNORE_DEFFACE_P (attrs[LFACE_BOX_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2026 || SYMBOLP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2027 || STRINGP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2028 || INTEGERP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2029 || CONSP (attrs[LFACE_BOX_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2030 xassert (UNSPECIFIEDP (attrs[LFACE_INVERSE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2031 || IGNORE_DEFFACE_P (attrs[LFACE_INVERSE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2032 || SYMBOLP (attrs[LFACE_INVERSE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2033 xassert (UNSPECIFIEDP (attrs[LFACE_FOREGROUND_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2034 || IGNORE_DEFFACE_P (attrs[LFACE_FOREGROUND_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2035 || STRINGP (attrs[LFACE_FOREGROUND_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2036 xassert (UNSPECIFIEDP (attrs[LFACE_BACKGROUND_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2037 || IGNORE_DEFFACE_P (attrs[LFACE_BACKGROUND_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2038 || STRINGP (attrs[LFACE_BACKGROUND_INDEX]));
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2039 xassert (UNSPECIFIEDP (attrs[LFACE_INHERIT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2040 || IGNORE_DEFFACE_P (attrs[LFACE_INHERIT_INDEX])
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2041 || NILP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2042 || SYMBOLP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2043 || CONSP (attrs[LFACE_INHERIT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2044 #ifdef HAVE_WINDOW_SYSTEM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2045 xassert (UNSPECIFIEDP (attrs[LFACE_STIPPLE_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2046 || IGNORE_DEFFACE_P (attrs[LFACE_STIPPLE_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2047 || SYMBOLP (attrs[LFACE_STIPPLE_INDEX])
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
2048 || !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
2049 xassert (UNSPECIFIEDP (attrs[LFACE_FONT_INDEX])
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
2050 || IGNORE_DEFFACE_P (attrs[LFACE_FONT_INDEX])
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2051 || FONTP (attrs[LFACE_FONT_INDEX]));
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
2052 xassert (UNSPECIFIEDP (attrs[LFACE_FONTSET_INDEX])
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
2053 || STRINGP (attrs[LFACE_FONTSET_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2054 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2055 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2058 /* Check consistency of attributes of Lisp face LFACE (a Lisp vector). */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2061 check_lface (lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2062 Lisp_Object lface;
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 if (!NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2065 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2066 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2067 check_lface_attrs (XVECTOR (lface)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2068 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2069 }
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 #else /* GLYPH_DEBUG == 0 */
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 #define check_lface_attrs(attrs) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2074 #define check_lface(lface) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2075
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2076 #endif /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2077
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2078
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2079
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2080 /* 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
2081
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2082 enum named_merge_point_kind
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2083 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2084 NAMED_MERGE_POINT_NORMAL,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2085 NAMED_MERGE_POINT_REMAP
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2086 };
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2087
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2088 /* 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
2089 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
2090 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
2091 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
2092 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
2093 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
2094 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
2095 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2096 Lisp_Object face_name;
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2097 enum named_merge_point_kind named_merge_point_kind;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2098 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
2099 };
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2100
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2101
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2102 /* 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
2103 otherwise add NEW_NAMED_MERGE_POINT, which is initialized using
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2104 FACE_NAME and NAMED_MERGE_POINT_KIND, as the head of the linked list
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2105 pointed to by 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
2106
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2107 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
2108 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
2109 Lisp_Object face_name,
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2110 enum named_merge_point_kind named_merge_point_kind,
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2111 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
2112 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2113 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
2114
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2115 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
2116 if (EQ (face_name, prev->face_name))
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2117 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2118 if (prev->named_merge_point_kind == named_merge_point_kind)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2119 /* A cycle, so fail. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2120 return 0;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2121 else if (prev->named_merge_point_kind == NAMED_MERGE_POINT_REMAP)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2122 /* A remap `hides ' any previous normal merge points
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2123 (because the remap means that it's actually different face),
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2124 so as we know the current merge point must be normal, we
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2125 can just assume it's OK. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2126 break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2127 }
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2128
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2129 new_named_merge_point->face_name = face_name;
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2130 new_named_merge_point->named_merge_point_kind = named_merge_point_kind;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2131 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
2132
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2133 *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
2134
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2135 return 1;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2136 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2137
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2138
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2139
83761
7ea6f31ba76e (internal_resolve_face_name): Return a value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83648
diff changeset
2140 #if 0 /* Seems to be unused. */
83287
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2141 static Lisp_Object
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2142 internal_resolve_face_name (nargs, args)
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2143 int nargs;
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2144 Lisp_Object *args;
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2145 {
83761
7ea6f31ba76e (internal_resolve_face_name): Return a value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83648
diff changeset
2146 return Fget (args[0], args[1]);
83287
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2147 }
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2148
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2149 static Lisp_Object
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2150 resolve_face_name_error (ignore)
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2151 Lisp_Object ignore;
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2152 {
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2153 return Qnil;
b4b67a7fcbe0 Resolve crashes related to face aliases.
Karoly Lorentey <lorentey@elte.hu>
parents: 83276
diff changeset
2154 }
83761
7ea6f31ba76e (internal_resolve_face_name): Return a value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 83648
diff changeset
2155 #endif
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2156
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2157 /* 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
2158 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
2159 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
2160
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2161 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
2162
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2163 static Lisp_Object
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2164 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
2165 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
2166 int signal_p;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2167 {
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2168 Lisp_Object orig_face;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2169 Lisp_Object tortoise, hare;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2170
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2171 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
2172 face_name = intern (SDATA (face_name));
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2173
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2174 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
2175 return face_name;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2176
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2177 orig_face = face_name;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2178 tortoise = hare = face_name;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2179
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2180 while (1)
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2181 {
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2182 face_name = hare;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2183 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
2184 if (NILP (hare) || !SYMBOLP (hare))
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2185 break;
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2186
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2187 face_name = hare;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2188 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
2189 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
2190 break;
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2191
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2192 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
2193 if (EQ (hare, tortoise))
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2194 {
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2195 if (signal_p)
71992
760807463226 * xfaces.c (signal_error): Move to eval.c.
Kim F. Storm <storm@cua.dk>
parents: 71845
diff changeset
2196 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
2197 return Qdefault;
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2198 }
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2199 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2200
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2201 return face_name;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2202 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2203
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2204
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2205 /* 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
2206 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
2207 a symbol (apparently Emacs 20.2 allowed strings as face names in
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2208 face text properties; Ediff uses that). If SIGNAL_P is non-zero,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2209 signal an error if FACE_NAME is not a valid face name. If SIGNAL_P
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2210 is zero, value is nil if FACE_NAME is not a valid face name. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2211 static INLINE Lisp_Object
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2212 lface_from_face_name_no_resolve (f, face_name, signal_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2213 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2214 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2215 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2216 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2217 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2218
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2219 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2220 lface = assq_no_quit (face_name, f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2221 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2222 lface = assq_no_quit (face_name, Vface_new_frame_defaults);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2223
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2224 if (CONSP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2225 lface = XCDR (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2226 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2227 signal_error ("Invalid face", face_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2228
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2229 check_lface (lface);
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2230
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2231 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2232 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2233
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2234 /* Return the face definition of FACE_NAME on frame F. F null means
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2235 return the definition for new frames. FACE_NAME may be a string or
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2236 a symbol (apparently Emacs 20.2 allowed strings as face names in
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2237 face text properties; Ediff uses that). If FACE_NAME is an alias
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2238 for another face, return that face's definition. If SIGNAL_P is
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2239 non-zero, signal an error if FACE_NAME is not a valid face name.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2240 If SIGNAL_P is zero, value is nil if FACE_NAME is not a valid face
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2241 name. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2242 static INLINE Lisp_Object
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2243 lface_from_face_name (f, face_name, signal_p)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2244 struct frame *f;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2245 Lisp_Object face_name;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2246 int signal_p;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2247 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2248 face_name = resolve_face_name (face_name, signal_p);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2249 return lface_from_face_name_no_resolve (f, face_name, signal_p);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2250 }
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2251
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2252
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2253 /* Get face attributes of face FACE_NAME from frame-local faces on
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2254 frame F. Store the resulting attributes in ATTRS which must point
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2255 to a vector of Lisp_Objects of size LFACE_VECTOR_SIZE. If SIGNAL_P
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2256 is non-zero, signal an error if FACE_NAME does not name a face.
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2257 Otherwise, value is zero if FACE_NAME is not a face. */
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2258
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2259 static INLINE int
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2260 get_lface_attributes_no_remap (f, face_name, attrs, signal_p)
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2261 struct frame *f;
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2262 Lisp_Object face_name;
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2263 Lisp_Object *attrs;
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2264 int signal_p;
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2265 {
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2266 Lisp_Object lface;
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2267
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2268 lface = lface_from_face_name_no_resolve (f, face_name, signal_p);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2269
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2270 if (! NILP (lface))
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2271 bcopy (XVECTOR (lface)->contents, attrs,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2272 LFACE_VECTOR_SIZE * sizeof *attrs);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2273
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2274 return !NILP (lface);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2275 }
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2276
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2277 /* Get face attributes of face FACE_NAME from frame-local faces on frame
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2278 F. Store the resulting attributes in ATTRS which must point to a
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2279 vector of Lisp_Objects of size LFACE_VECTOR_SIZE. If FACE_NAME is an
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2280 alias for another face, use that face's definition. If SIGNAL_P is
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2281 non-zero, signal an error if FACE_NAME does not name a face.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2282 Otherwise, value is zero if FACE_NAME is not a face. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2283
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2284 static INLINE int
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2285 get_lface_attributes (f, face_name, attrs, signal_p, named_merge_points)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2286 struct frame *f;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2287 Lisp_Object face_name;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2288 Lisp_Object *attrs;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2289 int signal_p;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2290 struct named_merge_point *named_merge_points;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2291 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2292 Lisp_Object face_remapping;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2293
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2294 face_name = resolve_face_name (face_name, signal_p);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2295
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2296 /* See if SYMBOL has been remapped to some other face (usually this
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2297 is done buffer-locally). */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2298 face_remapping = assq_no_quit (face_name, Vface_remapping_alist);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2299 if (CONSP (face_remapping))
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2300 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2301 struct named_merge_point named_merge_point;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2302
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2303 if (push_named_merge_point (&named_merge_point,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2304 face_name, NAMED_MERGE_POINT_REMAP,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2305 &named_merge_points))
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2306 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2307 int i;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2308
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2309 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2310 attrs[i] = Qunspecified;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2311
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2312 return merge_face_ref (f, XCDR (face_remapping), attrs,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2313 signal_p, named_merge_points);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2314 }
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2315 }
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2316
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2317 /* Default case, no remapping. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2318 return get_lface_attributes_no_remap (f, face_name, attrs, signal_p);
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2319 }
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2320
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2321
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2322 /* Non-zero if all attributes in face attribute vector ATTRS are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2323 specified, i.e. are non-nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2324
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2325 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2326 lface_fully_specified_p (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2327 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2328 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2329 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2330
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2331 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2332 if (i != LFACE_FONT_INDEX && i != LFACE_INHERIT_INDEX)
97043
9592c50233ab Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96675
diff changeset
2333 if ((UNSPECIFIEDP (attrs[i]) || IGNORE_DEFFACE_P (attrs[i])))
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
2334 break;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2335
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2336 return i == LFACE_VECTOR_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2337 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2338
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2339 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2340
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2341 /* Set font-related attributes of Lisp face LFACE from FONT-OBJECT.
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2342 If FORCE_P is zero, set only unspecified attributes of LFACE. The
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2343 exception is `font' attribute. It is set to FONT_OBJECT regardless
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2344 of FORCE_P. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2345
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2346 static int
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2347 set_lface_from_font (f, lface, font_object, force_p)
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2348 struct frame *f;
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2349 Lisp_Object lface, font_object;
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2350 int force_p;
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2351 {
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2352 Lisp_Object val;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2353 struct font *font = XFONT_OBJECT (font_object);
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2354
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2355 /* Set attributes only if unspecified, otherwise face defaults for
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2356 new frames would never take effect. If the font doesn't have a
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2357 specific property, set a normal value for that. */
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2358
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2359 if (force_p || UNSPECIFIEDP (LFACE_FAMILY (lface)))
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2360 {
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2361 Lisp_Object family = AREF (font_object, FONT_FAMILY_INDEX);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2362
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2363 LFACE_FAMILY (lface) = SYMBOL_NAME (family);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2364 }
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2365
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2366 if (force_p || UNSPECIFIEDP (LFACE_FOUNDRY (lface)))
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2367 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2368 Lisp_Object foundry = AREF (font_object, FONT_FOUNDRY_INDEX);
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2369
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2370 LFACE_FOUNDRY (lface) = SYMBOL_NAME (foundry);
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2371 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2372
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2373 if (force_p || UNSPECIFIEDP (LFACE_HEIGHT (lface)))
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2374 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2375 int pt = PIXEL_TO_POINT (font->pixel_size * 10, f->resy);
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2376
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2377 xassert (pt > 0);
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2378 LFACE_HEIGHT (lface) = make_number (pt);
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2379 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2380
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2381 if (force_p || UNSPECIFIEDP (LFACE_WEIGHT (lface)))
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2382 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2383 val = FONT_WEIGHT_FOR_FACE (font_object);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2384 LFACE_WEIGHT (lface) = ! NILP (val) ? val :Qnormal;
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2385 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2386 if (force_p || UNSPECIFIEDP (LFACE_SLANT (lface)))
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2387 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2388 val = FONT_SLANT_FOR_FACE (font_object);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2389 LFACE_SLANT (lface) = ! NILP (val) ? val : Qnormal;
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2390 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2391 if (force_p || UNSPECIFIEDP (LFACE_SWIDTH (lface)))
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2392 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2393 val = FONT_WIDTH_FOR_FACE (font_object);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2394 LFACE_SWIDTH (lface) = ! NILP (val) ? val : Qnormal;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2395 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2396
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2397 LFACE_FONT (lface) = font_object;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2398 return 1;
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2399 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
2400
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2401 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2402
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2403
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2404 /* Merges the face height FROM with the face height TO, and returns the
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2405 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
2406 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
2407 `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
2408 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
2409 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
2410 call into lisp. */
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2411
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2412 Lisp_Object
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
2413 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
2414 Lisp_Object from, to, invalid;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2415 {
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2416 Lisp_Object result = invalid;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2417
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2418 if (INTEGERP (from))
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2419 /* 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
2420 result = from;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2421 else if (FLOATP (from))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2422 /* 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
2423 {
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2424 if (INTEGERP (to))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2425 /* relative X absolute => absolute */
41518
ee7c1fe5feaf (merge_face_heights): Coerce back to int explicitly.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41129
diff changeset
2426 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
2427 else if (FLOATP (to))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2428 /* relative X relative => relative */
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2429 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
2430 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
2431 result = from;
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2432 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2433 else if (FUNCTIONP (from))
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2434 /* FROM is a function, which use to adjust TO. */
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2435 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2436 /* Call function with current height as argument.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2437 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
2438 Lisp_Object args[2];
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2439
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2440 args[0] = from;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2441 args[1] = to;
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2442 result = safe_call (2, args);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2443
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2444 /* 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
2445 if (INTEGERP (to) && !INTEGERP (result))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2446 result = invalid;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2447 }
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2448
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
2449 return result;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2450 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2451
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2452
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2453 /* 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
2454 store the resulting attributes in TO, which must be already be
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2455 completely specified and contain only absolute attributes. Every
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2456 specified attribute of FROM overrides the corresponding attribute of
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2457 TO; relative attributes in FROM are merged with the absolute value in
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2458 TO and replace it. NAMED_MERGE_POINTS is used internally to detect
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2459 loops in face inheritance/remapping; it should be 0 when called from
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2460 other places. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2461
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2462 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
2463 merge_face_vectors (f, from, to, named_merge_points)
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2464 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2465 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
2466 struct named_merge_point *named_merge_points;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2467 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2468 int i;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2469
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2470 /* If FROM inherits from some other faces, merge their attributes into
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2471 TO before merging FROM's direct attributes. Note that an :inherit
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2472 attribute of `unspecified' is the same as one of nil; we never
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2473 merge :inherit attributes, so nil is more correct, but lots of
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2474 other code uses `unspecified' as a generic value for face attributes. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2475 if (!UNSPECIFIEDP (from[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2476 && !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
2477 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
2478
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2479 i = LFACE_FONT_INDEX;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2480 if (!UNSPECIFIEDP (from[i]))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2481 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2482 if (!UNSPECIFIEDP (to[i]))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2483 to[i] = Fmerge_font_spec (from[i], to[i]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2484 else
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2485 to[i] = Fcopy_font_spec (from[i]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2486 ASET (to[i], FONT_SIZE_INDEX, Qnil);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2487 }
31221
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
2488
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2489 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2490 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
2491 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
2492 if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i]))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2493 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2494 to[i] = merge_face_heights (from[i], to[i], to[i]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2495 font_clear_prop (to, FONT_SIZE_INDEX);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2496 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2497 else if (i != LFACE_FONT_INDEX)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2498 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2499 to[i] = from[i];
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2500 if (i >= LFACE_FAMILY_INDEX && i <=LFACE_SLANT_INDEX)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2501 font_clear_prop (to,
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2502 (i == LFACE_FAMILY_INDEX ? FONT_FAMILY_INDEX
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2503 : i == LFACE_FOUNDRY_INDEX ? FONT_FOUNDRY_INDEX
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2504 : i == LFACE_SWIDTH_INDEX ? FONT_WIDTH_INDEX
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2505 : i == LFACE_HEIGHT_INDEX ? FONT_SIZE_INDEX
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2506 : i == LFACE_WEIGHT_INDEX ? FONT_WEIGHT_INDEX
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2507 : FONT_SLANT_INDEX));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2508 }
40838
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
2509 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2510
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2511 /* If `font' attribute is specified, reflect the font properties in
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2512 it to the other attributes. */
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2513 if (0 && !UNSPECIFIEDP (to[LFACE_FONT_INDEX]))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2514 font_update_lface (f, to);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2515
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2516 /* TO is always an absolute face, which should inherit from nothing.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2517 We blindly copy the :inherit attribute above and fix it up here. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2518 to[LFACE_INHERIT_INDEX] = Qnil;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2519 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2520
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2521 /* 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
2522 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
2523 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
2524 merging succeeded. */
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2525
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2526 static int
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2527 merge_named_face (f, face_name, to, named_merge_points)
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2528 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
2529 Lisp_Object face_name;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2530 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
2531 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
2532 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2533 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
2534
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2535 if (push_named_merge_point (&named_merge_point,
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2536 face_name, NAMED_MERGE_POINT_NORMAL,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2537 &named_merge_points))
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2538 {
57997
7a44d300ed6f (merge_named_face): GCPRO the face_name in the
Richard M. Stallman <rms@gnu.org>
parents: 57107
diff changeset
2539 struct gcpro gcpro1;
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2540 Lisp_Object from[LFACE_VECTOR_SIZE];
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
2541 int ok = get_lface_attributes (f, face_name, from, 0, named_merge_points);
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2542
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2543 if (ok)
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2544 {
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2545 GCPRO1 (named_merge_point.face_name);
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2546 merge_face_vectors (f, from, to, named_merge_points);
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2547 UNGCPRO;
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2548 }
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2549
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
2550 return ok;
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2551 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2552 else
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2553 return 0;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2554 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2555
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2556
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2557 /* 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
2558 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
2559 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
2560 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
2561 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
2562 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
2563
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2564 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
2565 specifications. Each face specification can be:
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2566
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2567 1. A symbol or string naming a Lisp face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2568
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2569 2. A property list of the form (KEYWORD VALUE ...) where each
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2570 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
2571 for that attribute.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2572
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2573 3. Conses or the form (FOREGROUND-COLOR . COLOR) or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2574 (BACKGROUND-COLOR . COLOR) where COLOR is a color name. This is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2575 for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2576
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2577 Face specifications earlier in lists take precedence over later
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2578 specifications. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2579
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2580 static int
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2581 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
2582 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
2583 Lisp_Object face_ref;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2584 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
2585 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
2586 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
2587 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2588 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
2589
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2590 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
2591 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2592 Lisp_Object first = XCAR (face_ref);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2593
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2594 if (EQ (first, Qforeground_color)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2595 || EQ (first, Qbackground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2596 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2597 /* One of (FOREGROUND-COLOR . COLOR) or (BACKGROUND-COLOR
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2598 . 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
2599 Lisp_Object color_name = XCDR (face_ref);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2600 Lisp_Object color = first;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2601
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2602 if (STRINGP (color_name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2603 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2604 if (EQ (color, Qforeground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2605 to[LFACE_FOREGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2606 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2607 to[LFACE_BACKGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2608 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2609 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2610 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2611 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
2612 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
2613 ok = 0;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2614 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2615 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2616 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
2617 && *SDATA (SYMBOL_NAME (first)) == ':')
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2618 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2619 /* 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
2620 while (CONSP (face_ref) && CONSP (XCDR (face_ref)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2621 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2622 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
2623 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
2624 int err = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2625
56694
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
2626 /* 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
2627 if (EQ (value, Qunspecified))
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
2628 ;
d5801cbd92f5 (merge_face_ref): Specifying `unspecified' is a no-op.
Richard M. Stallman <rms@gnu.org>
parents: 56518
diff changeset
2629 else if (EQ (keyword, QCfamily))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2630 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2631 if (STRINGP (value))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2632 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2633 to[LFACE_FAMILY_INDEX] = value;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2634 font_clear_prop (to, FONT_FAMILY_INDEX);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2635 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2636 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2637 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2638 }
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2639 else if (EQ (keyword, QCfoundry))
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2640 {
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2641 if (STRINGP (value))
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2642 {
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2643 to[LFACE_FOUNDRY_INDEX] = value;
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2644 font_clear_prop (to, FONT_FOUNDRY_INDEX);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2645 }
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2646 else
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2647 err = 1;
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
2648 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2649 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2650 {
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2651 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
2652 merge_face_heights (value, to[LFACE_HEIGHT_INDEX], Qnil);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2653
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2654 if (! NILP (new_height))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2655 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2656 to[LFACE_HEIGHT_INDEX] = new_height;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2657 font_clear_prop (to, FONT_SIZE_INDEX);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2658 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2659 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2660 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2661 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2662 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2663 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2664 if (SYMBOLP (value) && FONT_WEIGHT_NAME_NUMERIC (value) >= 0)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2665 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2666 to[LFACE_WEIGHT_INDEX] = value;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2667 font_clear_prop (to, FONT_WEIGHT_INDEX);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2668 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2669 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2670 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2671 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2672 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2673 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2674 if (SYMBOLP (value) && FONT_SLANT_NAME_NUMERIC (value) >= 0)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2675 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2676 to[LFACE_SLANT_INDEX] = value;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2677 font_clear_prop (to, FONT_SLANT_INDEX);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2678 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2679 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2680 err = 1;
24995
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 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2683 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2684 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2685 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2686 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2687 to[LFACE_UNDERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2688 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2689 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2690 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2691 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2692 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2693 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2694 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2695 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2696 to[LFACE_OVERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2697 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2698 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2699 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2700 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2701 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2702 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2703 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2704 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2705 to[LFACE_STRIKE_THROUGH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2706 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2707 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2708 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2709 else if (EQ (keyword, QCbox))
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 (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2712 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2713 if (INTEGERP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2714 || STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2715 || CONSP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2716 || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2717 to[LFACE_BOX_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2718 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2719 err = 1;
24995
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 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2722 || EQ (keyword, QCreverse_video))
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 if (EQ (value, Qt) || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2725 to[LFACE_INVERSE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2726 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2727 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2728 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2729 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2730 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2731 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2732 to[LFACE_FOREGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2733 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2734 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2735 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2736 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2737 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2738 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2739 to[LFACE_BACKGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2740 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2741 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2742 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2743 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2744 {
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
2745 #if defined(HAVE_X_WINDOWS) || defined(HAVE_NS)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
2746 Lisp_Object pixmap_p = Fbitmap_spec_p (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2747 if (!NILP (pixmap_p))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2748 to[LFACE_STIPPLE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2749 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2750 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2751 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2752 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2753 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2754 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2755 if (SYMBOLP (value) && FONT_WIDTH_NAME_NUMERIC (value) >= 0)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2756 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2757 to[LFACE_SWIDTH_INDEX] = value;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2758 font_clear_prop (to, FONT_WIDTH_INDEX);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2759 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2760 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2761 err = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2762 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2763 else if (EQ (keyword, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2764 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2765 /* 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
2766 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
2767 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
2768 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
2769 err = 1;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2770 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2771 else
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2772 err = 1;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2773
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2774 if (err)
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2775 {
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2776 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
2777 ok = 0;
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2778 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2779
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2780 face_ref = XCDR (XCDR (face_ref));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2781 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2782 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2783 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2784 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2785 /* 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
2786 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
2787 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
2788 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
2789
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2790 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
2791 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
2792
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2793 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
2794 ok = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2795 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2796 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2797 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2798 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2799 /* 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
2800 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
2801 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
2802 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
2803 }
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2804
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
2805 return ok;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2806 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2807
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2808
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2809 DEFUN ("internal-make-lisp-face", Finternal_make_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2810 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
2811 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
2812 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
2813 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
2814 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
2815 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
2816 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2817 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2818 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2819 Lisp_Object global_lface, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2820 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2821 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2822
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2823 CHECK_SYMBOL (face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2824 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
2825
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2826 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2827 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2828 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2829 f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2830 lface = lface_from_face_name (f, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2831 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2832 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2833 f = NULL, lface = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2834
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2835 /* Add a global definition if there is none. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2836 if (NILP (global_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2837 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2838 global_lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2839 Qunspecified);
91671
7d8392863f85 * xfaces.c (Finternal_make_lisp_face): Use ASET.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91531
diff changeset
2840 ASET (global_lface, 0, Qface);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2841 Vface_new_frame_defaults = Fcons (Fcons (face, global_lface),
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2842 Vface_new_frame_defaults);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2843
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2844 /* 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
2845 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
2846 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
2847 property `face' of the Lisp face name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2848 if (next_lface_id == lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2849 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2850 int new_size = max (50, 2 * lface_id_to_name_size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2851 int sz = new_size * sizeof *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2852 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
2853 lface_id_to_name_size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2854 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2855
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2856 lface_id_to_name[next_lface_id] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2857 Fput (face, Qface, make_number (next_lface_id));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2858 ++next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2859 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2860 else if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2861 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
91671
7d8392863f85 * xfaces.c (Finternal_make_lisp_face): Use ASET.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91531
diff changeset
2862 ASET (global_lface, i, Qunspecified);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2863
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2864 /* Add a frame-local definition. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2865 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2866 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2867 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2868 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2869 lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2870 Qunspecified);
91671
7d8392863f85 * xfaces.c (Finternal_make_lisp_face): Use ASET.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91531
diff changeset
2871 ASET (lface, 0, Qface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2872 f->face_alist = Fcons (Fcons (face, lface), f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2873 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2874 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2875 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
91671
7d8392863f85 * xfaces.c (Finternal_make_lisp_face): Use ASET.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91531
diff changeset
2876 ASET (lface, i, Qunspecified);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2877 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2878 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2879 lface = global_lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2880
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
2881 /* 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
2882 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
2883 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
2884 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
2885 init_iterator will then free realized faces. */
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2886 if (NILP (Fget (face, Qface_no_inherit)))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2887 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2888 ++face_change_count;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2889 ++windows_or_buffers_changed;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2890 }
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
2891
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2892 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2893 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2894 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2895 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2896
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2897
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2898 DEFUN ("internal-lisp-face-p", Finternal_lisp_face_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2899 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
2900 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
2901 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
2902 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
2903 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
2904 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2905 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2906 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2907 Lisp_Object lface;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2908
81146
8f50479e40d1 (Finternal_lisp_face_p): Signal error for face alias loops.
Juanma Barranquero <lekktu@gmail.com>
parents: 77903
diff changeset
2909 face = resolve_face_name (face, 1);
8f50479e40d1 (Finternal_lisp_face_p): Signal error for face alias loops.
Juanma Barranquero <lekktu@gmail.com>
parents: 77903
diff changeset
2910
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2911 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2912 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2913 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2914 lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2915 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2916 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2917 lface = lface_from_face_name (NULL, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2918
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2919 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2920 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2921
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 DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2924 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
2925 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
2926 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
2927 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
2928 If NEW-FRAME is a frame, copy that data into the frame-local
95375
e743691cff9c (Fx_list_fonts, Finternal_copy_lisp_face): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 95373
diff changeset
2929 definition of TO on NEW-FRAME. If NEW-FRAME is nil,
56176
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
2930 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
2931
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
2932 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
2933 (from, to, frame, new_frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2934 Lisp_Object from, to, frame, new_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2935 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2936 Lisp_Object lface, copy;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2937
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2938 CHECK_SYMBOL (from);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2939 CHECK_SYMBOL (to);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2940
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2941 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2942 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2943 /* Copy global definition of FROM. We don't make copies of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2944 strings etc. because 20.2 didn't do it either. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2945 lface = lface_from_face_name (NULL, from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2946 copy = Finternal_make_lisp_face (to, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2947 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2948 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2949 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2950 /* 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
2951 if (NILP (new_frame))
21c659556daa (Finternal_copy_lisp_face): Small cleanup; doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 56063
diff changeset
2952 new_frame = frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2953 CHECK_LIVE_FRAME (frame);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2954 CHECK_LIVE_FRAME (new_frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2955 lface = lface_from_face_name (XFRAME (frame), from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2956 copy = Finternal_make_lisp_face (to, new_frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2957 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2958
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2959 bcopy (XVECTOR (lface)->contents, XVECTOR (copy)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2960 LFACE_VECTOR_SIZE * sizeof (Lisp_Object));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2961
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
2962 /* 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
2963 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
2964 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
2965 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
2966 init_iterator will then free realized faces. */
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2967 if (NILP (Fget (to, Qface_no_inherit)))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2968 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2969 ++face_change_count;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2970 ++windows_or_buffers_changed;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
2971 }
43270
935816913346 (Finternal_make_lisp_face, Finternal_copy_lisp_face)
Richard M. Stallman <rms@gnu.org>
parents: 43203
diff changeset
2972
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2973 return to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2974 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2975
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2976
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2977 DEFUN ("internal-set-lisp-face-attribute", Finternal_set_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2978 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
2979 doc: /* Set attribute ATTR of FACE to VALUE.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2980 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
2981 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
2982 FRAME t means change the default for new frames.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
2983 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
2984 for new frames. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
2985 (face, attr, value, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2986 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
2987 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2988 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2989 Lisp_Object old_value = Qnil;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2990 /* Set one of enum font_property_index (> 0) if ATTR is one of
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2991 font-related attributes other than QCfont and QCfontset. */
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
2992 enum font_property_index prop_index = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
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_SYMBOL (face);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
2995 CHECK_SYMBOL (attr);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2996
61914
f658c441541a (resolve_face_name): Add arg SIGNAL_P. Calls changed.
Kim F. Storm <storm@cua.dk>
parents: 61726
diff changeset
2997 face = resolve_face_name (face, 1);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2998
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
2999 /* 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
3000 default for new frames. */
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3001 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
3002 {
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3003 Lisp_Object tail;
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
3004 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
3005 FOR_EACH_FRAME (tail, frame)
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3006 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
3007 return face;
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3008 }
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3009
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3010 /* Set lface to the Lisp attribute vector of FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3011 if (EQ (frame, Qt))
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
3012 {
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
3013 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
3014
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
3015 /* 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
3016 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
3017 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
3018 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
3019 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
3020 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
3021 if (UNSPECIFIEDP (value))
67056
3ce17ff4a61f (merge_face_vectors): Don't do :ignore-defface overwriting here.
Chong Yidong <cyd@stupidchicken.com>
parents: 67046
diff changeset
3022 value = Qignore_defface;
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
3023 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3024 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3025 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3026 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3027 frame = selected_frame;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3028
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3029 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3030 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
3031
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3032 /* If a frame-local face doesn't exist yet, create one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3033 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3034 lface = Finternal_make_lisp_face (face, frame);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3037 if (EQ (attr, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3038 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3039 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3040 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3041 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
3042 if (SCHARS (value) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3043 signal_error ("Invalid face family", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3044 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3045 old_value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3046 LFACE_FAMILY (lface) = value;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3047 prop_index = FONT_FAMILY_INDEX;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3048 }
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3049 else if (EQ (attr, QCfoundry))
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3050 {
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3051 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3052 {
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3053 CHECK_STRING (value);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3054 if (SCHARS (value) == 0)
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3055 signal_error ("Invalid face foundry", value);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3056 }
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3057 old_value = LFACE_FOUNDRY (lface);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3058 LFACE_FOUNDRY (lface) = value;
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3059 prop_index = FONT_FOUNDRY_INDEX;
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3060 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3061 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3062 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3063 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3064 {
40023
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
3065 Lisp_Object test;
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
3066
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
3067 test = (EQ (face, Qdefault)
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
3068 ? value
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
3069 /* 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
3070 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
3071 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
3072 : 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
3073
3914e6d2452f (Finternal_set_lisp_face_attribute): Follow coding conventions.
Gerd Moellmann <gerd@gnu.org>
parents: 39988
diff changeset
3074 if (!INTEGERP (test) || XINT (test) <= 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3075 signal_error ("Invalid face height", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3076 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3077
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3078 old_value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3079 LFACE_HEIGHT (lface) = value;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3080 prop_index = FONT_SIZE_INDEX;
24995
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 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3083 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3084 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3085 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3086 CHECK_SYMBOL (value);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3087 if (FONT_WEIGHT_NAME_NUMERIC (value) < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3088 signal_error ("Invalid face weight", value);
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 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3091 LFACE_WEIGHT (lface) = value;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3092 prop_index = FONT_WEIGHT_INDEX;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3093 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3094 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3095 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3096 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3097 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3098 CHECK_SYMBOL (value);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3099 if (FONT_SLANT_NAME_NUMERIC (value) < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3100 signal_error ("Invalid face slant", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3101 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3102 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3103 LFACE_SLANT (lface) = value;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3104 prop_index = FONT_SLANT_INDEX;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3105 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3106 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3107 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3108 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3109 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3110 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3111 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3112 /* Underline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3113 || (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
3114 && SCHARS (value) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3115 signal_error ("Invalid face underline", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3116
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3117 old_value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3118 LFACE_UNDERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3119 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3120 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3121 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3122 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3123 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3124 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3125 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3126 /* Overline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3127 || (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
3128 && SCHARS (value) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3129 signal_error ("Invalid face overline", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3130
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3131 old_value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3132 LFACE_OVERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3133 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3134 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3135 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3136 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3137 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3138 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3139 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3140 /* Strike-through color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3141 || (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
3142 && SCHARS (value) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3143 signal_error ("Invalid face strike-through", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3144
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3145 old_value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3146 LFACE_STRIKE_THROUGH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3147 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3148 else if (EQ (attr, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3149 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3150 int valid_p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3151
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3152 /* 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
3153 of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3154 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3155 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3156
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3157 if (UNSPECIFIEDP (value) || IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3158 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3159 else if (NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3160 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3161 else if (INTEGERP (value))
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
3162 valid_p = XINT (value) != 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3163 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
3164 valid_p = SCHARS (value) > 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3165 else if (CONSP (value))
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 Lisp_Object tem;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3168
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3169 tem = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3170 while (CONSP (tem))
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 Lisp_Object k, v;
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 k = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3175 tem = XCDR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3176 if (!CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3177 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3178 v = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3179 tem = XCDR (tem);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3180
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3181 if (EQ (k, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3182 {
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
3183 if (!INTEGERP (v) || XINT (v) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3184 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3185 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3186 else if (EQ (k, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3187 {
60150
ffb5cb773521 (Finternal_set_lisp_face_attribute): Allow :color property
Kim F. Storm <storm@cua.dk>
parents: 59924
diff changeset
3188 if (!NILP (v) && (!STRINGP (v) || SCHARS (v) == 0))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3189 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3190 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3191 else if (EQ (k, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3192 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3193 if (!EQ (v, Qpressed_button) && !EQ (v, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3194 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3195 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3196 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3197 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3198 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3199
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3200 valid_p = NILP (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3201 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3202 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3203 valid_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3204
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3205 if (!valid_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3206 signal_error ("Invalid face box", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3207
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3208 old_value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3209 LFACE_BOX (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3210 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3211 else if (EQ (attr, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3212 || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3213 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3214 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3215 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3216 CHECK_SYMBOL (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3217 if (!EQ (value, Qt) && !NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3218 signal_error ("Invalid inverse-video face attribute value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3219 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3220 old_value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3221 LFACE_INVERSE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3222 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3223 else if (EQ (attr, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3224 {
98780
96300bdd6164 (Finternal_set_lisp_face_attribute): Make null values of :foreground
Chong Yidong <cyd@stupidchicken.com>
parents: 98715
diff changeset
3225 /* Compatibility with 20.x. */
96300bdd6164 (Finternal_set_lisp_face_attribute): Make null values of :foreground
Chong Yidong <cyd@stupidchicken.com>
parents: 98715
diff changeset
3226 if (NILP (value))
96300bdd6164 (Finternal_set_lisp_face_attribute): Make null values of :foreground
Chong Yidong <cyd@stupidchicken.com>
parents: 98715
diff changeset
3227 value = Qunspecified;
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3228 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3229 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3230 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3231 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3232 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
3233 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
3234 if (SCHARS (value) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3235 signal_error ("Empty foreground color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3236 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3237 old_value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3238 LFACE_FOREGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3239 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3240 else if (EQ (attr, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3241 {
98780
96300bdd6164 (Finternal_set_lisp_face_attribute): Make null values of :foreground
Chong Yidong <cyd@stupidchicken.com>
parents: 98715
diff changeset
3242 /* Compatibility with 20.x. */
96300bdd6164 (Finternal_set_lisp_face_attribute): Make null values of :foreground
Chong Yidong <cyd@stupidchicken.com>
parents: 98715
diff changeset
3243 if (NILP (value))
96300bdd6164 (Finternal_set_lisp_face_attribute): Make null values of :foreground
Chong Yidong <cyd@stupidchicken.com>
parents: 98715
diff changeset
3244 value = Qunspecified;
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3245 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3246 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3247 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3248 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3249 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
3250 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
3251 if (SCHARS (value) == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3252 signal_error ("Empty background color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3253 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3254 old_value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3255 LFACE_BACKGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3256 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3257 else if (EQ (attr, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3258 {
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
3259 #if defined(HAVE_X_WINDOWS) || defined(HAVE_NS)
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3260 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3261 && !NILP (value)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
3262 && NILP (Fbitmap_spec_p (value)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3263 signal_error ("Invalid stipple attribute", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3264 old_value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3265 LFACE_STIPPLE (lface) = value;
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96551
diff changeset
3266 #endif /* HAVE_X_WINDOWS || HAVE_NS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3267 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3268 else if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3269 {
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3270 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3271 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3272 CHECK_SYMBOL (value);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3273 if (FONT_WIDTH_NAME_NUMERIC (value) < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3274 signal_error ("Invalid face width", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3275 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3276 old_value = LFACE_SWIDTH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3277 LFACE_SWIDTH (lface) = value;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3278 prop_index = FONT_WIDTH_INDEX;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3279 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3280 else if (EQ (attr, QCfont))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3281 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3282 #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
3283 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
3284 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3285 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value))
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3286 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3287 FRAME_PTR f;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3288
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3289 old_value = LFACE_FONT (lface);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3290 if (! FONTP (value))
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3291 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3292 if (STRINGP (value))
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3293 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3294 int fontset = fs_query_fontset (value, 0);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3295
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3296 if (fontset >= 0)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3297 value = fontset_ascii (fontset);
94983
fa401b47e382 (Finternal_set_lisp_face_attribute): Be sure to make a
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
3298 value = font_spec_from_name (value);
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3299 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3300 else
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3301 signal_error ("Invalid font or font-spec", value);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3302 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3303 if (EQ (frame, Qt))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3304 f = XFRAME (selected_frame);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3305 else
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3306 f = XFRAME (frame);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3307 if (! FONT_OBJECT_P (value))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3308 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3309 Lisp_Object *attrs = XVECTOR (lface)->contents;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3310 Lisp_Object font_object;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3311
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3312 font_object = font_load_for_lface (f, attrs, value);
91346
04866c5fd4b5 (Finternal_set_lisp_face_attribute) [USE_FONT_BACKEND]:
Kenichi Handa <handa@m17n.org>
parents: 91333
diff changeset
3313 if (NILP (font_object))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3314 signal_error ("Font not available", value);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3315 value = font_object;
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3316 }
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3317 set_lface_from_font (f, lface, value, 1);
90463
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3318 }
1d40cee6b4dc (check_lface_attrs) [USE_FONT_BACKEND]: Accept font
Kenichi Handa <handa@m17n.org>
parents: 90444
diff changeset
3319 else
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3320 LFACE_FONT (lface) = value;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3321 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3322 #endif /* HAVE_WINDOW_SYSTEM */
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3323 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3324 else if (EQ (attr, QCfontset))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3325 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3326 #ifdef HAVE_WINDOW_SYSTEM
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3327 if (EQ (frame, Qt) || FRAME_WINDOW_P (XFRAME (frame)))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3328 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3329 Lisp_Object tmp;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3330
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3331 old_value = LFACE_FONTSET (lface);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3332 tmp = Fquery_fontset (value, Qnil);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3333 if (NILP (tmp))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3334 signal_error ("Invalid fontset name", value);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3335 LFACE_FONTSET (lface) = value = tmp;
40224
12dcadf8cb59 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 40023
diff changeset
3336 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3337 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3338 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3339 else if (EQ (attr, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3340 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3341 Lisp_Object tail;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3342 if (SYMBOLP (value))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3343 tail = Qnil;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3344 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3345 for (tail = value; CONSP (tail); tail = XCDR (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3346 if (!SYMBOLP (XCAR (tail)))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3347 break;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3348 if (NILP (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3349 LFACE_INHERIT (lface) = value;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3350 else
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3351 signal_error ("Invalid face inheritance", value);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3352 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3353 else if (EQ (attr, QCbold))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3354 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3355 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3356 LFACE_WEIGHT (lface) = NILP (value) ? Qnormal : Qbold;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3357 prop_index = FONT_WEIGHT_INDEX;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3358 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3359 else if (EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3360 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3361 attr = QCslant;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3362 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3363 LFACE_SLANT (lface) = NILP (value) ? Qnormal : Qitalic;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3364 prop_index = FONT_SLANT_INDEX;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3365 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3366 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3367 signal_error ("Invalid face attribute name", attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3368
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3369 if (prop_index)
98698
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3370 {
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3371 /* If a font-related attribute other than QCfont and QCfontset
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3372 is specified, and if the original QCfont attribute has a font
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3373 (font-spec or font-object), set the corresponding property in
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3374 the font to nil so that the font selector doesn't think that
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3375 the attribute is mandatory. Also, clear the average
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3376 width. */
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3377 font_clear_prop (XVECTOR (lface)->contents, prop_index);
ef67b2d51a4d (Finternal_set_lisp_face_attribute): If the font is to be updated,
Chong Yidong <cyd@stupidchicken.com>
parents: 97930
diff changeset
3378 }
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3379
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3380 /* Changing a named face means that all realized faces depending on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3381 that face are invalid. Since we cannot tell which realized faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3382 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
3383 by incrementing face_change_count. The next call to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3384 init_iterator will then free realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3385 if (!EQ (frame, Qt)
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3386 && NILP (Fget (face, Qface_no_inherit))
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3387 && NILP (Fequal (old_value, value)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3388 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3389 ++face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3390 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3391 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3392
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
3393 if (!UNSPECIFIEDP (value) && !IGNORE_DEFFACE_P (value)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3394 && NILP (Fequal (old_value, value)))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3395 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3396 Lisp_Object param;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3397
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3398 param = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3399
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3400 if (EQ (face, Qdefault))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3401 {
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3402 #ifdef HAVE_WINDOW_SYSTEM
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3403 /* 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
3404 reflected in changed `font' frame parameters. */
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3405 if (FRAMEP (frame)
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3406 && (prop_index || EQ (attr, QCfont))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3407 && lface_fully_specified_p (XVECTOR (lface)->contents))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3408 set_font_frame_param (frame, lface);
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3409 else
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3410 #endif /* HAVE_WINDOW_SYSTEM */
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3411
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3412 if (EQ (attr, QCforeground))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3413 param = Qforeground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3414 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3415 param = Qbackground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3416 }
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3417 #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
3418 #ifndef WINDOWSNT
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3419 else if (EQ (face, Qscroll_bar))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3420 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3421 /* 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
3422 `scroll-bar-foreground' and `scroll-bar-background'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3423 if (EQ (attr, QCforeground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3424 param = Qscroll_bar_foreground;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3425 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3426 param = Qscroll_bar_background;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3427 }
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
3428 #endif /* not WINDOWSNT */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3429 else if (EQ (face, Qborder))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3430 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3431 /* Changing background color of `border' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3432 `border-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3433 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3434 param = Qborder_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3435 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3436 else if (EQ (face, Qcursor))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3437 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3438 /* Changing background color of `cursor' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3439 `cursor-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3440 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3441 param = Qcursor_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3442 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3443 else if (EQ (face, Qmouse))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3444 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3445 /* Changing background color of `mouse' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3446 `mouse-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3447 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3448 param = Qmouse_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3449 }
36481
8456d3257f81 (Finternal_set_lisp_face_attribute)
Eli Zaretskii <eliz@gnu.org>
parents: 36066
diff changeset
3450 #endif /* HAVE_WINDOW_SYSTEM */
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
3451 else if (EQ (face, Qmenu))
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3452 {
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3453 /* 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
3454 realizing faces on FRAME. FRAME t change the
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3455 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
3456 setting the flag in new face caches */
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3457 if (FRAMEP (frame))
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3458 {
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3459 struct frame *f = XFRAME (frame);
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3460 if (FRAME_FACE_CACHE (f) == NULL)
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3461 FRAME_FACE_CACHE (f) = make_face_cache (f);
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3462 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
3463 }
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3464 else
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3465 menu_face_changed_default = 1;
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
3466 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3467
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3468 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
3469 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3470 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
3471 /* 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
3472 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3473 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
3474 }
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3475 else
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3476 /* 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
3477 {
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3478 Lisp_Object cons;
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3479 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
3480 XSETCAR (cons, param);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3481 XSETCDR (cons, value);
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3482 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
3483 }
bf08eafda9a3 (merge_face_vectors): Use braces to follow GNU Coding Standards.
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
3484 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3485 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3486
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3487 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3488 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3489
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3490
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3491 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3492
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3493 /* Set the `font' frame parameter of FRAME determined from the
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3494 font-object set in `default' face attributes LFACE. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3495
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3496 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3497 set_font_frame_param (frame, lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3498 Lisp_Object frame, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3499 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3500 struct frame *f = XFRAME (frame);
96532
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3501 Lisp_Object font;
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3502
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3503 if (FRAME_WINDOW_P (f)
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3504 /* Don't do anything if the font is `unspecified'. This can
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3505 happen during frame creation. */
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3506 && (font = LFACE_FONT (lface),
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3507 ! UNSPECIFIEDP (font)))
addc38841ba7 (set_font_frame_param): Don't try to set the font parameter if it is
Chong Yidong <cyd@stupidchicken.com>
parents: 96529
diff changeset
3508 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3509 if (FONT_SPEC_P (font))
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
3510 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3511 font = font_load_for_lface (f, XVECTOR (lface)->contents, font);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3512 if (NILP (font))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3513 return;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3514 LFACE_FONT (lface) = font;
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
3515 }
51665
c1f65dfc56eb Fix some of the font/face problems.
Jan Djärv <jan.h.d@swipnet.se>
parents: 51500
diff changeset
3516 f->default_face_done_p = 0;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3517 Fmodify_frame_parameters (frame, Fcons (Fcons (Qfont, font), Qnil));
35040
604d4b3d1054 (set_font_frame_param): Don't do anything for
Gerd Moellmann <gerd@gnu.org>
parents: 35004
diff changeset
3518 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3519 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3520
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3521
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3522 /* 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
3523 has been assigned the value NEW_VALUE. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3524
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3525 void
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3526 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
3527 struct frame *f;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3528 Lisp_Object param, new_value;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3529 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3530 Lisp_Object face = Qnil;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3531 Lisp_Object lface;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3532
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3533 /* 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
3534 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
3535 face-set-after-frame-defaults. */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3536 if (NILP (f->face_alist))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3537 return;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3538
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3539 if (EQ (param, Qforeground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3540 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3541 face = Qdefault;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3542 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
3543 LFACE_FOREGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3544 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3545 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3546 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3547 else if (EQ (param, Qbackground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3548 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3549 Lisp_Object frame;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3550
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3551 /* 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
3552 mode, so that we have to load new defface specs.
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
3553 Call frame-update-face-colors to do that. */
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3554 XSETFRAME (frame, f);
63642
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
3555 call1 (Qframe_set_background_mode, frame);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3556
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3557 face = Qdefault;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3558 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
3559 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3560 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3561 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3562 }
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3563 else if (EQ (param, Qborder_color))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3564 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3565 face = Qborder;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3566 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
3567 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3568 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3569 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3570 else if (EQ (param, Qcursor_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3571 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3572 face = Qcursor;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3573 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
3574 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3575 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3576 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3577 else if (EQ (param, Qmouse_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3578 {
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3579 face = Qmouse;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3580 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
3581 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3582 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3583 }
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3584
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3585 /* 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
3586 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
3587 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
3588 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
3589 init_iterator will then free realized faces. */
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3590 if (!NILP (face)
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3591 && NILP (Fget (face, Qface_no_inherit)))
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3592 {
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3593 ++face_change_count;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3594 ++windows_or_buffers_changed;
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
3595 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3596 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3597
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3598
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3599 /* 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
3600 of frame FRAME. This is here because ordinary `x-get-resource'
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3601 doesn't take a frame argument. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3602
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3603 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
3604 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
3605 (resource, class, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3606 Lisp_Object resource, class, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3607 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3608 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
3609 CHECK_STRING (resource);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3610 CHECK_STRING (class);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3611 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3612 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3613 value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3614 resource, class, Qnil, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3615 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3616 return value;
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
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 /* 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
3621 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
3622 "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
3623 error; if SIGNAL_P is zero, return 0. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3624
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3625 static Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3626 face_boolean_x_resource_value (value, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3627 Lisp_Object value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3628 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3629 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3630 Lisp_Object result = make_number (0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3631
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3632 xassert (STRINGP (value));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3633
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
3634 if (xstrcasecmp (SDATA (value), "on") == 0
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
3635 || xstrcasecmp (SDATA (value), "true") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3636 result = Qt;
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
3637 else if (xstrcasecmp (SDATA (value), "off") == 0
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
3638 || xstrcasecmp (SDATA (value), "false") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3639 result = Qnil;
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
3640 else if (xstrcasecmp (SDATA (value), "unspecified") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3641 result = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3642 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3643 signal_error ("Invalid face attribute value from X resource", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3644
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3645 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3646 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3649 DEFUN ("internal-set-lisp-face-attribute-from-resource",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3650 Finternal_set_lisp_face_attribute_from_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3651 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
3652 3, 4, 0, doc: /* */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3653 (face, attr, value, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3654 Lisp_Object face, attr, value, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3655 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3656 CHECK_SYMBOL (face);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3657 CHECK_SYMBOL (attr);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3658 CHECK_STRING (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3659
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
3660 if (xstrcasecmp (SDATA (value), "unspecified") == 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3661 value = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3662 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3663 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3664 value = Fstring_to_number (value, make_number (10));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3665 if (XINT (value) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3666 signal_error ("Invalid face height from X resource", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3667 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3668 else if (EQ (attr, QCbold) || EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3669 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3670 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
3671 value = intern (SDATA (value));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3672 else if (EQ (attr, QCreverse_video) || EQ (attr, QCinverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3673 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3674 else if (EQ (attr, QCunderline)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3675 || EQ (attr, QCoverline)
40603
e8ff19a0b76e (Finternal_set_lisp_face_attribute_from_resource):
Gerd Moellmann <gerd@gnu.org>
parents: 40598
diff changeset
3676 || EQ (attr, QCstrike_through))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3677 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3678 Lisp_Object boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3679
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3680 /* 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
3681 VALUE does NOT specify a color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3682 boolean_value = face_boolean_x_resource_value (value, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3683 if (SYMBOLP (boolean_value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3684 value = boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3685 }
67130
c5ff1098b0b8 (Finternal_set_lisp_face_attribute_from_resource): Handle :inherit property
Eli Zaretskii <eliz@gnu.org>
parents: 67056
diff changeset
3686 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
3687 value = Fcar (Fread_from_string (value, Qnil, Qnil));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3688
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3689 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
3690 }
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
3691
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3692 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3693
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3694
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3695 /***********************************************************************
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3696 Menu face
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3697 ***********************************************************************/
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3698
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3699 #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
3700
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3701 /* 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
3702
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3703 static void
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3704 x_update_menu_appearance (f)
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3705 struct frame *f;
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
3706 {
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
3707 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
3708 XrmDatabase rdb;
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3709
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3710 if (dpyinfo
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3711 && (rdb = XrmGetDatabase (FRAME_X_DISPLAY (f)),
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3712 rdb != NULL))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3713 {
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3714 char line[512];
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3715 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
3716 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
3717 const char *myname = SDATA (Vx_resource_name);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3718 int changed_p = 0;
36956
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3719 #ifdef USE_MOTIF
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3720 const char *popup_path = "popup_menu";
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3721 #else
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3722 const char *popup_path = "menu.popup";
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3723 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
3724
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3725 if (STRINGP (LFACE_FOREGROUND (lface)))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3726 {
36956
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3727 sprintf (line, "%s.%s*foreground: %s",
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3728 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
3729 SDATA (LFACE_FOREGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3730 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3731 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
3732 myname, SDATA (LFACE_FOREGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3733 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3734 changed_p = 1;
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3735 }
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3736
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3737 if (STRINGP (LFACE_BACKGROUND (lface)))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3738 {
36956
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3739 sprintf (line, "%s.%s*background: %s",
22c5aa03d4aa (x_update_menu_appearance): Use a different path
Gerd Moellmann <gerd@gnu.org>
parents: 36946
diff changeset
3740 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
3741 SDATA (LFACE_BACKGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3742 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3743 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
3744 myname, SDATA (LFACE_BACKGROUND (lface)));
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3745 XrmPutLineResource (&rdb, line);
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3746 changed_p = 1;
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3747 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
3748
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3749 if (face->font
97599
9806866dbf50 (x_update_menu_appearance): Check validity of menu font before using
Chong Yidong <cyd@stupidchicken.com>
parents: 97502
diff changeset
3750 /* On Solaris 5.8, it's been reported that the `menu' face
9806866dbf50 (x_update_menu_appearance): Check validity of menu font before using
Chong Yidong <cyd@stupidchicken.com>
parents: 97502
diff changeset
3751 can be unspecified here, during startup. Why this
9806866dbf50 (x_update_menu_appearance): Check validity of menu font before using
Chong Yidong <cyd@stupidchicken.com>
parents: 97502
diff changeset
3752 happens remains unknown. -- cyd */
9806866dbf50 (x_update_menu_appearance): Check validity of menu font before using
Chong Yidong <cyd@stupidchicken.com>
parents: 97502
diff changeset
3753 && FONTP (LFACE_FONT (lface))
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3754 && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3755 || !UNSPECIFIEDP (LFACE_FOUNDRY (lface))
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3756 || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3757 || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3758 || !UNSPECIFIEDP (LFACE_SLANT (lface))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3759 || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3760 {
95189
70380eb2fa9d (x_update_menu_appearance): Call Ffont_xlfd_name with
Kenichi Handa <handa@m17n.org>
parents: 95178
diff changeset
3761 Lisp_Object xlfd = Ffont_xlfd_name (LFACE_FONT (lface), Qnil);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3762 #ifdef USE_MOTIF
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3763 const char *suffix = "List";
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
3764 Bool motif = True;
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
3765 #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
3766 #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
3767
7325563a1148 * xfaces.c (x_update_menu_appearance): Use fontSet resource for
Jan Djärv <jan.h.d@swipnet.se>
parents: 64084
diff changeset
3768 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
3769 #else
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3770 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
3771 #endif
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
3772 Bool motif = False;
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3773 #endif
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3774
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3775 if (! NILP (xlfd))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3776 {
60699
11723b2eac2e (x_update_menu_appearance) [HAVE_X_I18N]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60669
diff changeset
3777 #if defined HAVE_X_I18N
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3778 extern char *xic_create_fontsetname
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3779 P_ ((char *base_fontname, Bool motif));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3780 char *fontsetname = xic_create_fontsetname (SDATA (xlfd), motif);
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
3781 #else
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3782 char *fontsetname = (char *) SDATA (xlfd);
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
3783 #endif
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3784 sprintf (line, "%s.pane.menubar*font%s: %s",
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3785 myname, suffix, fontsetname);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3786 XrmPutLineResource (&rdb, line);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3787 sprintf (line, "%s.%s*font%s: %s",
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3788 myname, popup_path, suffix, fontsetname);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3789 XrmPutLineResource (&rdb, line);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3790 changed_p = 1;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3791 if (fontsetname != (char *) SDATA (xlfd))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3792 xfree (fontsetname);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3793 }
36936
bda3649d35fd (x_set_menu_resources_from_menu_face) [USE_X_TOOLKIT]:
Gerd Moellmann <gerd@gnu.org>
parents: 36932
diff changeset
3794 }
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3795
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3796 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
3797 free_frame_menubar (f);
36942
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3798 }
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3799 }
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3800
98755810fe71 (x_update_menu_appearance): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 36936
diff changeset
3801 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3802
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3803
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
3804 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
3805 Sface_attribute_relative_p,
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3806 2, 2, 0,
71576
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
3807 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
3808 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
3809 with the value VALUE is relative.
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
3810
b8678c550150 (Fface_attribute_relative_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 70834
diff changeset
3811 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
3812 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
3813 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
3814 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
3815 (attribute, value)
40532
221868112227 (Fface_attribute_relative_p): Declare args.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 40441
diff changeset
3816 Lisp_Object attribute, value;
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3817 {
66983
79256abc393d (Fface_attribute_relative_p, Fmerge_face_attribute): Handle
Chong Yidong <cyd@stupidchicken.com>
parents: 66974
diff changeset
3818 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
3819 return Qt;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3820 else if (EQ (attribute, QCheight))
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3821 return INTEGERP (value) ? Qnil : Qt;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3822 else
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3823 return Qnil;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3824 }
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3825
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3826 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
3827 3, 3, 0,
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3828 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
3829 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
3830 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
3831 (attribute, value1, value2)
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3832 Lisp_Object attribute, value1, value2;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3833 {
66983
79256abc393d (Fface_attribute_relative_p, Fmerge_face_attribute): Handle
Chong Yidong <cyd@stupidchicken.com>
parents: 66974
diff changeset
3834 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
3835 return value2;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3836 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
3837 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
3838 else
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3839 return value1;
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3840 }
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
3841
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3842
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3843 DEFUN ("internal-get-lisp-face-attribute", Finternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3844 Sinternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3845 2, 3, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
3846 doc: /* Return face attribute KEYWORD of face SYMBOL.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
3847 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
3848 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
3849 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
3850 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
3851 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
3852 (symbol, keyword, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3853 Lisp_Object symbol, keyword, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3854 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3855 Lisp_Object lface, value = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
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_SYMBOL (symbol);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3858 CHECK_SYMBOL (keyword);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3859
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3860 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3861 lface = lface_from_face_name (NULL, symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3862 else
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 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3865 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3866 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3867 lface = lface_from_face_name (XFRAME (frame), symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3868 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3869
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3870 if (EQ (keyword, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3871 value = LFACE_FAMILY (lface);
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3872 else if (EQ (keyword, QCfoundry))
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
3873 value = LFACE_FOUNDRY (lface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3874 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3875 value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3876 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3877 value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3878 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3879 value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3880 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3881 value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3882 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3883 value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3884 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3885 value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3886 else if (EQ (keyword, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3887 value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3888 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3889 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3890 value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3891 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3892 value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3893 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3894 value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3895 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3896 value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3897 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3898 value = LFACE_SWIDTH (lface);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3899 else if (EQ (keyword, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3900 value = LFACE_INHERIT (lface);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3901 else if (EQ (keyword, QCfont))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3902 value = LFACE_FONT (lface);
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
3903 else if (EQ (keyword, QCfontset))
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
3904 value = LFACE_FONTSET (lface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3905 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3906 signal_error ("Invalid face attribute name", keyword);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3907
67046
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
3908 if (IGNORE_DEFFACE_P (value))
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
3909 return Qunspecified;
095993a59ddd * xfaces.c (Finternal_set_lisp_face_attribute): Use
Chong Yidong <cyd@stupidchicken.com>
parents: 66983
diff changeset
3910
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3911 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3912 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3913
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3914
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3915 DEFUN ("internal-lisp-face-attribute-values",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3916 Finternal_lisp_face_attribute_values,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3917 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
3918 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
3919 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
3920 (attr)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3921 Lisp_Object attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3922 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3923 Lisp_Object result = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3924
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3925 CHECK_SYMBOL (attr);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3926
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
3927 if (EQ (attr, QCunderline))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3928 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3929 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3930 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3931 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3932 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3933 else if (EQ (attr, QCinverse_video) || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3934 result = Fcons (Qt, Fcons (Qnil, Qnil));
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 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3937 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3938
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3939
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3940 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
3941 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
3942 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
3943 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
3944 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3945 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3946 {
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3947 int i;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3948 Lisp_Object global_lface, local_lface, *gvec, *lvec;
96427
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3949 struct frame *f = XFRAME (frame);
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3950
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
3951 CHECK_LIVE_FRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3952 global_lface = lface_from_face_name (NULL, face, 1);
96427
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3953 local_lface = lface_from_face_name (f, face, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3954 if (NILP (local_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3955 local_lface = Finternal_make_lisp_face (face, frame);
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3956
31519
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
3957 /* 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
3958 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
3959 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
3960 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
3961 "global before local" priority. */
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3962 lvec = XVECTOR (local_lface)->contents;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3963 gvec = XVECTOR (global_lface)->contents;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
3964 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
96427
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3965 if (IGNORE_DEFFACE_P (gvec[i]))
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3966 lvec[i] = Qunspecified;
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3967 else if (! UNSPECIFIEDP (gvec[i]))
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3968 lvec[i] = gvec[i];
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3969
96551
be8753b44809 (Finternal_merge_in_global_face): Save merged attributes for the
Chong Yidong <cyd@stupidchicken.com>
parents: 96532
diff changeset
3970 /* If the default face was changed, update the face cache and the
96428
51371c50583a Fix typo in comments.
Chong Yidong <cyd@stupidchicken.com>
parents: 96427
diff changeset
3971 `font' frame parameter. */
96427
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3972 if (EQ (face, Qdefault))
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3973 {
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3974 struct face_cache *c = FRAME_FACE_CACHE (f);
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3975 struct face *newface, *oldface = FACE_FROM_ID (f, DEFAULT_FACE_ID);
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3976 Lisp_Object attrs[LFACE_VECTOR_SIZE];
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3977
96529
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3978 /* This can be NULL (e.g., in batch mode). */
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3979 if (oldface)
96427
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
3980 {
96551
be8753b44809 (Finternal_merge_in_global_face): Save merged attributes for the
Chong Yidong <cyd@stupidchicken.com>
parents: 96532
diff changeset
3981 /* Ensure that the face vector is fully specified by merging
be8753b44809 (Finternal_merge_in_global_face): Save merged attributes for the
Chong Yidong <cyd@stupidchicken.com>
parents: 96532
diff changeset
3982 the previously-cached vector. */
96529
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3983 bcopy (oldface->lface, attrs, sizeof attrs);
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3984 merge_face_vectors (f, lvec, attrs, 0);
96551
be8753b44809 (Finternal_merge_in_global_face): Save merged attributes for the
Chong Yidong <cyd@stupidchicken.com>
parents: 96532
diff changeset
3985 bcopy (attrs, lvec, sizeof attrs);
be8753b44809 (Finternal_merge_in_global_face): Save merged attributes for the
Chong Yidong <cyd@stupidchicken.com>
parents: 96532
diff changeset
3986 newface = realize_face (c, lvec, DEFAULT_FACE_ID);
96529
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3987
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3988 if ((! UNSPECIFIEDP (gvec[LFACE_FAMILY_INDEX])
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3989 || ! UNSPECIFIEDP (gvec[LFACE_FOUNDRY_INDEX])
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3990 || ! UNSPECIFIEDP (gvec[LFACE_HEIGHT_INDEX])
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3991 || ! UNSPECIFIEDP (gvec[LFACE_WEIGHT_INDEX])
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3992 || ! UNSPECIFIEDP (gvec[LFACE_SLANT_INDEX])
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3993 || ! UNSPECIFIEDP (gvec[LFACE_SWIDTH_INDEX])
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3994 || ! UNSPECIFIEDP (gvec[LFACE_FONT_INDEX]))
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3995 && newface->font)
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3996 {
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3997 Lisp_Object name = newface->font->props[FONT_NAME_INDEX];
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3998 Fmodify_frame_parameters (frame, Fcons (Fcons (Qfont, name),
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
3999 Qnil));
7ac98f33f18c (Finternal_merge_in_global_face): Don't realize default face if it
Chong Yidong <cyd@stupidchicken.com>
parents: 96428
diff changeset
4000 }
96427
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
4001 }
1544b1dca916 (Finternal_merge_in_global_face): If default face was modified,
Chong Yidong <cyd@stupidchicken.com>
parents: 96263
diff changeset
4002 }
31507
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
4003
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
4004 return Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4005 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4006
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4007
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4008 /* The following function is implemented for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4009 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
4010 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
4011 done in fontset.el. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4012
89835
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4013 DEFUN ("face-font", Fface_font, Sface_font, 1, 3, 0,
40598
7f3db64c7d42 (Finternal_merge_in_global_face): Reindent.
Pavel Janík <Pavel@Janik.cz>
parents: 40555
diff changeset
4014 doc: /* Return the font name of face FACE, or nil if it is unspecified.
89835
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4015 The font name is, by default, for ASCII characters.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4016 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
4017 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
4018 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
4019 of the form (bold), (italic) or (bold italic).
89835
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4020 If FRAME is omitted or nil, use the selected frame. And, in this case,
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4021 if the optional third argument CHARACTER is given,
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4022 return the font name used for CHARACTER. */)
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4023 (face, frame, character)
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4024 Lisp_Object face, frame, character;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4025 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4026 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4027 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4028 Lisp_Object result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4029 Lisp_Object lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4030
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4031 if (!UNSPECIFIEDP (LFACE_WEIGHT (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4032 && !EQ (LFACE_WEIGHT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4033 result = Fcons (Qbold, result);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4034
40441
024f6efc3f87 (Fface_font): Use UNSPECIFIEDP instead of NILP for
Gerd Moellmann <gerd@gnu.org>
parents: 40398
diff changeset
4035 if (!UNSPECIFIEDP (LFACE_SLANT (lface))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4036 && !EQ (LFACE_SLANT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4037 result = Fcons (Qitalic, result);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4038
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4039 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4040 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4041 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4042 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4043 struct frame *f = frame_or_selected_frame (frame, 1);
90054
f2ebccfa87d4 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74
Miles Bader <miles@gnu.org>
parents: 90044 58439
diff changeset
4044 int face_id = lookup_named_face (f, face, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4045 struct face *face = FACE_FROM_ID (f, face_id);
89835
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4046
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4047 if (! face)
4a7ac88259e1 (Fface_font): New optional arg CHARACTER.
Kenichi Handa <handa@m17n.org>
parents: 89701
diff changeset
4048 return Qnil;
89947
62d04caf8fb9 (Fface_font): If HAVE_WINDOW_SYSTEM is not defined,
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
4049 #ifdef HAVE_WINDOW_SYSTEM
89948
e94e49dc760e (Fface_font): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89947
diff changeset
4050 if (FRAME_WINDOW_P (f) && !NILP (character))
89947
62d04caf8fb9 (Fface_font): If HAVE_WINDOW_SYSTEM is not defined,
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
4051 {
62d04caf8fb9 (Fface_font): If HAVE_WINDOW_SYSTEM is not defined,
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
4052 CHECK_CHARACTER (character);
62d04caf8fb9 (Fface_font): If HAVE_WINDOW_SYSTEM is not defined,
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
4053 face_id = FACE_FOR_CHAR (f, face, XINT (character), -1, Qnil);
62d04caf8fb9 (Fface_font): If HAVE_WINDOW_SYSTEM is not defined,
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
4054 face = FACE_FROM_ID (f, face_id);
62d04caf8fb9 (Fface_font): If HAVE_WINDOW_SYSTEM is not defined,
Kenichi Handa <handa@m17n.org>
parents: 89943
diff changeset
4055 }
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4056 return (face->font
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4057 ? face->font->props[FONT_NAME_INDEX]
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4058 : Qnil);
95044
f4fac6175e87 frame.c (Fdelete_frame): Don't call font_update_drviers if
Eli Zaretskii <eliz@gnu.org>
parents: 94983
diff changeset
4059 #else /* !HAVE_WINDOW_SYSTEM */
f4fac6175e87 frame.c (Fdelete_frame): Don't call font_update_drviers if
Eli Zaretskii <eliz@gnu.org>
parents: 94983
diff changeset
4060 return build_string (FRAME_MSDOS_P (f)
f4fac6175e87 frame.c (Fdelete_frame): Don't call font_update_drviers if
Eli Zaretskii <eliz@gnu.org>
parents: 94983
diff changeset
4061 ? "ms-dos"
f4fac6175e87 frame.c (Fdelete_frame): Don't call font_update_drviers if
Eli Zaretskii <eliz@gnu.org>
parents: 94983
diff changeset
4062 : FRAME_W32_P (f) ? "w32term"
f4fac6175e87 frame.c (Fdelete_frame): Don't call font_update_drviers if
Eli Zaretskii <eliz@gnu.org>
parents: 94983
diff changeset
4063 :"tty");
f4fac6175e87 frame.c (Fdelete_frame): Don't call font_update_drviers if
Eli Zaretskii <eliz@gnu.org>
parents: 94983
diff changeset
4064 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4065 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4066 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4067
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4068
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4069 /* 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
4070 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
4071 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
4072
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4073 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
4074 face_attr_equal_p (v1, v2)
56063
109c0a603543 (face_attr_equal_p): Declare parameters.
Andreas Schwab <schwab@suse.de>
parents: 55982
diff changeset
4075 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
4076 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4077 /* 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
4078 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
4079 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
4080 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4081
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4082 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
4083 return 1;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4084
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4085 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
4086 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4087 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
4088 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
4089 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4090
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4091 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
4092
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4093 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
4094 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
4095 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4096
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4097 default:
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4098 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
4099 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4100 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4101
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
4102
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4103 /* 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
4104 all attributes are `equal'. Tries to be fast because this function
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4105 is called quite often. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4106
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4107 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4108 lface_equal_p (v1, v2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4109 Lisp_Object *v1, *v2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4110 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4111 int i, equal_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4112
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4113 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
4114 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
4115
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4116 return equal_p;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4119
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4120 DEFUN ("internal-lisp-face-equal-p", Finternal_lisp_face_equal_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4121 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
4122 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
4123 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
4124 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
4125 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
4126 (face1, face2, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4127 Lisp_Object face1, face2, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4128 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4129 int equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4130 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4131 Lisp_Object lface1, lface2;
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 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4134 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4135 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4136 /* 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
4137 before X frames exist. At that time, if FRAME is nil,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4138 selected_frame will be used which is the frame dumped with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4139 Emacs. That frame is not an X frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4140 f = frame_or_selected_frame (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4141
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
4142 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
4143 lface2 = lface_from_face_name (f, face2, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4144 equal_p = lface_equal_p (XVECTOR (lface1)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4145 XVECTOR (lface2)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4146 return equal_p ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4147 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4148
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4149
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4150 DEFUN ("internal-lisp-face-empty-p", Finternal_lisp_face_empty_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4151 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
4152 doc: /* True if FACE has no attribute specified.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
4153 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
4154 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
4155 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
4156 (face, frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4157 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4158 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4159 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4160 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4161 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4162
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4163 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4164 frame = selected_frame;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
4165 CHECK_LIVE_FRAME (frame);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4166 f = XFRAME (frame);
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 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4169 lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4170 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4171 lface = lface_from_face_name (f, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4172
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4173 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
4174 if (!UNSPECIFIEDP (AREF (lface, i)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4175 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4176
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4177 return i == LFACE_VECTOR_SIZE ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4178 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4179
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4180
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4181 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
4182 0, 1, 0,
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4183 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
4184 For internal use only. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
4185 (frame)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4186 Lisp_Object frame;
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 struct frame *f = frame_or_selected_frame (frame, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4189 return f->face_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4190 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4191
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4192
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4193 /* 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
4194 below in computing a hash value for a Lisp face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4195
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4196 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4197 hash_string_case_insensitive (string)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4198 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4199 {
46556
71e205b50a3e (may_use_scalable_font_p): Argument now points to
Ken Raeburn <raeburn@raeburn.org>
parents: 46478
diff changeset
4200 const unsigned char *s;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4201 unsigned hash = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4202 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
4203 for (s = SDATA (string); *s; ++s)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4204 hash = (hash << 1) ^ tolower (*s);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4205 return hash;
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
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 /* Return a hash code for face attribute vector V. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4210
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4211 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4212 lface_hash (v)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4213 Lisp_Object *v;
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 return (hash_string_case_insensitive (v[LFACE_FAMILY_INDEX])
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
4216 ^ hash_string_case_insensitive (v[LFACE_FOUNDRY_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4217 ^ hash_string_case_insensitive (v[LFACE_FOREGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4218 ^ hash_string_case_insensitive (v[LFACE_BACKGROUND_INDEX])
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
4219 ^ XHASH (v[LFACE_WEIGHT_INDEX])
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
4220 ^ XHASH (v[LFACE_SLANT_INDEX])
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
4221 ^ XHASH (v[LFACE_SWIDTH_INDEX])
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
4222 ^ XHASH (v[LFACE_HEIGHT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4223 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4224
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4225
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4226 /* 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
4227 considering charsets/registries). They do if they specify the same
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4228 family, point size, weight, width, slant, and font. Both
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
4229 LFACE1 and LFACE2 must be fully-specified. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4230
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4231 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4232 lface_same_font_attributes_p (lface1, lface2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4233 Lisp_Object *lface1, *lface2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4234 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4235 xassert (lface_fully_specified_p (lface1)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4236 && lface_fully_specified_p (lface2));
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
4237 return (xstrcasecmp (SDATA (lface1[LFACE_FAMILY_INDEX]),
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
4238 SDATA (lface2[LFACE_FAMILY_INDEX])) == 0
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
4239 && xstrcasecmp (SDATA (lface1[LFACE_FOUNDRY_INDEX]),
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
4240 SDATA (lface2[LFACE_FOUNDRY_INDEX])) == 0
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4241 && EQ (lface1[LFACE_HEIGHT_INDEX], lface2[LFACE_HEIGHT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4242 && EQ (lface1[LFACE_SWIDTH_INDEX], lface2[LFACE_SWIDTH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4243 && 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
4244 && EQ (lface1[LFACE_SLANT_INDEX], lface2[LFACE_SLANT_INDEX])
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4245 && EQ (lface1[LFACE_FONT_INDEX], lface2[LFACE_FONT_INDEX])
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
4246 && (EQ (lface1[LFACE_FONTSET_INDEX], lface2[LFACE_FONTSET_INDEX])
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
4247 || (STRINGP (lface1[LFACE_FONTSET_INDEX])
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
4248 && STRINGP (lface2[LFACE_FONTSET_INDEX])
95220
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
4249 && ! xstrcasecmp (SDATA (lface1[LFACE_FONTSET_INDEX]),
010bd4373364 * dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
Jason Rumney <jasonr@gnu.org>
parents: 95189
diff changeset
4250 SDATA (lface2[LFACE_FONTSET_INDEX]))))
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
4251 );
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4254
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4255
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 Realized Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4258 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4259
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4260 /* 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
4261 vector ATTR. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4262
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4263 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4264 make_realized_face (attr)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4265 Lisp_Object *attr;
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 struct face *face = (struct face *) xmalloc (sizeof *face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4268 bzero (face, sizeof *face);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4269 face->ascii_face = face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4270 bcopy (attr, face->lface, sizeof face->lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4271 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4272 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4273
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4274
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4275 /* Free realized face FACE, including its X resources. FACE may
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4276 be null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4277
88394
b954eee715da Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 43270
diff changeset
4278 void
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4279 free_realized_face (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4280 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4281 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4282 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4283 if (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4284 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4285 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4286 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4287 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4288 /* 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
4289 if (face->fontset >= 0 && face == face->ascii_face)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4290 free_face_fontset (f, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4291 if (face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4292 {
84976
372151e622f3 (load_face_font, free_realized_face, clear_face_gcs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84801
diff changeset
4293 BLOCK_INPUT;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4294 if (face->font)
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4295 font_done_for_face (f, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4296 x_free_gc (f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4297 face->gc = 0;
84976
372151e622f3 (load_face_font, free_realized_face, clear_face_gcs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84801
diff changeset
4298 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4299 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4300
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4301 free_face_colors (f, face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4302 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4303 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4304 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4305
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4306 xfree (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4307 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4308 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4309
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4310
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4311 /* Prepare face FACE for subsequent display on frame F. This
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4312 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
4313 by clearing the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4314
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4315 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4316 prepare_face_for_display (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4317 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4318 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4319 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4320 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4321 xassert (FRAME_WINDOW_P (f));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4322
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4323 if (face->gc == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4324 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4325 XGCValues xgcv;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4326 unsigned long mask = GCForeground | GCBackground | GCGraphicsExposures;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4327
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4328 xgcv.foreground = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4329 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
4330 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4331 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
4332 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4333
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4334 BLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4335 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4336 if (face->stipple)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4337 {
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
4338 xgcv.fill_style = FillOpaqueStippled;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4339 xgcv.stipple = x_bitmap_pixmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4340 mask |= GCFillStyle | GCStipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4341 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4342 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4343 face->gc = x_create_gc (f, mask, &xgcv);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4344 if (face->font)
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4345 font_prepare_for_face (f, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4346 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4347 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4348 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4349 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4350
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4351
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4352 /* 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
4353
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4354 static int
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4355 color_distance (x, y)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4356 XColor *x, *y;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4357 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4358 /* 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
4359 Quoting from that paper:
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4360
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4361 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
4362 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
4363 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
4364 gives far from optimal results.
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4365
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4366 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
4367
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4368 long r = (x->red - y->red) >> 8;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4369 long g = (x->green - y->green) >> 8;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4370 long b = (x->blue - y->blue) >> 8;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4371 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
4372
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4373 return
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4374 (((512 + r_mean) * r * r) >> 8)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4375 + 4 * g * g
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4376 + (((767 - r_mean) * b * b) >> 8);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4377 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4378
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4379
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4380 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
4381 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
4382 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
4383 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
4384 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
4385 (color1, color2, frame)
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4386 Lisp_Object color1, color2, frame;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4387 {
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4388 struct frame *f;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4389 XColor cdef1, cdef2;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4390
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4391 if (NILP (frame))
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4392 frame = selected_frame;
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4393 CHECK_LIVE_FRAME (frame);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4394 f = XFRAME (frame);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4395
75885
19bf7ffe644e (Fcolor_distance): Don't continue checking a color for errors after it has been
Juanma Barranquero <lekktu@gmail.com>
parents: 75348
diff changeset
4396 if (!(CONSP (color1) && parse_rgb_list (color1, &cdef1))
19bf7ffe644e (Fcolor_distance): Don't continue checking a color for errors after it has been
Juanma Barranquero <lekktu@gmail.com>
parents: 75348
diff changeset
4397 && !(STRINGP (color1) && 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
4398 signal_error ("Invalid color", color1);
75885
19bf7ffe644e (Fcolor_distance): Don't continue checking a color for errors after it has been
Juanma Barranquero <lekktu@gmail.com>
parents: 75348
diff changeset
4399 if (!(CONSP (color2) && parse_rgb_list (color2, &cdef2))
19bf7ffe644e (Fcolor_distance): Don't continue checking a color for errors after it has been
Juanma Barranquero <lekktu@gmail.com>
parents: 75348
diff changeset
4400 && !(STRINGP (color2) && 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
4401 signal_error ("Invalid color", color2);
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4402
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4403 return make_number (color_distance (&cdef1, &cdef2));
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4404 }
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4405
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4406
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
4407 /***********************************************************************
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4408 Face Cache
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4409 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4410
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4411 /* Return a new face cache for frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4412
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4413 static struct face_cache *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4414 make_face_cache (f)
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4415 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4416 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4417 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4418 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4419
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4420 c = (struct face_cache *) xmalloc (sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4421 bzero (c, sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4422 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4423 c->buckets = (struct face **) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4424 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4425 c->size = 50;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4426 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
4427 c->f = f;
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
4428 c->menu_face_changed_p = menu_face_changed_default;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4429 return c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4430 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4431
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4432
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4433 /* Clear out all graphics contexts for all realized faces, except for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4434 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
4435 keeping too many graphics contexts that are no longer needed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4436
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4437 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4438 clear_face_gcs (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4439 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4440 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4441 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
4442 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4443 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4444 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4445 for (i = BASIC_FACE_ID_SENTINEL; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4446 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4447 struct face *face = c->faces_by_id[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4448 if (face && face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4449 {
84976
372151e622f3 (load_face_font, free_realized_face, clear_face_gcs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84801
diff changeset
4450 BLOCK_INPUT;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4451 if (face->font)
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4452 font_done_for_face (c->f, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4453 x_free_gc (c->f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4454 face->gc = 0;
84976
372151e622f3 (load_face_font, free_realized_face, clear_face_gcs):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84801
diff changeset
4455 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4456 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4457 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4458 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4459 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4460 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4461
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4462
55560
f262795a9004 (Ftty_supports_face_attributes_p, Finternal_copy_lisp_face): Fix typo in
Juanma Barranquero <lekktu@gmail.com>
parents: 55142
diff changeset
4463 /* 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
4464 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
4465 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
4466 event doesn't try to use faces we destroyed. */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4469 free_realized_faces (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4470 struct face_cache *c;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4471 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4472 if (c && c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4473 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4474 int i, size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4475 struct frame *f = c->f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4476
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4477 /* 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
4478 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
4479 current matrix still references freed faces. */
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4480 BLOCK_INPUT;
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4481
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4482 for (i = 0; i < c->used; ++i)
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 free_realized_face (f, c->faces_by_id[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4485 c->faces_by_id[i] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4486 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4487
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4488 c->used = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4489 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4490 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4491
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4492 /* Must do a thorough redisplay the next time. Mark current
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4493 matrices as invalid because they will reference faces freed
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4494 above. This function is also called when a frame is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4495 destroyed. In this case, the root window of F is nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4496 if (WINDOWP (f->root_window))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4497 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4498 clear_current_matrices (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4499 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4500 }
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4501
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4502 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4503 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4504 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4505
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4506
88394
b954eee715da Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 43270
diff changeset
4507 /* Free all realized faces that are using FONTSET on frame F. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4508
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4509 void
88394
b954eee715da Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 43270
diff changeset
4510 free_realized_faces_for_fontset (f, fontset)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4511 struct frame *f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4512 int fontset;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4513 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4514 struct face_cache *cache = FRAME_FACE_CACHE (f);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4515 struct face *face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4516 int i;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4517
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4518 /* 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
4519 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
4520 matrix still references freed faces. */
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4521 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4522
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4523 for (i = 0; i < cache->used; i++)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4524 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4525 face = cache->faces_by_id[i];
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4526 if (face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4527 && face->fontset == fontset)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4528 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4529 uncache_face (cache, face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4530 free_realized_face (f, face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4531 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4532 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4533
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4534 /* 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
4535 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
4536 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
4537 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
4538 if (WINDOWP (f->root_window))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4539 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4540 clear_current_matrices (f);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4541 ++windows_or_buffers_changed;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4542 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4543
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
4544 UNBLOCK_INPUT;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4545 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4546
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4547
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4548 /* 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
4549 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
4550 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
4551
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4552 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4553 free_all_realized_faces (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4554 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4555 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4556 if (NILP (frame))
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4557 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4558 Lisp_Object rest;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4559 FOR_EACH_FRAME (rest, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4560 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4561 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4562 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4563 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4564 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4565
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4566
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4567 /* 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
4568
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4569 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4570 free_face_cache (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4571 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4572 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4573 if (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4574 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4575 free_realized_faces (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4576 xfree (c->buckets);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4577 xfree (c->faces_by_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4578 xfree (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4579 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4580 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4581
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4582
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4583 /* Cache realized face FACE in face cache C. HASH is the hash value
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4584 of FACE. If FACE is for ASCII characters (i.e. FACE->ascii_face ==
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4585 FACE), insert the new face to the beginning of the collision list
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4586 of the face hash table of C. Otherwise, add the new face to the
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4587 end of the collision list. This way, lookup_face can quickly find
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4588 that a requested face is not cached. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4589
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4590 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4591 cache_face (c, face, hash)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4592 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4593 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4594 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4595 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4596 int i = hash % FACE_CACHE_BUCKETS_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4597
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4598 face->hash = hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4599
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4600 if (face->ascii_face != face)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4601 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4602 struct face *last = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4603 if (last)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4604 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4605 while (last->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4606 last = last->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4607 last->next = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4608 face->prev = last;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4609 face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4610 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4611 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4612 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4613 c->buckets[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4614 face->prev = face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4615 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4616 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4617 else
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 face->prev = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4620 face->next = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4621 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4622 face->next->prev = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4623 c->buckets[i] = face;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4624 }
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4625
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4626 /* 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
4627 slot as FACE->id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4628 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4629 if (c->faces_by_id[i] == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4630 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4631 face->id = i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4632
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4633 /* 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
4634 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
4635 {
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
4636 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
4637 {
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
4638 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
4639 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
4640 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
4641 abort (); /* Alternatives? ++kfs */
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
4642 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
4643 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
4644 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
4645 }
0432020d46a7 (cache_face): Abort if c->size exceeds MAX_FACE_ID.
Kim F. Storm <storm@cua.dk>
parents: 53274
diff changeset
4646 c->used++;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4647 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4648
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4649 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4650 /* Check that FACE got a unique id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4651 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4652 int j, n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4653 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4654
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4655 for (j = n = 0; j < FACE_CACHE_BUCKETS_SIZE; ++j)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4656 for (face = c->buckets[j]; face; face = face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4657 if (face->id == i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4658 ++n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4659
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4660 xassert (n == 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4661 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4662 #endif /* GLYPH_DEBUG */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4663
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4664 c->faces_by_id[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4665 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4668 /* Remove face FACE from cache C. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4669
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4670 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4671 uncache_face (c, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4672 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4673 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4674 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4675 int i = face->hash % FACE_CACHE_BUCKETS_SIZE;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4676
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4677 if (face->prev)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4678 face->prev->next = face->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4679 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4680 c->buckets[i] = face->next;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4681
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4682 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4683 face->next->prev = face->prev;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4684
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4685 c->faces_by_id[face->id] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4686 if (face->id == c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4687 --c->used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4688 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4689
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4690
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4691 /* Look up a realized face with face attributes ATTR in the face cache
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4692 of frame F. The face will be used to display ASCII characters.
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4693 Value is the ID of the face found. If no suitable face is found,
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4694 realize a new one. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4695
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4696 INLINE int
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4697 lookup_face (f, attr)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4698 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4699 Lisp_Object *attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4700 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4701 struct face_cache *cache = FRAME_FACE_CACHE (f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4702 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4703 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4704 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4705
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4706 xassert (cache != NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4707 check_lface_attrs (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4708
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4709 /* Look up ATTR in the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4710 hash = lface_hash (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4711 i = hash % FACE_CACHE_BUCKETS_SIZE;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4712
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4713 for (face = cache->buckets[i]; face; face = face->next)
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4714 {
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4715 if (face->ascii_face != face)
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4716 {
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4717 /* There's no more ASCII face. */
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4718 face = NULL;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4719 break;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4720 }
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4721 if (face->hash == hash
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4722 && lface_equal_p (face->lface, attr))
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4723 break;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4724 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4725
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4726 /* If not found, realize a new face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4727 if (face == NULL)
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4728 face = realize_face (cache, attr, -1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4729
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4730 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4731 xassert (face == FACE_FROM_ID (f, face->id));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4732 #endif /* GLYPH_DEBUG */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4733
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4734 return face->id;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4735 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4736
89950
ad8c5c667a14 (split_font_name_into_vector, build_font_name_from_vector)
Kenichi Handa <handa@m17n.org>
parents: 89948
diff changeset
4737 #ifdef HAVE_WINDOW_SYSTEM
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4738 /* Look up a realized face that has the same attributes as BASE_FACE
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4739 except for the font in the face cache of frame F. If FONT-OBJECT
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4740 is not nil, it is an already opened font. If FONT-OBJECT is nil,
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4741 the face has no font. Value is the ID of the face found. If no
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4742 suitable face is found, realize a new one. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4743
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4744 int
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4745 face_for_font (f, font_object, base_face)
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4746 struct frame *f;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4747 Lisp_Object font_object;
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4748 struct face *base_face;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4749 {
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4750 struct face_cache *cache = FRAME_FACE_CACHE (f);
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4751 unsigned hash;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4752 int i;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4753 struct face *face;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4754
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4755 xassert (cache != NULL);
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4756 base_face = base_face->ascii_face;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4757 hash = lface_hash (base_face->lface);
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4758 i = hash % FACE_CACHE_BUCKETS_SIZE;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4759
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4760 for (face = cache->buckets[i]; face; face = face->next)
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4761 {
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4762 if (face->ascii_face == face)
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4763 continue;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4764 if (face->ascii_face == base_face
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4765 && face->font == (NILP (font_object) ? NULL
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4766 : XFONT_OBJECT (font_object))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4767 && lface_equal_p (face->lface, base_face->lface))
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4768 return face->id;
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4769 }
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4770
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4771 /* If not found, realize a new face. */
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
4772 face = realize_non_ascii_face (f, font_object, base_face);
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4773 return face->id;
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
4774 }
89950
ad8c5c667a14 (split_font_name_into_vector, build_font_name_from_vector)
Kenichi Handa <handa@m17n.org>
parents: 89948
diff changeset
4775 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4776
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4777 /* Return the face id of the realized face for named face SYMBOL on
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4778 frame F suitable for displaying ASCII characters. Value is -1 if
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4779 the face couldn't be determined, which might happen if the default
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4780 face isn't realized and cannot be realized. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4781
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4782 int
90054
f2ebccfa87d4 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74
Miles Bader <miles@gnu.org>
parents: 90044 58439
diff changeset
4783 lookup_named_face (f, symbol, signal_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4784 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4785 Lisp_Object symbol;
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
4786 int signal_p;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4787 {
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
4788 Lisp_Object attrs[LFACE_VECTOR_SIZE];
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
4789 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4790 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4791
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4792 if (default_face == NULL)
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4793 {
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4794 if (!realize_basic_faces (f))
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4795 return -1;
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4796 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
72170
c594a1694d31 (lookup_named_face, Fdisplay_supports_face_attributes_p):
Richard M. Stallman <rms@gnu.org>
parents: 71992
diff changeset
4797 if (default_face == NULL)
c594a1694d31 (lookup_named_face, Fdisplay_supports_face_attributes_p):
Richard M. Stallman <rms@gnu.org>
parents: 71992
diff changeset
4798 abort (); /* realize_basic_faces must have set it up */
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4799 }
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4800
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4801 if (! get_lface_attributes (f, symbol, symbol_attrs, signal_p, 0))
58439
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
4802 return -1;
b1e7465ce5fc (lookup_named_face): Add signal_p arg. Return -1 if
Kim F. Storm <storm@cua.dk>
parents: 57997
diff changeset
4803
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4804 bcopy (default_face->lface, attrs, sizeof attrs);
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
4805 merge_face_vectors (f, symbol_attrs, attrs, 0);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
4806
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4807 return lookup_face (f, attrs);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4808 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4809
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4810
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4811 /* Return the display face-id of the basic face who's canonical face-id
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4812 is FACE_ID. The return value will usually simply be FACE_ID, unless that
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4813 basic face has bee remapped via Vface_remapping_alist. This function is
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4814 conservative: if something goes wrong, it will simply return FACE_ID
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4815 rather than signal an error. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4816
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4817 int
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4818 lookup_basic_face (f, face_id)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4819 struct frame *f;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4820 int face_id;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4821 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4822 Lisp_Object name, mapping;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4823 int remapped_face_id;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4824
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4825 if (NILP (Vface_remapping_alist))
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4826 return face_id; /* Nothing to do. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4827
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4828 switch (face_id)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4829 {
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4830 case DEFAULT_FACE_ID: name = Qdefault; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4831 case MODE_LINE_FACE_ID: name = Qmode_line; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4832 case MODE_LINE_INACTIVE_FACE_ID: name = Qmode_line_inactive; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4833 case HEADER_LINE_FACE_ID: name = Qheader_line; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4834 case TOOL_BAR_FACE_ID: name = Qtool_bar; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4835 case FRINGE_FACE_ID: name = Qfringe; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4836 case SCROLL_BAR_FACE_ID: name = Qscroll_bar; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4837 case BORDER_FACE_ID: name = Qborder; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4838 case CURSOR_FACE_ID: name = Qcursor; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4839 case MOUSE_FACE_ID: name = Qmouse; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4840 case MENU_FACE_ID: name = Qmenu; break;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4841
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4842 default:
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4843 abort (); /* the caller is supposed to pass us a basic face id */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4844 }
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4845
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4846 /* Do a quick scan through Vface_remapping_alist, and return immediately
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4847 if there is no remapping for face NAME. This is just an optimization
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4848 for the very common no-remapping case. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4849 mapping = assq_no_quit (name, Vface_remapping_alist);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4850 if (NILP (mapping))
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4851 return face_id; /* Give up. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4852
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4853 /* If there is a remapping entry, lookup the face using NAME, which will
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4854 handle the remapping too. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4855 remapped_face_id = lookup_named_face (f, name, 0);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4856 if (remapped_face_id < 0)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4857 return face_id; /* Give up. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4858
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4859 return remapped_face_id;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4860 }
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4861
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
4862
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4863 /* 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
4864 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
4865
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4866 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4867 ascii_face_of_lisp_face (f, lface_id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4868 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4869 int lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4870 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4871 int face_id;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4872
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4873 if (lface_id >= 0 && lface_id < lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4874 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4875 Lisp_Object face_name = lface_id_to_name[lface_id];
90054
f2ebccfa87d4 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74
Miles Bader <miles@gnu.org>
parents: 90044 58439
diff changeset
4876 face_id = lookup_named_face (f, face_name, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4877 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4878 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4879 face_id = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4880
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4881 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4882 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4883
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4884
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4885 /* 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
4886 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
4887 STEPS < 0 means larger. Value is the id of the face. */
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 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4890 smaller_face (f, face_id, steps)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4891 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4892 int face_id, steps;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4893 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4894 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4895 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4896 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4897 int pt, last_pt, last_height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4898 int delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4899 int new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4900 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4901
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4902 /* 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
4903 if (FRAME_TERMCAP_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4904 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4905
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4906 /* Try in increments of 1/2 pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4907 delta = steps < 0 ? 5 : -5;
85262
77d6e76160a6 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85114
diff changeset
4908 steps = eabs (steps);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4909
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4910 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4911 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4912 pt = last_pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4913 new_face_id = face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4914 last_height = FONT_HEIGHT (face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4915
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4916 while (steps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4917 && pt + delta > 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4918 /* Give up if we cannot find a font within 10pt. */
85262
77d6e76160a6 Replace `abs' with `eabs'.
Eli Zaretskii <eliz@gnu.org>
parents: 85114
diff changeset
4919 && eabs (last_pt - pt) < 100)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4920 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4921 /* Look up a face for a slightly smaller/larger font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4922 pt += delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4923 attrs[LFACE_HEIGHT_INDEX] = make_number (pt);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4924 new_face_id = lookup_face (f, attrs);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4925 new_face = FACE_FROM_ID (f, new_face_id);
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 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
4928 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
4929 || (delta > 0 && FONT_HEIGHT (new_face->font) > last_height))
24995
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 --steps;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4932 last_height = FONT_HEIGHT (new_face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4933 last_pt = pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4934 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4935 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4936
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4937 return new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4938
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4939 #else /* not HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4940
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4941 return face_id;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4942
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4943 #endif /* not HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4944 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4945
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4946
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4947 /* 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
4948 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
4949
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
4950 int
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4951 face_with_height (f, face_id, height)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4952 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4953 int face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4954 int height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4955 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4956 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4957 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4958 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4959
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4960 if (FRAME_TERMCAP_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4961 || height <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4962 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4963
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4964 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4965 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4966 attrs[LFACE_HEIGHT_INDEX] = make_number (height);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4967 face_id = lookup_face (f, attrs);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4968 #endif /* HAVE_WINDOW_SYSTEM */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4969
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4970 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4971 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4972
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4973
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4974 /* Return the face id of the realized face for named face SYMBOL on
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4975 frame F suitable for displaying ASCII characters, and use
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4976 attributes of the face FACE_ID for attributes that aren't
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4977 completely specified by SYMBOL. This is like lookup_named_face,
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4978 except that the default attributes come from FACE_ID, not from the
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
4979 default face. FACE_ID 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
4980
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4981 int
90128
13796b0653c7 Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Miles Bader <miles@gnu.org>
parents: 90127 60837
diff changeset
4982 lookup_derived_face (f, symbol, face_id, signal_p)
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4983 struct frame *f;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4984 Lisp_Object symbol;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4985 int face_id;
65713
ad24f42046b1 * xlwmenu.c (find_next_selectable):
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65347
diff changeset
4986 int signal_p;
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4987 {
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
4988 Lisp_Object attrs[LFACE_VECTOR_SIZE];
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4989 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
4990 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
4991
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4992 if (!default_face)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4993 abort ();
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4994
97502
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
4995 if (!get_lface_attributes (f, symbol, symbol_attrs, signal_p, 0))
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
4996 return -1;
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
4997
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4998 bcopy (default_face->lface, attrs, sizeof attrs);
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
4999 merge_face_vectors (f, symbol_attrs, attrs, 0);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5000 return lookup_face (f, attrs);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5001 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5002
40278
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5003 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
5004 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
5005 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
5006 (plist)
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5007 Lisp_Object plist;
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5008 {
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5009 Lisp_Object lface;
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5010 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
5011 Qunspecified);
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5012 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
5013 1, 0);
40278
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5014 return lface;
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5015 }
6ee20fddfbc5 (Fface_attributes_as_vector): New function.
Richard M. Stallman <rms@gnu.org>
parents: 40226
diff changeset
5016
24995
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 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
5021 ***********************************************************************/
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5022
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 /* 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
5025 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
5026 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
5027
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5028 #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
5029
55903
822bab94f6a3 (x_supports_face_attributes_p): Make this function
Eli Zaretskii <eliz@gnu.org>
parents: 55901
diff changeset
5030 #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
5031
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5032 /* 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
5033 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
5034
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5035 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
5036 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
5037 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
5038
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5039 \(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
5040 \(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
5041
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5042 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
5043 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
5044 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
5045 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
5046 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
5047 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5048 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
5049
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5050 /* 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
5051 face. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5052 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
5053 && 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
5054 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
5055 || (!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
5056 && 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
5057 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
5058 || (!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
5059 && 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
5060 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
5061 || (!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
5062 && 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
5063 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
5064 || (!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
5065 && 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
5066 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
5067 || (!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
5068 && 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
5069 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
5070 || (!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
5071 && 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
5072 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
5073 || (!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
5074 && 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
5075 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
5076 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5077
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5078 /* 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
5079 "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
5080 if (!UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5081 || !UNSPECIFIEDP (attrs[LFACE_FOUNDRY_INDEX])
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5082 || !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
5083 || !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
5084 || !UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX])
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5085 || !UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX]))
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5086 {
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 56176
diff changeset
5087 int face_id;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5088 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
5089 Lisp_Object merged_attrs[LFACE_VECTOR_SIZE];
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5090 int i;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5091
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5092 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
5093
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
5094 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
5095
89943
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 56176
diff changeset
5096 face_id = lookup_face (f, merged_attrs);
4c90ffeb71c5 Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Miles Bader <miles@gnu.org>
parents: 89909 56176
diff changeset
5097 face = FACE_FROM_ID (f, face_id);
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5098
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5099 if (! face)
63705
9e649a045c18 (x_supports_face_attributes_p): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 63649
diff changeset
5100 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
5101
95471
6c85f5f5064c (x_supports_face_attributes_p): Check face->font before
Kenichi Handa <handa@m17n.org>
parents: 95457
diff changeset
5102 /* If the font is the same, or no font is found, then not
6c85f5f5064c (x_supports_face_attributes_p): Check face->font before
Kenichi Handa <handa@m17n.org>
parents: 95457
diff changeset
5103 supported. */
6c85f5f5064c (x_supports_face_attributes_p): Check face->font before
Kenichi Handa <handa@m17n.org>
parents: 95457
diff changeset
5104 if (face->font == def_face->font
6c85f5f5064c (x_supports_face_attributes_p): Check face->font before
Kenichi Handa <handa@m17n.org>
parents: 95457
diff changeset
5105 || ! face->font)
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5106 return 0;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5107 for (i = FONT_TYPE_INDEX; i <= FONT_SIZE_INDEX; i++)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5108 if (! EQ (face->font->props[i], def_face->font->props[i]))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5109 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5110 Lisp_Object s1, s2;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5111
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5112 if (i < FONT_FOUNDRY_INDEX || i > FONT_REGISTRY_INDEX
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5113 || face->font->driver->case_sensitive)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5114 return 1;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5115 s1 = SYMBOL_NAME (face->font->props[i]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5116 s2 = SYMBOL_NAME (def_face->font->props[i]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5117 if (! EQ (Fcompare_strings (s1, make_number (0), Qnil,
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5118 s2, make_number (0), Qnil, Qt), Qt))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5119 return 1;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5120 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5121 return 0;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5122 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5123
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5124 /* 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
5125 return 1;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5126 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5127
55903
822bab94f6a3 (x_supports_face_attributes_p): Make this function
Eli Zaretskii <eliz@gnu.org>
parents: 55901
diff changeset
5128 #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
5129
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5130 /* 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
5131 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
5132
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5133 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
5134 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
5135 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
5136
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5137 \(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
5138 \(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
5139
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5140 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
5141 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
5142 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
5143 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
5144 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
5145
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5146 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
5147 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
5148 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
5149 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
5150 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
5151 {
56296
075ad6932e06 (x_supports_face_attributes_p)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56176
diff changeset
5152 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
5153 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
5154 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
5155 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
5156 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
5157 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
5158
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5159
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5160 /* 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
5161 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
5162 (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
5163 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
5164 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
5165 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
5166 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
5167 specifies. */
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5168 if (!UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5169 || !UNSPECIFIEDP (attrs[LFACE_FOUNDRY_INDEX])
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5170 || !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
5171 || !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
5172 || !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
5173 || !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
5174 || !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
5175 || !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
5176 || !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
5177 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5178
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5179
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5180 /* 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
5181
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5182 /* font weight (bold/dim) */
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5183 weight = FONT_WEIGHT_NAME_NUMERIC (attrs[LFACE_WEIGHT_INDEX]);
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5184 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
5185 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5186 int def_weight = FONT_WEIGHT_NAME_NUMERIC (def_attrs[LFACE_WEIGHT_INDEX]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5187
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5188 if (weight > 100)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5189 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5190 if (def_weight > 100)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5191 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
5192 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
5193 }
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5194 else if (weight < 100)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5195 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5196 if (def_weight < 100)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5197 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
5198 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
5199 }
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5200 else if (def_weight == 100)
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5201 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
5202 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5203
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5204 /* underlining */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5205 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
5206 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
5207 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5208 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
5209 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
5210 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
5211 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
5212 else
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5213 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
5214 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5215
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5216 /* inverse video */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5217 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
5218 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
5219 {
78665
e63795496f58 (tty_supports_face_attributes_p): Use instead of LFACE_INVERSE_INDEX
Richard M. Stallman <rms@gnu.org>
parents: 78260
diff changeset
5220 if (face_attr_equal_p (val, def_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
5221 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
5222 else
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5223 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
5224 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5225
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5226
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5227 /* Color testing. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5228
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5229 /* 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
5230 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
5231 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
5232 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
5233 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
5234
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5235 /* 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
5236 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
5237 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
5238 {
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5239 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
5240
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5241 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
5242 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
5243 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
5244 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
5245 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
5246 > 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
5247 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
5248 else
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5249 /* 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
5250 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5251 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
5252 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
5253 && (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
5254 <= 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
5255 return 0;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5256 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5257 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5258
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5259 /* 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
5260 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
5261 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
5262 {
78665
e63795496f58 (tty_supports_face_attributes_p): Use instead of LFACE_INVERSE_INDEX
Richard M. Stallman <rms@gnu.org>
parents: 78260
diff changeset
5263 Lisp_Object def_bg = def_attrs[LFACE_BACKGROUND_INDEX];
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5264
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5265 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
5266 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
5267 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
5268 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
5269 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
5270 > 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
5271 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
5272 else
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5273 /* 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
5274 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5275 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
5276 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
5277 && (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
5278 <= 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
5279 return 0;
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5280 }
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5281 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5282
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5283 /* 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
5284 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
5285 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
5286 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
5287 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
5288 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5289 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
5290 = (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
5291 - 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
5292 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
5293 || 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
5294 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5295 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5296
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5297
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5298 /* 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
5299 given colors. */
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5300 if (test_caps != 0 &&
83145
fe5ecb72e304 Merged in changes from CVS trunk.
Karoly Lorentey <lorentey@elte.hu>
parents: 83123 55912
diff changeset
5301 ! tty_capable_p (FRAME_TTY (f), test_caps, fg_tty_color.pixel, bg_tty_color.pixel))
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5302 return 0;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5303
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5304
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5305 /* 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
5306 return 1;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5307 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5308
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5309
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5310 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
5311 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
5312 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
5313 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
5314 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
5315 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
5316
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5317 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
5318 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
5319 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
5320
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5321 \(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
5322 \(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
5323
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5324 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
5325 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
5326 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
5327 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
5328 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
5329 (attributes, display)
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5330 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
5331 {
74071
ea7f3c26d52b (Fdisplay_supports_face_attributes_p): Initialize
Andreas Schwab <schwab@suse.de>
parents: 73509
diff changeset
5332 int supports = 0, i;
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5333 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
5334 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
5335 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
5336 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
5337
55949
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
5338 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
5339 /* 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
5340 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
5341 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
5342 return Qnil;
50599d471b66 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
Miles Bader <miles@gnu.org>
parents: 55912
diff changeset
5343
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5344 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
5345 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
5346 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
5347 frame = display;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5348 else
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5349 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5350 /* 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
5351 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
5352
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5353 frame = Qnil;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5354 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
5355 {
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5356 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
5357 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
5358 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
5359 display)))
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5360 break;
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5361 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5362 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5363
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5364 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
5365 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
5366
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5367 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
5368 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
5369 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
5370
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5371 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
5372 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
5373 {
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5374 if (! realize_basic_faces (f))
56296
075ad6932e06 (x_supports_face_attributes_p)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56176
diff changeset
5375 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
5376 def_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
72170
c594a1694d31 (lookup_named_face, Fdisplay_supports_face_attributes_p):
Richard M. Stallman <rms@gnu.org>
parents: 71992
diff changeset
5377 if (def_face == NULL)
c594a1694d31 (lookup_named_face, Fdisplay_supports_face_attributes_p):
Richard M. Stallman <rms@gnu.org>
parents: 71992
diff changeset
5378 abort (); /* realize_basic_faces must have set it up */
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5379 }
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5380
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5381 /* 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
5382 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
5383 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
5384 #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
5385 else
55912
0b7bab25fcec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
Miles Bader <miles@gnu.org>
parents: 55903
diff changeset
5386 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
5387 #endif
55901
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5388
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5389 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
5390 }
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5391
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5392
7814348a02ec Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Miles Bader <miles@gnu.org>
parents: 55654
diff changeset
5393 /***********************************************************************
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5394 Font selection
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5395 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5396
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89405
diff changeset
5397 DEFUN ("internal-set-font-selection-order",
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5398 Finternal_set_font_selection_order,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5399 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
5400 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
5401 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
5402 `:height', `:weight', and `:slant'. Face attributes appearing
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
5403 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
5404 `: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
5405 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
5406 Value is ORDER. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
5407 (order)
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
5408 Lisp_Object order;
24995
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 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5411 int i;
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
5412 int indices[DIM (font_sort_order)];
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5413
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
5414 CHECK_LIST (order);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5415 bzero (indices, sizeof indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5416 i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5417
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5418 for (list = order;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5419 CONSP (list) && i < DIM (indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5420 list = XCDR (list), ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5421 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5422 Lisp_Object attr = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5423 int xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5424
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5425 if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5426 xlfd = XLFD_SWIDTH;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5427 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5428 xlfd = XLFD_POINT_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5429 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5430 xlfd = XLFD_WEIGHT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5431 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5432 xlfd = XLFD_SLANT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5433 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5434 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5435
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5436 if (indices[i] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5437 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5438 indices[i] = xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5439 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5440
35913
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
5441 if (!NILP (list) || i != DIM (indices))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5442 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
5443 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
5444 if (indices[i] == 0)
d3591f4747d7 (split_font_name): Compute numeric value of
Gerd Moellmann <gerd@gnu.org>
parents: 35843
diff changeset
5445 signal_error ("Invalid font sort order", order);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5446
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5447 if (bcmp (indices, font_sort_order, sizeof indices) != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5448 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5449 bcopy (indices, font_sort_order, sizeof font_sort_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5450 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5451 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5452
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5453 font_update_sort_order (font_sort_order);
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
5454
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5455 return Qnil;
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 DEFUN ("internal-set-alternative-font-family-alist",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5460 Finternal_set_alternative_font_family_alist,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5461 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
5462 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
5463 ALIST is an alist of (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...) entries.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
5464 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
5465 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
5466 (alist)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5467 Lisp_Object alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5468 {
97930
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5469 Lisp_Object entry, tail, tail2;
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5470
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
5471 CHECK_LIST (alist);
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5472 alist = Fcopy_sequence (alist);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5473 for (tail = alist; CONSP (tail); tail = XCDR (tail))
97930
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5474 {
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5475 entry = XCAR (tail);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5476 CHECK_LIST (entry);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5477 entry = Fcopy_sequence (entry);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5478 XSETCAR (tail, entry);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5479 for (tail2 = entry; CONSP (tail2); tail2 = XCDR (tail2))
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5480 XSETCAR (tail2, Fintern (XCAR (tail2), Qnil));
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5481 }
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5482
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5483 Vface_alternative_font_family_alist = alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5484 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5485 return alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5486 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5487
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5488
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5489 DEFUN ("internal-set-alternative-font-registry-alist",
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5490 Finternal_set_alternative_font_registry_alist,
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5491 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
5492 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
5493 ALIST is an alist of (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...) entries.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
5494 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
5495 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
5496 (alist)
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5497 Lisp_Object alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5498 {
97930
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5499 Lisp_Object entry, tail, tail2;
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5500
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
5501 CHECK_LIST (alist);
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5502 alist = Fcopy_sequence (alist);
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5503 for (tail = alist; CONSP (tail); tail = XCDR (tail))
97930
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5504 {
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5505 entry = XCAR (tail);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5506 CHECK_LIST (entry);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5507 entry = Fcopy_sequence (entry);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5508 XSETCAR (tail, entry);
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5509 for (tail2 = entry; CONSP (tail2); tail2 = XCDR (tail2))
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5510 XSETCAR (tail2, Fdowncase (XCAR (tail2)));
5c86599895c4 (Finternal_set_alternative_font_family_alist)
Chong Yidong <cyd@stupidchicken.com>
parents: 97599
diff changeset
5511 }
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5512 Vface_alternative_font_registry_alist = alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5513 free_all_realized_faces (Qnil);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5514 return alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5515 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5516
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5517
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5518 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5519
34160
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
5520 /* 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
5521
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
5522 #define FONT_POINT_SIZE_QUANTUM 5
bb9ec0151423 (struct font_name): New member registry_priority.
Kenichi Handa <handa@m17n.org>
parents: 33853
diff changeset
5523
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5524 /* 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
5525 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
5526 attribute of ATTRS doesn't name a fontset. */
24995
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 static int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5529 face_fontset (attrs)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5530 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5531 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5532 Lisp_Object name;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5533
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
5534 name = attrs[LFACE_FONTSET_INDEX];
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5535 if (!STRINGP (name))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5536 return -1;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5537 return fs_query_fontset (name, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5538 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5539
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5540 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5541
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5542
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 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5545 Face Realization
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5546 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5547
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5548 /* 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
5549 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
5550 face. */
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 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5553 realize_basic_faces (f)
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
5554 struct frame *f;
24995
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 int success_p = 0;
46285
3f111801efb4 Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45848
diff changeset
5557 int count = SPECPDL_INDEX ();
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
5558
38802
7ca6f1c8e014 (x_update_menu_appearance): Save and restore value of
Gerd Moellmann <gerd@gnu.org>
parents: 38435
diff changeset
5559 /* 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
5560 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
5561 BLOCK_INPUT;
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
5562 specbind (Qscalable_fonts_allowed, Qt);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5563
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5564 if (realize_default_face (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5565 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
5566 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
5567 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
5568 realize_named_face (f, Qtool_bar, TOOL_BAR_FACE_ID);
41129
4aced7b9718b Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 41010
diff changeset
5569 realize_named_face (f, Qfringe, FRINGE_FACE_ID);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
5570 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
5571 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
5572 realize_named_face (f, Qborder, BORDER_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
5573 realize_named_face (f, Qcursor, CURSOR_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
5574 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
5575 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
5576 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
5577
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5578 /* 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
5579 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
5580 {
38905
70ef1eb656a6 (menu_face_changed_default): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 38818
diff changeset
5581 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
5582 #ifdef USE_X_TOOLKIT
82990
2ecd1f669db9 Fixed X support, preliminary support for X-tty combo sessions.
Karoly Lorentey <lorentey@elte.hu>
parents: 82984
diff changeset
5583 if (FRAME_WINDOW_P (f))
2ecd1f669db9 Fixed X support, preliminary support for X-tty combo sessions.
Karoly Lorentey <lorentey@elte.hu>
parents: 82984
diff changeset
5584 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
5585 #endif
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
5586 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
5587
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5588 success_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5589 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5590
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
5591 unbind_to (count, Qnil);
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
5592 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5593 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5594 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5595
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5596
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5597 /* 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
5598 specified, make it fully-specified. Attributes of the default face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5599 that are not explicitly specified are taken from frame parameters. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5600
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5601 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5602 realize_default_face (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5603 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5604 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5605 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5606 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5607 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5608 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5609
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5610 /* If the `default' face is not yet known, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5611 lface = lface_from_face_name (f, Qdefault, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5612 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
5613 {
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
5614 Lisp_Object frame;
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
5615 XSETFRAME (frame, f);
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
5616 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
5617 }
7156fc3b3571 (realize_default_face): Do not abort if lface is non-existent -
Glenn Morris <rgm@gnu.org>
parents: 51237
diff changeset
5618
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5619 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5620 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5621 {
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5622 Lisp_Object font_object;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5623
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5624 XSETFONT (font_object, FRAME_FONT (f));
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5625 set_lface_from_font (f, lface, font_object, f->default_face_done_p);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5626 LFACE_FONTSET (lface) = fontset_name (FRAME_FONTSET (f));
51665
c1f65dfc56eb Fix some of the font/face problems.
Jan Djärv <jan.h.d@swipnet.se>
parents: 51500
diff changeset
5627 f->default_face_done_p = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5628 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5629 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5630
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5631 if (!FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5632 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5633 LFACE_FAMILY (lface) = build_string ("default");
95865
99530dd346d3 (LFACE_FOUNDRY): New macro.
Kenichi Handa <handa@m17n.org>
parents: 95574
diff changeset
5634 LFACE_FOUNDRY (lface) = LFACE_FAMILY (lface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5635 LFACE_SWIDTH (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5636 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
5637 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
5638 LFACE_WEIGHT (lface) = Qnormal;
e1291f1c4a5b (realize_default_face): Don't set the weight and slant
Eli Zaretskii <eliz@gnu.org>
parents: 42206
diff changeset
5639 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
5640 LFACE_SLANT (lface) = Qnormal;
96027
6aa4148ea6bc (realize_default_face): If the frame is not on window
Kenichi Handa <handa@m17n.org>
parents: 96019
diff changeset
5641 if (UNSPECIFIEDP (LFACE_FONTSET (lface)))
6aa4148ea6bc (realize_default_face): If the frame is not on window
Kenichi Handa <handa@m17n.org>
parents: 96019
diff changeset
5642 LFACE_FONTSET (lface) = Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5643 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5644
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5645 if (UNSPECIFIEDP (LFACE_UNDERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5646 LFACE_UNDERLINE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5647
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5648 if (UNSPECIFIEDP (LFACE_OVERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5649 LFACE_OVERLINE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5650
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5651 if (UNSPECIFIEDP (LFACE_STRIKE_THROUGH (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5652 LFACE_STRIKE_THROUGH (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5653
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5654 if (UNSPECIFIEDP (LFACE_BOX (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5655 LFACE_BOX (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5656
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5657 if (UNSPECIFIEDP (LFACE_INVERSE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5658 LFACE_INVERSE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5659
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5660 if (UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5661 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5662 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5663 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5664 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
5665
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5666 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5667 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
5668 else if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5669 return 0;
83008
040dd41ed7d0 Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
5670 else if (FRAME_INITIAL_P (f) || FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
5671 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
5672 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5673 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5674 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5675
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5676 if (UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5677 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5678 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5679 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5680 Lisp_Object color = Fassq (Qbackground_color, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5681 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5682 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
5683 else if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5684 return 0;
83008
040dd41ed7d0 Hookified termcap devices, added bootstrap display device, plus many bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83004
diff changeset
5685 else if (FRAME_INITIAL_P (f) || FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
5686 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
5687 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5688 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5689 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5690
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5691 if (UNSPECIFIEDP (LFACE_STIPPLE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5692 LFACE_STIPPLE (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5693
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5694 /* Realize the face; it must be fully-specified now. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5695 xassert (lface_fully_specified_p (XVECTOR (lface)->contents));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5696 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5697 bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5698 face = realize_face (c, attrs, DEFAULT_FACE_ID);
70566
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
5699
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
5700 #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
5701 #ifdef HAVE_X_WINDOWS
83519
717426715b03 Fix stupid crash during startup.
Karoly Lorentey <lorentey@elte.hu>
parents: 83518
diff changeset
5702 if (FRAME_X_P (f) && face->font != FRAME_FONT (f))
74114
cd686b5380c4 (realize_default_face): Check if the default font name
Chong Yidong <cyd@stupidchicken.com>
parents: 74071
diff changeset
5703 {
cd686b5380c4 (realize_default_face): Check if the default font name
Chong Yidong <cyd@stupidchicken.com>
parents: 74071
diff changeset
5704 /* This can happen when making a frame on a display that does
83548
c71725faff1a Merged from emacs@sv.gnu.org. Last-minute emacsclient rewrites be damned!
Karoly Lorentey <lorentey@elte.hu>
parents: 83545 74114
diff changeset
5705 not support the default font. */
74114
cd686b5380c4 (realize_default_face): Check if the default font name
Chong Yidong <cyd@stupidchicken.com>
parents: 74071
diff changeset
5706 if (!face->font)
83548
c71725faff1a Merged from emacs@sv.gnu.org. Last-minute emacsclient rewrites be damned!
Karoly Lorentey <lorentey@elte.hu>
parents: 83545 74114
diff changeset
5707 return 0;
95375
e743691cff9c (Fx_list_fonts, Finternal_copy_lisp_face): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 95373
diff changeset
5708
74114
cd686b5380c4 (realize_default_face): Check if the default font name
Chong Yidong <cyd@stupidchicken.com>
parents: 74071
diff changeset
5709 /* Otherwise, the font specified for the frame was not
83548
c71725faff1a Merged from emacs@sv.gnu.org. Last-minute emacsclient rewrites be damned!
Karoly Lorentey <lorentey@elte.hu>
parents: 83545 74114
diff changeset
5710 acceptable as a font for the default face (perhaps because
c71725faff1a Merged from emacs@sv.gnu.org. Last-minute emacsclient rewrites be damned!
Karoly Lorentey <lorentey@elte.hu>
parents: 83545 74114
diff changeset
5711 auto-scaled fonts are rejected), so we must adjust the frame
c71725faff1a Merged from emacs@sv.gnu.org. Last-minute emacsclient rewrites be damned!
Karoly Lorentey <lorentey@elte.hu>
parents: 83545 74114
diff changeset
5712 font. */
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5713 x_set_font (f, LFACE_FONT (lface), Qnil);
74114
cd686b5380c4 (realize_default_face): Check if the default font name
Chong Yidong <cyd@stupidchicken.com>
parents: 74071
diff changeset
5714 }
70566
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
5715 #endif /* HAVE_X_WINDOWS */
a0f76f946025 (realize_default_face): If the font chosen for the
Kenichi Handa <handa@m17n.org>
parents: 69968
diff changeset
5716 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5717 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5718 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5719
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5720
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5721 /* 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
5722 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
5723 have. The default face must have been realized already. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5724
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5725 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5726 realize_named_face (f, symbol, id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5727 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5728 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5729 int id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5730 {
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5731 struct face_cache *c = FRAME_FACE_CACHE (f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5732 Lisp_Object lface = lface_from_face_name (f, symbol, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5733 Lisp_Object attrs[LFACE_VECTOR_SIZE];
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5734 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5735 struct face *new_face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5736
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5737 /* The default face must exist and be fully specified. */
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
5738 get_lface_attributes_no_remap (f, Qdefault, attrs, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5739 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5740 xassert (lface_fully_specified_p (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5741
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5742 /* If SYMBOL isn't know as a face, create it. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5743 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5744 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5745 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5746 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5747 lface = Finternal_make_lisp_face (symbol, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5748 }
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 /* Merge SYMBOL's face with the default face. */
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
5751 get_lface_attributes_no_remap (f, symbol, symbol_attrs, 1);
91531
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5752 merge_face_vectors (f, symbol_attrs, attrs, 0);
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5753
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5754 /* Realize the face. */
24d3fbc119ce Revert 2008-02-01 change to src/xfaces.c by cyd@stupidchicken.com
Miles Bader <miles@gnu.org>
parents: 91382
diff changeset
5755 new_face = realize_face (c, attrs, id);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5756 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5759 /* Realize the fully-specified face with attributes ATTRS in face
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5760 cache CACHE for ASCII characters. If FORMER_FACE_ID is
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5761 non-negative, it is an ID of face to remove before caching the new
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5762 face. Value is a pointer to the newly created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5763
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5764 static struct face *
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5765 realize_face (cache, attrs, former_face_id)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5766 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5767 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5768 int former_face_id;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5769 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5770 struct face *face;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5771
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5772 /* LFACE must be fully specified. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5773 xassert (cache != NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5774 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5775
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5776 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
5777 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5778 /* Remove the former face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5779 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
5780 uncache_face (cache, former_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5781 free_realized_face (cache->f, former_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5782 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5783
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5784 if (FRAME_WINDOW_P (cache->f))
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5785 face = realize_x_face (cache, attrs);
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
5786 else if (FRAME_TERMCAP_P (cache->f) || FRAME_MSDOS_P (cache->f))
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5787 face = realize_tty_face (cache, attrs);
83021
32bf8e7cc0c2 Fixed tty faces during combo sessions. Plus other assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83008
diff changeset
5788 else if (FRAME_INITIAL_P (cache->f))
32bf8e7cc0c2 Fixed tty faces during combo sessions. Plus other assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83008
diff changeset
5789 {
32bf8e7cc0c2 Fixed tty faces during combo sessions. Plus other assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83008
diff changeset
5790 /* Create a dummy face. */
32bf8e7cc0c2 Fixed tty faces during combo sessions. Plus other assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83008
diff changeset
5791 face = make_realized_face (attrs);
32bf8e7cc0c2 Fixed tty faces during combo sessions. Plus other assorted bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents: 83008
diff changeset
5792 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5793 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5794 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5795
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5796 /* Insert the new face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5797 cache_face (cache, face, lface_hash (attrs));
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5798 return face;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5799 }
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5800
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5801
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5802 #ifdef HAVE_WINDOW_SYSTEM
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5803 /* Realize the fully-specified face that uses FONT-OBJECT and has the
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5804 same attributes as BASE_FACE except for the font on frame F.
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5805 FONT-OBJECT may be nil, in which case, realized a face of
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5806 no-font. */
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5807
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5808 static struct face *
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5809 realize_non_ascii_face (f, font_object, base_face)
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5810 struct frame *f;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5811 Lisp_Object font_object;
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5812 struct face *base_face;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5813 {
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5814 struct face_cache *cache = FRAME_FACE_CACHE (f);
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89405
diff changeset
5815 struct face *face;
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5816
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5817 face = (struct face *) xmalloc (sizeof *face);
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5818 *face = *base_face;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5819 face->gc = 0;
90526
af0b00c37c9b * xfaces.c (realize_non_ascii_face): Set face->extra to NULL.
Jan Djärv <jan.h.d@swipnet.se>
parents: 90519
diff changeset
5820 face->extra = NULL;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5821 face->overstrike
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5822 = (! NILP (font_object)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5823 && FONT_WEIGHT_NAME_NUMERIC (face->lface[LFACE_WEIGHT_INDEX]) > 100
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5824 && FONT_WEIGHT_NUMERIC (font_object) <= 100);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5825
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5826 /* Don't try to free the colors copied bitwise from BASE_FACE. */
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5827 face->colors_copied_bitwise_p = 1;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5828 face->font = NILP (font_object) ? NULL : XFONT_OBJECT (font_object);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5829 face->gc = 0;
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5830
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5831 cache_face (cache, face, face->hash);
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5832
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5833 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5834 }
89950
ad8c5c667a14 (split_font_name_into_vector, build_font_name_from_vector)
Kenichi Handa <handa@m17n.org>
parents: 89948
diff changeset
5835 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5836
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5837
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5838 /* Realize the fully-specified face with attributes ATTRS in face
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5839 cache CACHE for ASCII characters. Do it for X frame CACHE->f. If
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5840 the new face doesn't share font with the default face, a fontname
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5841 is allocated from the heap and set in `font_name' of the new face,
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5842 but it is not yet loaded here. Value is a pointer to the newly
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5843 created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5844
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5845 static struct face *
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5846 realize_x_face (cache, attrs)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5847 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5848 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5849 {
61628
c897778cd685 (realize_x_face) [!HAVE_WINDOW_SYSTEM]: Return NULL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 60837
diff changeset
5850 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
5851 #ifdef HAVE_WINDOW_SYSTEM
61628
c897778cd685 (realize_x_face) [!HAVE_WINDOW_SYSTEM]: Return NULL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 60837
diff changeset
5852 struct face *default_face;
26875
d6aa11f2a4af (choose_face_fontset_font): Delete codes for a
Kenichi Handa <handa@m17n.org>
parents: 26759
diff changeset
5853 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5854 Lisp_Object stipple, overline, strike_through, box;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5855
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5856 xassert (FRAME_WINDOW_P (cache->f));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5857
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5858 /* Allocate a new realized face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5859 face = make_realized_face (attrs);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5860 face->ascii_face = face;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5861
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5862 f = cache->f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5863
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5864 /* 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
5865 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
5866 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5867 if (default_face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5868 && lface_same_font_attributes_p (default_face->lface, attrs))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5869 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5870 face->font = default_face->font;
95567
4170d7f0d918 (realize_x_face): If the font-related face attributes
Kenichi Handa <handa@m17n.org>
parents: 95471
diff changeset
5871 face->fontset
4170d7f0d918 (realize_x_face): If the font-related face attributes
Kenichi Handa <handa@m17n.org>
parents: 95471
diff changeset
5872 = make_fontset_for_ascii_face (f, default_face->fontset, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5873 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5874 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5875 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5876 /* 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
5877 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
5878 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
5879 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
5880 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
5881 are constructed from ATTRS. */
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
5882 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
5883
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5884 /* If we are realizing the default face, ATTRS should specify a
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5885 fontset. In other words, if FONTSET is -1, we are not
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5886 realizing the default face, thus the default face should have
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5887 already been realized. */
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
5888 if (fontset == -1)
100102
25295c680f6b (realize_x_face): Make abort condition clearer.
Chong Yidong <cyd@stupidchicken.com>
parents: 99995
diff changeset
5889 {
25295c680f6b (realize_x_face): Make abort condition clearer.
Chong Yidong <cyd@stupidchicken.com>
parents: 99995
diff changeset
5890 if (default_face)
25295c680f6b (realize_x_face): Make abort condition clearer.
Chong Yidong <cyd@stupidchicken.com>
parents: 99995
diff changeset
5891 fontset = default_face->fontset;
25295c680f6b (realize_x_face): Make abort condition clearer.
Chong Yidong <cyd@stupidchicken.com>
parents: 99995
diff changeset
5892 if (fontset == -1)
25295c680f6b (realize_x_face): Make abort condition clearer.
Chong Yidong <cyd@stupidchicken.com>
parents: 99995
diff changeset
5893 abort ();
25295c680f6b (realize_x_face): Make abort condition clearer.
Chong Yidong <cyd@stupidchicken.com>
parents: 99995
diff changeset
5894 }
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5895 if (! FONT_OBJECT_P (attrs[LFACE_FONT_INDEX]))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5896 attrs[LFACE_FONT_INDEX]
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5897 = font_load_for_lface (f, attrs, attrs[LFACE_FONT_INDEX]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5898 if (FONT_OBJECT_P (attrs[LFACE_FONT_INDEX]))
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5899 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5900 face->font = XFONT_OBJECT (attrs[LFACE_FONT_INDEX]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5901 face->fontset = make_fontset_for_ascii_face (f, fontset, face);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5902 }
90414
41626792e297 Include "font.h".
Kenichi Handa <handa@m17n.org>
parents: 90389
diff changeset
5903 else
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5904 {
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5905 face->font = NULL;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5906 face->fontset = -1;
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5907 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5908 }
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5909
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5910 if (face->font
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5911 && FONT_WEIGHT_NAME_NUMERIC (attrs[LFACE_WEIGHT_INDEX]) > 100
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5912 && FONT_WEIGHT_NUMERIC (attrs[LFACE_FONT_INDEX]) <= 100)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
5913 face->overstrike = 1;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5914
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5915 /* Load colors, and set remaining attributes. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5916
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5917 load_face_colors (f, face, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5918
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5919 /* Set up box. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5920 box = attrs[LFACE_BOX_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5921 if (STRINGP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5922 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5923 /* 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
5924 the string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5925 face->box_color = load_color (f, face, attrs[LFACE_BOX_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5926 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5927 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5928 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5929 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5930 else if (INTEGERP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5931 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5932 /* Simple box of specified line width in foreground color of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5933 face. */
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
5934 xassert (XINT (box) != 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5935 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
5936 face->box_line_width = XINT (box);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5937 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5938 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5939 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5940 else if (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5941 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5942 /* `(:width WIDTH :color COLOR :shadow SHADOW)'. SHADOW
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5943 being one of `raised' or `sunken'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5944 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5945 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5946 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5947 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5948
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5949 while (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5950 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5951 Lisp_Object keyword, value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5952
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5953 keyword = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5954 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5955
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5956 if (!CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5957 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5958 value = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5959 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5960
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5961 if (EQ (keyword, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5962 {
36006
a9d75e8a6cb9 (Finternal_set_lisp_face_attribute): The value of :box
Kenichi Handa <handa@m17n.org>
parents: 35913
diff changeset
5963 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
5964 face->box_line_width = XINT (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5965 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5966 else if (EQ (keyword, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5967 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5968 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5969 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5970 face->box_color = load_color (f, face, value,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5971 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5972 face->use_box_color_for_shadows_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5973 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5974 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5975 else if (EQ (keyword, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5976 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5977 if (EQ (value, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5978 face->box = FACE_RAISED_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5979 else if (EQ (value, Qpressed_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5980 face->box = FACE_SUNKEN_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5981 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5982 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5983 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5984
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5985 /* Text underline, overline, strike-through. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5986
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5987 if (EQ (attrs[LFACE_UNDERLINE_INDEX], Qt))
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5988 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5989 /* Use default color (same as foreground color). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5990 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5991 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5992 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5993 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5994 else if (STRINGP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5995 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5996 /* Use specified color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5997 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5998 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5999 face->underline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6000 = load_color (f, face, attrs[LFACE_UNDERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6001 LFACE_UNDERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6002 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6003 else if (NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6004 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6005 face->underline_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6006 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6007 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6008 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6009
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6010 overline = attrs[LFACE_OVERLINE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6011 if (STRINGP (overline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6012 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6013 face->overline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6014 = load_color (f, face, attrs[LFACE_OVERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6015 LFACE_OVERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6016 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6017 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6018 else if (EQ (overline, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6019 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6020 face->overline_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6021 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6022 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6023 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6024
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6025 strike_through = attrs[LFACE_STRIKE_THROUGH_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6026 if (STRINGP (strike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6027 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6028 face->strike_through_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6029 = load_color (f, face, attrs[LFACE_STRIKE_THROUGH_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6030 LFACE_STRIKE_THROUGH_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6031 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6032 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6033 else if (EQ (strike_through, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6034 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6035 face->strike_through_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6036 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6037 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6038 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6039
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6040 stipple = attrs[LFACE_STIPPLE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6041 if (!NILP (stipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6042 face->stipple = load_pixmap (f, stipple, &face->pixmap_w, &face->pixmap_h);
61628
c897778cd685 (realize_x_face) [!HAVE_WINDOW_SYSTEM]: Return NULL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 60837
diff changeset
6043 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6044
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6045 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6046 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6047
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6048
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6049 /* 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
6050 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
6051 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
6052 default foreground/background colors. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6053
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6054 static void
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6055 map_tty_color (f, face, idx, defaulted)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6056 struct frame *f;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6057 struct face *face;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6058 enum lface_attribute_index idx;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6059 int *defaulted;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6060 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6061 Lisp_Object frame, color, def;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6062 int foreground_p = idx == LFACE_FOREGROUND_INDEX;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6063 unsigned long default_pixel, default_other_pixel, pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6064
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6065 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
6066
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6067 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6068 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6069 pixel = default_pixel = FACE_TTY_DEFAULT_FG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6070 default_other_pixel = FACE_TTY_DEFAULT_BG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6071 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6072 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6073 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6074 pixel = default_pixel = FACE_TTY_DEFAULT_BG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6075 default_other_pixel = FACE_TTY_DEFAULT_FG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6076 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6077
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6078 XSETFRAME (frame, f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6079 color = face->lface[idx];
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48384
diff changeset
6080
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6081 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
6082 && SCHARS (color)
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6083 && CONSP (Vtty_defined_color_alist)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6084 && (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
6085 CONSP (def)))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6086 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6087 /* 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
6088 (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
6089 pixel = XINT (XCAR (XCDR (def)));
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6090 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6091
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6092 if (pixel == default_pixel && STRINGP (color))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6093 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6094 pixel = load_color (f, face, color, idx);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6095
86875
51288a744d1c (map_tty_color, tty_color_name): Remove special case for WINDOWSNT.
Jason Rumney <jasonr@gnu.org>
parents: 85973
diff changeset
6096 #ifdef MSDOS
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6097 /* 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
6098 use the foreground color defined by the frame. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6099 if (FRAME_MSDOS_P (f))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6100 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6101 if (pixel == default_pixel
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6102 || pixel == FACE_TTY_DEFAULT_COLOR)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6103 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6104 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6105 pixel = FRAME_FOREGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6106 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6107 pixel = FRAME_BACKGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6108 face->lface[idx] = tty_color_name (f, pixel);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6109 *defaulted = 1;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6110 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6111 else if (pixel == default_other_pixel)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6112 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6113 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6114 pixel = FRAME_BACKGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6115 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6116 pixel = FRAME_FOREGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6117 face->lface[idx] = tty_color_name (f, pixel);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6118 *defaulted = 1;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6119 }
86875
51288a744d1c (map_tty_color, tty_color_name): Remove special case for WINDOWSNT.
Jason Rumney <jasonr@gnu.org>
parents: 85973
diff changeset
6120 }
51288a744d1c (map_tty_color, tty_color_name): Remove special case for WINDOWSNT.
Jason Rumney <jasonr@gnu.org>
parents: 85973
diff changeset
6121 #endif /* MSDOS */
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6122 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6123
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6124 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6125 face->foreground = pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6126 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6127 face->background = pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6128 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6129
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6130
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6131 /* Realize the fully-specified face with attributes ATTRS in face
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
6132 cache CACHE for ASCII characters. Do it for TTY frame CACHE->f.
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
6133 Value is a pointer to the newly created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6134
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6135 static struct face *
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
6136 realize_tty_face (cache, attrs)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6137 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6138 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6139 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6140 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6141 int weight, slant;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
6142 int face_colors_defaulted = 0;
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6143 struct frame *f = cache->f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6144
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6145 /* Frame must be a termcap frame. */
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
6146 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
6147
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6148 /* Allocate a new realized face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6149 face = make_realized_face (attrs);
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6150 #if 0
35443
2e9bfb04e84a (realize_default_face):
Andrew Innes <andrewi@gnu.org>
parents: 35371
diff changeset
6151 face->font_name = FRAME_MSDOS_P (cache->f) ? "ms-dos" : "tty";
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6152 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6153
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6154 /* Map face attributes to TTY appearances. We map slant to
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6155 dimmed text because we want italic text to appear differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6156 and because dimmed text is probably used infrequently. */
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6157 weight = FONT_WEIGHT_NAME_NUMERIC (attrs[LFACE_WEIGHT_INDEX]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6158 slant = FONT_SLANT_NAME_NUMERIC (attrs[LFACE_SLANT_INDEX]);
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6159 if (weight > 100)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6160 face->tty_bold_p = 1;
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6161 if (weight < 100 || slant != 100)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6162 face->tty_dim_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6163 if (!NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6164 face->tty_underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6165 if (!NILP (attrs[LFACE_INVERSE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6166 face->tty_reverse_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6167
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6168 /* Map color names to color indices. */
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6169 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
6170 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
6171
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
6172 /* 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
6173 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
6174 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
6175 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
6176 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6177 unsigned long tem = face->foreground;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6178 face->foreground = face->background;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6179 face->background = tem;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6180 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6181
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6182 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
6183 && face->tty_bold_p
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6184 && 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
6185 && 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
6186 face->tty_bold_p = 0;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6187
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6188 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6189 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6190
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6191
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6192 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
6193 Ftty_suppress_bold_inverse_default_colors,
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6194 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
6195 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
6196 SUPPRESS non-nil means suppress it.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6197 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
6198 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
6199 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
6200 is non-nil. */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6201 (suppress)
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6202 Lisp_Object suppress;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6203 {
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6204 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
6205 ++face_change_count;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6206 return suppress;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6207 }
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6208
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6209
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6210
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6211 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6212 Computing Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6213 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6214
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6215 /* 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
6216 property PROP on frame F in current_buffer. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6217
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6218 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6219 compute_char_face (f, ch, prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6220 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6221 int ch;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6222 Lisp_Object prop;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6223 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6224 int face_id;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6225
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6226 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
6227 ch = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6228
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6229 if (NILP (prop))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6230 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6231 struct face *face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
89701
a1d897828f2f (compute_char_face): Call FACE_FOR_CHAR with POS and OBJECT args.
Kenichi Handa <handa@m17n.org>
parents: 89620
diff changeset
6232 face_id = FACE_FOR_CHAR (f, face, ch, -1, Qnil);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6233 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6234 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6235 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6236 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6237 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6238 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
6239 merge_face_ref (f, prop, attrs, 1, 0);
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
6240 face_id = lookup_face (f, attrs);
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6243 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6244 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6245
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6246 /* Return the face ID associated with buffer position POS for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6247 displaying ASCII characters. Return in *ENDPTR the position at
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6248 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
6249 overlays are concerned. W is a window displaying current_buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6250
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6251 REGION_BEG, REGION_END delimit the region, so it can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6252 highlighted.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6253
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6254 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
6255 this function can take.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6256
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6257 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
6258
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6259 The face returned is suitable for displaying ASCII characters. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6260
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6261 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6262 face_at_buffer_position (w, pos, region_beg, region_end,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6263 endptr, limit, mouse)
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6264 struct window *w;
92237
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6265 EMACS_INT pos;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6266 EMACS_INT region_beg, region_end;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6267 EMACS_INT *endptr;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6268 EMACS_INT limit;
6615
96ddf85642d1 (compute_char_face): New arg MOUSE.
Richard M. Stallman <rms@gnu.org>
parents: 5858
diff changeset
6269 int mouse;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6270 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6271 struct frame *f = XFRAME (w->frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6272 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
6273 Lisp_Object prop, position;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6274 int i, noverlays;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6275 Lisp_Object *overlay_vec;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6276 Lisp_Object frame;
92237
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6277 EMACS_INT endpos;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6278 Lisp_Object propname = mouse ? Qmouse_face : Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6279 Lisp_Object limit1, end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6280 struct face *default_face;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6281
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6282 /* 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
6283 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
6284 /* xassert (XBUFFER (w->buffer) == current_buffer); */
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6285
9284
a969e0eefaf5 (compute_char_face): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
parents: 9186
diff changeset
6286 XSETFRAME (frame, f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6287 XSETFASTINT (position, pos);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6288
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6289 endpos = ZV;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6290 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
6291 endpos = region_beg;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6292
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6293 /* Get the `face' or `mouse_face' text property at POS, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6294 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
6295 prop = Fget_text_property (position, propname, w->buffer);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6296 XSETFASTINT (limit1, (limit < endpos ? limit : endpos));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6297 end = Fnext_single_property_change (position, propname, w->buffer, limit1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6298 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6299 endpos = XINT (end);
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 /* 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
6302 {
92150
1c088baa9d2d Allow fine-grained image-cache flushing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92109
diff changeset
6303 EMACS_INT next_overlay;
55654
edc2b57535e5 (face_at_buffer_position): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 55560
diff changeset
6304
edc2b57535e5 (face_at_buffer_position): Use GET_OVERLAYS_AT.
Kim F. Storm <storm@cua.dk>
parents: 55560
diff changeset
6305 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
6306 if (next_overlay < endpos)
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6307 endpos = next_overlay;
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6308 }
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6309
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6310 *endptr = endpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6311
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6312
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6313 /* Perhaps remap BASE_FACE_ID to a user-specified alternative. */
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6314 if (NILP (Vface_remapping_alist))
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6315 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6316 else
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6317 default_face = FACE_FROM_ID (f, lookup_basic_face (f, DEFAULT_FACE_ID));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6318
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6319 /* Optimize common cases where we can use the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6320 if (noverlays == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6321 && NILP (prop)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6322 && !(pos >= region_beg && pos < region_end))
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6323 return default_face->id;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6324
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6325 /* Begin with attributes from the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6326 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6327
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6328 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6329 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
6330 merge_face_ref (f, prop, attrs, 1, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6331
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6332 /* 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
6333 noverlays = sort_overlays (overlay_vec, noverlays, w);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6334 for (i = 0; i < noverlays; i++)
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6335 {
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6336 Lisp_Object oend;
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6337 int oendpos;
9186
45bac5feb065 (compute_char_face): Handle list as overlay face property.
Richard M. Stallman <rms@gnu.org>
parents: 9184
diff changeset
6338
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6339 prop = Foverlay_get (overlay_vec[i], propname);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6340 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
6341 merge_face_ref (f, prop, attrs, 1, 0);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6342
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6343 oend = OVERLAY_END (overlay_vec[i]);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6344 oendpos = OVERLAY_POSITION (oend);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6345 if (oendpos < endpos)
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6346 endpos = oendpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6347 }
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6348
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6349 /* 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
6350 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
6351 {
55966
b9f354f2c61f Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Miles Bader <miles@gnu.org>
parents: 55949
diff changeset
6352 merge_named_face (f, Qregion, attrs, 0);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6353
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6354 if (region_end < endpos)
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6355 endpos = region_end;
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6356 }
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6357
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6358 *endptr = endpos;
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6359
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6360 /* 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
6361 or realize a new one for ASCII characters. */
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
6362 return lookup_face (f, attrs);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6363 }
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6364
79336
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6365 /* Return the face ID at buffer position POS for displaying ASCII
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6366 characters associated with overlay strings for overlay OVERLAY.
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6367
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6368 Like face_at_buffer_position except for OVERLAY. Currently it
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6369 simply disregards the `face' properties of all overlays. */
79327
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6370
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6371 int
79336
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6372 face_for_overlay_string (w, pos, region_beg, region_end,
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6373 endptr, limit, mouse, overlay)
79327
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6374 struct window *w;
92237
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6375 EMACS_INT pos;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6376 EMACS_INT region_beg, region_end;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6377 EMACS_INT *endptr;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6378 EMACS_INT limit;
79327
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6379 int mouse;
79336
6c386e3cec2a (face_for_overlay_string): Function renamed from
Richard M. Stallman <rms@gnu.org>
parents: 79327
diff changeset
6380 Lisp_Object overlay;
79327
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6381 {
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6382 struct frame *f = XFRAME (w->frame);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6383 Lisp_Object attrs[LFACE_VECTOR_SIZE];
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6384 Lisp_Object prop, position;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6385 Lisp_Object frame;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6386 int endpos;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6387 Lisp_Object propname = mouse ? Qmouse_face : Qface;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6388 Lisp_Object limit1, end;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6389 struct face *default_face;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6390
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6391 /* W must display the current buffer. We could write this function
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6392 to use the frame and buffer of W, but right now it doesn't. */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6393 /* xassert (XBUFFER (w->buffer) == current_buffer); */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6394
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6395 XSETFRAME (frame, f);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6396 XSETFASTINT (position, pos);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6397
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6398 endpos = ZV;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6399 if (pos < region_beg && region_beg < endpos)
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6400 endpos = region_beg;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6401
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6402 /* Get the `face' or `mouse_face' text property at POS, and
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6403 determine the next position at which the property changes. */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6404 prop = Fget_text_property (position, propname, w->buffer);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6405 XSETFASTINT (limit1, (limit < endpos ? limit : endpos));
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6406 end = Fnext_single_property_change (position, propname, w->buffer, limit1);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6407 if (INTEGERP (end))
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6408 endpos = XINT (end);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6409
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6410 *endptr = endpos;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6411
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6412 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6413
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6414 /* Optimize common cases where we can use the default face. */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6415 if (NILP (prop)
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6416 && !(pos >= region_beg && pos < region_end))
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6417 return DEFAULT_FACE_ID;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6418
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6419 /* Begin with attributes from the default face. */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6420 bcopy (default_face->lface, attrs, sizeof attrs);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6421
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6422 /* Merge in attributes specified via text properties. */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6423 if (!NILP (prop))
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6424 merge_face_ref (f, prop, attrs, 1, 0);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6425
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6426 /* If in the region, merge in the region face. */
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6427 if (pos >= region_beg && pos < region_end)
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6428 {
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6429 merge_named_face (f, Qregion, attrs, 0);
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6430
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6431 if (region_end < endpos)
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6432 endpos = region_end;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6433 }
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6434
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6435 *endptr = endpos;
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6436
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6437 /* Look up a realized face with the given face attributes,
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6438 or realize a new one for ASCII characters. */
91087
66f982c3b25e (face_for_overlay_string): Call lookup_face with
Kenichi Handa <handa@m17n.org>
parents: 91085
diff changeset
6439 return lookup_face (f, attrs);
79327
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6440 }
72cdd210604a (face_at_buffer_position_no_overlays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 78783
diff changeset
6441
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6442
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6443 /* 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
6444 window W, for ASCII characters.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6445
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6446 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
6447 current_buffer, otherwise BUFPOS is zero to indicate that STRING is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6448 not an overlay string. W must display the current buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6449 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
6450 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
6451
1bf333d1b1de (face_at_string_position): Update function comment.
Gerd Moellmann <gerd@gnu.org>
parents: 34242
diff changeset
6452 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
6453 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
6454
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
6455 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
6456
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6457 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
6458 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
6459 string.
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 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
6462 for displaying ASCII characters. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6463
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6464 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6465 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
6466 region_end, endptr, base_face_id, mouse_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6467 struct window *w;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6468 Lisp_Object string;
92237
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6469 EMACS_INT pos, bufpos;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6470 EMACS_INT region_beg, region_end;
ce06567a933d * dispextern.h (face_at_buffer_position, face_for_overlay_string)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 92150
diff changeset
6471 EMACS_INT *endptr;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6472 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
6473 int mouse_p;
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6474 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6475 Lisp_Object prop, position, end, limit;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6476 struct frame *f = XFRAME (WINDOW_FRAME (w));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6477 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6478 struct face *base_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6479 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
6480 Lisp_Object prop_name = mouse_p ? Qmouse_face : Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6481
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6482 /* 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
6483 STRING. Value is nil if there is no face property. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6484 XSETFASTINT (position, pos);
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
6485 prop = Fget_text_property (position, prop_name, string);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6486
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6487 /* 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
6488 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
6489 Otherwise it is a string position where to check faces next.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6490 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
6491 changes in Fnext_single_property_change. Strings are usually
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6492 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
6493 XSETFASTINT (limit, SCHARS (string));
36672
acf152adbf82 (face_at_string_position): Add parameter MOUSE_P.
Gerd Moellmann <gerd@gnu.org>
parents: 36481
diff changeset
6494 end = Fnext_single_property_change (position, prop_name, string, limit);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6495 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6496 *endptr = XFASTINT (end);
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6497 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6498 *endptr = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6499
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6500 base_face = FACE_FROM_ID (f, base_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6501 xassert (base_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6502
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6503 /* 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
6504 are not in the region. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6505 if (NILP (prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6506 && (base_face_id != DEFAULT_FACE_ID
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6507 /* BUFPOS <= 0 means STRING is not an overlay string, so
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6508 that the region doesn't have to be taken into account. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6509 || bufpos <= 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6510 || bufpos < region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6511 || bufpos >= region_end)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6512 && (multibyte_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6513 /* We can't realize faces for different charsets differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6514 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
6515 on a window-system frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6516 || !FRAME_WINDOW_P (f)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6517 || FACE_SUITABLE_FOR_CHAR_P (base_face, 0)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6518 return base_face->id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6519
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6520 /* Begin with attributes from the base face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6521 bcopy (base_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6522
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6523 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6524 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
6525 merge_face_ref (f, prop, attrs, 1, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6526
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6527 /* If in the region, merge in the region face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6528 if (bufpos
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6529 && bufpos >= region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6530 && 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
6531 merge_named_face (f, Qregion, attrs, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6532
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6533 /* 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
6534 or realize a new one for ASCII characters. */
88907
eca48744527f Include charset.h.
Kenichi Handa <handa@m17n.org>
parents: 88470
diff changeset
6535 return lookup_face (f, attrs);
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6536 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6537
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6538
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6539 /* 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
6540
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6541 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
6542
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6543 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
6544
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6545 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
6546
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6547 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
6548
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6549 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
6550
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6551 Return new face id.
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6552 */
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6553
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6554 int
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6555 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
6556 struct frame *f;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6557 Lisp_Object face_name;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6558 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
6559 {
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6560 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
6561 struct face *base_face;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6562
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6563 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
6564 if (!base_face)
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6565 return base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6566
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6567 if (EQ (face_name, Qt))
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6568 {
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6569 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
6570 return base_face_id;
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6571 face_name = lface_id_to_name[face_id];
97502
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
6572 /* When called during make-frame, lookup_derived_face may fail
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
6573 if the faces are uninitialized. Don't signal an error. */
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
6574 face_id = lookup_derived_face (f, face_name, base_face_id, 0);
dc43c2f1d2fc (lookup_derived_face): Properly handle possible zero
Chong Yidong <cyd@stupidchicken.com>
parents: 97217
diff changeset
6575 return (face_id >= 0 ? face_id : base_face_id);
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6576 }
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6577
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6578 /* 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
6579 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
6580
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6581 if (!NILP (face_name))
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6582 {
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6583 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
6584 return base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6585 }
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6586 else
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6587 {
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6588 struct face *face;
59458
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6589 if (face_id < 0)
df565ffe7247 (merge_faces): Rename from merge_into_realized_face.
Kim F. Storm <storm@cua.dk>
parents: 59431
diff changeset
6590 return base_face_id;
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6591 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
6592 if (!face)
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6593 return base_face_id;
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6594 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
6595 }
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6596
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6597 /* 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
6598 or realize a new one for ASCII characters. */
90079
609c840fe65f (merge_faces): Fix argument to lookup_derived_face and
Kenichi Handa <handa@m17n.org>
parents: 90072
diff changeset
6599 return lookup_face (f, attrs);
59431
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6600 }
2f2c5349bc03 (merge_into_realized_face): New function. Used to
Kim F. Storm <storm@cua.dk>
parents: 59146
diff changeset
6601
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6602
97194
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6603
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6604 #ifndef HAVE_X_WINDOWS
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6605 DEFUN ("x-load-color-file", Fx_load_color_file,
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6606 Sx_load_color_file, 1, 1, 0,
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6607 doc: /* Create an alist of color entries from an external file.
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6608
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6609 The file should define one named RGB color per line like so:
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6610 R G B name
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6611 where R,G,B are numbers between 0 and 255 and name is an arbitrary string. */)
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6612 (filename)
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6613 Lisp_Object filename;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6614 {
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6615 FILE *fp;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6616 Lisp_Object cmap = Qnil;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6617 Lisp_Object abspath;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6618
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6619 CHECK_STRING (filename);
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6620 abspath = Fexpand_file_name (filename, Qnil);
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6621
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6622 fp = fopen (SDATA (filename), "rt");
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6623 if (fp)
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6624 {
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6625 char buf[512];
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6626 int red, green, blue;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6627 int num;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6628
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6629 BLOCK_INPUT;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6630
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6631 while (fgets (buf, sizeof (buf), fp) != NULL) {
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6632 if (sscanf (buf, "%u %u %u %n", &red, &green, &blue, &num) == 3)
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6633 {
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6634 char *name = buf + num;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6635 num = strlen (name) - 1;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6636 if (name[num] == '\n')
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6637 name[num] = 0;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6638 cmap = Fcons (Fcons (build_string (name),
97217
f0079131098b * xfaces.c (Fx_load_color_file): Fix previous change;
Juanma Barranquero <lekktu@gmail.com>
parents: 97200
diff changeset
6639 #ifdef WINDOWSNT
f0079131098b * xfaces.c (Fx_load_color_file): Fix previous change;
Juanma Barranquero <lekktu@gmail.com>
parents: 97200
diff changeset
6640 make_number (RGB (red, green, blue))),
97200
d53d10659659 commit patch to x-load-color-file posted by lekktu@gmail.com
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97198
diff changeset
6641 #else
97217
f0079131098b * xfaces.c (Fx_load_color_file): Fix previous change;
Juanma Barranquero <lekktu@gmail.com>
parents: 97200
diff changeset
6642 make_number ((red << 16) | (green << 8) | blue)),
97200
d53d10659659 commit patch to x-load-color-file posted by lekktu@gmail.com
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97198
diff changeset
6643 #endif
97194
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6644 cmap);
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6645 }
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6646 }
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6647 fclose (fp);
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6648
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6649 UNBLOCK_INPUT;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6650 }
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6651
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6652 return cmap;
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6653 }
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6654 #endif
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6655
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6656
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6657 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6658 Tests
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6659 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6660
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6661 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6662
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6663 /* Print the contents of the realized face FACE to stderr. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6664
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6665 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6666 dump_realized_face (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6667 struct face *face;
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6668 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6669 fprintf (stderr, "ID: %d\n", face->id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6670 #ifdef HAVE_X_WINDOWS
60669
cffa9a821286 (x_update_menu_appearance) [USE_MOTIF]:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60150
diff changeset
6671 fprintf (stderr, "gc: %ld\n", (long) face->gc);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6672 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6673 fprintf (stderr, "foreground: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6674 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
6675 SDATA (face->lface[LFACE_FOREGROUND_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6676 fprintf (stderr, "background: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6677 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
6678 SDATA (face->lface[LFACE_BACKGROUND_INDEX]));
94938
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6679 if (face->font)
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6680 fprintf (stderr, "font_name: %s (%s)\n",
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6681 SDATA (face->font->props[FONT_NAME_INDEX]),
5752d7154afc Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92237
diff changeset
6682 SDATA (face->lface[LFACE_FAMILY_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6683 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6684 fprintf (stderr, "font = %p\n", face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6685 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6686 fprintf (stderr, "fontset: %d\n", face->fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6687 fprintf (stderr, "underline: %d (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6688 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
6689 SDATA (Fsymbol_name (face->lface[LFACE_UNDERLINE_INDEX])));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6690 fprintf (stderr, "hash: %d\n", face->hash);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6691 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6692
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6693
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6694 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
6695 (n)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6696 Lisp_Object n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6697 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6698 if (NILP (n))
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6699 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6700 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6701
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6702 fprintf (stderr, "font selection order: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6703 for (i = 0; i < DIM (font_sort_order); ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6704 fprintf (stderr, "%d ", font_sort_order[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6705 fprintf (stderr, "\n");
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 fprintf (stderr, "alternative fonts: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6708 debug_print (Vface_alternative_font_family_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6709 fprintf (stderr, "\n");
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6710
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
6711 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
6712 Fdump_face (make_number (i));
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6713 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6714 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6715 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6716 struct face *face;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40603
diff changeset
6717 CHECK_NUMBER (n);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
6718 face = FACE_FROM_ID (SELECTED_FRAME (), XINT (n));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6719 if (face == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6720 error ("Not a valid face");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6721 dump_realized_face (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6722 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6723
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6724 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6725 }
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6726
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6727
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6728 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
6729 0, 0, 0, doc: /* */)
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6730 ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6731 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6732 fprintf (stderr, "number of colors = %d\n", ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6733 fprintf (stderr, "number of pixmaps = %d\n", npixmaps_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6734 fprintf (stderr, "number of GCs = %d\n", ngcs);
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6735 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6736 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6737
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6738 #endif /* GLYPH_DEBUG != 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6739
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6740
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6741
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6742 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6743 Initialization
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6744 ***********************************************************************/
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
6745
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6746 void
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6747 syms_of_xfaces ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6748 {
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6749 Qface = intern ("face");
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6750 staticpro (&Qface);
57107
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
6751 Qface_no_inherit = intern ("face-no-inherit");
0d0a17cf1b63 (Qface_no_inherit): New var.
Kim F. Storm <storm@cua.dk>
parents: 56694
diff changeset
6752 staticpro (&Qface_no_inherit);
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
6753 Qbitmap_spec_p = intern ("bitmap-spec-p");
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
6754 staticpro (&Qbitmap_spec_p);
63642
cb0d171c8273 Rename obsolete function Qframe_update_face_colors to
Juri Linkov <juri@jurta.org>
parents: 63594
diff changeset
6755 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
6756 staticpro (&Qframe_set_background_mode);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6757
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6758 /* Lisp face attribute keywords. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6759 QCfamily = intern (":family");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6760 staticpro (&QCfamily);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6761 QCheight = intern (":height");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6762 staticpro (&QCheight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6763 QCweight = intern (":weight");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6764 staticpro (&QCweight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6765 QCslant = intern (":slant");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6766 staticpro (&QCslant);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6767 QCunderline = intern (":underline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6768 staticpro (&QCunderline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6769 QCinverse_video = intern (":inverse-video");
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6770 staticpro (&QCinverse_video);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6771 QCreverse_video = intern (":reverse-video");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6772 staticpro (&QCreverse_video);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6773 QCforeground = intern (":foreground");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6774 staticpro (&QCforeground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6775 QCbackground = intern (":background");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6776 staticpro (&QCbackground);
77903
9a64509cb354 (syms_of_xfaces): Delete stray semicolon.
Chong Yidong <cyd@stupidchicken.com>
parents: 75885
diff changeset
6777 QCstipple = intern (":stipple");
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6778 staticpro (&QCstipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6779 QCwidth = intern (":width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6780 staticpro (&QCwidth);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6781 QCfont = intern (":font");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6782 staticpro (&QCfont);
89047
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
6783 QCfontset = intern (":fontset");
3b6234eb229c (QCfontset): New variable.
Kenichi Handa <handa@m17n.org>
parents: 88939
diff changeset
6784 staticpro (&QCfontset);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6785 QCbold = intern (":bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6786 staticpro (&QCbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6787 QCitalic = intern (":italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6788 staticpro (&QCitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6789 QCoverline = intern (":overline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6790 staticpro (&QCoverline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6791 QCstrike_through = intern (":strike-through");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6792 staticpro (&QCstrike_through);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6793 QCbox = intern (":box");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6794 staticpro (&QCbox);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
6795 QCinherit = intern (":inherit");
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
6796 staticpro (&QCinherit);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6797
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6798 /* Symbols used for Lisp face attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6799 QCcolor = intern (":color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6800 staticpro (&QCcolor);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6801 QCline_width = intern (":line-width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6802 staticpro (&QCline_width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6803 QCstyle = intern (":style");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6804 staticpro (&QCstyle);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6805 Qreleased_button = intern ("released-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6806 staticpro (&Qreleased_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6807 Qpressed_button = intern ("pressed-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6808 staticpro (&Qpressed_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6809 Qnormal = intern ("normal");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6810 staticpro (&Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6811 Qultra_light = intern ("ultra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6812 staticpro (&Qultra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6813 Qextra_light = intern ("extra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6814 staticpro (&Qextra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6815 Qlight = intern ("light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6816 staticpro (&Qlight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6817 Qsemi_light = intern ("semi-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6818 staticpro (&Qsemi_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6819 Qsemi_bold = intern ("semi-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6820 staticpro (&Qsemi_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6821 Qbold = intern ("bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6822 staticpro (&Qbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6823 Qextra_bold = intern ("extra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6824 staticpro (&Qextra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6825 Qultra_bold = intern ("ultra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6826 staticpro (&Qultra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6827 Qoblique = intern ("oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6828 staticpro (&Qoblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6829 Qitalic = intern ("italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6830 staticpro (&Qitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6831 Qreverse_oblique = intern ("reverse-oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6832 staticpro (&Qreverse_oblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6833 Qreverse_italic = intern ("reverse-italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6834 staticpro (&Qreverse_italic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6835 Qultra_condensed = intern ("ultra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6836 staticpro (&Qultra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6837 Qextra_condensed = intern ("extra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6838 staticpro (&Qextra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6839 Qcondensed = intern ("condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6840 staticpro (&Qcondensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6841 Qsemi_condensed = intern ("semi-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6842 staticpro (&Qsemi_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6843 Qsemi_expanded = intern ("semi-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6844 staticpro (&Qsemi_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6845 Qexpanded = intern ("expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6846 staticpro (&Qexpanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6847 Qextra_expanded = intern ("extra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6848 staticpro (&Qextra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6849 Qultra_expanded = intern ("ultra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6850 staticpro (&Qultra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6851 Qbackground_color = intern ("background-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6852 staticpro (&Qbackground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6853 Qforeground_color = intern ("foreground-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6854 staticpro (&Qforeground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6855 Qunspecified = intern ("unspecified");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6856 staticpro (&Qunspecified);
66974
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
6857 Qignore_defface = intern (":ignore-defface");
c52c20ff739f * xfaces.c (Qignore_defface): New variable.
Chong Yidong <cyd@stupidchicken.com>
parents: 65912
diff changeset
6858 staticpro (&Qignore_defface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6859
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6860 Qface_alias = intern ("face-alias");
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6861 staticpro (&Qface_alias);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6862 Qdefault = intern ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6863 staticpro (&Qdefault);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
6864 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
6865 staticpro (&Qtool_bar);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6866 Qregion = intern ("region");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6867 staticpro (&Qregion);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6868 Qfringe = intern ("fringe");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6869 staticpro (&Qfringe);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6870 Qheader_line = intern ("header-line");
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6871 staticpro (&Qheader_line);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6872 Qscroll_bar = intern ("scroll-bar");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6873 staticpro (&Qscroll_bar);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
6874 Qmenu = intern ("menu");
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
6875 staticpro (&Qmenu);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6876 Qcursor = intern ("cursor");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6877 staticpro (&Qcursor);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6878 Qborder = intern ("border");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6879 staticpro (&Qborder);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6880 Qmouse = intern ("mouse");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6881 staticpro (&Qmouse);
43203
dd98ef3675e5 (Qmode_line_inactive): New face variable for mode-line
Kim F. Storm <storm@cua.dk>
parents: 43069
diff changeset
6882 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
6883 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
6884 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
6885 staticpro (&Qvertical_border);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
6886 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
6887 staticpro (&Qtty_color_desc);
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
6888 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
6889 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
6890 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
6891 staticpro (&Qtty_color_by_index);
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6892 Qtty_color_alist = intern ("tty-color-alist");
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6893 staticpro (&Qtty_color_alist);
37394
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
6894 Qscalable_fonts_allowed = intern ("scalable-fonts-allowed");
7847d9b8bbff (Qscalable_fonts_allowed): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 37206
diff changeset
6895 staticpro (&Qscalable_fonts_allowed);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6896
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
6897 Vparam_value_alist = Fcons (Fcons (Qnil, Qnil), Qnil);
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
6898 staticpro (&Vparam_value_alist);
30304
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
6899 Vface_alternative_font_family_alist = Qnil;
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
6900 staticpro (&Vface_alternative_font_family_alist);
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6901 Vface_alternative_font_registry_alist = Qnil;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
6902 staticpro (&Vface_alternative_font_registry_alist);
30304
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
6903
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6904 defsubr (&Sinternal_make_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6905 defsubr (&Sinternal_lisp_face_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6906 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
6907 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6908 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
6909 #endif
27120
24a08208cf3a (syms_of_xfaces): Change Sface_color_gray_p to
Gerd Moellmann <gerd@gnu.org>
parents: 27114
diff changeset
6910 defsubr (&Scolor_gray_p);
24a08208cf3a (syms_of_xfaces): Change Sface_color_gray_p to
Gerd Moellmann <gerd@gnu.org>
parents: 27114
diff changeset
6911 defsubr (&Scolor_supported_p);
97194
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6912 #ifndef HAVE_X_WINDOWS
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6913 defsubr (&Sx_load_color_file);
d45e07b45d86 NS port now uses etc/rgb.txt instead of etc/Emacs.clr (now removed); function Fw32_load_color_file moved to xfaces x_load_color_file
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97043
diff changeset
6914 #endif
40398
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
6915 defsubr (&Sface_attribute_relative_p);
560b1c474b1a (merge_face_heights): Handle TO being relative as well.
Miles Bader <miles@gnu.org>
parents: 40278
diff changeset
6916 defsubr (&Smerge_face_attribute);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6917 defsubr (&Sinternal_get_lisp_face_attribute);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6918 defsubr (&Sinternal_lisp_face_attribute_values);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6919 defsubr (&Sinternal_lisp_face_equal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6920 defsubr (&Sinternal_lisp_face_empty_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6921 defsubr (&Sinternal_copy_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6922 defsubr (&Sinternal_merge_in_global_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6923 defsubr (&Sface_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6924 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
6925 defsubr (&Sdisplay_supports_face_attributes_p);
45718
e495189229e4 (Ftty_supports_face_attributes_p): New function.
Miles Bader <miles@gnu.org>
parents: 45412
diff changeset
6926 defsubr (&Scolor_distance);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6927 defsubr (&Sinternal_set_font_selection_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6928 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
6929 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
6930 defsubr (&Sface_attributes_as_vector);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6931 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6932 defsubr (&Sdump_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6933 defsubr (&Sshow_face_resources);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6934 #endif /* GLYPH_DEBUG */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6935 defsubr (&Sclear_face_cache);
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6936 defsubr (&Stty_suppress_bold_inverse_default_colors);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6937
29711
913fab478495 (syms_of_xfaces) [DEBUG_X_COLORS]: Defsubr dump_colors
Gerd Moellmann <gerd@gnu.org>
parents: 29599
diff changeset
6938 #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
6939 defsubr (&Sdump_colors);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
6940 #endif
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
6941
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6942 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
6943 doc: /* *Limit for font matching.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6944 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
6945 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
6946 Vfont_list_limit = make_number (DEFAULT_FONT_LIST_LIMIT);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
6947
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6948 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
6949 doc: /* List of global face definitions (for internal use only.) */);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6950 Vface_new_frame_defaults = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6951
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6952 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
6953 doc: /* *Default stipple pattern used on monochrome displays.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6954 This stipple pattern is used on monochrome displays
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6955 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
6956 See `set-face-stipple' for possible values for this variable. */);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6957 Vface_default_stipple = build_string ("gray3");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6958
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6959 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
6960 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
6961 Vtty_defined_color_alist = Qnil;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6962
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6963 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
6964 doc: /* Allowed scalable fonts.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6965 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
6966 A value of t means allow any scalable font.
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6967 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
6968 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
6969 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
6970 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
6971 Vscalable_fonts_allowed = Qnil;
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6972
39988
eac4e9ae201c Change doc-string comments to `new style' [w/`doc:' keyword].
Miles Bader <miles@gnu.org>
parents: 39973
diff changeset
6973 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
6974 doc: /* List of ignored fonts.
39914
91951fb5b9e5 Put doc strings in comments.
Gerd Moellmann <gerd@gnu.org>
parents: 39682
diff changeset
6975 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
6976 ignore. */);
34629
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
6977 Vface_ignored_fonts = Qnil;
10675adcbf6f (Vface_ignored_fonts): New variable.
Kenichi Handa <handa@m17n.org>
parents: 34289
diff changeset
6978
95457
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6979 DEFVAR_LISP ("face-remapping-alist", &Vface_remapping_alist,
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6980 doc: /* Alist of face remappings.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6981 Each element is of the form:
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6982
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6983 (FACE REPLACEMENT...),
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6984
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6985 which causes display of the face FACE to use REPLACEMENT... instead.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6986 REPLACEMENT... is interpreted the same way the value of a `face' text
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6987 property is: it may be (1) A face name, (2) A list of face names, (3) A
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6988 property-list of face attribute/value pairs, or (4) A list of face names
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6989 intermixed with lists containing face attribute/value pairs.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6990
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6991 Multiple entries in REPLACEMENT... are merged together to form the final
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6992 result, with faces or attributes earlier in the list taking precedence
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6993 over those that are later.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6994
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6995 Face-name remapping cycles are suppressed; recursive references use the
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6996 underlying face instead of the remapped face. So a remapping of the form:
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6997
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6998 (FACE EXTRA-FACE... FACE)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
6999
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7000 or:
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7001
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7002 (FACE (FACE-ATTR VAL ...) FACE)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7003
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7004 will cause EXTRA-FACE... or (FACE-ATTR VAL ...) to be _merged_ with the
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7005 existing definition of FACE. Note that for the default face, this isn't
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7006 necessary, as every face inherits from the default face.
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7007
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7008 Making this variable buffer-local is a good way to allow buffer-specific
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7009 face definitions. For instance, the mode my-mode could define a face
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7010 `my-mode-default', and then in the mode setup function, do:
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7011
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7012 (set (make-local-variable 'face-remapping-alist)
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7013 '((default my-mode-default)))). */);
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7014 Vface_remapping_alist = Qnil;
415f68458e61 Implement face-remapping-alist feature
Miles Bader <miles@gnu.org>
parents: 95377
diff changeset
7015
50515
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
7016 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
7017 doc: /* Alist of fonts vs the rescaling factors.
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
7018 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
7019 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
7020 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
7021 \(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
7022 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
7023 Vface_font_rescale_alist = Qnil;
98bdd2203d85 (Vface_font_rescale_alist): New variable.
Kenichi Handa <handa@m17n.org>
parents: 50412
diff changeset
7024
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7025 #ifdef HAVE_WINDOW_SYSTEM
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
7026 defsubr (&Sbitmap_spec_p);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7027 defsubr (&Sx_list_fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7028 defsubr (&Sinternal_face_x_get_resource);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
7029 defsubr (&Sx_family_fonts);
99995
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
7030 #endif
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
7031 #if defined(HAVE_WINDOW_SYSTEM) || defined(__MSDOS__)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7032 defsubr (&Sx_font_family_list);
99995
6f62aec59b3d (Fx_font_family_list, syms_of_xfaces): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 99934
diff changeset
7033 #endif /* HAVE_WINDOW_SYSTEM || __MSDOS__ */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7034 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52203
diff changeset
7035
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52203
diff changeset
7036 /* arch-tag: 8a0f7598-5517-408d-9ab3-1da6fcd4c749
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52203
diff changeset
7037 (do not change this comment) */