annotate src/xfaces.c @ 33735:b27d530cc1ce

(md5): Fix error call.
author Dave Love <fx@gnu.org>
date Wed, 22 Nov 2000 11:17:23 +0000
parents 2e6d343c238d
children eb4affa4abc6
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.
30698
75ff6aa32bf0 (face_at_buffer_position): Update call to overlays_at.
Miles Bader <miles@gnu.org>
parents: 30601
diff changeset
2 Copyright (C) 1993, 1994, 1998, 1999, 2000 Free Software Foundation.
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
3
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14090
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14090
diff changeset
19 Boston, MA 02111-1307, USA. */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
21 /* New face implementation by Gerd Moellmann <gerd@gnu.org>. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
22
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
23 /* Faces.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
24
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
25 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
26 changed by defining `faces'. Each face can specify the following
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
27 display attributes:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
28
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
29 1. Font family name.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
30
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
31 2. Relative proportionate width, aka character set width or set
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
32 width (swidth), e.g. `semi-compressed'.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
33
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
34 3. Font height in 1/10pt.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
35
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
36 4. Font weight, e.g. `bold'.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
37
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
38 5. Font slant, e.g. `italic'.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
39
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
40 6. Foreground color.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
41
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
42 7. Background color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
43
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
44 8. Whether or not characters should be underlined, and in what color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
45
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
46 9. Whether or not characters should be displayed in inverse video.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
47
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
48 10. A background stipple, a bitmap.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
49
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
50 11. Whether or not characters should be overlined, and in what color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
51
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
52 12. Whether or not characters should be strike-through, and in what
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
53 color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
54
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
55 13. Whether or not a box should be drawn around characters, the box
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
56 type, and, for simple boxes, in what color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
57
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
58 14. Font or fontset pattern, or nil. This is a special attribute.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
59 When this attribyte is specified, the face uses a font opened by
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
60 that pattern as is. In addition, all the other font-related
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
61 attributes (1st thru 5th) are generated from the opened font name.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
62 On the other hand, if one of the other font-related attributes are
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
63 specified, this attribute is set to nil. In that case, the face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
64 doesn't inherit this attribute from the `default' face, and uses a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
65 font determined by the other attributes (those may be inherited
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
66 from the `default' face).
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
67
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
68 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
69
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
70 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
71 same named face (face names are symbols) differently for different
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
72 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
73 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
74 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
75 attributes mentioned above.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
76
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
77 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
78 definitions from this list are used to initialize faces of newly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
79 created frames.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
80
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
81 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
82 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
83 the 14th are called `fully-specified'.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
84
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
85
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
86 Face merging.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
87
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
88 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
89 combining several faces. This process is called `face merging'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
90 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
91 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
92 sure that the default face is always fully-specified, face merging
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
93 always results in a fully-specified face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
94
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
95
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
96 Face realization.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
97
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
98 After all face attributes for a character have been determined by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
99 merging faces of that character, that face is `realized'. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
100 realization process maps face attributes to what is physically
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
101 available on the system where Emacs runs. The result is a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
102 `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
103 face cache of the frame on which it was realized.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
104
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
105 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
106 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
107 other words, for characters that have different font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
108 specifications, different realized faces are needed to display
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
109 them.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
110
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
111 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
112 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
113 characters share the same font in a fontset.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
114
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
115 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
116 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
117 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
118 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
119 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
120
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
121 Thus, all realzied face have a realized fontset.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
122
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
123
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
124 Unibyte text.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
125
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
126 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
127 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
128 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
129 and raw 8-bit characters.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
130
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
131
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
132 Font selection.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
133
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
134 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
135 given (character, face) combination.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
136
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
137 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
138 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
139 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
140 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
141 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
142 default fontset determines a pattern for multibyte characters.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
143
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
144 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
145 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
146 match for the given face attributes in this font list.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
147
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
148 Font selection can be influenced by the user.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
149
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
150 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
151 attributes width, height, weight, and slant by setting
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
152 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
153 names. The default is '(:width :height :weight :slant), and means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
154 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
155 width specified by a face, then---within fonts with that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
156 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
157 etc.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
158
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
159 2. Setting face-alternative-font-family-alist allows the user to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
160 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
161 face doesn't exist.
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
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
164 Character compositition.
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
165
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
166 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
167 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
168 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
169 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
170 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
171 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
172 the same.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
173
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
174
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
175 Initialization of basic faces.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
176
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
177 The faces `default', `modeline' are considered `basic faces'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
178 When redisplay happens the first time for a newly created frame,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
179 basic faces are realized for CHARSET_ASCII. Frame parameters are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
180 used to fill in unspecified attributes of the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
181
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25890
diff changeset
182 #include <config.h>
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 #include <sys/types.h>
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 #include <sys/stat.h>
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 #include "lisp.h"
17047
6c586afaa572 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16051
diff changeset
186 #include "charset.h"
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
187 #include "frame.h"
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
188
29897
cd1bb44e646d Include fontset.h dependent on HAVE_WINDOW_SYSTEM, not HAVE_X_WINDOWS.
Dave Love <fx@gnu.org>
parents: 29768
diff changeset
189 #ifdef HAVE_WINDOW_SYSTEM
cd1bb44e646d Include fontset.h dependent on HAVE_WINDOW_SYSTEM, not HAVE_X_WINDOWS.
Dave Love <fx@gnu.org>
parents: 29768
diff changeset
190 #include "fontset.h"
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
191 #endif /* HAVE_WINDOW_SYSTEM */
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
192
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
193 #ifdef HAVE_X_WINDOWS
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 #include "xterm.h"
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
195 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
196 #include <Xm/Xm.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
197 #include <Xm/XmStrDefs.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
198 #endif /* USE_MOTIF */
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
199 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
200
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
201 #ifdef MSDOS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
202 #include "dosfns.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
203 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
204
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
205 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
206 #include "w32term.h"
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
207 #include "fontset.h"
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
208 /* 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
209 code with #ifdef blocks. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
210 #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
211 #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
212 #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
213 #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
214 #define x_list_fonts w32_list_fonts
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
215 #define GCGraphicsExposures 0
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
216 /* For historic reasons, FONT_WIDTH refers to average width on W32,
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
217 not maximum as on X. Redefine here. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
218 #define FONT_WIDTH FONT_MAX_WIDTH
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
219 #endif /* WINDOWSNT */
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
220
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
221 #ifdef macintosh
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
222 #include "macterm.h"
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
223 #define x_display_info mac_display_info
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
224 #define check_x check_mac
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
225
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
226 extern XGCValues *XCreateGC (void *, WindowPtr, unsigned long, XGCValues *);
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
227
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
228 static INLINE GC
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
229 x_create_gc (f, mask, xgcv)
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
230 struct frame *f;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
231 unsigned long mask;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
232 XGCValues *xgcv;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
233 {
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
234 GC gc;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
235 gc = XCreateGC (FRAME_MAC_DISPLAY (f), FRAME_MAC_WINDOW (f), mask, xgcv);
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
236 return gc;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
237 }
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
238
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
239 static INLINE void
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
240 x_free_gc (f, gc)
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
241 struct frame *f;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
242 GC gc;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
243 {
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
244 XFreeGC (FRAME_MAC_DISPLAY (f), gc);
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
245 }
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
246 #endif
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
247
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 #include "buffer.h"
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
249 #include "dispextern.h"
2438
b513de4de386 * xfaces.c: Doc fixes.
Jim Blandy <jimb@redhat.com>
parents: 2391
diff changeset
250 #include "blockinput.h"
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
251 #include "window.h"
8848
48b3ac951c53 Add #include "intervals.h"
Karl Heuer <kwzh@gnu.org>
parents: 8472
diff changeset
252 #include "intervals.h"
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
254 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
255
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
256 /* 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
257 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
258 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
259 #included. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
260
3436
291f28da7ea1 Test XOS_NEEDS_TIME_H, not HPUX, for including time.hj.
Richard M. Stallman <rms@gnu.org>
parents: 3401
diff changeset
261 #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
262 #include <time.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
263 #undef USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
264 #include <X11/Xos.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
265 #define USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
266 #define __TIMEVAL__
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
267 #else /* not XOS_NEEDS_TIME_H */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 #include <X11/Xos.h>
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
269 #endif /* not XOS_NEEDS_TIME_H */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
270
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
271 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
272
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
273 #include <stdio.h>
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
274 #include <ctype.h>
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
275 #include "keyboard.h"
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
276
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
277 #ifndef max
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
278 #define max(A, B) ((A) > (B) ? (A) : (B))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
279 #define min(A, B) ((A) < (B) ? (A) : (B))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
280 #define abs(X) ((X) < 0 ? -(X) : (X))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
281 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
282
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
283 /* Non-zero if face attribute ATTR is unspecified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
284
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
285 #define UNSPECIFIEDP(ATTR) EQ ((ATTR), Qunspecified)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
286
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
287 /* Value is the number of elements of VECTOR. */
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 DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
290
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
291 /* 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
292 to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
293
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
294 #define STRDUPA(S) strcpy ((char *) alloca (strlen ((S)) + 1), (S))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
295
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
296 /* 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
297 alloca. Value is a pointer to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
298
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
299 #define LSTRDUPA(S) STRDUPA (XSTRING ((S))->data)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
300
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
301 /* 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
302 prime number). */
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 #define FACE_CACHE_BUCKETS_SIZE 1001
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
305
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
306 /* A definition of XColor for non-X frames. */
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
307
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
308 #ifndef HAVE_X_WINDOWS
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
309
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
310 typedef struct
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
311 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
312 unsigned long pixel;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
313 unsigned short red, green, blue;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
314 char flags;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
315 char pad;
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
316 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
317 XColor;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
318
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
319 #endif /* not HAVE_X_WINDOWS */
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
320
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
321 /* Keyword symbols used for face attribute names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
322
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
323 Lisp_Object QCfamily, QCheight, QCweight, QCslant, QCunderline;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
324 Lisp_Object QCinverse_video, QCforeground, QCbackground, QCstipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
325 Lisp_Object QCwidth, QCfont, QCbold, QCitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
326 Lisp_Object QCreverse_video;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
327 Lisp_Object QCoverline, QCstrike_through, QCbox, QCinherit;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
328
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
329 /* Symbols used for attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
330
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
331 Lisp_Object Qnormal, Qbold, Qultra_light, Qextra_light, Qlight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
332 Lisp_Object Qsemi_light, Qsemi_bold, Qextra_bold, Qultra_bold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
333 Lisp_Object Qoblique, Qitalic, Qreverse_oblique, Qreverse_italic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
334 Lisp_Object Qultra_condensed, Qextra_condensed, Qcondensed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
335 Lisp_Object Qsemi_condensed, Qsemi_expanded, Qexpanded, Qextra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
336 Lisp_Object Qultra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
337 Lisp_Object Qreleased_button, Qpressed_button;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
338 Lisp_Object QCstyle, QCcolor, QCline_width;
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
339 Lisp_Object Qunspecified;
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
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
344 has changed, frame_update_face_colors. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
345
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
346 Lisp_Object Qframe_update_face_colors;
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;
26574
5510d0cc07c3 Don't duplicate Qmode_line definition done elsewhere.
Dave Love <fx@gnu.org>
parents: 26088
diff changeset
352 extern Lisp_Object Qmode_line;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
353
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
354 /* 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
355 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
356 the aliased face. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
357
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
358 Lisp_Object Qface_alias;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
359
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
360 /* Names of frame parameters related to faces. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
361
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
362 extern Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
363 extern Lisp_Object Qborder_color, Qcursor_color, Qmouse_color;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
364
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
365 /* Default stipple pattern used on monochrome displays. This stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
366 pattern is used on monochrome displays instead of shades of gray
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
367 for a face background color. See `set-face-stipple' for possible
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
368 values for this variable. */
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 Lisp_Object Vface_default_stipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
371
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
372 /* Alist of alternative font families. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
373 (FAMILY FAMILY1 FAMILY2 ...). If fonts of FAMILY can't be loaded,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
374 try FAMILY1, then FAMILY2, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
375
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
376 Lisp_Object Vface_alternative_font_family_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
377
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
378 /* 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
379 (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
380 loaded, try REGISTRY1, then REGISTRY2, ... */
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
381
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
382 Lisp_Object Vface_alternative_font_registry_alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
383
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
384 /* 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
385 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
386 font. Otherwise, value must be a list of regular expressions. A
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
387 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
388 list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
389
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
390 Lisp_Object Vscalable_fonts_allowed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
391
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
392 /* 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
393 integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead. */
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
394
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
395 Lisp_Object Vfont_list_limit;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
396 #define DEFAULT_FONT_LIST_LIMIT 100
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
397
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
398 /* The symbols `foreground-color' and `background-color' which can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
399 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
400 Emacs 20.2. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
401
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
402 Lisp_Object Qforeground_color, Qbackground_color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
403
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
404 /* The symbols `face' and `mouse-face' used as text properties. */
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
405
23730
c71c3ac4b80a (Qmouse_face): Replace definition with extern decl.
Richard M. Stallman <rms@gnu.org>
parents: 21766
diff changeset
406 Lisp_Object Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
407 extern Lisp_Object Qmouse_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
408
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
409 /* Error symbol for wrong_type_argument in load_pixmap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
410
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
411 Lisp_Object Qbitmap_spec_p;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
412
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
413 /* Alist of global face definitions. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
414 (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
415 is a Lisp vector of face attributes. These faces are used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
416 to initialize faces for new frames. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
417
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
418 Lisp_Object Vface_new_frame_defaults;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
419
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
420 /* The next ID to assign to Lisp faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
421
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
422 static int next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
423
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
424 /* A vector mapping Lisp face Id's to face names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
425
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
426 static Lisp_Object *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
427 static int lface_id_to_name_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
428
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
429 /* 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
430
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
431 Lisp_Object Qtty_color_desc, Qtty_color_by_index;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
432
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
433 /* 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
434
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
435 Lisp_Object Qtty_color_alist;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
436
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
437 /* 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
438
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
439 Lisp_Object Vtty_defined_color_alist;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
440
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
441 /* Counter for calls to clear_face_cache. If this counter reaches
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
442 CLEAR_FONT_TABLE_COUNT, and a frame has more than
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
443 CLEAR_FONT_TABLE_NFONTS load, unused fonts are freed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
444
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
445 static int clear_font_table_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
446 #define CLEAR_FONT_TABLE_COUNT 100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
447 #define CLEAR_FONT_TABLE_NFONTS 10
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 /* Non-zero means face attributes have been changed since the last
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
450 redisplay. Used in redisplay_internal. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
451
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
452 int face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
453
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
454 /* Incremented for every change in the `menu' face. */
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
455
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
456 int menu_face_change_count;
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
457
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
458 /* 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
459 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
460 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
461 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
462
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
463 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
464
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
465 /* 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
466 Finternal_set_lisp_face_attribute. */
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
467
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
468 static Lisp_Object Vparam_value_alist;
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
469
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
470 /* The total number of colors currently allocated. */
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
473 static int ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
474 static int npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
475 static int ngcs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
476 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
477
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
478
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
480 /* Function prototypes. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
481
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
482 struct font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
483 struct table_entry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
484
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
485 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
486 enum lface_attribute_index, int *));
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
487 static Lisp_Object resolve_face_name P_ ((Lisp_Object));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
488 static int may_use_scalable_font_p P_ ((struct font_name *, char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
489 static void set_font_frame_param P_ ((Lisp_Object, Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
490 static int better_font_p P_ ((int *, struct font_name *, struct font_name *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
491 int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
492 static int first_font_matching P_ ((struct frame *f, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
493 struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
494 static int x_face_list_fonts P_ ((struct frame *, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
495 struct font_name *, int, int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
496 static int font_scalable_p P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
497 static int get_lface_attributes P_ ((struct frame *, Lisp_Object, Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
498 static int load_pixmap P_ ((struct frame *, Lisp_Object, unsigned *, unsigned *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
499 static unsigned char *xstrlwr P_ ((unsigned char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
500 static void signal_error P_ ((char *, Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
501 static struct frame *frame_or_selected_frame P_ ((Lisp_Object, int));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
502 static void load_face_font P_ ((struct frame *, struct face *, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
503 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
504 static void free_face_colors P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
505 static int face_color_gray_p P_ ((struct frame *, char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
506 static char *build_font_name P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
507 static void free_font_names P_ ((struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
508 static int sorted_font_list P_ ((struct frame *, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
509 int (*cmpfn) P_ ((const void *, const void *)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
510 struct font_name **));
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
511 static int font_list_1 P_ ((struct frame *, Lisp_Object, Lisp_Object,
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
512 Lisp_Object, struct font_name **));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
513 static int font_list P_ ((struct frame *, Lisp_Object, Lisp_Object,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
514 Lisp_Object, struct font_name **));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
515 static int try_font_list P_ ((struct frame *, Lisp_Object *, Lisp_Object,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
516 Lisp_Object, Lisp_Object, struct font_name **));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
517 static int cmp_font_names P_ ((const void *, const void *));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
518 static struct face *realize_face P_ ((struct face_cache *, Lisp_Object *, int,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
519 struct face *, int));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
520 static struct face *realize_x_face P_ ((struct face_cache *,
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
521 Lisp_Object *, int, struct face *));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
522 static struct face *realize_tty_face P_ ((struct face_cache *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
523 Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
524 static int realize_basic_faces P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
525 static int realize_default_face P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
526 static void realize_named_face P_ ((struct frame *, Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
527 static int lface_fully_specified_p P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
528 static int lface_equal_p P_ ((Lisp_Object *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
529 static unsigned hash_string_case_insensitive P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
530 static unsigned lface_hash P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
531 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
532 static struct face_cache *make_face_cache P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
533 static void free_realized_face P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
534 static void clear_face_gcs P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
535 static void free_face_cache P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
536 static int face_numeric_weight P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
537 static int face_numeric_slant P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
538 static int face_numeric_swidth P_ ((Lisp_Object));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
539 static int face_fontset P_ ((Lisp_Object *));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
540 static char *choose_face_font P_ ((struct frame *, Lisp_Object *, int, int));
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
541 static void merge_face_vectors P_ ((struct frame *, Lisp_Object *, Lisp_Object*, Lisp_Object));
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
542 static void merge_face_inheritance P_ ((struct frame *f, Lisp_Object,
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
543 Lisp_Object *, Lisp_Object));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
544 static void merge_face_vector_with_property P_ ((struct frame *, Lisp_Object *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
545 Lisp_Object));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
546 static int set_lface_from_font_name P_ ((struct frame *, Lisp_Object,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
547 Lisp_Object, int, 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 free_realized_faces P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
551 static char *best_matching_font P_ ((struct frame *, Lisp_Object *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
552 struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
553 static void cache_face P_ ((struct face_cache *, struct face *, unsigned));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
554 static void uncache_face P_ ((struct face_cache *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
555 static int xlfd_numeric_slant P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
556 static int xlfd_numeric_weight P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
557 static int xlfd_numeric_swidth P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
558 static Lisp_Object xlfd_symbolic_slant P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
559 static Lisp_Object xlfd_symbolic_weight P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
560 static Lisp_Object xlfd_symbolic_swidth P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
561 static int xlfd_fixed_p P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
562 static int xlfd_numeric_value P_ ((struct table_entry *, int, struct font_name *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
563 int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
564 static Lisp_Object xlfd_symbolic_value P_ ((struct table_entry *, int,
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
565 struct font_name *, int,
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
566 Lisp_Object));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
567 static struct table_entry *xlfd_lookup_field_contents P_ ((struct table_entry *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
568 struct font_name *, int));
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
569
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
570 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
571
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
572 static int split_font_name P_ ((struct frame *, struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
573 static int xlfd_point_size P_ ((struct frame *, struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
574 static void sort_fonts P_ ((struct frame *, struct font_name *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
575 int (*cmpfn) P_ ((const void *, const void *))));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
576 static GC x_create_gc P_ ((struct frame *, unsigned long, XGCValues *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
577 static void x_free_gc P_ ((struct frame *, GC));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
578 static void clear_font_table P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
579
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
580 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
581 extern Lisp_Object w32_list_fonts P_ ((struct frame *, Lisp_Object, int, int));
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
582 #endif /* WINDOWSNT */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
583
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
584 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
585
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
586
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
587 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
588 Utilities
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
589 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
590
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
591 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
592
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
593 #ifdef DEBUG_X_COLORS
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
594
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
595 /* 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
596 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
597 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
598 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
599 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
600 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
601 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
602 single display/screen. --gerd. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
603
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
604 /* Reference counts for pixel colors. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
605
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
606 int color_count[256];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
607
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
608 /* Register color PIXEL as allocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
609
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
610 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
611 register_color (pixel)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
612 unsigned long pixel;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
613 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
614 xassert (pixel < 256);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
615 ++color_count[pixel];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
616 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
617
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
618
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
619 /* Register color PIXEL as deallocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
620
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
621 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
622 unregister_color (pixel)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
623 unsigned long pixel;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
624 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
625 xassert (pixel < 256);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
626 if (color_count[pixel] > 0)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
627 --color_count[pixel];
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
628 else
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
629 abort ();
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
630 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
631
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
632
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
633 /* Register N colors from PIXELS as deallocated. */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
634
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
635 void
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
636 unregister_colors (pixels, n)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
637 unsigned long *pixels;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
638 int n;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
639 {
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
640 int i;
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
641 for (i = 0; i < n; ++i)
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
642 unregister_color (pixels[i]);
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
643 }
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
644
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
645
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
646 DEFUN ("dump-colors", Fdump_colors, Sdump_colors, 0, 0, 0,
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
647 "Dump currently allocated colors and their reference counts to stderr.")
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 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
650 int i, n;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
651
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
652 fputc ('\n', stderr);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
653
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
654 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
655 if (color_count[i])
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
656 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
657 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
658 ++n;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
659 if (n % 5 == 0)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
660 fputc ('\n', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
661 else
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
662 fputc ('\t', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
663 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
664
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
665 if (n % 5 != 0)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
666 fputc ('\n', stderr);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
667 return Qnil;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
668 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
669
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
670 #endif /* DEBUG_X_COLORS */
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
671
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
672
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
673 /* 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
674 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
675 is called. */
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
676
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
677 void
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
678 x_free_colors (f, pixels, npixels)
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
679 struct frame *f;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
680 unsigned long *pixels;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
681 int npixels;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
682 {
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
683 int class = FRAME_X_DISPLAY_INFO (f)->visual->class;
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
684
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
685 /* 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
686 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
687 if (class != StaticColor && class != StaticGray && class != TrueColor)
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
688 {
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
689 XFreeColors (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f),
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
690 pixels, npixels, 0);
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
691 #ifdef DEBUG_X_COLORS
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
692 unregister_colors (pixels, npixels);
28354
d6ae8188fa58 (register_color, unregister_colors, unregister_colors)
Gerd Moellmann <gerd@gnu.org>
parents: 28349
diff changeset
693 #endif
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
694 }
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
695 }
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
696
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
697
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
698 /* 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
699 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
700 is called. */
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 void
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
703 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
704 Display *dpy;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
705 Screen *screen;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
706 Colormap cmap;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
707 unsigned long *pixels;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
708 int npixels;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
709 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
710 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
711 int class = dpyinfo->visual->class;
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
712
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
713 /* 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
714 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
715 if (class != StaticColor && class != StaticGray && class != TrueColor)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
716 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
717 XFreeColors (dpy, cmap, pixels, npixels, 0);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
718 #ifdef DEBUG_X_COLORS
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
719 unregister_colors (pixels, npixels);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
720 #endif
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
721 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
722 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
723
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
724
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
725 /* 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
726 are given by XGCV and MASK. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
727
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
728 static INLINE GC
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
729 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
730 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
731 unsigned long mask;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
732 XGCValues *xgcv;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
733 {
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 GC gc;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
735 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
736 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
737 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
738 IF_DEBUG (++ngcs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
739 return gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
740 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
741
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
742
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
743 /* Free GC which was used on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
744
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
745 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
746 x_free_gc (f, gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
747 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
748 GC gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
749 {
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
750 BLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
751 xassert (--ngcs >= 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
752 XFreeGC (FRAME_X_DISPLAY (f), gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
753 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
754 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
755
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
756 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
757
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
758 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
759 /* W32 emulation of GCs */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
760
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
761 static INLINE GC
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
762 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
763 struct frame *f;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
764 unsigned long mask;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
765 XGCValues *xgcv;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
766 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
767 GC gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
768 BLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
769 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
770 UNBLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
771 IF_DEBUG (++ngcs);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
772 return gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
773 }
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
774
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
775
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
776 /* 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
777
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
778 static INLINE void
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
779 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
780 struct frame *f;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
781 GC gc;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
782 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
783 BLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
784 xassert (--ngcs >= 0);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
785 xfree (gc);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
786 UNBLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
787 }
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
788
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
789 #endif /* WINDOWSNT */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
790
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
791 /* Like stricmp. Used to compare parts of font names which are in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
792 ISO8859-1. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
793
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
794 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
795 xstricmp (s1, s2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
796 unsigned char *s1, *s2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
797 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
798 while (*s1 && *s2)
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 unsigned char c1 = tolower (*s1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
801 unsigned char c2 = tolower (*s2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
802 if (c1 != c2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
803 return c1 < c2 ? -1 : 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
804 ++s1, ++s2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
805 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
806
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
807 if (*s1 == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
808 return *s2 == 0 ? 0 : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
809 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
810 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
811
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 /* Like strlwr, which might not always be available. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
814
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
815 static unsigned char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
816 xstrlwr (s)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
817 unsigned char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
818 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
819 unsigned char *p = s;
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 for (p = s; *p; ++p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
822 *p = tolower (*p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
823
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
824 return s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
825 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
826
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
827
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
828 /* Signal `error' with message S, and additional argument ARG. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
829
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
830 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
831 signal_error (s, arg)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
832 char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
833 Lisp_Object arg;
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 Fsignal (Qerror, Fcons (build_string (s), Fcons (arg, Qnil)));
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
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
839 /* 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
840 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
841 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
842 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
843 Lisp function definitions. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
844
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
845 static INLINE struct frame *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
846 frame_or_selected_frame (frame, nparam)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
847 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
848 int nparam;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
849 {
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
850 if (NILP (frame))
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
851 frame = selected_frame;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
852
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
853 CHECK_LIVE_FRAME (frame, nparam);
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
854 return XFRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
855 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
856
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
857
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
858 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
859 Frames and faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
860 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
861
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
862 /* 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
863
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
864 void
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
865 init_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
866 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
867 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
868 /* Make a face cache, if F doesn't have one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
869 if (FRAME_FACE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
870 FRAME_FACE_CACHE (f) = make_face_cache (f);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
871
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
872 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
873 /* 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
874 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
875 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
876 if (FRAME_X_IMAGE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
877 FRAME_X_IMAGE_CACHE (f) = make_image_cache ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
878 ++FRAME_X_IMAGE_CACHE (f)->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
879 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
880 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
881
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
882 /* Realize basic faces. Must have enough information in frame
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
883 parameters to realize basic faces at this point. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
884 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
885 if (!FRAME_X_P (f) || FRAME_X_WINDOW (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
886 #endif
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
887 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
888 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
889 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
890 if (!realize_basic_faces (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
891 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
892 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
893
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
894
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
895 /* Free face cache of frame F. Called from Fdelete_frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
896
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
897 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
898 free_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
899 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
900 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
901 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
902
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
903 if (face_cache)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
904 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
905 free_face_cache (face_cache);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
906 FRAME_FACE_CACHE (f) = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
907 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
908
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
909 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
910 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
911 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
912 struct image_cache *image_cache = FRAME_X_IMAGE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
913 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
914 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
915 --image_cache->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
916 if (image_cache->refcount == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
917 free_image_cache (f);
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 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
920 #endif /* HAVE_WINDOW_SYSTEM */
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
923
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
924 /* 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
925 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
926 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
927 of named faces. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
928
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
929 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
930 recompute_basic_faces (f)
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 (FRAME_FACE_CACHE (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
934 {
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
935 clear_face_cache (0);
26601
e23e3120d84f (set_lface_from_font_name): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26594
diff changeset
936 if (!realize_basic_faces (f))
e23e3120d84f (set_lface_from_font_name): Fix previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26594
diff changeset
937 abort ();
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
938 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
939 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
940
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
941
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
942 /* 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
943 try to free unused fonts, too. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
944
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
945 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
946 clear_face_cache (clear_fonts_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
947 int clear_fonts_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
948 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
949 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
950 Lisp_Object tail, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
951 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
952
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
953 if (clear_fonts_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
954 || ++clear_font_table_count == CLEAR_FONT_TABLE_COUNT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
955 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
956 /* 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
957 frees all realized faces on all frames. Fonts needed by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
958 faces will be loaded again when faces are realized again. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
959 clear_font_table_count = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
960
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
961 FOR_EACH_FRAME (tail, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
962 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
963 f = XFRAME (frame);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
964 if (FRAME_WINDOW_P (f)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
965 && FRAME_X_DISPLAY_INFO (f)->n_fonts > CLEAR_FONT_TABLE_NFONTS)
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
966 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
967 free_all_realized_faces (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
968 clear_font_table (f);
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
969 }
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
970 }
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
971 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
972 else
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
973 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
974 /* Clear GCs of realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
975 FOR_EACH_FRAME (tail, frame)
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
976 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
977 f = XFRAME (frame);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
978 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
979 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
980 clear_face_gcs (FRAME_FACE_CACHE (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
981 clear_image_cache (f, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
982 }
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
983 }
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
984 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
985 #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
986 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
987
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
988
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
989 DEFUN ("clear-face-cache", Fclear_face_cache, Sclear_face_cache, 0, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
990 "Clear face caches on all frames.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
991 Optional THOROUGHLY non-nil means try to free unused fonts, too.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
992 (thorougly)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
993 Lisp_Object thorougly;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
994 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
995 clear_face_cache (!NILP (thorougly));
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
996 ++face_change_count;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
997 ++windows_or_buffers_changed;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
998 return Qnil;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
999 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1000
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1001
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1002
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1003 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1004
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1005
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1006 /* Remove those fonts from the font table of frame F exept for the
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1007 default ASCII font for the frame. Called from clear_face_cache
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1008 from time to time. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1009
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1010 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1011 clear_font_table (f)
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1012 struct frame *f;
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
1013 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1014 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1015 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1016
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1017 xassert (FRAME_WINDOW_P (f));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1018
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1019 /* Free those fonts that are not used by the frame F as the default. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1020 for (i = 0; i < dpyinfo->n_fonts; ++i)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1021 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1022 struct font_info *font_info = dpyinfo->font_table + i;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1023
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1024 if (!font_info->name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1025 || font_info->font == FRAME_FONT (f))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1026 continue;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1027
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1028 /* Free names. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1029 if (font_info->full_name != font_info->name)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1030 xfree (font_info->full_name);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1031 xfree (font_info->name);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1032
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1033 /* Free the font. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1034 BLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1035 #ifdef HAVE_X_WINDOWS
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1036 XFreeFont (dpyinfo->display, font_info->font);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1037 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1038 #ifdef WINDOWSNT
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1039 w32_unload_font (dpyinfo, font_info->font);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1040 #endif
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1041 UNBLOCK_INPUT;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1042
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1043 /* Mark font table slot free. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1044 font_info->font = NULL;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1045 font_info->name = font_info->full_name = NULL;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1046 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1047 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1048
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1049 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1050
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1051
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1052
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1053 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1054 X Pixmaps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1055 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1056
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1057 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1058
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1059 DEFUN ("bitmap-spec-p", Fbitmap_spec_p, Sbitmap_spec_p, 1, 1, 0,
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1060 "Value is non-nil if OBJECT is a valid bitmap specification.\n\
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1061 A bitmap specification is either a string, a file name, or a list\n\
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1062 (WIDTH HEIGHT DATA) where WIDTH is the pixel width of the bitmap,\n\
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1063 HEIGHT is its height, and DATA is a string containing the bits of\n\
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1064 the pixmap. Bits are stored row by row, each row occupies\n\
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1065 (WIDTH + 7)/8 bytes.")
14090
24b93860d392 (Fpixmap_spec_p): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1066 (object)
24b93860d392 (Fpixmap_spec_p): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1067 Lisp_Object object;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1068 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1069 int pixmap_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1070
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1071 if (STRINGP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1072 /* 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
1073 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1074 else if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1075 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1076 /* 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
1077 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
1078 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
1079 Lisp_Object width, height, data;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1080
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1081 height = width = data = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1082
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1083 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1084 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1085 width = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1086 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1087 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1088 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1089 height = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1090 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1091 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1092 data = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1093 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1094 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1095
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1096 if (NATNUMP (width) && NATNUMP (height) && STRINGP (data))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1097 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1098 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
1099 / BITS_PER_CHAR);
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
1100 if (STRING_BYTES (XSTRING (data)) >= bytes_per_row * XINT (height))
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1101 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1102 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1103 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1104
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
1105 return pixmap_p ? Qt : Qnil;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1106 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1107
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1108
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1109 /* 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
1110 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
1111 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
1112 bitmap cannot be loaded, display a message saying so, and return
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1113 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
1114 if these pointers are not null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1115
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1116 static int
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1117 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
1118 FRAME_PTR f;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1119 Lisp_Object name;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1120 unsigned int *w_ptr, *h_ptr;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1121 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1122 int bitmap_id;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1123 Lisp_Object tem;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1124
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1125 if (NILP (name))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1126 return 0;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1127
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1128 tem = Fbitmap_spec_p (name);
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1129 if (NILP (tem))
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1130 wrong_type_argument (Qbitmap_spec_p, name);
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1131
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1132 BLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1133 if (CONSP (name))
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1134 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1135 /* Decode a bitmap spec into a bitmap. */
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1136
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1137 int h, w;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1138 Lisp_Object bits;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1139
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1140 w = XINT (Fcar (name));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1141 h = XINT (Fcar (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1142 bits = Fcar (Fcdr (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1143
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1144 bitmap_id = x_create_bitmap_from_data (f, XSTRING (bits)->data,
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1145 w, h);
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1146 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1147 else
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1148 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1149 /* 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
1150 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
1151 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1152 UNBLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1153
9902
32ed712a45a3 (load_pixmap): Handle bitmap_id < 0. F is a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9671
diff changeset
1154 if (bitmap_id < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1155 {
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1156 add_to_log ("Invalid or undefined bitmap %s", name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1157 bitmap_id = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1158
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1159 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1160 *w_ptr = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1161 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1162 *h_ptr = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1163 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1164 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1165 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1166 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1167 ++npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1168 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1169 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1170 *w_ptr = x_bitmap_width (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1171
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1172 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1173 *h_ptr = x_bitmap_height (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1174 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1175
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
1176 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
1177 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
1178
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1179 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1180
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
1181
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1182
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1183 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1184 Minimum font bounds
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1185 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1186
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1187 #ifdef HAVE_WINDOW_SYSTEM
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1188
25062
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
1189 /* Update the line_height of frame F. Return non-zero if line height
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
1190 changes. */
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
1191
6879
471aebc1b151 (frame_update_line_height): Don't call x_set_window_size.
Richard M. Stallman <rms@gnu.org>
parents: 6784
diff changeset
1192 int
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
1193 frame_update_line_height (f)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1194 struct frame *f;
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
1195 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1196 int line_height, changed_p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1197
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1198 line_height = FONT_HEIGHT (FRAME_FONT (f));
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1199 changed_p = line_height != FRAME_LINE_HEIGHT (f);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1200 FRAME_LINE_HEIGHT (f) = line_height;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1201 return changed_p;
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
1202 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1203
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1204 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1205
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
1206
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1207 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1208 Fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1209 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1210
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1211 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1212
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1213 /* Load font of face FACE which is used on frame F to display
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1214 character C. The name of the font to load is determined by lface
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1215 and fontset of FACE. */
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
1216
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1217 static void
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1218 load_face_font (f, face, c)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1219 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1220 struct face *face;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1221 int c;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1222 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1223 struct font_info *font_info = NULL;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1224 char *font_name;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1225
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1226 face->font_info_id = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1227 face->font = NULL;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1228
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1229 font_name = choose_face_font (f, face->lface, face->fontset, c);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1230 if (!font_name)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1231 return;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1232
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1233 BLOCK_INPUT;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1234 font_info = FS_LOAD_FACE_FONT (f, c, font_name, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1235 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1236
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1237 if (font_info)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1238 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1239 face->font_info_id = font_info->font_idx;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1240 face->font = font_info->font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1241 face->font_name = font_info->full_name;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1242 if (face->gc)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1243 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1244 x_free_gc (f, face->gc);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1245 face->gc = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1246 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1247 }
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1248 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1249 add_to_log ("Unable to load font %s",
25301
2042c4a224ad (add_to_log): Renamed from display_message.
Gerd Moellmann <gerd@gnu.org>
parents: 25270
diff changeset
1250 build_string (font_name), Qnil);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
1251 xfree (font_name);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1252 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1253
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1254 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1255
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1256
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1257
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1258 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1259 X Colors
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1260 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1261
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1262 /* 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
1263
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1264 int
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1265 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
1266 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1267 char *color_name;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1268 XColor *color_def;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1269 int alloc;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1270 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1271 Lisp_Object color_desc;
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
1272 unsigned long color_idx = FACE_TTY_DEFAULT_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
1273 unsigned long red = 0, green = 0, blue = 0;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1274 int status = 1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1275
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1276 if (*color_name && !NILP (Ffboundp (Qtty_color_desc)))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1277 {
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1278 Lisp_Object frame;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1279
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1280 XSETFRAME (frame, f);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1281 status = 0;
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1282 color_desc = call2 (Qtty_color_desc, build_string (color_name), frame);
26913
9d6d94db8909 (tty_defined_color): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 26902
diff changeset
1283 if (CONSP (color_desc) && CONSP (XCDR (color_desc)))
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1284 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1285 color_idx = XINT (XCAR (XCDR (color_desc)));
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1286 if (CONSP (XCDR (XCDR (color_desc))))
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 red = XINT (XCAR (XCDR (XCDR (color_desc))));
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1289 green = XINT (XCAR (XCDR (XCDR (XCDR (color_desc)))));
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1290 blue = XINT (XCAR (XCDR (XCDR (XCDR (XCDR (color_desc))))));
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1291 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1292 status = 1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1293 }
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1294 else if (NILP (Fsymbol_value (intern ("tty-defined-color-alist"))))
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1295 /* We were called early during startup, and the colors are not
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1296 yet set up in tty-defined-color-alist. Don't return a failure
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1297 indication, since this produces the annoying "Unable to
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1298 load color" messages in the *Messages* buffer. */
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1299 status = 1;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1300 }
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1301 if (color_idx == FACE_TTY_DEFAULT_COLOR && *color_name)
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1302 {
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1303 if (strcmp (color_name, "unspecified-fg") == 0)
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1304 color_idx = FACE_TTY_DEFAULT_FG_COLOR;
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1305 else if (strcmp (color_name, "unspecified-bg") == 0)
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1306 color_idx = FACE_TTY_DEFAULT_BG_COLOR;
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1307 }
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
1308
27743
2e020ab026b8 (tty_defined_color): Don't return faulire indication
Eli Zaretskii <eliz@gnu.org>
parents: 27695
diff changeset
1309 if (color_idx != FACE_TTY_DEFAULT_COLOR)
2e020ab026b8 (tty_defined_color): Don't return faulire indication
Eli Zaretskii <eliz@gnu.org>
parents: 27695
diff changeset
1310 status = 1;
2e020ab026b8 (tty_defined_color): Don't return faulire indication
Eli Zaretskii <eliz@gnu.org>
parents: 27695
diff changeset
1311
27695
68feb13f9572 (tty_defined_color): Declare color_idx unsigned long.
Dave Love <fx@gnu.org>
parents: 27137
diff changeset
1312 color_def->pixel = color_idx;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1313 color_def->red = red;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1314 color_def->green = green;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1315 color_def->blue = blue;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1316
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1317 return status;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1318 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1319
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1320
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1321 /* 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
1322 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
1323 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
1324
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1325 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
1326
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1327 int
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1328 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
1329 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1330 char *color_name;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1331 XColor *color_def;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1332 int alloc;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1333 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1334 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
1335 return tty_defined_color (f, color_name, color_def, alloc);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1336 #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
1337 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
1338 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
1339 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1340 #ifdef WINDOWSNT
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1341 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
1342 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
1343 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1344 #ifdef macintosh
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1345 else if (FRAME_MAC_P (f))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1346 return mac_defined_color (f, color_name, color_def, alloc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1347 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1348 else
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1349 abort ();
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1350 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1351
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1352
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1353 /* 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
1354 Lisp string. */
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1355
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1356 Lisp_Object
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1357 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
1358 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1359 int idx;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1360 {
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1361 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
1362 {
27088
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1363 Lisp_Object frame;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1364 Lisp_Object coldesc;
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1365
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1366 XSETFRAME (frame, f);
23bd823f11f4 (tty_defined_color): Pass frame to tty-color-desc. The
Eli Zaretskii <eliz@gnu.org>
parents: 26976
diff changeset
1367 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
1368
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1369 if (!NILP (coldesc))
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1370 return XCAR (coldesc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1371 }
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1372 #ifdef MSDOS
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1373 /* 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
1374 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
1375 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
1376 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
1377 #endif
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1378
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1379 if (idx == FACE_TTY_DEFAULT_FG_COLOR)
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1380 return build_string (unspecified_fg);
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1381 if (idx == FACE_TTY_DEFAULT_BG_COLOR)
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1382 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
1383
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1384 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1385 return vga_stdcolor_name (idx);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1386 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1387
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
1388 return Qunspecified;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1389 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1390
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1391
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1392 /* Return non-zero if COLOR_NAME is a shade of gray (or white or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1393 black) on frame F. The algorithm is taken from 20.2 faces.el. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1394
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1395 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1396 face_color_gray_p (f, color_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1397 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1398 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1399 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1400 XColor color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1401 int gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1402
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1403 if (defined_color (f, color_name, &color, 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1404 gray_p = ((abs (color.red - color.green)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1405 < max (color.red, color.green) / 20)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1406 && (abs (color.green - color.blue)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1407 < max (color.green, color.blue) / 20)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1408 && (abs (color.blue - color.red)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1409 < max (color.blue, color.red) / 20));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1410 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1411 gray_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1412
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1413 return gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1414 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1415
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1416
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1417 /* 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
1418 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
1419 color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1420
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1421 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1422 face_color_supported_p (f, color_name, background_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1423 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1424 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1425 int background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1426 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1427 Lisp_Object frame;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1428 XColor not_used;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1429
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1430 XSETFRAME (frame, f);
26972
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1431 return (FRAME_WINDOW_P (f)
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1432 ? (!NILP (Fxw_display_color_p (frame))
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1433 || xstricmp (color_name, "black") == 0
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1434 || xstricmp (color_name, "white") == 0
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1435 || (background_p
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1436 && face_color_gray_p (f, color_name))
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1437 || (!NILP (Fx_display_grayscale_p (frame))
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1438 && face_color_gray_p (f, color_name)))
68a3d8530f6c (face_color_supported_p): Check by tty_defined_color
Kenichi Handa <handa@m17n.org>
parents: 26913
diff changeset
1439 : 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
1440 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1441
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1442
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1443 DEFUN ("color-gray-p", Fcolor_gray_p, Scolor_gray_p, 1, 2, 0,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1444 "Return non-nil if COLOR is a shade of gray (or white or black).\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1445 FRAME specifies the frame and thus the display for interpreting COLOR.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1446 If FRAME is nil or omitted, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1447 (color, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1448 Lisp_Object color, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1449 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1450 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1451
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1452 CHECK_FRAME (frame, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1453 CHECK_STRING (color, 0);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1454 f = XFRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1455 return face_color_gray_p (f, XSTRING (color)->data) ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1456 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1457
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1458
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1459 DEFUN ("color-supported-p", Fcolor_supported_p,
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1460 Scolor_supported_p, 2, 3, 0,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1461 "Return non-nil if COLOR can be displayed on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1462 BACKGROUND-P non-nil means COLOR is used as a background.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1463 If FRAME is nil or omitted, use the selected frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1464 COLOR must be a valid color name.")
27100
9a0d8503806e (Fcolor_gray_p): Renamed from face-color-gray-p.
Eli Zaretskii <eliz@gnu.org>
parents: 27088
diff changeset
1465 (color, frame, background_p)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1466 Lisp_Object frame, color, background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1467 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1468 struct frame *f;
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1469
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1470 CHECK_FRAME (frame, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1471 CHECK_STRING (color, 0);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1472 f = XFRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1473 if (face_color_supported_p (f, XSTRING (color)->data, !NILP (background_p)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1474 return Qt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1475 return Qnil;
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
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1478
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1479 /* 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
1480 TARGET_INDEX must be one of LFACE_FOREGROUND_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1481 LFACE_BACKGROUND_INDEX, LFACE_UNDERLINE_INDEX, LFACE_OVERLINE_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1482 LFACE_STRIKE_THROUGH_INDEX, or LFACE_BOX_INDEX. Value is the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1483 pixel color. If color cannot be loaded, display a message, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1484 return the foreground, background or underline color of F, but
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1485 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
1486 these colors. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1487
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1488 unsigned long
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1489 load_color (f, face, name, target_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1490 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1491 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1492 Lisp_Object name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1493 enum lface_attribute_index target_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1494 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1495 XColor color;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1496
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1497 xassert (STRINGP (name));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1498 xassert (target_index == LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1499 || target_index == LFACE_BACKGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1500 || target_index == LFACE_UNDERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1501 || target_index == LFACE_OVERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1502 || target_index == LFACE_STRIKE_THROUGH_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1503 || target_index == LFACE_BOX_INDEX);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1504
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1505 /* 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
1506 to the values in an existing cell. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1507 if (!defined_color (f, XSTRING (name)->data, &color, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1508 {
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
1509 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
1510
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1511 switch (target_index)
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 case LFACE_FOREGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1514 face->foreground_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1515 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1516 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1517
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1518 case LFACE_BACKGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1519 face->background_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1520 color.pixel = FRAME_BACKGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1521 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1522
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1523 case LFACE_UNDERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1524 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1525 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1526 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1527
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1528 case LFACE_OVERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1529 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1530 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1531 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1532
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1533 case LFACE_STRIKE_THROUGH_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1534 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1535 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1536 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1537
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1538 case LFACE_BOX_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1539 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1540 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1541 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1542
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1543 default:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1544 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1545 }
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1548 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1549 ++ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1550 #endif
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1551
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1552 return color.pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1553 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1554
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1555
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1556 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1557
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1558 /* 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
1559 specified by slots LFACE_BACKGROUND_INDEX and LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1560 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
1561 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
1562
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1563 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1564 load_face_colors (f, face, attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1565 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1566 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1567 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1568 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1569 Lisp_Object fg, bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1570
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1571 bg = attrs[LFACE_BACKGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1572 fg = attrs[LFACE_FOREGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1573
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1574 /* Swap colors if face is inverse-video. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1575 if (EQ (attrs[LFACE_INVERSE_INDEX], Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1576 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1577 Lisp_Object tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1578 tmp = fg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1579 fg = bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1580 bg = tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1581 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1582
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1583 /* Check for support for foreground, not for background because
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1584 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
1585 "supported" as background because we are supposed to use stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1586 for them. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1587 if (!face_color_supported_p (f, XSTRING (bg)->data, 0)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
1588 && !NILP (Fbitmap_spec_p (Vface_default_stipple)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1589 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1590 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1591 face->stipple = load_pixmap (f, Vface_default_stipple,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1592 &face->pixmap_w, &face->pixmap_h);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1593 }
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1594
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1595 face->background = load_color (f, face, bg, LFACE_BACKGROUND_INDEX);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1596 face->foreground = load_color (f, face, fg, LFACE_FOREGROUND_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1597 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1598
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1599
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1600 /* Free color PIXEL on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1601
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1602 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1603 unload_color (f, pixel)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1604 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1605 unsigned long pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
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 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1608 BLOCK_INPUT;
27960
25a04100858d (x_free_colors): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27743
diff changeset
1609 x_free_colors (f, &pixel, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1610 UNBLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1611 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1612 }
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 /* Free colors allocated for FACE. */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1618 free_face_colors (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1619 struct frame *f;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1620 struct face *face;
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1621 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1622 #ifdef HAVE_X_WINDOWS
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1623 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1624
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1625 if (!face->foreground_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1626 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1627 x_free_colors (f, &face->foreground, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1628 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1629 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1630
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1631 if (!face->background_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1632 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1633 x_free_colors (f, &face->background, 1);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1634 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1635 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1636
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1637 if (face->underline_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1638 && !face->underline_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1639 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1640 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
1641 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1642 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1643
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1644 if (face->overline_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1645 && !face->overline_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1646 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1647 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
1648 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1649 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1650
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1651 if (face->strike_through_p
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1652 && !face->strike_through_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1653 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1654 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
1655 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1656 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1657
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1658 if (face->box != FACE_NO_BOX
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1659 && !face->box_color_defaulted_p)
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1660 {
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1661 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
1662 IF_DEBUG (--ncolors_allocated);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1663 }
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1664
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1665 UNBLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1666 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1667 }
29599
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
1668
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
1669 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1670
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1671
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1672
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1673 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1674 XLFD Font Names
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1675 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1676
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1677 /* An enumerator for each field of an XLFD font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1678
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1679 enum xlfd_field
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 XLFD_FOUNDRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1682 XLFD_FAMILY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1683 XLFD_WEIGHT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1684 XLFD_SLANT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1685 XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1686 XLFD_ADSTYLE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1687 XLFD_PIXEL_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1688 XLFD_POINT_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1689 XLFD_RESX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1690 XLFD_RESY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1691 XLFD_SPACING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1692 XLFD_AVGWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1693 XLFD_REGISTRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1694 XLFD_ENCODING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1695 XLFD_LAST
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1696 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1697
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1698 /* 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
1699 the XLFD specification. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1700
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1701 enum xlfd_slant
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1702 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1703 XLFD_SLANT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1704 XLFD_SLANT_ROMAN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1705 XLFD_SLANT_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1706 XLFD_SLANT_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1707 XLFD_SLANT_REVERSE_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1708 XLFD_SLANT_REVERSE_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1709 XLFD_SLANT_OTHER
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1712 /* Relative font weight according to XLFD documentation. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1713
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1714 enum xlfd_weight
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1715 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1716 XLFD_WEIGHT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1717 XLFD_WEIGHT_ULTRA_LIGHT, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1718 XLFD_WEIGHT_EXTRA_LIGHT, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1719 XLFD_WEIGHT_LIGHT, /* 30 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1720 XLFD_WEIGHT_SEMI_LIGHT, /* 40: SemiLight, Book, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1721 XLFD_WEIGHT_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1722 XLFD_WEIGHT_SEMI_BOLD, /* 60: SemiBold, DemiBold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1723 XLFD_WEIGHT_BOLD, /* 70: Bold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1724 XLFD_WEIGHT_EXTRA_BOLD, /* 80: ExtraBold, Heavy, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1725 XLFD_WEIGHT_ULTRA_BOLD /* 90: UltraBold, Black, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1726 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1727
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1728 /* Relative proportionate width. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1729
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1730 enum xlfd_swidth
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1731 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1732 XLFD_SWIDTH_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1733 XLFD_SWIDTH_ULTRA_CONDENSED, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1734 XLFD_SWIDTH_EXTRA_CONDENSED, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1735 XLFD_SWIDTH_CONDENSED, /* 30: Condensed, Narrow, Compressed, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1736 XLFD_SWIDTH_SEMI_CONDENSED, /* 40: semicondensed */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1737 XLFD_SWIDTH_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1738 XLFD_SWIDTH_SEMI_EXPANDED, /* 60: SemiExpanded, DemiExpanded, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1739 XLFD_SWIDTH_EXPANDED, /* 70: Expanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1740 XLFD_SWIDTH_EXTRA_EXPANDED, /* 80: ExtraExpanded, Wide... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1741 XLFD_SWIDTH_ULTRA_EXPANDED /* 90: UltraExpanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1742 };
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 /* Structure used for tables mapping XLFD weight, slant, and width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1745 names to numeric and symbolic values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1746
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1747 struct table_entry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1748 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1749 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1750 int numeric;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1751 Lisp_Object *symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1752 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1753
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1754 /* Table of XLFD slant names and their numeric and symbolic
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1755 representations. This table must be sorted by slant names in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1756 ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1757
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1758 static struct table_entry slant_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1759 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1760 {"i", XLFD_SLANT_ITALIC, &Qitalic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1761 {"o", XLFD_SLANT_OBLIQUE, &Qoblique},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1762 {"ot", XLFD_SLANT_OTHER, &Qitalic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1763 {"r", XLFD_SLANT_ROMAN, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1764 {"ri", XLFD_SLANT_REVERSE_ITALIC, &Qreverse_italic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1765 {"ro", XLFD_SLANT_REVERSE_OBLIQUE, &Qreverse_oblique}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1766 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1767
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1768 /* Table of XLFD weight names. This table must be sorted by weight
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1769 names in ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1770
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1771 static struct table_entry weight_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1772 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1773 {"black", XLFD_WEIGHT_ULTRA_BOLD, &Qultra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1774 {"bold", XLFD_WEIGHT_BOLD, &Qbold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1775 {"book", XLFD_WEIGHT_SEMI_LIGHT, &Qsemi_light},
33529
2e6d343c238d (weight_table): Add `demi' with the same meaning as
Gerd Moellmann <gerd@gnu.org>
parents: 33372
diff changeset
1776 {"demi", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1777 {"demibold", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1778 {"extralight", XLFD_WEIGHT_EXTRA_LIGHT, &Qextra_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1779 {"extrabold", XLFD_WEIGHT_EXTRA_BOLD, &Qextra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1780 {"heavy", XLFD_WEIGHT_EXTRA_BOLD, &Qextra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1781 {"light", XLFD_WEIGHT_LIGHT, &Qlight},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1782 {"medium", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1783 {"normal", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1784 {"regular", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1785 {"semibold", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1786 {"semilight", XLFD_WEIGHT_SEMI_LIGHT, &Qsemi_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1787 {"ultralight", XLFD_WEIGHT_ULTRA_LIGHT, &Qultra_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1788 {"ultrabold", XLFD_WEIGHT_ULTRA_BOLD, &Qultra_bold}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1789 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1790
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1791 /* Table of XLFD width names. This table must be sorted by width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1792 names in ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1793
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1794 static struct table_entry swidth_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1795 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1796 {"compressed", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1797 {"condensed", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1798 {"demiexpanded", XLFD_SWIDTH_SEMI_EXPANDED, &Qsemi_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1799 {"expanded", XLFD_SWIDTH_EXPANDED, &Qexpanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1800 {"extracondensed", XLFD_SWIDTH_EXTRA_CONDENSED, &Qextra_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1801 {"extraexpanded", XLFD_SWIDTH_EXTRA_EXPANDED, &Qextra_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1802 {"medium", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1803 {"narrow", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1804 {"normal", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1805 {"regular", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1806 {"semicondensed", XLFD_SWIDTH_SEMI_CONDENSED, &Qsemi_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1807 {"semiexpanded", XLFD_SWIDTH_SEMI_EXPANDED, &Qsemi_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1808 {"ultracondensed", XLFD_SWIDTH_ULTRA_CONDENSED, &Qultra_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1809 {"ultraexpanded", XLFD_SWIDTH_ULTRA_EXPANDED, &Qultra_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1810 {"wide", XLFD_SWIDTH_EXTRA_EXPANDED, &Qextra_expanded}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1811 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1812
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1813 /* Structure used to hold the result of splitting font names in XLFD
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1814 format into their fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1815
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1816 struct font_name
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1817 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1818 /* The original name which is modified destructively by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1819 split_font_name. The pointer is kept here to be able to free it
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1820 if it was allocated from the heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1821 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1822
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1823 /* Font name fields. Each vector element points into `name' above.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1824 Fields are NUL-terminated. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1825 char *fields[XLFD_LAST];
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 /* Numeric values for those fields that interest us. See
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1828 split_font_name for which these are. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1829 int numeric[XLFD_LAST];
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1832 /* The frame in effect when sorting font names. Set temporarily in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1833 sort_fonts so that it is available in font comparison functions. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1834
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1835 static struct frame *font_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1836
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1837 /* Order by which font selection chooses fonts. The default values
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1838 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
1839 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
1840 set via set-face-font-sort-order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1841
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
1842 #ifdef macintosh
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
1843 static int font_sort_order[4] = { XLFD_SWIDTH, XLFD_POINT_SIZE, XLFD_WEIGHT, XLFD_SLANT };
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
1844 #else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1845 static int font_sort_order[4];
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
1846 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1847
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1848 /* Look up FONT.fields[FIELD_INDEX] in TABLE which has DIM entries.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1849 TABLE must be sorted by TABLE[i]->name in ascending order. Value
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1850 is a pointer to the matching table entry or null if no table entry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1851 matches. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1852
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1853 static struct table_entry *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1854 xlfd_lookup_field_contents (table, dim, font, field_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1855 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1856 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1857 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1858 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1859 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1860 /* Function split_font_name converts fields to lower-case, so there
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1861 is no need to use xstrlwr or xstricmp here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1862 char *s = font->fields[field_index];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1863 int low, mid, high, cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1864
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1865 low = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1866 high = dim - 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1867
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1868 while (low <= high)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1869 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1870 mid = (low + high) / 2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1871 cmp = strcmp (table[mid].name, s);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1872
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1873 if (cmp < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1874 low = mid + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1875 else if (cmp > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1876 high = mid - 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1877 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1878 return table + mid;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1879 }
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 return NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1882 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1883
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 /* Return a numeric representation for font name field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1886 FONT.fields[FIELD_INDEX]. The field is looked up in TABLE which
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1887 has DIM entries. Value is the numeric value found or DFLT if no
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1888 table entry matches. This function is used to translate weight,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1889 slant, and swidth names of XLFD font names to numeric values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1890
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1891 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1892 xlfd_numeric_value (table, dim, font, field_index, dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1893 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1894 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1895 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1896 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1897 int dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1898 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1899 struct table_entry *p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1900 p = xlfd_lookup_field_contents (table, dim, font, field_index);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1901 return p ? p->numeric : dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1902 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1903
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 /* Return a symbolic representation for font name field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1906 FONT.fields[FIELD_INDEX]. The field is looked up in TABLE which
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1907 has DIM entries. Value is the symbolic value found or DFLT if no
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1908 table entry matches. This function is used to translate weight,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1909 slant, and swidth names of XLFD font names to symbols. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1910
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1911 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1912 xlfd_symbolic_value (table, dim, font, field_index, dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1913 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1914 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1915 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1916 int field_index;
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
1917 Lisp_Object dflt;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1918 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1919 struct table_entry *p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1920 p = xlfd_lookup_field_contents (table, dim, font, field_index);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1921 return p ? *p->symbol : dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1922 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1923
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 /* Return a numeric value for the slant of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1926
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1927 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1928 xlfd_numeric_slant (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1929 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1930 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1931 return xlfd_numeric_value (slant_table, DIM (slant_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1932 font, XLFD_SLANT, XLFD_SLANT_ROMAN);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1933 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1934
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1935
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1936 /* Return a symbol representing the weight of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1937
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1938 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1939 xlfd_symbolic_slant (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1940 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1941 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1942 return xlfd_symbolic_value (slant_table, DIM (slant_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1943 font, XLFD_SLANT, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1944 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1945
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1946
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1947 /* Return a numeric value for the weight of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1948
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1949 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1950 xlfd_numeric_weight (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1951 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1952 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1953 return xlfd_numeric_value (weight_table, DIM (weight_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1954 font, XLFD_WEIGHT, XLFD_WEIGHT_MEDIUM);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1955 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1956
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1957
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1958 /* Return a symbol representing the slant of the font given by FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1959
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1960 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1961 xlfd_symbolic_weight (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1962 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1963 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1964 return xlfd_symbolic_value (weight_table, DIM (weight_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1965 font, XLFD_WEIGHT, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1966 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1967
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1968
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1969 /* Return a numeric value for the swidth of the font whose XLFD font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1970 name fields are found in FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1971
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1972 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1973 xlfd_numeric_swidth (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1974 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1975 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1976 return xlfd_numeric_value (swidth_table, DIM (swidth_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1977 font, XLFD_SWIDTH, XLFD_SWIDTH_MEDIUM);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1978 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1979
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1980
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1981 /* Return a symbolic value for the swidth of FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1982
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1983 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1984 xlfd_symbolic_swidth (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1985 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1986 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1987 return xlfd_symbolic_value (swidth_table, DIM (swidth_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1988 font, XLFD_SWIDTH, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1989 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
1990
24995
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 /* Look up the entry of SYMBOL in the vector TABLE which has DIM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1993 entries. Value is a pointer to the matching table entry or null if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1994 no element of TABLE contains SYMBOL. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1996 static struct table_entry *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1997 face_value (table, dim, symbol)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1998 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1999 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2000 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2001 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2002 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2003
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2004 xassert (SYMBOLP (symbol));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2005
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2006 for (i = 0; i < dim; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2007 if (EQ (*table[i].symbol, symbol))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2008 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2009
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2010 return i < dim ? table + i : NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2011 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2012
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2013
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2014 /* Return a numeric value for SYMBOL in the vector TABLE which has DIM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2015 entries. Value is -1 if SYMBOL is not found in TABLE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2016
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2017 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2018 face_numeric_value (table, dim, symbol)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2019 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2020 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2021 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2022 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2023 struct table_entry *p = face_value (table, dim, symbol);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2024 return p ? p->numeric : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2025 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2026
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2027
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2028 /* Return a numeric value representing the weight specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2029 symbol WEIGHT. Value is one of the enumerators of enum
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2030 xlfd_weight. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2031
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2032 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2033 face_numeric_weight (weight)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2034 Lisp_Object weight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2035 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2036 return face_numeric_value (weight_table, DIM (weight_table), weight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2037 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2038
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2039
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2040 /* Return a numeric value representing the slant specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2041 symbol SLANT. Value is one of the enumerators of enum xlfd_slant. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2042
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2043 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2044 face_numeric_slant (slant)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2045 Lisp_Object slant;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2046 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2047 return face_numeric_value (slant_table, DIM (slant_table), slant);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2048 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2049
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2050
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2051 /* Return a numeric value representing the swidth specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2052 symbol WIDTH. Value is one of the enumerators of enum xlfd_swidth. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2053
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2054 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2055 face_numeric_swidth (width)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2056 Lisp_Object width;
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 return face_numeric_value (swidth_table, DIM (swidth_table), width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2059 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2060
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2061
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2062 #ifdef HAVE_WINDOW_SYSTEM
24995
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 /* Return non-zero if FONT is the name of a fixed-pitch font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2065
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2066 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2067 xlfd_fixed_p (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2068 struct font_name *font;
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 /* Function split_font_name converts fields to lower-case, so there
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2071 is no need to use tolower here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2072 return *font->fields[XLFD_SPACING] != 'p';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2073 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2074
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2075
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2076 /* Return the point size of FONT on frame F, measured in 1/10 pt.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2077
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2078 The actual height of the font when displayed on F depends on the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2079 resolution of both the font and frame. For example, a 10pt font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2080 designed for a 100dpi display will display larger than 10pt on a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2081 75dpi display. (It's not unusual to use fonts not designed for the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2082 display one is using. For example, some intlfonts are available in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2083 72dpi versions, only.)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2084
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2085 Value is the real point size of FONT on frame F, or 0 if it cannot
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2086 be determined. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2087
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2088 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2089 xlfd_point_size (f, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2090 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2091 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2092 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2093 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2094 double font_resy = atoi (font->fields[XLFD_RESY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2095 double font_pt = atoi (font->fields[XLFD_POINT_SIZE]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2096 int real_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2097
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2098 if (font_resy == 0 || font_pt == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2099 real_pt = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2100 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2101 real_pt = (font_resy / resy) * font_pt + 0.5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2102
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2103 return real_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2104 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2105
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2106
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2107 /* Return point size of PIXEL dots while considering Y-resultion (DPI)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2108 of frame F. This function is used to guess a point size of font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2109 when only the pixel height of the font is available. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2110
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2111 static INLINE int
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2112 pixel_point_size (f, pixel)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2113 struct frame *f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2114 int pixel;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2115 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2116 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2117 double real_pt;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2118 int int_pt;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2119
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2120 /* As one inch is 72 points, 72/RESY gives the point size of one dot. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2121 real_pt = pixel * 72 / resy;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2122 int_pt = real_pt + 0.5;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2123
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2124 return int_pt;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2125 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2126
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2127
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2128 /* Split XLFD font name FONT->name destructively into NUL-terminated,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2129 lower-case fields in FONT->fields. NUMERIC_P non-zero means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2130 compute numeric values for fields XLFD_POINT_SIZE, XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2131 XLFD_RESY, XLFD_SLANT, and XLFD_WEIGHT in FONT->numeric. Value is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2132 zero if the font name doesn't have the format we expect. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2133 expected format is a font name that starts with a `-' and has
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2134 XLFD_LAST fields separated by `-'. (The XLFD specification allows
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2135 forms of font names where certain field contents are enclosed in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2136 square brackets. We don't support that, for now. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2137
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2138 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2139 split_font_name (f, font, numeric_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2140 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2141 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2142 int numeric_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2143 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2144 int i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2145 int success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2146
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2147 if (*font->name == '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2148 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2149 char *p = xstrlwr (font->name) + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2150
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2151 while (i < XLFD_LAST)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2152 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2153 font->fields[i] = p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2154 ++i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2155
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2156 while (*p && *p != '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2157 ++p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2158
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2159 if (*p != '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2160 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2161
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2162 *p++ = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2163 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2164 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2165
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2166 success_p = i == XLFD_LAST;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2167
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2168 /* If requested, and font name was in the expected format,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2169 compute numeric values for some fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2170 if (numeric_p && success_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2171 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2172 font->numeric[XLFD_POINT_SIZE] = xlfd_point_size (f, font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2173 font->numeric[XLFD_RESY] = atoi (font->fields[XLFD_RESY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2174 font->numeric[XLFD_SLANT] = xlfd_numeric_slant (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2175 font->numeric[XLFD_WEIGHT] = xlfd_numeric_weight (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2176 font->numeric[XLFD_SWIDTH] = xlfd_numeric_swidth (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2177 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2178
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2179 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2180 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2181
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2182
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2183 /* Build an XLFD font name from font name fields in FONT. Value is a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2184 pointer to the font name, which is allocated via xmalloc. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2185
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2186 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2187 build_font_name (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2188 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2189 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2190 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2191 int size = 100;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2192 char *font_name = (char *) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2193 int total_length = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2194
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2195 for (i = 0; i < XLFD_LAST; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2196 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2197 /* Add 1 because of the leading `-'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2198 int len = strlen (font->fields[i]) + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2199
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2200 /* Reallocate font_name if necessary. Add 1 for the final
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2201 NUL-byte. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2202 if (total_length + len + 1 >= size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2203 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2204 int new_size = max (2 * size, size + len + 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2205 int sz = new_size * sizeof *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2206 font_name = (char *) xrealloc (font_name, sz);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2207 size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2208 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2209
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2210 font_name[total_length] = '-';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2211 bcopy (font->fields[i], font_name + total_length + 1, len - 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2212 total_length += len;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2213 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2214
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2215 font_name[total_length] = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2216 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2217 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2218
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2219
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2220 /* Free an array FONTS of N font_name structures. This frees FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2221 itself and all `name' fields in its elements. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2222
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2223 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2224 free_font_names (fonts, n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2225 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2226 int n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2227 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2228 while (n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2229 xfree (fonts[--n].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2230 xfree (fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2231 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2234 /* Sort vector FONTS of font_name structures which contains NFONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2235 elements using qsort and comparison function CMPFN. F is the frame
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2236 on which the fonts will be used. The global variable font_frame
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2237 is temporarily set to F to make it available in CMPFN. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2238
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2239 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2240 sort_fonts (f, fonts, nfonts, cmpfn)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2241 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2242 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2243 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2244 int (*cmpfn) P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2245 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2246 font_frame = f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2247 qsort (fonts, nfonts, sizeof *fonts, cmpfn);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2248 font_frame = NULL;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
2249 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
2250
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2251
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2252 /* Get fonts matching PATTERN on frame F. If F is null, use the first
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2253 display in x_display_list. FONTS is a pointer to a vector of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2254 NFONTS font_name structures. TRY_ALTERNATIVES_P non-zero means try
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2255 alternative patterns from Valternate_fontname_alist if no fonts are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2256 found matching PATTERN. SCALABLE_FONTS_P non-zero means include
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2257 scalable fonts.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2258
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2259 For all fonts found, set FONTS[i].name to the name of the font,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2260 allocated via xmalloc, and split font names into fields. Ignore
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2261 fonts that we can't parse. Value is the number of fonts found.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2262
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2263 This is similar to x_list_fonts. The differences are:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2264
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2265 1. It avoids consing.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2266 2. It never calls XLoadQueryFont. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2267
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2268 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2269 x_face_list_fonts (f, pattern, fonts, nfonts, try_alternatives_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2270 scalable_fonts_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2271 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2272 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2273 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2274 int nfonts, try_alternatives_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2275 int scalable_fonts_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2276 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2277 int n, i, j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2278 char **names;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2279 #ifdef HAVE_X_WINDOWS
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2280 Display *dpy = f ? FRAME_X_DISPLAY (f) : x_display_list->display;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2281
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2282 /* Get the list of fonts matching PATTERN from the X server. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2283 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2284 names = XListFonts (dpy, pattern, nfonts, &n);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2285 UNBLOCK_INPUT;
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
2286 #endif /* HAVE_X_WINDOWS */
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2287 #if defined (WINDOWSNT) || defined (macintosh)
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2288 /* NTEMACS_TODO : currently this uses w32_list_fonts, but it may be
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2289 better to do it the other way around. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2290 Lisp_Object lfonts;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2291 Lisp_Object lpattern, tem;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2292
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2293 n = 0;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2294 names = NULL;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2295
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2296 lpattern = build_string (pattern);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2297
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2298 /* Get the list of fonts matching PATTERN. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2299 BLOCK_INPUT;
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2300 #ifdef WINDOWSNT
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2301 lfonts = w32_list_fonts (f, lpattern, 0, nfonts);
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2302 #else /* macintosh */
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2303 lfonts = x_list_fonts (f, lpattern, 0, nfonts);
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2304 #endif
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2305 UNBLOCK_INPUT;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2306
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2307 /* Count fonts returned */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2308 for (tem = lfonts; CONSP (tem); tem = XCDR (tem))
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2309 n++;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2310
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2311 /* Allocate array. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2312 if (n)
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2313 names = (char **) xmalloc (n * sizeof (char *));
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2314
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2315 /* Extract font names into char * array. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2316 tem = lfonts;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2317 for (i = 0; i < n; i++)
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2318 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2319 names[i] = XSTRING (XCAR (tem))->data;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2320 tem = XCDR (tem);
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2321 }
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
2322 #endif /* defined (WINDOWSNT) || defined (macintosh) */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2323
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2324 if (names)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2325 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2326 /* Make a copy of the font names we got from X, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2327 split them into fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2328 for (i = j = 0; i < n; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2329 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2330 /* Make a copy of the font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2331 fonts[j].name = xstrdup (names[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2332
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2333 /* Ignore fonts having a name that we can't parse. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2334 if (!split_font_name (f, fonts + j, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2335 xfree (fonts[j].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2336 else if (font_scalable_p (fonts + j))
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 if (!scalable_fonts_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2339 || !may_use_scalable_font_p (fonts + j, names[i]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2340 xfree (fonts[j].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2341 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2342 ++j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2343 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2344 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2345 ++j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2346 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2347
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2348 n = j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2349
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2350 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2351 /* Free font names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2352 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2353 XFreeFontNames (names);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2354 UNBLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2355 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2356 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2357
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2358
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2359 /* If no fonts found, try patterns from Valternate_fontname_alist. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2360 if (n == 0 && try_alternatives_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2361 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2362 Lisp_Object list = Valternate_fontname_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2363
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2364 while (CONSP (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2365 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2366 Lisp_Object entry = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2367 if (CONSP (entry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2368 && STRINGP (XCAR (entry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2369 && strcmp (XSTRING (XCAR (entry))->data, pattern) == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2370 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2371 list = XCDR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2372 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2373
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2374 if (CONSP (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2375 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2376 Lisp_Object patterns = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2377 Lisp_Object name;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2378
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2379 while (CONSP (patterns)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2380 /* If list is screwed up, give up. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2381 && (name = XCAR (patterns),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2382 STRINGP (name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2383 /* Ignore patterns equal to PATTERN because we tried that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2384 already with no success. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2385 && (strcmp (XSTRING (name)->data, pattern) == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2386 || (n = x_face_list_fonts (f, XSTRING (name)->data,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2387 fonts, nfonts, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2388 scalable_fonts_p),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2389 n == 0)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2390 patterns = XCDR (patterns);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2391 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2392 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2393
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2394 return n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2395 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2396
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2397
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2398 /* Determine the first font matching PATTERN on frame F. Return in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2399 *FONT the matching font name, split into fields. Value is non-zero
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2400 if a match was found. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2401
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2402 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2403 first_font_matching (f, pattern, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2404 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2405 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2406 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2407 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2408 int nfonts = 100;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2409 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2410
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2411 fonts = (struct font_name *) xmalloc (nfonts * sizeof *fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2412 nfonts = x_face_list_fonts (f, pattern, fonts, nfonts, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2413
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2414 if (nfonts > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2415 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2416 bcopy (&fonts[0], font, sizeof *font);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2417
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2418 fonts[0].name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2419 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2420 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2421
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2422 return nfonts > 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2423 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2424
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2425
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2426 /* Determine fonts matching PATTERN on frame F. Sort resulting fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2427 using comparison function CMPFN. Value is the number of fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2428 found. If value is non-zero, *FONTS is set to a vector of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2429 font_name structures allocated from the heap containing matching
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2430 fonts. Each element of *FONTS contains a name member that is also
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2431 allocated from the heap. Font names in these structures are split
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2432 into fields. Use free_font_names to free such an array. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2433
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2434 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2435 sorted_font_list (f, pattern, cmpfn, fonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2436 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2437 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2438 int (*cmpfn) P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2439 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2440 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2441 int nfonts;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2442
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2443 /* Get the list of fonts matching pattern. 100 should suffice. */
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2444 nfonts = DEFAULT_FONT_LIST_LIMIT;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2445 if (INTEGERP (Vfont_list_limit) && XINT (Vfont_list_limit) > 0)
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2446 nfonts = XFASTINT (Vfont_list_limit);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2447
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2448 *fonts = (struct font_name *) xmalloc (nfonts * sizeof **fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2449 nfonts = x_face_list_fonts (f, pattern, *fonts, nfonts, 1, 1);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2450
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2451 /* Sort the resulting array and return it in *FONTS. If no
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2452 fonts were found, make sure to set *FONTS to null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2453 if (nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2454 sort_fonts (f, *fonts, nfonts, cmpfn);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2455 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2456 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2457 xfree (*fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2458 *fonts = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2459 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2460
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2461 return nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2462 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2463
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2464
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2465 /* Compare two font_name structures *A and *B. Value is analogous to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2466 strcmp. Sort order is given by the global variable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2467 font_sort_order. Font names are sorted so that, everything else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2468 being equal, fonts with a resolution closer to that of the frame on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2469 which they are used are listed first. The global variable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2470 font_frame is the frame on which we operate. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2471
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2472 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2473 cmp_font_names (a, b)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2474 const void *a, *b;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2475 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2476 struct font_name *x = (struct font_name *) a;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2477 struct font_name *y = (struct font_name *) b;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2478 int cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2479
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2480 /* All strings have been converted to lower-case by split_font_name,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2481 so we can use strcmp here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2482 cmp = strcmp (x->fields[XLFD_FAMILY], y->fields[XLFD_FAMILY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2483 if (cmp == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2484 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2485 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2486
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2487 for (i = 0; i < DIM (font_sort_order) && cmp == 0; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2488 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2489 int j = font_sort_order[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2490 cmp = x->numeric[j] - y->numeric[j];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2491 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2492
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2493 if (cmp == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2494 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2495 /* Everything else being equal, we prefer fonts with an
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2496 y-resolution closer to that of the frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2497 int resy = FRAME_X_DISPLAY_INFO (font_frame)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2498 int x_resy = x->numeric[XLFD_RESY];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2499 int y_resy = y->numeric[XLFD_RESY];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2500 cmp = abs (resy - x_resy) - abs (resy - y_resy);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2501 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2502 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2503
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2504 return cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2505 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2506
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2507
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2508 /* Get a sorted list of fonts of family FAMILY on frame F. If PATTERN
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2509 is non-nil list fonts matching that pattern. Otherwise, if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2510 REGISTRY is non-nil return only fonts with that registry, otherwise
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2511 return fonts of any registry. Set *FONTS to a vector of font_name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2512 structures allocated from the heap containing the fonts found.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2513 Value is the number of fonts found. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2514
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2515 static int
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2516 font_list_1 (f, pattern, family, registry, fonts)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2517 struct frame *f;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2518 Lisp_Object pattern, family, registry;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2519 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2520 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2521 char *pattern_str, *family_str, *registry_str;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2522
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2523 if (NILP (pattern))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2524 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2525 family_str = (NILP (family) ? "*" : (char *) XSTRING (family)->data);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2526 registry_str = (NILP (registry) ? "*" : (char *) XSTRING (registry)->data);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2527
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2528 pattern_str = (char *) alloca (strlen (family_str)
29768
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2529 + strlen (registry_str)
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2530 + 10);
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2531 strcpy (pattern_str, index (family_str, '-') ? "-" : "-*-");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2532 strcat (pattern_str, family_str);
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2533 strcat (pattern_str, "-*-");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2534 strcat (pattern_str, registry_str);
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2535 if (!index (registry_str, '-'))
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2536 {
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2537 if (registry_str[strlen (registry_str) - 1] == '*')
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2538 strcat (pattern_str, "-*");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2539 else
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2540 strcat (pattern_str, "*-*");
6f3f0ca4a359 (font_list): Handle the case that REGISTRY doesn't contain information
Kenichi Handa <handa@m17n.org>
parents: 29711
diff changeset
2541 }
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2542 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2543 else
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2544 pattern_str = (char *) XSTRING (pattern)->data;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2545
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2546 return sorted_font_list (f, pattern_str, cmp_font_names, fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2547 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2548
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2549
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2550 /* Get a sorted list of fonts of family FAMILY on frame F.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2551
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2552 If PATTERN is non-nil list fonts matching that pattern.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2553
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2554 If REGISTRY is non-nil, retur fonts with that registry. If none
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2555 are found, try alternative registries from
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2556 Vface_alternative_font_registry_alist.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2557
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2558 If REGISTRY is nil return fonts of any registry.
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2559
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2560 Set *FONTS to a vector of font_name structures allocated from the
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2561 heap containing the fonts found. Value is the number of fonts
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2562 found. */
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2563
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2564 static int
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2565 font_list (f, pattern, family, registry, fonts)
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2566 struct frame *f;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2567 Lisp_Object pattern, family, registry;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2568 struct font_name **fonts;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2569 {
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2570 int nfonts = font_list_1 (f, pattern, family, registry, fonts);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2571
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2572 if (nfonts == 0
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2573 && !NILP (registry)
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2574 && CONSP (Vface_alternative_font_registry_alist))
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2575 {
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2576 Lisp_Object alter;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2577
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2578 alter = Fassoc (registry, Vface_alternative_font_registry_alist);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2579 if (CONSP (alter))
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2580 {
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2581 for (alter = XCDR (alter);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2582 CONSP (alter) && nfonts == 0;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2583 alter = XCDR (alter))
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2584 if (STRINGP (XCAR (alter)))
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2585 nfonts = font_list_1 (f, pattern, family, XCAR (alter), fonts);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2586 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2587 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2588
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2589 return nfonts;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2590 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2591
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
2592
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2593 /* Remove elements from LIST whose cars are `equal'. Called from
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2594 x-family-fonts and x-font-family-list to remove duplicate font
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2595 entries. */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2598 remove_duplicates (list)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2599 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2600 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2601 Lisp_Object tail = list;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2602
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2603 while (!NILP (tail) && !NILP (XCDR (tail)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2604 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2605 Lisp_Object next = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2606 if (!NILP (Fequal (XCAR (next), XCAR (tail))))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2607 XCDR (tail) = XCDR (next);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2608 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2609 tail = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2610 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2611 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2612
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2613
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2614 DEFUN ("x-family-fonts", Fx_family_fonts, Sx_family_fonts, 0, 2, 0,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2615 "Return a list of available fonts of family FAMILY on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2616 If FAMILY is omitted or nil, list all families.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2617 Otherwise, FAMILY must be a string, possibly containing wildcards\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2618 `?' and `*'.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2619 If FRAME is omitted or nil, use the selected frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2620 Each element of the result is a vector [FAMILY WIDTH POINT-SIZE WEIGHT\n\
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2621 SLANT FIXED-P FULL REGISTRY-AND-ENCODING].\n\
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2622 FAMILY is the font family name. POINT-SIZE is the size of the\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2623 font in 1/10 pt. WIDTH, WEIGHT, and SLANT are symbols describing the\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2624 width, weight and slant of the font. These symbols are the same as for\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2625 face attributes. FIXED-P is non-nil if the font is fixed-pitch.\n\
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2626 FULL is the full name of the font, and REGISTRY-AND-ENCODING is a string\n\
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2627 giving the registry and encoding of the font.\n\
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2628 The result list is sorted according to the current setting of\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2629 the face font sort order.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2630 (family, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2631 Lisp_Object family, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2632 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2633 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2634 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2635 int i, nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2636 Lisp_Object result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2637 struct gcpro gcpro1;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2638
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2639 if (!NILP (family))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2640 CHECK_STRING (family, 1);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2641
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2642 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2643 GCPRO1 (result);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2644 nfonts = font_list (f, Qnil, family, Qnil, &fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2645 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2646 {
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2647 Lisp_Object v = Fmake_vector (make_number (8), Qnil);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2648 char *tem;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2649
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2650 ASET (v, 0, build_string (fonts[i].fields[XLFD_FAMILY]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2651 ASET (v, 1, xlfd_symbolic_swidth (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2652 ASET (v, 2, make_number (xlfd_point_size (f, fonts + i)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2653 ASET (v, 3, xlfd_symbolic_weight (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2654 ASET (v, 4, xlfd_symbolic_slant (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2655 ASET (v, 5, xlfd_fixed_p (fonts + i) ? Qt : Qnil);
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2656 tem = build_font_name (fonts + i);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2657 ASET (v, 6, build_string (tem));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2658 sprintf (tem, "%s-%s", fonts[i].fields[XLFD_REGISTRY],
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2659 fonts[i].fields[XLFD_ENCODING]);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2660 ASET (v, 7, build_string (tem));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2661 xfree (tem);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2662
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2663 result = Fcons (v, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2664 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2665
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2666 remove_duplicates (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2667 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2668 UNGCPRO;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2669 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2670 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2673 DEFUN ("x-font-family-list", Fx_font_family_list, Sx_font_family_list,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2674 0, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2675 "Return a list of available font families on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2676 If FRAME is omitted or nil, use the selected frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2677 Value is a list of conses (FAMILY . FIXED-P) where FAMILY\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2678 is a font family, and FIXED-P is non-nil if fonts of that family\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2679 are fixed-pitch.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2680 (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2681 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2682 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2683 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2684 int nfonts, i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2685 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2686 Lisp_Object result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2687 struct gcpro gcpro1;
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2688 int count = specpdl_ptr - specpdl;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2689 int limit;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2690
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2691 /* Let's consider all fonts. Increase the limit for matching
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2692 fonts until we have them all. */
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2693 for (limit = 500;;)
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2694 {
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2695 specbind (intern ("font-list-limit"), make_number (limit));
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2696 nfonts = font_list (f, Qnil, Qnil, Qnil, &fonts);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2697
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2698 if (nfonts == limit)
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2699 {
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2700 free_font_names (fonts, nfonts);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2701 limit *= 2;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2702 }
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2703 else
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2704 break;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2705 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2706
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2707 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2708 GCPRO1 (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2709 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2710 result = Fcons (Fcons (build_string (fonts[i].fields[XLFD_FAMILY]),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2711 xlfd_fixed_p (fonts + i) ? Qt : Qnil),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2712 result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2713
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2714 remove_duplicates (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2715 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2716 UNGCPRO;
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2717 return unbind_to (count, result);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2718 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2719
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2720
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2721 DEFUN ("x-list-fonts", Fx_list_fonts, Sx_list_fonts, 1, 5, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2722 "Return a list of the names of available fonts matching PATTERN.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2723 If optional arguments FACE and FRAME are specified, return only fonts\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2724 the same size as FACE on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2725 PATTERN is a string, perhaps with wildcard characters;\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2726 the * character matches any substring, and\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2727 the ? character matches any single character.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2728 PATTERN is case-insensitive.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2729 FACE is a face name--a symbol.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2730 \n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2731 The return value is a list of strings, suitable as arguments to\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2732 set-face-font.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2733 \n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2734 Fonts Emacs can't use may or may not be excluded\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2735 even if they match PATTERN and FACE.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2736 The optional fourth argument MAXIMUM sets a limit on how many\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2737 fonts to match. The first MAXIMUM fonts are reported.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2738 The optional fifth argument WIDTH, if specified, is a number of columns\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2739 occupied by a character of a font. In that case, return only fonts\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2740 the WIDTH times as wide as FACE on FRAME.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2741 (pattern, face, frame, maximum, width)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2742 Lisp_Object pattern, face, frame, maximum, width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2743 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2744 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2745 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2746 int maxnames;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2747
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2748 check_x ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2749 CHECK_STRING (pattern, 0);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2750
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2751 if (NILP (maximum))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2752 maxnames = 2000;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2753 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2754 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2755 CHECK_NATNUM (maximum, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2756 maxnames = XINT (maximum);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2757 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2758
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2759 if (!NILP (width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2760 CHECK_NUMBER (width, 4);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2761
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2762 /* 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
2763 called before any frame is created. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2764 f = frame_or_selected_frame (frame, 2);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2765 if (!FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2766 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2767 /* Perhaps we have not yet created any frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2768 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2769 face = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2770 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2771
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2772 /* Determine the width standard for comparison with the fonts we find. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2773
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2774 if (NILP (face))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2775 size = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2776 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2777 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2778 /* This is of limited utility since it works with character
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2779 widths. Keep it for compatibility. --gerd. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2780 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
2781 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
2782 ? NULL
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
2783 : 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
2784
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
2785 if (face && face->font)
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2786 size = FONT_WIDTH (face->font);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2787 else
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2788 size = FONT_WIDTH (FRAME_FONT (f));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2789
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2790 if (!NILP (width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2791 size *= XINT (width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2792 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2793
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2794 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2795 Lisp_Object args[2];
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 args[0] = x_list_fonts (f, pattern, size, maxnames);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2798 if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2799 /* We don't have to check fontsets. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2800 return args[0];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2801 args[1] = list_fontsets (f, pattern, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2802 return Fnconc (2, args);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2803 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2804 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2805
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
2806 #endif /* HAVE_WINDOW_SYSTEM */
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2810 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2811 Lisp Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2812 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2813
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2814 /* Access face attributes of face FACE, a Lisp vector. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2815
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2816 #define LFACE_FAMILY(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2817 XVECTOR (LFACE)->contents[LFACE_FAMILY_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2818 #define LFACE_HEIGHT(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2819 XVECTOR (LFACE)->contents[LFACE_HEIGHT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2820 #define LFACE_WEIGHT(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2821 XVECTOR (LFACE)->contents[LFACE_WEIGHT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2822 #define LFACE_SLANT(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2823 XVECTOR (LFACE)->contents[LFACE_SLANT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2824 #define LFACE_UNDERLINE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2825 XVECTOR (LFACE)->contents[LFACE_UNDERLINE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2826 #define LFACE_INVERSE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2827 XVECTOR (LFACE)->contents[LFACE_INVERSE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2828 #define LFACE_FOREGROUND(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2829 XVECTOR (LFACE)->contents[LFACE_FOREGROUND_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2830 #define LFACE_BACKGROUND(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2831 XVECTOR (LFACE)->contents[LFACE_BACKGROUND_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2832 #define LFACE_STIPPLE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2833 XVECTOR (LFACE)->contents[LFACE_STIPPLE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2834 #define LFACE_SWIDTH(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2835 XVECTOR (LFACE)->contents[LFACE_SWIDTH_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2836 #define LFACE_OVERLINE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2837 XVECTOR (LFACE)->contents[LFACE_OVERLINE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2838 #define LFACE_STRIKE_THROUGH(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2839 XVECTOR (LFACE)->contents[LFACE_STRIKE_THROUGH_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2840 #define LFACE_BOX(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2841 XVECTOR (LFACE)->contents[LFACE_BOX_INDEX]
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2842 #define LFACE_FONT(LFACE) \
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2843 XVECTOR (LFACE)->contents[LFACE_FONT_INDEX]
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2844 #define LFACE_INHERIT(LFACE) \
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2845 XVECTOR (LFACE)->contents[LFACE_INHERIT_INDEX]
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2846
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2847 /* 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
2848 LFACE_VECTOR_SIZE which has the symbol `face' in slot 0. */
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 #define LFACEP(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2851 (VECTORP (LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2852 && XVECTOR (LFACE)->size == LFACE_VECTOR_SIZE \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2853 && EQ (XVECTOR (LFACE)->contents[0], Qface))
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2857
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2858 /* Check consistency of Lisp face attribute vector ATTRS. */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2861 check_lface_attrs (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2862 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2863 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2864 xassert (UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2865 || STRINGP (attrs[LFACE_FAMILY_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2866 xassert (UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2867 || SYMBOLP (attrs[LFACE_SWIDTH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2868 xassert (UNSPECIFIEDP (attrs[LFACE_HEIGHT_INDEX])
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2869 || INTEGERP (attrs[LFACE_HEIGHT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2870 || FLOATP (attrs[LFACE_HEIGHT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2871 || FUNCTIONP (attrs[LFACE_HEIGHT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2872 xassert (UNSPECIFIEDP (attrs[LFACE_WEIGHT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2873 || SYMBOLP (attrs[LFACE_WEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2874 xassert (UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2875 || SYMBOLP (attrs[LFACE_SLANT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2876 xassert (UNSPECIFIEDP (attrs[LFACE_UNDERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2877 || SYMBOLP (attrs[LFACE_UNDERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2878 || STRINGP (attrs[LFACE_UNDERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2879 xassert (UNSPECIFIEDP (attrs[LFACE_OVERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2880 || SYMBOLP (attrs[LFACE_OVERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2881 || STRINGP (attrs[LFACE_OVERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2882 xassert (UNSPECIFIEDP (attrs[LFACE_STRIKE_THROUGH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2883 || SYMBOLP (attrs[LFACE_STRIKE_THROUGH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2884 || STRINGP (attrs[LFACE_STRIKE_THROUGH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2885 xassert (UNSPECIFIEDP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2886 || SYMBOLP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2887 || STRINGP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2888 || INTEGERP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2889 || CONSP (attrs[LFACE_BOX_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2890 xassert (UNSPECIFIEDP (attrs[LFACE_INVERSE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2891 || SYMBOLP (attrs[LFACE_INVERSE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2892 xassert (UNSPECIFIEDP (attrs[LFACE_FOREGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2893 || STRINGP (attrs[LFACE_FOREGROUND_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2894 xassert (UNSPECIFIEDP (attrs[LFACE_BACKGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2895 || STRINGP (attrs[LFACE_BACKGROUND_INDEX]));
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2896 xassert (UNSPECIFIEDP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2897 || NILP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2898 || SYMBOLP (attrs[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
2899 || CONSP (attrs[LFACE_INHERIT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2900 #ifdef HAVE_WINDOW_SYSTEM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2901 xassert (UNSPECIFIEDP (attrs[LFACE_STIPPLE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2902 || SYMBOLP (attrs[LFACE_STIPPLE_INDEX])
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
2903 || !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
2904 xassert (UNSPECIFIEDP (attrs[LFACE_FONT_INDEX])
28237
2f636fd2f714 (check_lface_attrs) [GLYPH_DEBUG]: Fix syntax error.
Gerd Moellmann <gerd@gnu.org>
parents: 28230
diff changeset
2905 || NILP (attrs[LFACE_FONT_INDEX])
2f636fd2f714 (check_lface_attrs) [GLYPH_DEBUG]: Fix syntax error.
Gerd Moellmann <gerd@gnu.org>
parents: 28230
diff changeset
2906 || STRINGP (attrs[LFACE_FONT_INDEX]));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2907 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2908 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2909
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2910
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2911 /* Check consistency of attributes of Lisp face LFACE (a Lisp vector). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2912
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2913 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2914 check_lface (lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2915 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2916 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2917 if (!NILP (lface))
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 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2920 check_lface_attrs (XVECTOR (lface)->contents);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2924 #else /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2925
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2926 #define check_lface_attrs(attrs) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2927 #define check_lface(lface) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2928
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2929 #endif /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2930
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2931
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
2932 /* Resolve face name FACE_NAME. If FACE_NAME is a string, intern it
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2933 to make it a symvol. If FACE_NAME is an alias for another face,
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2934 return that face's name. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2935
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2936 static Lisp_Object
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2937 resolve_face_name (face_name)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2938 Lisp_Object face_name;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2939 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2940 Lisp_Object aliased;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
2941
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2942 if (STRINGP (face_name))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2943 face_name = intern (XSTRING (face_name)->data);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2944
33070
ca31e3965686 (resolve_face_name): Handle case that FACE_NAME
Gerd Moellmann <gerd@gnu.org>
parents: 32752
diff changeset
2945 while (SYMBOLP (face_name))
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2946 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2947 aliased = Fget (face_name, Qface_alias);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2948 if (NILP (aliased))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2949 break;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2950 else
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2951 face_name = aliased;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2952 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2953
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2954 return face_name;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2955 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2956
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2957
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2958 /* Return the face definition of FACE_NAME on frame F. F null means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2959 return the global definition. FACE_NAME may be a string or a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2960 symbol (apparently Emacs 20.2 allows strings as face names in face
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2961 text properties; ediff uses that). If FACE_NAME is an alias for
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2962 another face, return that face's definition. If SIGNAL_P is
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2963 non-zero, signal an error if FACE_NAME is not a valid face name.
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2964 If SIGNAL_P is zero, value is nil if FACE_NAME is not a valid face
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2965 name. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2966
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2967 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2968 lface_from_face_name (f, face_name, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2969 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2970 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2971 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2972 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2973 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2974
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2975 face_name = resolve_face_name (face_name);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2976
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2977 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2978 lface = assq_no_quit (face_name, f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2979 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2980 lface = assq_no_quit (face_name, Vface_new_frame_defaults);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2981
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2982 if (CONSP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2983 lface = XCDR (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2984 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2985 signal_error ("Invalid face", face_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2986
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2987 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2988 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2989 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2990
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2991
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2992 /* Get face attributes of face FACE_NAME from frame-local faces on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2993 frame F. Store the resulting attributes in ATTRS which must point
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2994 to a vector of Lisp_Objects of size LFACE_VECTOR_SIZE. If SIGNAL_P
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2995 is non-zero, signal an error if FACE_NAME does not name a face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2996 Otherwise, value is zero if FACE_NAME is not a face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2997
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2998 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2999 get_lface_attributes (f, face_name, attrs, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3000 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3001 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3002 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3003 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3004 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3005 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3006 int success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3007
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3008 lface = lface_from_face_name (f, face_name, signal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3009 if (!NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3010 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3011 bcopy (XVECTOR (lface)->contents, attrs,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3012 LFACE_VECTOR_SIZE * sizeof *attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3013 success_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3014 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3015 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3016 success_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3017
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3018 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3019 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3020
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3021
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3022 /* Non-zero if all attributes in face attribute vector ATTRS are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3023 specified, i.e. are non-nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3024
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3025 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3026 lface_fully_specified_p (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3027 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3028 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3029 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3030
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3031 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3032 if (i != LFACE_FONT_INDEX && i != LFACE_INHERIT_INDEX)
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3033 if (UNSPECIFIEDP (attrs[i]))
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3034 break;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3035
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3036 return i == LFACE_VECTOR_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3037 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3038
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3039 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3040
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3041 /* Set font-related attributes of Lisp face LFACE from the fullname of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3042 the font opened by FONTNAME. If FORCE_P is zero, set only
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3043 unspecified attributes of LFACE. The exception is `font'
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3044 attribute. It is set to FONTNAME as is regardless of FORCE_P.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3045
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3046 If FONTNAME is not available on frame F,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3047 return 0 if MAY_FAIL_P is non-zero, otherwise abort.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3048 If the fullname is not in a valid XLFD format,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3049 return 0 if MAY_FAIL_P is non-zero, otherwise set normal values
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3050 in LFACE and return 1.
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3051 Otherwise, return 1. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3052
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3053 static int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3054 set_lface_from_font_name (f, lface, fontname, force_p, may_fail_p)
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
3055 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3056 Lisp_Object lface;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3057 Lisp_Object fontname;
26594
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3058 int force_p, may_fail_p;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3059 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3060 struct font_name font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3061 char *buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3062 int pt;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3063 int have_xlfd_p;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3064 int fontset;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3065 char *font_name = XSTRING (fontname)->data;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3066 struct font_info *font_info;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3067
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3068 /* If FONTNAME is actually a fontset name, get ASCII font name of it. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3069 fontset = fs_query_fontset (fontname, 0);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3070 if (fontset >= 0)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3071 font_name = XSTRING (fontset_ascii (fontset))->data;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3072
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3073 /* Check if FONT_NAME is surely available on the system. Usually
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3074 FONT_NAME is already cached for the frame F and FS_LOAD_FONT
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3075 returns quickly. But, even if FONT_NAME is not yet cached,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3076 caching it now is not futail because we anyway load the font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3077 later. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3078 BLOCK_INPUT;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3079 font_info = FS_LOAD_FONT (f, 0, font_name, -1);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3080 UNBLOCK_INPUT;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3081
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3082 if (!font_info)
26594
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3083 {
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3084 if (may_fail_p)
f24bdf26ad39 (set_lface_from_font_name): New parameter may_fail_p.
Gerd Moellmann <gerd@gnu.org>
parents: 26574
diff changeset
3085 return 0;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3086 abort ();
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3087 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3088
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3089 font.name = STRDUPA (font_info->full_name);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3090 have_xlfd_p = split_font_name (f, &font, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3091
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3092 /* Set attributes only if unspecified, otherwise face defaults for
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3093 new frames would never take effect. If we couldn't get a font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3094 name conforming to XLFD, set normal values. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3095
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3096 if (force_p || UNSPECIFIEDP (LFACE_FAMILY (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3097 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3098 Lisp_Object val;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3099 if (have_xlfd_p)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3100 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3101 buffer = (char *) alloca (strlen (font.fields[XLFD_FAMILY])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3102 + strlen (font.fields[XLFD_FOUNDRY])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3103 + 2);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3104 sprintf (buffer, "%s-%s", font.fields[XLFD_FOUNDRY],
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3105 font.fields[XLFD_FAMILY]);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3106 val = build_string (buffer);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3107 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3108 else
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3109 val = build_string ("*");
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3110 LFACE_FAMILY (lface) = val;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3111 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3112
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3113 if (force_p || UNSPECIFIEDP (LFACE_HEIGHT (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3114 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3115 if (have_xlfd_p)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3116 pt = xlfd_point_size (f, &font);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3117 else
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3118 pt = pixel_point_size (f, font_info->height * 10);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3119 xassert (pt > 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3120 LFACE_HEIGHT (lface) = make_number (pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3121 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3122
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3123 if (force_p || UNSPECIFIEDP (LFACE_SWIDTH (lface)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3124 LFACE_SWIDTH (lface)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3125 = have_xlfd_p ? xlfd_symbolic_swidth (&font) : Qnormal;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3126
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3127 if (force_p || UNSPECIFIEDP (LFACE_WEIGHT (lface)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3128 LFACE_WEIGHT (lface)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3129 = have_xlfd_p ? xlfd_symbolic_weight (&font) : Qnormal;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3130
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3131 if (force_p || UNSPECIFIEDP (LFACE_SLANT (lface)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3132 LFACE_SLANT (lface)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3133 = have_xlfd_p ? xlfd_symbolic_slant (&font) : Qnormal;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3134
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3135 LFACE_FONT (lface) = fontname;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3136
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3137 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3138 }
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
3139
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3140 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3141
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3142
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3143 /* Merges the face height FROM with the face height TO, and returns the
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3144 merged height. If FROM is an invalid height, then INVALID is
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3145 returned instead. FROM may be a either an absolute face height or a
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3146 `relative' height, and TO must be an absolute height. The returned
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3147 value is always an absolute height. GCPRO is a lisp value that will
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3148 be protected from garbage-collection if this function makes a call
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3149 into lisp. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3150
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3151 Lisp_Object
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3152 merge_face_heights (from, to, invalid, gcpro)
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3153 Lisp_Object from, to, invalid, gcpro;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3154 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3155 int result = 0;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3156
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3157 if (INTEGERP (from))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3158 result = XINT (from);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3159 else if (NUMBERP (from))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3160 result = XFLOATINT (from) * XINT (to);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3161 #if 0 /* Probably not so useful. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3162 else if (CONSP (from) && CONSP (XCDR (from)))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3163 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3164 if (EQ (XCAR(from), Qplus) || EQ (XCAR(from), Qminus))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3165 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3166 if (INTEGERP (XCAR (XCDR (from))))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3167 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3168 int inc = XINT (XCAR (XCDR (from)));
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3169 if (EQ (XCAR (from), Qminus))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3170 inc = -inc;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3171
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3172 result = XFASTINT (to);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3173 if (result + inc > 0)
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3174 /* Note that `underflows' don't mean FROM is invalid, so
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3175 we just pin the result at TO if it would otherwise be
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3176 negative or 0. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3177 result += inc;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3178 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3179 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3180 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3181 #endif
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3182 else if (FUNCTIONP (from))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3183 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3184 /* Call function with current height as argument.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3185 From is the new height. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3186 Lisp_Object args[2], height;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3187 struct gcpro gcpro1;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3188
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3189 GCPRO1 (gcpro);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3190
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3191 args[0] = from;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3192 args[1] = to;
32176
01156edaa3f9 (merge_face_heights): Use safe_call instead of
Gerd Moellmann <gerd@gnu.org>
parents: 31940
diff changeset
3193 height = safe_call (2, args);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3194
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3195 UNGCPRO;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3196
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3197 if (NUMBERP (height))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3198 result = XFLOATINT (height);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3199 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3200
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3201 if (result > 0)
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3202 return make_number (result);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3203 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3204 return invalid;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3205 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3206
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3207
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3208 /* 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
3209 store the resulting attributes in TO, which must be already be
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3210 completely specified and contain only absolute attributes. Every
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3211 specified attribute of FROM overrides the corresponding attribute of
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3212 TO; relative attributes in FROM are merged with the absolute value in
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3213 TO and replace it. CYCLE_CHECK is used internally to detect loops in
2be1770112c1 (default_face_vector): New function.
Miles Bader <miles@gnu.org>
parents: 31221
diff changeset
3214 face inheritance; it should be Qnil when called from other places. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3215
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3216 static INLINE void
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3217 merge_face_vectors (f, from, to, cycle_check)
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3218 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3219 Lisp_Object *from, *to;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3220 Lisp_Object cycle_check;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3221 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3222 int i;
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3223
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3224 /* If FROM inherits from some other faces, merge their attributes into
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3225 TO before merging FROM's direct attributes. Note that an :inherit
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3226 attribute of `unspecified' is the same as one of nil; we never
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3227 merge :inherit attributes, so nil is more correct, but lots of
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3228 other code uses `unspecified' as a generic value for face attributes. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3229 if (!UNSPECIFIEDP (from[LFACE_INHERIT_INDEX])
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3230 && !NILP (from[LFACE_INHERIT_INDEX]))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3231 merge_face_inheritance (f, from[LFACE_INHERIT_INDEX], to, cycle_check);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3232
31221
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3233 /* If TO specifies a :font attribute, and FROM specifies some
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3234 font-related attribute, we need to clear TO's :font attribute
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3235 (because it will be inconsistent with whatever FROM specifies, and
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3236 FROM takes precedence). */
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3237 if (!NILP (to[LFACE_FONT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3238 && (!UNSPECIFIEDP (from[LFACE_FAMILY_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3239 || !UNSPECIFIEDP (from[LFACE_HEIGHT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3240 || !UNSPECIFIEDP (from[LFACE_WEIGHT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3241 || !UNSPECIFIEDP (from[LFACE_SLANT_INDEX])
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3242 || !UNSPECIFIEDP (from[LFACE_SWIDTH_INDEX])))
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3243 to[LFACE_FONT_INDEX] = Qnil;
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3244
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3245 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3246 if (!UNSPECIFIEDP (from[i]))
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3247 if (i == LFACE_HEIGHT_INDEX && !INTEGERP (from[i]))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3248 to[i] = merge_face_heights (from[i], to[i], to[i], cycle_check);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3249 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3250 to[i] = from[i];
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3251
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3252 /* TO is always an absolute face, which should inherit from nothing.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3253 We blindly copy the :inherit attribute above and fix it up here. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3254 to[LFACE_INHERIT_INDEX] = Qnil;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3255 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3256
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3257
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3258 /* Checks the `cycle check' variable CHECK to see if it indicates that
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3259 EL is part of a cycle; CHECK must be either Qnil or a value returned
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3260 by an earlier use of CYCLE_CHECK. SUSPICIOUS is the number of
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3261 elements after which a cycle might be suspected; after that many
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3262 elements, this macro begins consing in order to keep more precise
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3263 track of elements.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3264
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3265 Returns NIL if a cycle was detected, otherwise a new value for CHECK
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3266 that includes EL.
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3267
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3268 CHECK is evaluated multiple times, EL and SUSPICIOUS 0 or 1 times, so
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3269 the caller should make sure that's ok. */
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
3270
31522
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3271 #define CYCLE_CHECK(check, el, suspicious) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3272 (NILP (check) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3273 ? make_number (0) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3274 : (INTEGERP (check) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3275 ? (XFASTINT (check) < (suspicious) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3276 ? make_number (XFASTINT (check) + 1) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3277 : Fcons (el, Qnil)) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3278 : (!NILP (Fmemq ((el), (check))) \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3279 ? Qnil \
7ba4ef0eac8d (CYCLE_CHECK): Don't use the Lisp_Object returned
Gerd Moellmann <gerd@gnu.org>
parents: 31519
diff changeset
3280 : Fcons ((el), (check)))))
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3281
31221
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3282
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3283 /* Merge face attributes from the face on frame F whose name is
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3284 INHERITS, into the vector of face attributes TO; INHERITS may also be
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3285 a list of face names, in which case they are applied in order.
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3286 CYCLE_CHECK is used to detect loops in face inheritance.
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3287 Returns true if any of the inherited attributes are `font-related'. */
5bd6bdf3d3cf (merge_face_vectors):
Miles Bader <miles@gnu.org>
parents: 31202
diff changeset
3288
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3289 static void
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3290 merge_face_inheritance (f, inherit, to, cycle_check)
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3291 struct frame *f;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3292 Lisp_Object inherit;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3293 Lisp_Object *to;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3294 Lisp_Object cycle_check;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3295 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3296 if (SYMBOLP (inherit) && !EQ (inherit, Qunspecified))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3297 /* Inherit from the named face INHERIT. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3298 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3299 Lisp_Object lface;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3300
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3301 /* Make sure we're not in an inheritance loop. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3302 cycle_check = CYCLE_CHECK (cycle_check, inherit, 15);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3303 if (NILP (cycle_check))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3304 /* Cycle detected, ignore any further inheritance. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3305 return;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3306
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3307 lface = lface_from_face_name (f, inherit, 0);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3308 if (!NILP (lface))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3309 merge_face_vectors (f, XVECTOR (lface)->contents, to, cycle_check);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3310 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3311 else if (CONSP (inherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3312 /* Handle a list of inherited faces by calling ourselves recursively
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3313 on each element. Note that we only do so for symbol elements, so
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3314 it's not possible to infinitely recurse. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3315 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3316 while (CONSP (inherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3317 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3318 if (SYMBOLP (XCAR (inherit)))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3319 merge_face_inheritance (f, XCAR (inherit), to, cycle_check);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3320
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3321 /* Check for a circular inheritance list. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3322 cycle_check = CYCLE_CHECK (cycle_check, inherit, 15);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3323 if (NILP (cycle_check))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3324 /* Cycle detected. */
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3325 break;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3326
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3327 inherit = XCDR (inherit);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3328 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3329 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3330 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3331
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3332
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3333 /* Given a Lisp face attribute vector TO and a Lisp object PROP that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3334 is a face property, determine the resulting face attributes on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3335 frame F, and store them in TO. PROP may be a single face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3336 specification or a list of such specifications. Each face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3337 specification can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3338
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3339 1. A symbol or string naming a Lisp face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3340
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3341 2. A property list of the form (KEYWORD VALUE ...) where each
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3342 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
3343 for that attribute.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3344
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3345 3. Conses or the form (FOREGROUND-COLOR . COLOR) or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3346 (BACKGROUND-COLOR . COLOR) where COLOR is a color name. This is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3347 for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3348
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3349 Face specifications earlier in lists take precedence over later
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3350 specifications. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3351
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3352 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3353 merge_face_vector_with_property (f, to, prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3354 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3355 Lisp_Object *to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3356 Lisp_Object prop;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3357 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3358 if (CONSP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3359 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3360 Lisp_Object first = XCAR (prop);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3361
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3362 if (EQ (first, Qforeground_color)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3363 || EQ (first, Qbackground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3364 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3365 /* One of (FOREGROUND-COLOR . COLOR) or (BACKGROUND-COLOR
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3366 . COLOR). COLOR must be a string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3367 Lisp_Object color_name = XCDR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3368 Lisp_Object color = first;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3369
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3370 if (STRINGP (color_name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3371 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3372 if (EQ (color, Qforeground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3373 to[LFACE_FOREGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3374 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3375 to[LFACE_BACKGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3376 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3377 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
3378 add_to_log ("Invalid face color", color_name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3379 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3380 else if (SYMBOLP (first)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3381 && *XSYMBOL (first)->name->data == ':')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3382 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3383 /* Assume this is the property list form. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3384 while (CONSP (prop) && CONSP (XCDR (prop)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3385 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3386 Lisp_Object keyword = XCAR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3387 Lisp_Object value = XCAR (XCDR (prop));
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 if (EQ (keyword, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3390 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3391 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3392 to[LFACE_FAMILY_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3393 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3394 add_to_log ("Invalid face font family", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3395 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3396 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3397 {
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3398 Lisp_Object new_height =
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3399 merge_face_heights (value, to[LFACE_HEIGHT_INDEX],
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3400 Qnil, Qnil);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3401
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3402 if (NILP (new_height))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3403 add_to_log ("Invalid face font height", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3404 else
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3405 to[LFACE_HEIGHT_INDEX] = new_height;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3406 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3407 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3408 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3409 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3410 && face_numeric_weight (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3411 to[LFACE_WEIGHT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3412 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3413 add_to_log ("Invalid face weight", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3414 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3415 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3416 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3417 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3418 && face_numeric_slant (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3419 to[LFACE_SLANT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3420 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3421 add_to_log ("Invalid face slant", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3422 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3423 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3424 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3425 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3426 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3427 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3428 to[LFACE_UNDERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3429 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3430 add_to_log ("Invalid face underline", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3431 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3432 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3433 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3434 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3435 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3436 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3437 to[LFACE_OVERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3438 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3439 add_to_log ("Invalid face overline", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3440 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3441 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3442 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3443 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3444 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3445 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3446 to[LFACE_STRIKE_THROUGH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3447 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3448 add_to_log ("Invalid face strike-through", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3449 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3450 else if (EQ (keyword, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3451 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3452 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3453 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3454 if (INTEGERP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3455 || STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3456 || CONSP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3457 || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3458 to[LFACE_BOX_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3459 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3460 add_to_log ("Invalid face box", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3461 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3462 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3463 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3464 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3465 if (EQ (value, Qt) || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3466 to[LFACE_INVERSE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3467 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3468 add_to_log ("Invalid face inverse-video", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3469 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3470 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3471 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3472 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3473 to[LFACE_FOREGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3474 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3475 add_to_log ("Invalid face foreground", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3476 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3477 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3478 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3479 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3480 to[LFACE_BACKGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3481 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3482 add_to_log ("Invalid face background", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3483 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3484 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3485 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3486 #ifdef HAVE_X_WINDOWS
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
3487 Lisp_Object pixmap_p = Fbitmap_spec_p (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3488 if (!NILP (pixmap_p))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3489 to[LFACE_STIPPLE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3490 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3491 add_to_log ("Invalid face stipple", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3492 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3493 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3494 else if (EQ (keyword, QCwidth))
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 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3497 && face_numeric_swidth (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3498 to[LFACE_SWIDTH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3499 else
30601
7c995a54a0e8 Replace `illegal' with `invalid'.
Gerd Moellmann <gerd@gnu.org>
parents: 30304
diff changeset
3500 add_to_log ("Invalid face width", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3501 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3502 else if (EQ (keyword, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3503 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3504 if (SYMBOLP (value))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3505 to[LFACE_INHERIT_INDEX] = value;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3506 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3507 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3508 Lisp_Object tail;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3509 for (tail = value; CONSP (tail); tail = XCDR (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3510 if (!SYMBOLP (XCAR (tail)))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3511 break;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3512 if (NILP (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3513 to[LFACE_INHERIT_INDEX] = value;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3514 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3515 add_to_log ("Invalid face inherit", value, Qnil);
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3516 }
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3517 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3518 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
3519 add_to_log ("Invalid attribute %s in face property",
25301
2042c4a224ad (add_to_log): Renamed from display_message.
Gerd Moellmann <gerd@gnu.org>
parents: 25270
diff changeset
3520 keyword, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3521
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3522 prop = XCDR (XCDR (prop));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3523 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3524 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3525 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3526 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3527 /* This is a list of face specs. Specifications at the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3528 beginning of the list take precedence over later
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3529 specifications, so we have to merge starting with the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3530 last specification. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3531 Lisp_Object next = XCDR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3532 if (!NILP (next))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3533 merge_face_vector_with_property (f, to, next);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3534 merge_face_vector_with_property (f, to, first);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3535 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3536 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3537 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3538 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3539 /* PROP ought to be a face name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3540 Lisp_Object lface = lface_from_face_name (f, prop, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3541 if (NILP (lface))
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
3542 add_to_log ("Invalid face text property value: %s", prop, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3543 else
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3544 merge_face_vectors (f, XVECTOR (lface)->contents, to, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3545 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3546 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3547
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3548
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3549 DEFUN ("internal-make-lisp-face", Finternal_make_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3550 Sinternal_make_lisp_face, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3551 "Make FACE, a symbol, a Lisp face with all attributes nil.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3552 If FACE was not known as a face before, create a new one.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3553 If optional argument FRAME is specified, make a frame-local face\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3554 for that frame. Otherwise operate on the global face definition.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3555 Value is a vector of face attributes.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3556 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3557 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3558 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3559 Lisp_Object global_lface, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3560 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3561 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3562
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3563 CHECK_SYMBOL (face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3564 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
3565
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3566 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3567 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3568 CHECK_LIVE_FRAME (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3569 f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3570 lface = lface_from_face_name (f, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3571 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3572 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3573 f = NULL, lface = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3574
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3575 /* Add a global definition if there is none. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3576 if (NILP (global_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3577 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3578 global_lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3579 Qunspecified);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3580 XVECTOR (global_lface)->contents[0] = Qface;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3581 Vface_new_frame_defaults = Fcons (Fcons (face, global_lface),
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3582 Vface_new_frame_defaults);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3583
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3584 /* 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
3585 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
3586 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
3587 property `face' of the Lisp face name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3588 if (next_lface_id == lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3589 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3590 int new_size = max (50, 2 * lface_id_to_name_size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3591 int sz = new_size * sizeof *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3592 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
3593 lface_id_to_name_size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3594 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3595
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3596 lface_id_to_name[next_lface_id] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3597 Fput (face, Qface, make_number (next_lface_id));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3598 ++next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3599 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3600 else if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3601 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3602 XVECTOR (global_lface)->contents[i] = Qunspecified;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3603
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3604 /* Add a frame-local definition. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3605 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3606 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3607 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3608 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3609 lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3610 Qunspecified);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3611 XVECTOR (lface)->contents[0] = Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3612 f->face_alist = Fcons (Fcons (face, lface), f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3613 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3614 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3615 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3616 XVECTOR (lface)->contents[i] = Qunspecified;
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 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3619 lface = global_lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3620
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3621 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3622 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3623 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3624 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3625
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3626
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3627 DEFUN ("internal-lisp-face-p", Finternal_lisp_face_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3628 Sinternal_lisp_face_p, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3629 "Return non-nil if FACE names a face.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3630 If optional second parameter FRAME is non-nil, check for the\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3631 existence of a frame-local face with name FACE on that frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3632 Otherwise check for the existence of a global face.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3633 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3634 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3635 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3636 Lisp_Object lface;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3637
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3638 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3639 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3640 CHECK_LIVE_FRAME (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3641 lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3642 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3643 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3644 lface = lface_from_face_name (NULL, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3645
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3646 return lface;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3650 DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3651 Sinternal_copy_lisp_face, 4, 4, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3652 "Copy face FROM to TO.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3653 If FRAME it t, copy the global face definition of FROM to the\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3654 global face definition of TO. Otherwise, copy the frame-local\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3655 definition of FROM on FRAME to the frame-local definition of TO\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3656 on NEW-FRAME, or FRAME if NEW-FRAME is nil.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3657 \n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3658 Value is TO.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3659 (from, to, frame, new_frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3660 Lisp_Object from, to, frame, new_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3661 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3662 Lisp_Object lface, copy;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3663
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3664 CHECK_SYMBOL (from, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3665 CHECK_SYMBOL (to, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3666 if (NILP (new_frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3667 new_frame = frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3668
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3669 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3670 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3671 /* Copy global definition of FROM. We don't make copies of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3672 strings etc. because 20.2 didn't do it either. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3673 lface = lface_from_face_name (NULL, from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3674 copy = Finternal_make_lisp_face (to, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3675 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3676 else
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 /* Copy frame-local definition of FROM. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3679 CHECK_LIVE_FRAME (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3680 CHECK_LIVE_FRAME (new_frame, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3681 lface = lface_from_face_name (XFRAME (frame), from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3682 copy = Finternal_make_lisp_face (to, new_frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3683 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3684
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3685 bcopy (XVECTOR (lface)->contents, XVECTOR (copy)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3686 LFACE_VECTOR_SIZE * sizeof (Lisp_Object));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3687
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3688 return to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3689 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3690
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3691
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3692 DEFUN ("internal-set-lisp-face-attribute", Finternal_set_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3693 Sinternal_set_lisp_face_attribute, 3, 4, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3694 "Set attribute ATTR of FACE to VALUE.\n\
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3695 FRAME being a frame means change the face on that frame.\n\
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3696 FRAME nil means change change the face of the selected frame.\n\
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3697 FRAME t means change the default for new frames.\n\
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3698 FRAME 0 means change the face on all frames, and change the default\n\
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3699 for new frames.")
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3700 (face, attr, value, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3701 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
3702 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3703 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3704 Lisp_Object old_value = Qnil;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3705 /* Set 1 if ATTR is QCfont. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3706 int font_attr_p = 0;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3707 /* Set 1 if ATTR is one of font-related attributes other than QCfont. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3708 int font_related_attr_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3709
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3710 CHECK_SYMBOL (face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3711 CHECK_SYMBOL (attr, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3712
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3713 face = resolve_face_name (face);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3714
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3715 /* 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
3716 default for new frames. */
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3717 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
3718 {
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3719 Lisp_Object tail;
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
3720 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
3721 FOR_EACH_FRAME (tail, frame)
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3722 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
3723 return face;
31440
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3724 }
67f5b4186ed2 (Finternal_set_lisp_face_attribute): If FRAME is 0,
Gerd Moellmann <gerd@gnu.org>
parents: 31292
diff changeset
3725
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3726 /* Set lface to the Lisp attribute vector of FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3727 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3728 lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3729 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3730 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3731 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3732 frame = selected_frame;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3733
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3734 CHECK_LIVE_FRAME (frame, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3735 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
3736
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3737 /* If a frame-local face doesn't exist yet, create one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3738 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3739 lface = Finternal_make_lisp_face (face, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3740 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3741
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3742 if (EQ (attr, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3743 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3744 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3745 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3746 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3747 if (XSTRING (value)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3748 signal_error ("Invalid face family", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3749 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3750 old_value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3751 LFACE_FAMILY (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3752 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3753 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3754 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3755 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3756 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3757 {
31519
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
3758 Lisp_Object test =
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
3759 (EQ (face, Qdefault) ? value :
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
3760 /* The default face must have an absolute size, otherwise, we do
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
3761 a test merge with a random height to see if VALUE's ok. */
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
3762 merge_face_heights (value, make_number(10), Qnil, Qnil));
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3763
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3764 if (!INTEGERP(test) || XINT(test) <= 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3765 signal_error ("Invalid face height", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3766 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3767
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3768 old_value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3769 LFACE_HEIGHT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3770 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3771 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3772 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3773 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3774 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3775 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3776 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3777 if (face_numeric_weight (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3778 signal_error ("Invalid face weight", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3779 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3780 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3781 LFACE_WEIGHT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3782 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3783 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3784 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3785 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3786 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3787 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3788 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3789 if (face_numeric_slant (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3790 signal_error ("Invalid face slant", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3791 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3792 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3793 LFACE_SLANT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3794 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3795 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3796 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3797 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3798 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3799 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3800 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3801 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3802 /* Underline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3803 || (STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3804 && XSTRING (value)->size == 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3805 signal_error ("Invalid face underline", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3806
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3807 old_value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3808 LFACE_UNDERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3809 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3810 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3811 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3812 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3813 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3814 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3815 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3816 /* Overline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3817 || (STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3818 && XSTRING (value)->size == 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3819 signal_error ("Invalid face overline", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3820
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3821 old_value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3822 LFACE_OVERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3823 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3824 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3825 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3826 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3827 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3828 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3829 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3830 /* Strike-through color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3831 || (STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3832 && XSTRING (value)->size == 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3833 signal_error ("Invalid face strike-through", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3834
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3835 old_value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3836 LFACE_STRIKE_THROUGH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3837 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3838 else if (EQ (attr, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3839 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3840 int valid_p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3841
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3842 /* 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
3843 of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3844 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3845 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3846
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3847 if (UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3848 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3849 else if (NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3850 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3851 else if (INTEGERP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3852 valid_p = XINT (value) > 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3853 else if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3854 valid_p = XSTRING (value)->size > 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3855 else if (CONSP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3856 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3857 Lisp_Object tem;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3858
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3859 tem = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3860 while (CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3861 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3862 Lisp_Object k, v;
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 k = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3865 tem = XCDR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3866 if (!CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3867 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3868 v = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3869 tem = XCDR (tem);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3870
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3871 if (EQ (k, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3872 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3873 if (!INTEGERP (v) || XINT (v) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3874 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3875 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3876 else if (EQ (k, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3877 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3878 if (!STRINGP (v) || XSTRING (v)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3879 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3880 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3881 else if (EQ (k, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3882 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3883 if (!EQ (v, Qpressed_button) && !EQ (v, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3884 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3885 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3886 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3887 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3888 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3889
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3890 valid_p = NILP (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3891 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3892 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3893 valid_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3894
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3895 if (!valid_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3896 signal_error ("Invalid face box", value);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3897
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3898 old_value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3899 LFACE_BOX (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3900 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3901 else if (EQ (attr, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3902 || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3903 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3904 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3905 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3906 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3907 if (!EQ (value, Qt) && !NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3908 signal_error ("Invalid inverse-video face attribute value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3909 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3910 old_value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3911 LFACE_INVERSE (lface) = 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 else if (EQ (attr, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3914 {
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
3915 if (!UNSPECIFIEDP (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3916 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3917 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3918 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3919 when the face is realized. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3920 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3921 if (XSTRING (value)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3922 signal_error ("Empty foreground color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3923 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3924 old_value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3925 LFACE_FOREGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3926 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3927 else if (EQ (attr, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3928 {
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
3929 if (!UNSPECIFIEDP (value))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3930 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3931 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3932 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3933 when the face is realized. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3934 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3935 if (XSTRING (value)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3936 signal_error ("Empty background color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3937 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3938 old_value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3939 LFACE_BACKGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3940 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3941 else if (EQ (attr, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3942 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3943 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3944 if (!UNSPECIFIEDP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3945 && !NILP (value)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
3946 && NILP (Fbitmap_spec_p (value)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3947 signal_error ("Invalid stipple attribute", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3948 old_value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3949 LFACE_STIPPLE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3950 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3951 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3952 else if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3953 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3954 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3955 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3956 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3957 if (face_numeric_swidth (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3958 signal_error ("Invalid face width", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3959 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3960 old_value = LFACE_SWIDTH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3961 LFACE_SWIDTH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3962 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3963 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3964 else if (EQ (attr, QCfont))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3965 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3966 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3967 /* Set font-related attributes of the Lisp face from an
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3968 XLFD font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3969 struct frame *f;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3970 Lisp_Object tmp;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3971
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3972 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3973 if (EQ (frame, Qt))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3974 f = SELECTED_FRAME ();
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3975 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3976 f = check_x_frame (frame);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
3977
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3978 /* VALUE may be a fontset name or an alias of fontset. In such
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3979 a case, use the base fontset name. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3980 tmp = Fquery_fontset (value, Qnil);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3981 if (!NILP (tmp))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3982 value = tmp;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3983
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3984 if (!set_lface_from_font_name (f, lface, value, 1, 1))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3985 signal_error ("Invalid font or fontset name", value);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3986
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
3987 font_attr_p = 1;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
3988 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3989 }
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3990 else if (EQ (attr, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3991 {
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3992 Lisp_Object tail;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3993 if (SYMBOLP (value))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3994 tail = Qnil;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3995 else
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3996 for (tail = value; CONSP (tail); tail = XCDR (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3997 if (!SYMBOLP (XCAR (tail)))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3998 break;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
3999 if (NILP (tail))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4000 LFACE_INHERIT (lface) = value;
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4001 else
31202
1733db535955 (lface_fully_specified_p): Handle :inherit.
Gerd Moellmann <gerd@gnu.org>
parents: 31178
diff changeset
4002 signal_error ("Invalid face inheritance", value);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4003 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4004 else if (EQ (attr, QCbold))
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 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4007 LFACE_WEIGHT (lface) = NILP (value) ? Qnormal : Qbold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4008 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4009 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4010 else if (EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4011 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4012 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4013 LFACE_SLANT (lface) = NILP (value) ? Qnormal : Qitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4014 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4015 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4016 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4017 signal_error ("Invalid face attribute name", attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4018
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4019 if (font_related_attr_p
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4020 && !UNSPECIFIEDP (value))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4021 /* If a font-related attribute other than QCfont is specified, the
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4022 original `font' attribute nor that of default face is useless
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4023 to determine a new font. Thus, we set it to nil so that font
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4024 selection mechanism doesn't use it. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4025 LFACE_FONT (lface) = Qnil;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4026
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4027 /* Changing a named face means that all realized faces depending on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4028 that face are invalid. Since we cannot tell which realized faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4029 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
4030 by incrementing face_change_count. The next call to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4031 init_iterator will then free realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4032 if (!EQ (frame, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4033 && (EQ (attr, QCfont)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4034 || NILP (Fequal (old_value, value))))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4035 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4036 ++face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4037 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4038 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4039
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4040 #ifdef HAVE_WINDOW_SYSTEM
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4041
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4042 if (!EQ (frame, Qt)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4043 && !UNSPECIFIEDP (value)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4044 && NILP (Fequal (old_value, value)))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4045 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4046 Lisp_Object param;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4047
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4048 param = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4049
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4050 if (EQ (face, Qdefault))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4051 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4052 /* 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
4053 reflected in changed `font' frame parameters. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4054 if ((font_related_attr_p || font_attr_p)
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4055 && lface_fully_specified_p (XVECTOR (lface)->contents))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4056 set_font_frame_param (frame, lface);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4057 else if (EQ (attr, QCforeground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4058 param = Qforeground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4059 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4060 param = Qbackground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4061 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4062 #ifndef WINDOWSNT
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4063 else if (EQ (face, Qscroll_bar))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4064 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4065 /* 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
4066 `scroll-bar-foreground' and `scroll-bar-background'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4067 if (EQ (attr, QCforeground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4068 param = Qscroll_bar_foreground;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4069 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4070 param = Qscroll_bar_background;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4071 }
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
4072 #endif /* not WINDOWSNT */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4073 else if (EQ (face, Qborder))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4074 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4075 /* Changing background color of `border' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4076 `border-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4077 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4078 param = Qborder_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4079 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4080 else if (EQ (face, Qcursor))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4081 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4082 /* Changing background color of `cursor' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4083 `cursor-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4084 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4085 param = Qcursor_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4086 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4087 else if (EQ (face, Qmouse))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4088 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4089 /* Changing background color of `mouse' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4090 `mouse-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4091 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4092 param = Qmouse_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4093 }
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
4094 else if (EQ (face, Qmenu))
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
4095 ++menu_face_change_count;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4096
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4097 if (!NILP (param))
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4098 {
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4099 Lisp_Object cons;
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4100 cons = XCAR (Vparam_value_alist);
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4101 XCAR (cons) = param;
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4102 XCDR (cons) = value;
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4103 Fmodify_frame_parameters (frame, Vparam_value_alist);
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
4104 }
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4105 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4106
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4107 #endif /* HAVE_WINDOW_SYSTEM */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4108
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4109 return face;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4112
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4113 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4114
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4115 /* Set the `font' frame parameter of FRAME determined from `default'
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4116 face attributes LFACE. If a face or fontset name is explicitely
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4117 specfied in LFACE, use it as is. Otherwise, determine a font name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4118 from the other font-related atrributes of LFACE. In that case, if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4119 there's no matching font, signals an error. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4120
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4121 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4122 set_font_frame_param (frame, lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4123 Lisp_Object frame, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4124 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4125 struct frame *f = XFRAME (frame);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4126 Lisp_Object font_name;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4127 char *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4128
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4129 if (STRINGP (LFACE_FONT (lface)))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4130 font_name = LFACE_FONT (lface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4131 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4132 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4133 /* Choose a font name that reflects LFACE's attributes and has
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4134 the registry and encoding pattern specified in the default
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4135 fontset (3rd arg: -1) for ASCII characters (4th arg: 0). */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4136 font = choose_face_font (f, XVECTOR (lface)->contents, -1, 0);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4137 if (!font)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4138 error ("No font matches the specified attribute");
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4139 font_name = build_string (font);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4140 xfree (font);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4141 }
31292
b176433657cc (set_font_frame_param): Use Fmodify_frame_parameters
Gerd Moellmann <gerd@gnu.org>
parents: 31259
diff changeset
4142
b176433657cc (set_font_frame_param): Use Fmodify_frame_parameters
Gerd Moellmann <gerd@gnu.org>
parents: 31259
diff changeset
4143 Fmodify_frame_parameters (frame, Fcons (Fcons (Qfont, font_name), Qnil));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4144 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4145
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4146
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4147 /* 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
4148 has been assigned the value NEW_VALUE. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4149
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4150 void
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4151 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
4152 struct frame *f;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4153 Lisp_Object param, new_value;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4154 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4155 Lisp_Object lface;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4156
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4157 /* 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
4158 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
4159 face-set-after-frame-defaults. */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4160 if (NILP (f->face_alist))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4161 return;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4162
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4163 if (EQ (param, Qforeground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4164 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4165 lface = lface_from_face_name (f, Qdefault, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4166 LFACE_FOREGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4167 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4168 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4169 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4170 else if (EQ (param, Qbackground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4171 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4172 Lisp_Object frame;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4173
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4174 /* Changing the background color might change the background
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4175 mode, so that we have to load new defface specs. Call
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4176 frame-update-face-colors to do that. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4177 XSETFRAME (frame, f);
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
4178 call1 (Qframe_update_face_colors, frame);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4179
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4180 lface = lface_from_face_name (f, Qdefault, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4181 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4182 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4183 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4184 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4185 if (EQ (param, Qborder_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4186 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4187 lface = lface_from_face_name (f, Qborder, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4188 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4189 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4190 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4191 else if (EQ (param, Qcursor_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4192 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4193 lface = lface_from_face_name (f, Qcursor, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4194 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4195 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4196 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4197 else if (EQ (param, Qmouse_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4198 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4199 lface = lface_from_face_name (f, Qmouse, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4200 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4201 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4202 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4203 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4204
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
4205
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4206 /* 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
4207 of frame FRAME. This is here because ordinary `x-get-resource'
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4208 doesn't take a frame argument. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4209
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4210 DEFUN ("internal-face-x-get-resource", Finternal_face_x_get_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4211 Sinternal_face_x_get_resource, 3, 3, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4212 (resource, class, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4213 Lisp_Object resource, class, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4214 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4215 Lisp_Object value = Qnil;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4216 #ifndef WINDOWSNT
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
4217 #ifndef macintosh
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4218 CHECK_STRING (resource, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4219 CHECK_STRING (class, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4220 CHECK_LIVE_FRAME (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4221 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4222 value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4223 resource, class, Qnil, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4224 UNBLOCK_INPUT;
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
4225 #endif /* not macintosh */
31570
9eeff4863080 Remove conditional compilation on SCALABLE_FONTS.
Gerd Moellmann <gerd@gnu.org>
parents: 31522
diff changeset
4226 #endif /* not WINDOWSNT */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4227 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4228 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4229
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 /* 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
4232 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
4233 "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
4234 error; if SIGNAL_P is zero, return 0. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4235
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4236 static Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4237 face_boolean_x_resource_value (value, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4238 Lisp_Object value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4239 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4240 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4241 Lisp_Object result = make_number (0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4242
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4243 xassert (STRINGP (value));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4244
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4245 if (xstricmp (XSTRING (value)->data, "on") == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4246 || xstricmp (XSTRING (value)->data, "true") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4247 result = Qt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4248 else if (xstricmp (XSTRING (value)->data, "off") == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4249 || xstricmp (XSTRING (value)->data, "false") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4250 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4251 else if (xstricmp (XSTRING (value)->data, "unspecified") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4252 result = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4253 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4254 signal_error ("Invalid face attribute value from X resource", value);
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 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4257 }
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 DEFUN ("internal-set-lisp-face-attribute-from-resource",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4261 Finternal_set_lisp_face_attribute_from_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4262 Sinternal_set_lisp_face_attribute_from_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4263 3, 4, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4264 (face, attr, value, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4265 Lisp_Object face, attr, value, frame;
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 CHECK_SYMBOL (face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4268 CHECK_SYMBOL (attr, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4269 CHECK_STRING (value, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4270
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4271 if (xstricmp (XSTRING (value)->data, "unspecified") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4272 value = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4273 else if (EQ (attr, QCheight))
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 value = Fstring_to_number (value, make_number (10));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4276 if (XINT (value) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4277 signal_error ("Invalid face height from X resource", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4278 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4279 else if (EQ (attr, QCbold) || EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4280 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4281 else if (EQ (attr, QCweight) || EQ (attr, QCslant) || EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4282 value = intern (XSTRING (value)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4283 else if (EQ (attr, QCreverse_video) || EQ (attr, QCinverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4284 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4285 else if (EQ (attr, QCunderline)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4286 || EQ (attr, QCoverline)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4287 || EQ (attr, QCstrike_through)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4288 || EQ (attr, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4289 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4290 Lisp_Object boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4291
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4292 /* 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
4293 VALUE does NOT specify a color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4294 boolean_value = face_boolean_x_resource_value (value, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4295 if (SYMBOLP (boolean_value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4296 value = boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4297 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4298
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4299 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
4300 }
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4301
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4302 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4303
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4304
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4305 #ifdef HAVE_X_WINDOWS
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4306 /***********************************************************************
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4307 Menu face
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4308 ***********************************************************************/
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4309
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4310 #ifdef USE_X_TOOLKIT
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4311
29897
cd1bb44e646d Include fontset.h dependent on HAVE_WINDOW_SYSTEM, not HAVE_X_WINDOWS.
Dave Love <fx@gnu.org>
parents: 29768
diff changeset
4312 #include "../lwlib/lwlib-utils.h"
cd1bb44e646d Include fontset.h dependent on HAVE_WINDOW_SYSTEM, not HAVE_X_WINDOWS.
Dave Love <fx@gnu.org>
parents: 29768
diff changeset
4313
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4314 /* Structure used to pass X resources to functions called via
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4315 XtApplyToWidgets. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4316
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4317 struct x_resources
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4318 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4319 Arg *av;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4320 int ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4321 };
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4322
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4323
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4324 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4325
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4326 static void xm_apply_resources P_ ((Widget, XtPointer));
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4327 static void xm_set_menu_resources_from_menu_face P_ ((struct frame *, Widget));
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4328
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4329
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4330 /* Set widget W's X resources from P which points to an x_resources
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4331 structure. If W is a cascade button, apply resources to W's
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4332 submenu. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4333
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4334 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4335 xm_apply_resources (w, p)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4336 Widget w;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4337 XtPointer p;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4338 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4339 Widget submenu = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4340 struct x_resources *res = (struct x_resources *) p;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4341
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4342 XtSetValues (w, res->av, res->ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4343 XtVaGetValues (w, XmNsubMenuId, &submenu, NULL);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4344 if (submenu)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4345 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4346 XtSetValues (submenu, res->av, res->ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4347 XtApplyToWidgets (submenu, xm_apply_resources, p);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4348 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4349 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4350
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4351
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4352 /* Set X resources of menu-widget WIDGET on frame F from face `menu'.
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4353 This is the LessTif/Motif version. As of LessTif 0.88 it has the
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4354 following problems:
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4355
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4356 1. Setting the XmNfontList resource leads to an infinite loop
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4357 somewhere in LessTif. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4358
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4359 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4360 xm_set_menu_resources_from_menu_face (f, widget)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4361 struct frame *f;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4362 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4363 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4364 struct face *face;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4365 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4366 Arg av[3];
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4367 int ac = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4368 XmFontList fl = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4369
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4370 lface = lface_from_face_name (f, Qmenu, 1);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4371 face = FACE_FROM_ID (f, MENU_FACE_ID);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4372
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4373 if (!UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4374 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4375 XtSetArg (av[ac], XmNforeground, face->foreground);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4376 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4377 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4378
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4379 if (!UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4380 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4381 XtSetArg (av[ac], XmNbackground, face->background);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4382 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4383 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4384
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4385 /* If any font-related attribute of `menu' is set, set the font. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4386 if (face->font
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4387 && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4388 || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4389 || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4390 || !UNSPECIFIEDP (LFACE_SLANT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4391 || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4392 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4393 #if 0 /* Setting the font leads to an infinite loop somewhere
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4394 in LessTif during geometry computation. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4395 XmFontListEntry fe;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4396 fe = XmFontListEntryCreate ("menu_font", XmFONT_IS_FONT, face->font);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4397 fl = XmFontListAppendEntry (NULL, fe);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4398 XtSetArg (av[ac], XmNfontList, fl);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4399 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4400 #endif
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4401 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4402
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4403 xassert (ac <= sizeof av / sizeof *av);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4404
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4405 if (ac)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4406 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4407 struct x_resources res;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4408
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4409 XtSetValues (widget, av, ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4410 res.av = av, res.ac = ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4411 XtApplyToWidgets (widget, xm_apply_resources, &res);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4412 if (fl)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4413 XmFontListFree (fl);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4414 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4415 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4416
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4417 #endif /* USE_MOTIF */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4418
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4419 #ifdef USE_LUCID
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4420
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4421 static void xl_apply_resources P_ ((Widget, XtPointer));
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4422 static void xl_set_menu_resources_from_menu_face P_ ((struct frame *, Widget));
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4423
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4424
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4425 /* Set widget W's resources from P which points to an x_resources
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4426 structure. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4427
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4428 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4429 xl_apply_resources (widget, p)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4430 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4431 XtPointer p;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4432 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4433 struct x_resources *res = (struct x_resources *) p;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4434 XtSetValues (widget, res->av, res->ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4435 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4436
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4437
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4438 /* On frame F, set X resources of menu-widget WIDGET from face `menu'.
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4439 This is the Lucid version. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4440
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4441 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4442 xl_set_menu_resources_from_menu_face (f, widget)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4443 struct frame *f;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4444 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4445 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4446 struct face *face;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4447 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4448 Arg av[3];
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4449 int ac = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4450
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4451 lface = lface_from_face_name (f, Qmenu, 1);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4452 face = FACE_FROM_ID (f, MENU_FACE_ID);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4453
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4454 if (!UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4455 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4456 XtSetArg (av[ac], XtNforeground, face->foreground);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4457 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4458 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4459
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4460 if (!UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4461 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4462 XtSetArg (av[ac], XtNbackground, face->background);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4463 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4464 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4465
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4466 if (face->font
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4467 && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4468 || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4469 || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4470 || !UNSPECIFIEDP (LFACE_SLANT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4471 || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4472 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4473 XtSetArg (av[ac], XtNfont, face->font);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4474 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4475 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4476
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4477 if (ac)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4478 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4479 struct x_resources res;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4480
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4481 XtSetValues (widget, av, ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4482
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4483 /* We must do children here in case we're handling a pop-up menu
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4484 in which case WIDGET is a popup shell. XtApplyToWidgets
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4485 is a function from lwlib. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4486 res.av = av, res.ac = ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4487 XtApplyToWidgets (widget, xl_apply_resources, &res);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4488 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4489 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4490
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4491 #endif /* USE_LUCID */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4492
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4493
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4494 /* On frame F, set X resources of menu-widget WIDGET from face `menu'. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4495
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4496 void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4497 x_set_menu_resources_from_menu_face (f, widget)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4498 struct frame *f;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4499 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4500 {
26759
01f067d61668 (x_set_menu_resources_from_menu_face): Make sure
Gerd Moellmann <gerd@gnu.org>
parents: 26740
diff changeset
4501 /* Realized faces may have been removed on frame F, e.g. because of
01f067d61668 (x_set_menu_resources_from_menu_face): Make sure
Gerd Moellmann <gerd@gnu.org>
parents: 26740
diff changeset
4502 face attribute changes. Recompute them, if necessary, since we
01f067d61668 (x_set_menu_resources_from_menu_face): Make sure
Gerd Moellmann <gerd@gnu.org>
parents: 26740
diff changeset
4503 will need the `menu' face. */
01f067d61668 (x_set_menu_resources_from_menu_face): Make sure
Gerd Moellmann <gerd@gnu.org>
parents: 26740
diff changeset
4504 if (f->face_cache->used == 0)
01f067d61668 (x_set_menu_resources_from_menu_face): Make sure
Gerd Moellmann <gerd@gnu.org>
parents: 26740
diff changeset
4505 recompute_basic_faces (f);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4506
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
4507 BLOCK_INPUT;
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4508 #ifdef USE_LUCID
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4509 xl_set_menu_resources_from_menu_face (f, widget);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4510 #endif
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4511 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4512 xm_set_menu_resources_from_menu_face (f, widget);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4513 #endif
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
4514 UNBLOCK_INPUT;
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4515 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4516
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4517 #endif /* USE_X_TOOLKIT */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
4518
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4519 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4520
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4521
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4522
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4523 DEFUN ("internal-get-lisp-face-attribute", Finternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4524 Sinternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4525 2, 3, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4526 "Return face attribute KEYWORD of face SYMBOL.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4527 If SYMBOL does not name a valid Lisp face or KEYWORD isn't a valid\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4528 face attribute name, signal an error.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4529 If the optional argument FRAME is given, report on face FACE in that\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4530 frame. If FRAME is t, report on the defaults for face FACE (for new\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4531 frames). If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4532 (symbol, keyword, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4533 Lisp_Object symbol, keyword, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4534 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4535 Lisp_Object lface, value = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4536
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4537 CHECK_SYMBOL (symbol, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4538 CHECK_SYMBOL (keyword, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4539
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4540 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4541 lface = lface_from_face_name (NULL, symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4542 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4543 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4544 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4545 frame = selected_frame;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4546 CHECK_LIVE_FRAME (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4547 lface = lface_from_face_name (XFRAME (frame), symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4548 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4549
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4550 if (EQ (keyword, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4551 value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4552 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4553 value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4554 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4555 value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4556 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4557 value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4558 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4559 value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4560 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4561 value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4562 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4563 value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4564 else if (EQ (keyword, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4565 value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4566 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4567 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4568 value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4569 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4570 value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4571 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4572 value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4573 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4574 value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4575 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4576 value = LFACE_SWIDTH (lface);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4577 else if (EQ (keyword, QCinherit))
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4578 value = LFACE_INHERIT (lface);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4579 else if (EQ (keyword, QCfont))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4580 value = LFACE_FONT (lface);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4581 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4582 signal_error ("Invalid face attribute name", keyword);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4583
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4584 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4585 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4586
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4587
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4588 DEFUN ("internal-lisp-face-attribute-values",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4589 Finternal_lisp_face_attribute_values,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4590 Sinternal_lisp_face_attribute_values, 1, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4591 "Return a list of valid discrete values for face attribute ATTR.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4592 Value is nil if ATTR doesn't have a discrete set of valid values.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4593 (attr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4594 Lisp_Object attr;
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 Lisp_Object result = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4597
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4598 CHECK_SYMBOL (attr, 0);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4599
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4600 if (EQ (attr, QCweight)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4601 || EQ (attr, QCslant)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4602 || EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4603 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4604 /* Extract permissible symbols from tables. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4605 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4606 int i, dim;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4607
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4608 if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4609 table = weight_table, dim = DIM (weight_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4610 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4611 table = slant_table, dim = DIM (slant_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4612 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4613 table = swidth_table, dim = DIM (swidth_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4614
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4615 for (i = 0; i < dim; ++i)
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 Lisp_Object symbol = *table[i].symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4618 Lisp_Object tail = result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4619
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4620 while (!NILP (tail)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4621 && !EQ (XCAR (tail), symbol))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4622 tail = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4623
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4624 if (NILP (tail))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4625 result = Fcons (symbol, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4626 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4627 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4628 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4629 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4630 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4631 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4632 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4633 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4634 else if (EQ (attr, QCinverse_video) || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4635 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4636
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4637 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4638 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4639
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4640
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4641 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
4642 Sinternal_merge_in_global_face, 2, 2, 0,
31518
1594b23da757 (internal-merge-in-global-face): Fix newline in doc string.
Dave Love <fx@gnu.org>
parents: 31507
diff changeset
4643 "Add attributes from frame-default definition of FACE to FACE on FRAME.\n\
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4644 Default face attributes override any local face attributes.")
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4645 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4646 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4647 {
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4648 int i;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4649 Lisp_Object global_lface, local_lface, *gvec, *lvec;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4650
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4651 CHECK_LIVE_FRAME (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4652 global_lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4653 local_lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4654 if (NILP (local_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4655 local_lface = Finternal_make_lisp_face (face, frame);
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4656
31519
5a14247e8e26 (Finternal_set_lisp_face_attribute): Minor thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 31518
diff changeset
4657 /* 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
4658 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
4659 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
4660 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
4661 "global before local" priority. */
31483
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4662 lvec = XVECTOR (local_lface)->contents;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4663 gvec = XVECTOR (global_lface)->contents;
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4664 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4665 if (! UNSPECIFIEDP (gvec[i]))
5ef4cd475781 (default_face_vector): Function removed.
Miles Bader <miles@gnu.org>
parents: 31463
diff changeset
4666 lvec[i] = gvec[i];
31507
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
4667
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
4668 return Qnil;
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4671
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4672 /* The following function is implemented for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4673 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
4674 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
4675 done in fontset.el. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4676
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4677 DEFUN ("face-font", Fface_font, Sface_font, 1, 2, 0,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4678 "Return the font name of face FACE, or nil if it is unspecified.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4679 If the optional argument FRAME is given, report on face FACE in that frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4680 If FRAME is t, report on the defaults for face FACE (for new frames).\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4681 The font default for a face is either nil, or a list\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4682 of the form (bold), (italic) or (bold italic).\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4683 If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4684 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4685 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4686 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4687 if (EQ (frame, Qt))
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 Lisp_Object result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4690 Lisp_Object lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4691
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4692 if (!UNSPECIFIEDP (LFACE_WEIGHT (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4693 && !EQ (LFACE_WEIGHT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4694 result = Fcons (Qbold, result);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4695
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4696 if (!NILP (LFACE_SLANT (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4697 && !EQ (LFACE_SLANT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4698 result = Fcons (Qitalic, result);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4699
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4700 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4701 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4702 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4703 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4704 struct frame *f = frame_or_selected_frame (frame, 1);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4705 int face_id = lookup_named_face (f, face, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4706 struct face *face = FACE_FROM_ID (f, face_id);
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
4707 return face ? build_string (face->font_name) : Qnil;
24995
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4710
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4711
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4712 /* 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
4713 all attributes are `equal'. Tries to be fast because this function
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4714 is called quite often. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4715
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4716 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4717 lface_equal_p (v1, v2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4718 Lisp_Object *v1, *v2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4719 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4720 int i, equal_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4721
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4722 for (i = 1; i < LFACE_VECTOR_SIZE && equal_p; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4723 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4724 Lisp_Object a = v1[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4725 Lisp_Object b = v2[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4726
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4727 /* Type can differ, e.g. when one attribute is unspecified, i.e. nil,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4728 and the other is specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4729 equal_p = XTYPE (a) == XTYPE (b);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4730 if (!equal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4731 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4732
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4733 if (!EQ (a, b))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4734 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4735 switch (XTYPE (a))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4736 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4737 case Lisp_String:
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
4738 equal_p = ((STRING_BYTES (XSTRING (a))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
4739 == STRING_BYTES (XSTRING (b)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4740 && bcmp (XSTRING (a)->data, XSTRING (b)->data,
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
4741 STRING_BYTES (XSTRING (a))) == 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4742 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4743
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4744 case Lisp_Int:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4745 case Lisp_Symbol:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4746 equal_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4747 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4748
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4749 default:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4750 equal_p = !NILP (Fequal (a, b));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4751 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4752 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4753 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4754 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4755
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4756 return equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4757 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4758
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4759
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4760 DEFUN ("internal-lisp-face-equal-p", Finternal_lisp_face_equal_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4761 Sinternal_lisp_face_equal_p, 2, 3, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4762 "True if FACE1 and FACE2 are equal.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4763 If the optional argument FRAME is given, report on face FACE in that frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4764 If FRAME is t, report on the defaults for face FACE (for new frames).\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4765 If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4766 (face1, face2, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4767 Lisp_Object face1, face2, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4768 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4769 int equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4770 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4771 Lisp_Object lface1, lface2;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4772
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4773 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4774 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4775 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4776 /* 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
4777 before X frames exist. At that time, if FRAME is nil,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4778 selected_frame will be used which is the frame dumped with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4779 Emacs. That frame is not an X frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4780 f = frame_or_selected_frame (frame, 2);
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 lface1 = lface_from_face_name (NULL, face1, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4783 lface2 = lface_from_face_name (NULL, face2, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4784 equal_p = lface_equal_p (XVECTOR (lface1)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4785 XVECTOR (lface2)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4786 return equal_p ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4787 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4788
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4789
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4790 DEFUN ("internal-lisp-face-empty-p", Finternal_lisp_face_empty_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4791 Sinternal_lisp_face_empty_p, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4792 "True if FACE has no attribute specified.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4793 If the optional argument FRAME is given, report on face FACE in that frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4794 If FRAME is t, report on the defaults for face FACE (for new frames).\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4795 If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4796 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4797 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4798 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4799 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4800 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4801 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4802
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4803 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4804 frame = selected_frame;
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4805 CHECK_LIVE_FRAME (frame, 0);
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4806 f = XFRAME (frame);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4807
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4808 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4809 lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4810 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4811 lface = lface_from_face_name (f, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4812
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4813 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4814 if (!UNSPECIFIEDP (XVECTOR (lface)->contents[i]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4815 break;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4816
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4817 return i == LFACE_VECTOR_SIZE ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4818 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4819
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4820
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4821 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
4822 0, 1, 0,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4823 "Return an alist of frame-local faces defined on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4824 For internal use only.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4825 (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4826 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4827 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4828 struct frame *f = frame_or_selected_frame (frame, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4829 return f->face_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4830 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4831
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4832
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4833 /* 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
4834 below in computing a hash value for a Lisp face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4835
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4836 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4837 hash_string_case_insensitive (string)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4838 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4839 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4840 unsigned char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4841 unsigned hash = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4842 xassert (STRINGP (string));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4843 for (s = XSTRING (string)->data; *s; ++s)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4844 hash = (hash << 1) ^ tolower (*s);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4845 return hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4846 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4847
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4848
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4849 /* Return a hash code for face attribute vector V. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4850
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4851 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4852 lface_hash (v)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4853 Lisp_Object *v;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4854 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4855 return (hash_string_case_insensitive (v[LFACE_FAMILY_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4856 ^ hash_string_case_insensitive (v[LFACE_FOREGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4857 ^ hash_string_case_insensitive (v[LFACE_BACKGROUND_INDEX])
28464
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
4858 ^ XFASTINT (v[LFACE_WEIGHT_INDEX])
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
4859 ^ XFASTINT (v[LFACE_SLANT_INDEX])
cad4cc0508a0 Fix Lisp_Object/int type confusion revealed by making Lisp_Object a union type:
Ken Raeburn <raeburn@raeburn.org>
parents: 28461
diff changeset
4860 ^ XFASTINT (v[LFACE_SWIDTH_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4861 ^ XFASTINT (v[LFACE_HEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4862 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4863
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4864
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4865 /* 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
4866 considering charsets/registries). They do if they specify the same
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4867 family, point size, weight, width, slant, and fontset. Both LFACE1
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4868 and LFACE2 must be fully-specified. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4869
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4870 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4871 lface_same_font_attributes_p (lface1, lface2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4872 Lisp_Object *lface1, *lface2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4873 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4874 xassert (lface_fully_specified_p (lface1)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4875 && lface_fully_specified_p (lface2));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4876 return (xstricmp (XSTRING (lface1[LFACE_FAMILY_INDEX])->data,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4877 XSTRING (lface2[LFACE_FAMILY_INDEX])->data) == 0
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
4878 && EQ (lface1[LFACE_HEIGHT_INDEX], lface2[LFACE_HEIGHT_INDEX])
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4879 && EQ (lface1[LFACE_SWIDTH_INDEX], lface2[LFACE_SWIDTH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4880 && 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
4881 && EQ (lface1[LFACE_SLANT_INDEX], lface2[LFACE_SLANT_INDEX])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4882 && (EQ (lface1[LFACE_FONT_INDEX], lface2[LFACE_FONT_INDEX])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4883 || (STRINGP (lface1[LFACE_FONT_INDEX])
28263
73181b84ea57 (lface_same_font_attributes_p): Compare font attributes
Gerd Moellmann <gerd@gnu.org>
parents: 28237
diff changeset
4884 && STRINGP (lface2[LFACE_FONT_INDEX])
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4885 && xstricmp (XSTRING (lface1[LFACE_FONT_INDEX])->data,
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4886 XSTRING (lface2[LFACE_FONT_INDEX])->data))));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4887 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4888
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4889
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4890
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4891 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4892 Realized Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4893 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4894
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4895 /* 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
4896 vector ATTR. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4897
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4898 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4899 make_realized_face (attr)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4900 Lisp_Object *attr;
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 struct face *face = (struct face *) xmalloc (sizeof *face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4903 bzero (face, sizeof *face);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4904 face->ascii_face = face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4905 bcopy (attr, face->lface, sizeof face->lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4906 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4907 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4908
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4909
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4910 /* Free realized face FACE, including its X resources. FACE may
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4911 be null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4912
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4913 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4914 free_realized_face (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4915 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4916 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4917 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4918 if (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4919 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4920 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4921 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4922 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4923 /* 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
4924 if (face->fontset >= 0 && face == face->ascii_face)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
4925 free_face_fontset (f, face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4926 if (face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4927 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4928 x_free_gc (f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4929 face->gc = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4930 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4931
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4932 free_face_colors (f, face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4933 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4934 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4935 #endif /* HAVE_WINDOW_SYSTEM */
24995
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 xfree (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4938 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4939 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4940
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4941
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4942 /* Prepare face FACE for subsequent display on frame F. This
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4943 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
4944 by clearing the face cache. */
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 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4947 prepare_face_for_display (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4948 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4949 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4950 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4951 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4952 xassert (FRAME_WINDOW_P (f));
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
4953
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4954 if (face->gc == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4955 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4956 XGCValues xgcv;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4957 unsigned long mask = GCForeground | GCBackground | GCGraphicsExposures;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4958
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4959 xgcv.foreground = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4960 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
4961 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4962 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
4963 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4964 /* The font of FACE may be null if we couldn't load it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4965 if (face->font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4966 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4967 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4968 xgcv.font = face->font->fid;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4969 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4970 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4971 xgcv.font = face->font;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4972 #endif
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
4973 #ifdef macintosh
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
4974 xgcv.font = face->font;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
4975 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4976 mask |= GCFont;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4977 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4978
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4979 BLOCK_INPUT;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4980 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4981 if (face->stipple)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4982 {
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
4983 xgcv.fill_style = FillOpaqueStippled;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4984 xgcv.stipple = x_bitmap_pixmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4985 mask |= GCFillStyle | GCStipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4986 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4987 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4988 face->gc = x_create_gc (f, mask, &xgcv);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4989 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4990 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
4991 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4992 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4993
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4994
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4995 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4996 Face Cache
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4997 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4998
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4999 /* Return a new face cache for frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5000
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5001 static struct face_cache *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5002 make_face_cache (f)
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5003 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5004 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5005 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5006 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5007
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5008 c = (struct face_cache *) xmalloc (sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5009 bzero (c, sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5010 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5011 c->buckets = (struct face **) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5012 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5013 c->size = 50;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5014 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
5015 c->f = f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5016 return c;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5020 /* Clear out all graphics contexts for all realized faces, except for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5021 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
5022 keeping too many graphics contexts that are no longer needed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5023
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5024 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5025 clear_face_gcs (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5026 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5027 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5028 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
5029 {
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5030 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5031 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5032 for (i = BASIC_FACE_ID_SENTINEL; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5033 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5034 struct face *face = c->faces_by_id[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5035 if (face && face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5036 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5037 x_free_gc (c->f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5038 face->gc = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5039 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5040 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5041 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5042 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5043 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5044
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5045
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5046 /* Free all realized faces in face cache C, including basic faces. C
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5047 may be null. If faces are freed, make sure the frame's current
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5048 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
5049 event doesn't try to use faces we destroyed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5050
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5051 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5052 free_realized_faces (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5053 struct face_cache *c;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5054 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5055 if (c && c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5056 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5057 int i, size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5058 struct frame *f = c->f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5059
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5060 /* 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
5061 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
5062 current matrix still references freed faces. */
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5063 BLOCK_INPUT;
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5064
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5065 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5066 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5067 free_realized_face (f, c->faces_by_id[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5068 c->faces_by_id[i] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5069 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5070
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5071 c->used = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5072 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5073 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5074
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5075 /* Must do a thorough redisplay the next time. Mark current
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5076 matrices as invalid because they will reference faces freed
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5077 above. This function is also called when a frame is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5078 destroyed. In this case, the root window of F is nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5079 if (WINDOWP (f->root_window))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5080 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5081 clear_current_matrices (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5082 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5083 }
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5084
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5085 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5086 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5087 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5088
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5089
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5090 /* Free all faces realized for multibyte characters on frame F that
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5091 has FONTSET. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5092
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5093 void
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5094 free_realized_multibyte_face (f, fontset)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5095 struct frame *f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5096 int fontset;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5097 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5098 struct face_cache *cache = FRAME_FACE_CACHE (f);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5099 struct face *face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5100 int i;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5101
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5102 /* 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
5103 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
5104 matrix still references freed faces. */
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5105 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5106
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5107 for (i = 0; i < cache->used; i++)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5108 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5109 face = cache->faces_by_id[i];
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5110 if (face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5111 && face != face->ascii_face
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5112 && face->fontset == fontset)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5113 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5114 uncache_face (cache, face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5115 free_realized_face (f, face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5116 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5117 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5118
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5119 /* 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
5120 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
5121 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
5122 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
5123 if (WINDOWP (f->root_window))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5124 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5125 clear_current_matrices (f);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5126 ++windows_or_buffers_changed;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5127 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5128
29284
d458dee20518 (free_realized_faces): Block/unblock input.
Gerd Moellmann <gerd@gnu.org>
parents: 28753
diff changeset
5129 UNBLOCK_INPUT;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5130 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5131
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5132
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5133 /* 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
5134 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
5135 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
5136
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5137 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5138 free_all_realized_faces (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5139 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5140 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5141 if (NILP (frame))
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5142 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5143 Lisp_Object rest;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5144 FOR_EACH_FRAME (rest, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5145 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5146 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5147 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5148 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5149 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5150
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5151
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5152 /* 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
5153
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5154 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5155 free_face_cache (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5156 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5157 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5158 if (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5159 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5160 free_realized_faces (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5161 xfree (c->buckets);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5162 xfree (c->faces_by_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5163 xfree (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5164 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5165 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5166
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5167
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5168 /* Cache realized face FACE in face cache C. HASH is the hash value
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5169 of FACE. If FACE->fontset >= 0, add the new face to the end of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5170 collision list of the face hash table of C. This is done because
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5171 otherwise lookup_face would find FACE for every character, even if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5172 faces with the same attributes but for specific characters exist. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5173
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5174 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5175 cache_face (c, face, hash)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5176 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5177 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5178 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5179 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5180 int i = hash % FACE_CACHE_BUCKETS_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5181
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5182 face->hash = hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5183
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5184 if (face->fontset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5185 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5186 struct face *last = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5187 if (last)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5188 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5189 while (last->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5190 last = last->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5191 last->next = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5192 face->prev = last;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5193 face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5194 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5195 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5196 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5197 c->buckets[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5198 face->prev = face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5199 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5200 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5201 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5202 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5203 face->prev = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5204 face->next = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5205 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5206 face->next->prev = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5207 c->buckets[i] = face;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5208 }
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5209
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5210 /* 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
5211 slot as FACE->id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5212 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5213 if (c->faces_by_id[i] == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5214 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5215 face->id = i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5216
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5217 /* Maybe enlarge C->faces_by_id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5218 if (i == c->used && c->used == c->size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5219 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5220 int new_size = 2 * c->size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5221 int sz = new_size * sizeof *c->faces_by_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5222 c->faces_by_id = (struct face **) xrealloc (c->faces_by_id, sz);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5223 c->size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5224 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5225
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5226 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5227 /* Check that FACE got a unique id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5228 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5229 int j, n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5230 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5231
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5232 for (j = n = 0; j < FACE_CACHE_BUCKETS_SIZE; ++j)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5233 for (face = c->buckets[j]; face; face = face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5234 if (face->id == i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5235 ++n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5236
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5237 xassert (n == 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5238 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5239 #endif /* GLYPH_DEBUG */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5240
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5241 c->faces_by_id[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5242 if (i == c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5243 ++c->used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5244 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5245
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5246
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5247 /* Remove face FACE from cache C. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5248
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5249 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5250 uncache_face (c, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5251 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5252 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5253 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5254 int i = face->hash % FACE_CACHE_BUCKETS_SIZE;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5255
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5256 if (face->prev)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5257 face->prev->next = face->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5258 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5259 c->buckets[i] = face->next;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5260
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5261 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5262 face->next->prev = face->prev;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5263
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5264 c->faces_by_id[face->id] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5265 if (face->id == c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5266 --c->used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5267 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5268
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5269
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5270 /* Look up a realized face with face attributes ATTR in the face cache
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5271 of frame F. The face will be used to display character C. Value
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5272 is the ID of the face found. If no suitable face is found, realize
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5273 a new one. In that case, if C is a multibyte character, BASE_FACE
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
5274 is a face that has the same attributes. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5275
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5276 INLINE int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5277 lookup_face (f, attr, c, base_face)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5278 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5279 Lisp_Object *attr;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5280 int c;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5281 struct face *base_face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5282 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5283 struct face_cache *cache = FRAME_FACE_CACHE (f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5284 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5285 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5286 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5287
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5288 xassert (cache != NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5289 check_lface_attrs (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5290
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5291 /* Look up ATTR in the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5292 hash = lface_hash (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5293 i = hash % FACE_CACHE_BUCKETS_SIZE;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5294
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5295 for (face = cache->buckets[i]; face; face = face->next)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5296 if (face->hash == hash
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5297 && (!FRAME_WINDOW_P (f)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5298 || FACE_SUITABLE_FOR_CHAR_P (face, c))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5299 && lface_equal_p (face->lface, attr))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5300 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5301
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5302 /* If not found, realize a new face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5303 if (face == NULL)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5304 face = realize_face (cache, attr, c, base_face, -1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5305
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5306 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5307 xassert (face == FACE_FROM_ID (f, face->id));
28409
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5308
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5309 /* When this function is called from face_for_char (in this case, C is
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5310 a multibyte character), a fontset of a face returned by
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5311 realize_face is not yet set, i.e. FACE_SUITABLE_FOR_CHAR_P (FACE,
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5312 C) is not sutisfied. The fontset is set for this face by
4a7f44c0b33d *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 28408
diff changeset
5313 face_for_char later. */
28349
26f2a2e9a2b5 (lookup_face): Don't assert FACE_SUITABLE_FOR_CHAR_P.
Gerd Moellmann <gerd@gnu.org>
parents: 28263
diff changeset
5314 #if 0
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5315 if (FRAME_WINDOW_P (f))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5316 xassert (FACE_SUITABLE_FOR_CHAR_P (face, c));
28349
26f2a2e9a2b5 (lookup_face): Don't assert FACE_SUITABLE_FOR_CHAR_P.
Gerd Moellmann <gerd@gnu.org>
parents: 28263
diff changeset
5317 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5318 #endif /* GLYPH_DEBUG */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5319
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5320 return face->id;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
5321 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5322
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5323
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5324 /* Return the face id of the realized face for named face SYMBOL on
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5325 frame F suitable for displaying character C. Value is -1 if the
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5326 face couldn't be determined, which might happen if the default face
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5327 isn't realized and cannot be realized. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5328
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5329 int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5330 lookup_named_face (f, symbol, c)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5331 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5332 Lisp_Object symbol;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5333 int c;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5334 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5335 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5336 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5337 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5338
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5339 if (default_face == NULL)
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5340 {
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5341 if (!realize_basic_faces (f))
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5342 return -1;
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5343 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5344 }
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5345
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5346 get_lface_attributes (f, symbol, symbol_attrs, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5347 bcopy (default_face->lface, attrs, sizeof attrs);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
5348 merge_face_vectors (f, symbol_attrs, attrs, Qnil);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5349 return lookup_face (f, attrs, c, NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5350 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5351
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5352
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5353 /* 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
5354 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
5355
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5356 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5357 ascii_face_of_lisp_face (f, lface_id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5358 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5359 int lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5360 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5361 int face_id;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5362
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5363 if (lface_id >= 0 && lface_id < lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5364 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5365 Lisp_Object face_name = lface_id_to_name[lface_id];
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5366 face_id = lookup_named_face (f, face_name, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5367 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5368 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5369 face_id = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5370
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5371 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5372 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5373
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5374
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5375 /* 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
5376 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
5377 STEPS < 0 means larger. Value is the id of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5378
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5379 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5380 smaller_face (f, face_id, steps)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5381 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5382 int face_id, steps;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5383 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5384 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5385 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5386 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5387 int pt, last_pt, last_height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5388 int delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5389 int new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5390 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5391
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5392 /* 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
5393 if (FRAME_TERMCAP_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5394 return face_id;
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 /* Try in increments of 1/2 pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5397 delta = steps < 0 ? 5 : -5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5398 steps = abs (steps);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5399
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5400 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5401 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5402 pt = last_pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5403 new_face_id = face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5404 last_height = FONT_HEIGHT (face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5405
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5406 while (steps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5407 && pt + delta > 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5408 /* Give up if we cannot find a font within 10pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5409 && abs (last_pt - pt) < 100)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5410 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5411 /* Look up a face for a slightly smaller/larger font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5412 pt += delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5413 attrs[LFACE_HEIGHT_INDEX] = make_number (pt);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5414 new_face_id = lookup_face (f, attrs, 0, NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5415 new_face = FACE_FROM_ID (f, new_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5416
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5417 /* 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
5418 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
5419 || (delta > 0 && FONT_HEIGHT (new_face->font) > last_height))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5420 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5421 --steps;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5422 last_height = FONT_HEIGHT (new_face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5423 last_pt = pt;
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5426
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5427 return new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5428
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5429 #else /* not HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5430
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5431 return face_id;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5432
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5433 #endif /* not HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5434 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5437 /* 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
5438 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
5439
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
5440 int
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5441 face_with_height (f, face_id, height)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5442 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5443 int face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5444 int height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5445 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5446 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5447 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5448 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5449
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5450 if (FRAME_TERMCAP_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5451 || height <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5452 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5453
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5454 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5455 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5456 attrs[LFACE_HEIGHT_INDEX] = make_number (height);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5457 face_id = lookup_face (f, attrs, 0, NULL);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5458 #endif /* HAVE_WINDOW_SYSTEM */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5459
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5460 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5461 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5462
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
5463
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5464 /* Return the face id of the realized face for named face SYMBOL on
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5465 frame F suitable for displaying character C, and use attributes of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5466 the face FACE_ID for attributes that aren't completely specified by
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5467 SYMBOL. This is like lookup_named_face, except that the default
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5468 attributes come from FACE_ID, not from the default face. FACE_ID
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5469 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
5470
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5471 int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5472 lookup_derived_face (f, symbol, c, face_id)
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5473 struct frame *f;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5474 Lisp_Object symbol;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5475 int c;
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5476 int face_id;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5477 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5478 Lisp_Object attrs[LFACE_VECTOR_SIZE];
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5479 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
5480 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
5481
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5482 if (!default_face)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5483 abort ();
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5484
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5485 get_lface_attributes (f, symbol, symbol_attrs, 1);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5486 bcopy (default_face->lface, attrs, sizeof attrs);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
5487 merge_face_vectors (f, symbol_attrs, attrs, Qnil);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5488 return lookup_face (f, attrs, c, default_face);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5489 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5490
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5491
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5492
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5493 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5494 Font selection
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5495 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5496
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5497 DEFUN ("internal-set-font-selection-order",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5498 Finternal_set_font_selection_order,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5499 Sinternal_set_font_selection_order, 1, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5500 "Set font selection order for face font selection to ORDER.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5501 ORDER must be a list of length 4 containing the symbols `:width',\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5502 `:height', `:weight', and `:slant'. Face attributes appearing\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5503 first in ORDER are matched first, e.g. if `:height' appears before\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5504 `:weight' in ORDER, font selection first tries to find a font with\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5505 a suitable height, and then tries to match the font weight.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5506 Value is ORDER.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5507 (order)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5508 Lisp_Object order;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5509 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5510 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5511 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5512 int indices[4];
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5513
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5514 CHECK_LIST (order, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5515 bzero (indices, sizeof indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5516 i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5517
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5518 for (list = order;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5519 CONSP (list) && i < DIM (indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5520 list = XCDR (list), ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5521 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5522 Lisp_Object attr = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5523 int xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5524
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5525 if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5526 xlfd = XLFD_SWIDTH;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5527 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5528 xlfd = XLFD_POINT_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5529 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5530 xlfd = XLFD_WEIGHT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5531 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5532 xlfd = XLFD_SLANT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5533 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5534 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5535
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5536 if (indices[i] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5537 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5538 indices[i] = xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5539 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5540
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5541 if (!NILP (list)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5542 || i != DIM (indices)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5543 || indices[0] == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5544 || indices[1] == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5545 || indices[2] == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5546 || indices[3] == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5547 signal_error ("Invalid font sort order", order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5548
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5549 if (bcmp (indices, font_sort_order, sizeof indices) != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5550 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5551 bcopy (indices, font_sort_order, sizeof font_sort_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5552 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5553 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5554
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5555 return Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5556 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5557
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5558
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5559 DEFUN ("internal-set-alternative-font-family-alist",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5560 Finternal_set_alternative_font_family_alist,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5561 Sinternal_set_alternative_font_family_alist, 1, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5562 "Define alternative font families to try in face font selection.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5563 ALIST is an alist of (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...) entries.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5564 Each ALTERNATIVE is tried in order if no fonts of font family FAMILY can\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5565 be found. Value is ALIST.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5566 (alist)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5567 Lisp_Object alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5568 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5569 CHECK_LIST (alist, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5570 Vface_alternative_font_family_alist = alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5571 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5572 return alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5573 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5574
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5575
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5576 DEFUN ("internal-set-alternative-font-registry-alist",
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5577 Finternal_set_alternative_font_registry_alist,
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5578 Sinternal_set_alternative_font_registry_alist, 1, 1, 0,
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5579 "Define alternative font registries to try in face font selection.\n\
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5580 ALIST is an alist of (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...) entries.\n\
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5581 Each ALTERNATIVE is tried in order if no fonts of font registry REGISTRY can\n\
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5582 be found. Value is ALIST.")
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5583 (alist)
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5584 Lisp_Object alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5585 {
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5586 CHECK_LIST (alist, 0);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5587 Vface_alternative_font_registry_alist = alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5588 free_all_realized_faces (Qnil);
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5589 return alist;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5590 }
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5591
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5592
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5593 #ifdef HAVE_WINDOW_SYSTEM
24995
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 /* Value is non-zero if FONT is the name of a scalable font. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5596 X11R6 XLFD spec says that point size, pixel size, and average width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5597 are zero for scalable fonts. Intlfonts contain at least one
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5598 scalable font ("*-muleindian-1") for which this isn't true, so we
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5599 just test average width. */
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 font_scalable_p (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5603 struct font_name *font;
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 char *s = font->fields[XLFD_AVGWIDTH];
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5606 return (*s == '0' && *(s + 1) == '\0')
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5607 #ifdef WINDOWSNT
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5608 /* Windows implementation of XLFD is slightly broken for backward
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5609 compatibility with previous broken versions, so test for
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5610 wildcards as well as 0. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5611 || *s == '*'
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5612 #endif
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5613 ;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5614 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5615
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5616
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5617 /* Value is non-zero if FONT1 is a better match for font attributes
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5618 VALUES than FONT2. VALUES is an array of face attribute values in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5619 font sort order. COMPARE_PT_P zero means don't compare point
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5620 sizes. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5621
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5622 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5623 better_font_p (values, font1, font2, compare_pt_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5624 int *values;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5625 struct font_name *font1, *font2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5626 int compare_pt_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5627 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5628 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5629
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5630 for (i = 0; i < 4; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5631 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5632 int xlfd_idx = font_sort_order[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5633
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5634 if (compare_pt_p || xlfd_idx != XLFD_POINT_SIZE)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5635 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5636 int delta1 = abs (values[i] - font1->numeric[xlfd_idx]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5637 int delta2 = abs (values[i] - font2->numeric[xlfd_idx]);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5638
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5639 if (delta1 > delta2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5640 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5641 else if (delta1 < delta2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5642 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5643 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5644 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5645 /* The difference may be equal because, e.g., the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5646 specifies `italic' but we have only `regular' and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5647 `oblique'. Prefer `oblique' in this case. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5648 if ((xlfd_idx == XLFD_WEIGHT || xlfd_idx == XLFD_SLANT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5649 && font1->numeric[xlfd_idx] > values[i]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5650 && font2->numeric[xlfd_idx] < values[i])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5651 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5652 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5653 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5654 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5655
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5656 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5657 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5658
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5659
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5660 /* Value is non-zero if FONT is an exact match for face attributes in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5661 SPECIFIED. SPECIFIED is an array of face attribute values in font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5662 sort order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5663
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5664 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5665 exact_face_match_p (specified, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5666 int *specified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5667 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5668 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5669 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5670
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5671 for (i = 0; i < 4; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5672 if (specified[i] != font->numeric[font_sort_order[i]])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5673 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5674
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5675 return i == 4;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5676 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5677
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5678
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5679 /* Value is the name of a scaled font, generated from scalable font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5680 FONT on frame F. SPECIFIED_PT is the point-size to scale FONT to.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5681 Value is allocated from heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5682
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5683 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5684 build_scalable_font_name (f, font, specified_pt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5685 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5686 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5687 int specified_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5688 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5689 char point_size[20], pixel_size[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5690 int pixel_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5691 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5692 double pt;
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 /* If scalable font is for a specific resolution, compute
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5695 the point size we must specify from the resolution of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5696 the display and the specified resolution of the font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5697 if (font->numeric[XLFD_RESY] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5698 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5699 pt = resy / font->numeric[XLFD_RESY] * specified_pt + 0.5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5700 pixel_value = font->numeric[XLFD_RESY] / 720.0 * pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5701 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5702 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5703 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5704 pt = specified_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5705 pixel_value = resy / 720.0 * pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5706 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5707
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5708 /* Set point size of the font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5709 sprintf (point_size, "%d", (int) pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5710 font->fields[XLFD_POINT_SIZE] = point_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5711 font->numeric[XLFD_POINT_SIZE] = pt;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5712
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5713 /* Set pixel size. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5714 sprintf (pixel_size, "%d", pixel_value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5715 font->fields[XLFD_PIXEL_SIZE] = pixel_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5716 font->numeric[XLFD_PIXEL_SIZE] = pixel_value;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5717
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5718 /* If font doesn't specify its resolution, use the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5719 resolution of the display. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5720 if (font->numeric[XLFD_RESY] == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5721 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5722 char buffer[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5723 sprintf (buffer, "%d", (int) resy);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5724 font->fields[XLFD_RESY] = buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5725 font->numeric[XLFD_RESY] = resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5726 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5727
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5728 if (strcmp (font->fields[XLFD_RESX], "0") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5729 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5730 char buffer[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5731 int resx = FRAME_X_DISPLAY_INFO (f)->resx;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5732 sprintf (buffer, "%d", resx);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5733 font->fields[XLFD_RESX] = buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5734 font->numeric[XLFD_RESX] = resx;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5735 }
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 return build_font_name (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5738 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5739
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5740
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5741 /* Value is non-zero if we are allowed to use scalable font FONT. We
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5742 can't run a Lisp function here since this function may be called
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5743 with input blocked. */
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 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5746 may_use_scalable_font_p (font, name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5747 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5748 char *name;
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 if (EQ (Vscalable_fonts_allowed, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5751 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5752 else if (CONSP (Vscalable_fonts_allowed))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5753 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5754 Lisp_Object tail, regexp;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5755
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5756 for (tail = Vscalable_fonts_allowed; CONSP (tail); tail = XCDR (tail))
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 regexp = XCAR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5759 if (STRINGP (regexp)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5760 && fast_c_string_match_ignore_case (regexp, name) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5761 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5762 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5763 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5764
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5765 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5766 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5767
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5768
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 /* Return the name of the best matching font for face attributes
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5771 ATTRS in the array of font_name structures FONTS which contains
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5772 NFONTS elements. Value is a font name which is allocated from
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5773 the heap. FONTS is freed by this function. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5774
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5775 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5776 best_matching_font (f, attrs, fonts, nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5777 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5778 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5779 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5780 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5781 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5782 char *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5783 struct font_name *best;
31507
ac6d049932e9 (Finternal_merge_in_global_face): Return a Lisp object.
Gerd Moellmann <gerd@gnu.org>
parents: 31483
diff changeset
5784 int i, pt = 0;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5785 int specified[4];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5786 int exact_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5787
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5788 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5789 return NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5790
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5791 /* Make specified font attributes available in `specified',
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5792 indexed by sort order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5793 for (i = 0; i < DIM (font_sort_order); ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5794 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5795 int xlfd_idx = font_sort_order[i];
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5796
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5797 if (xlfd_idx == XLFD_SWIDTH)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5798 specified[i] = face_numeric_swidth (attrs[LFACE_SWIDTH_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5799 else if (xlfd_idx == XLFD_POINT_SIZE)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5800 specified[i] = pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5801 else if (xlfd_idx == XLFD_WEIGHT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5802 specified[i] = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5803 else if (xlfd_idx == XLFD_SLANT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5804 specified[i] = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5805 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5806 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5807 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5808
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5809 exact_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5810
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5811 /* Start with the first non-scalable font in the list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5812 for (i = 0; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5813 if (!font_scalable_p (fonts + i))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5814 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5815
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5816 /* Find the best match among the non-scalable fonts. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5817 if (i < nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5818 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5819 best = fonts + i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5820
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5821 for (i = 1; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5822 if (!font_scalable_p (fonts + i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5823 && better_font_p (specified, fonts + i, best, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5824 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5825 best = fonts + i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5826
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5827 exact_p = exact_face_match_p (specified, best);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5828 if (exact_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5829 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5830 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5831
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5832 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5833 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5834 best = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5835
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5836 /* Unless we found an exact match among non-scalable fonts, see if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5837 we can find a better match among scalable fonts. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5838 if (!exact_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5839 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5840 /* A scalable font is better if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5841
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5842 1. its weight, slant, swidth attributes are better, or.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5843
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5844 2. the best non-scalable font doesn't have the required
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5845 point size, and the scalable fonts weight, slant, swidth
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5846 isn't worse. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5847
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5848 int non_scalable_has_exact_height_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5849
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5850 if (best && best->numeric[XLFD_POINT_SIZE] == pt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5851 non_scalable_has_exact_height_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5852 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5853 non_scalable_has_exact_height_p = 0;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5854
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5855 for (i = 0; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5856 if (font_scalable_p (fonts + i))
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 if (best == NULL
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5859 || better_font_p (specified, fonts + i, best, 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5860 || (!non_scalable_has_exact_height_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5861 && !better_font_p (specified, best, fonts + i, 0)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5862 best = fonts + i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5863 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5864 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5865
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5866 if (font_scalable_p (best))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5867 font_name = build_scalable_font_name (f, best, pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5868 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5869 font_name = build_font_name (best);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5870
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5871 /* Free font_name structures. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5872 free_font_names (fonts, nfonts);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5873
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5874 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5875 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5876
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5877
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5878 /* Try to get a list of fonts on frame F with font family FAMILY and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5879 registry/encoding REGISTRY. Return in *FONTS a pointer to a vector
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5880 of font_name structures for the fonts matched. Value is the number
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5881 of fonts found. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5882
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5883 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5884 try_font_list (f, attrs, pattern, family, registry, fonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5885 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5886 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5887 Lisp_Object pattern, family, registry;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5888 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5889 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5890 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5891
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5892 if (NILP (family) && STRINGP (attrs[LFACE_FAMILY_INDEX]))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5893 family = attrs[LFACE_FAMILY_INDEX];
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5894
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5895 nfonts = font_list (f, pattern, family, registry, fonts);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5896 if (nfonts == 0 && !NILP (family))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5897 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5898 Lisp_Object alter;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5899
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
5900 /* Try alternative font families. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5901 alter = Fassoc (family, Vface_alternative_font_family_alist);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5902 if (CONSP (alter))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5903 for (alter = XCDR (alter);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5904 CONSP (alter) && nfonts == 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5905 alter = XCDR (alter))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5906 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5907 if (STRINGP (XCAR (alter)))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5908 nfonts = font_list (f, Qnil, XCAR (alter), registry, fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5909 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5910
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5911 /* Try font family of the default face or "fixed". */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5912 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5913 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5914 struct face *dflt = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5915 if (dflt)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5916 family = dflt->lface[LFACE_FAMILY_INDEX];
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5917 else
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5918 family = build_string ("fixed");
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5919 nfonts = font_list (f, Qnil, family, registry, fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5920 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5921
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5922 /* Try any family with the given registry. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5923 if (nfonts == 0)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5924 nfonts = font_list (f, Qnil, Qnil, registry, fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5925 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5926
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5927 return nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5928 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5929
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5930
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5931 /* 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
5932 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
5933 attribute of ATTRS doesn't name a fontset. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5934
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5935 static int
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5936 face_fontset (attrs)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5937 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5938 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5939 Lisp_Object name;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5940 int fontset;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5941
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5942 name = attrs[LFACE_FONT_INDEX];
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5943 if (!STRINGP (name))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5944 return -1;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5945 return fs_query_fontset (name, 0);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5946 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5947
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5948
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5949 /* Choose a name of font to use on frame F to display character C with
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5950 Lisp face attributes specified by ATTRS. The font name is
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5951 determined by the font-related attributes in ATTRS and the name
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5952 pattern for C in FONTSET. Value is the font name which is
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5953 allocated from the heap and must be freed by the caller, or NULL if
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5954 we can get no information about the font name of C. It is assured
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5955 that we always get some information for a single byte
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5956 character. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5957
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5958 static char *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5959 choose_face_font (f, attrs, fontset, c)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5960 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5961 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5962 int fontset, c;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5963 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5964 Lisp_Object pattern;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5965 char *font_name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5966 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5967 int nfonts;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5968
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5969 /* Get (foundry and) family name and registry (and encoding) name of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5970 a font for C. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5971 pattern = fontset_font_pattern (f, fontset, c);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5972 if (NILP (pattern))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5973 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5974 xassert (!SINGLE_BYTE_CHAR_P (c));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5975 return NULL;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5976 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5977 /* If what we got is a name pattern, return it. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5978 if (STRINGP (pattern))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5979 return xstrdup (XSTRING (pattern)->data);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5980
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5981 /* Family name may be specified both in ATTRS and car part of
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5982 PATTERN. The former has higher priority if C is a single byte
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5983 character. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5984 if (STRINGP (attrs[LFACE_FAMILY_INDEX])
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5985 && SINGLE_BYTE_CHAR_P (c))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5986 XCAR (pattern) = Qnil;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5987
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
5988 /* Get a list of fonts matching that pattern and choose the
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5989 best match for the specified face attributes from it. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5990 nfonts = try_font_list (f, attrs, Qnil, XCAR (pattern), XCDR (pattern),
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
5991 &fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5992 font_name = best_matching_font (f, attrs, fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5993 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5994 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5995
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
5996 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5997
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5998
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5999
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6000 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6001 Face Realization
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6004 /* 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
6005 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
6006 face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6007
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6008 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6009 realize_basic_faces (f)
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6010 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6011 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6012 int success_p = 0;
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6013
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6014 /* Block input there so that we won't be surprised by an X expose
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6015 event, for instance without having the faces set up. */
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6016 BLOCK_INPUT;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6017
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6018 if (realize_default_face (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6019 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6020 realize_named_face (f, Qmode_line, MODE_LINE_FACE_ID);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
6021 realize_named_face (f, Qtool_bar, TOOL_BAR_FACE_ID);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6022 realize_named_face (f, Qfringe, BITMAP_AREA_FACE_ID);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6023 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
6024 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
6025 realize_named_face (f, Qborder, BORDER_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6026 realize_named_face (f, Qcursor, CURSOR_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6027 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
6028 realize_named_face (f, Qmenu, MENU_FACE_ID);
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6029
33275
8c453c73a11b (lookup_named_face): If default face isn't realized,
Gerd Moellmann <gerd@gnu.org>
parents: 33082
diff changeset
6030 /* Reflect changes in the `menu' face in menu bars. */
33082
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6031 if (menu_face_change_count)
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6032 {
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6033 menu_face_change_count = 0;
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6034
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6035 #ifdef USE_X_TOOLKIT
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6036 if (FRAME_X_P (f))
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6037 {
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6038 Widget menu = f->output_data.x->menubar_widget;
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6039 if (menu)
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6040 x_set_menu_resources_from_menu_face (f, menu);
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6041 }
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6042 #endif /* USE_X_TOOLKIT */
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6043 }
5ab6f3e1f5c8 (menu_face_change_count): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33070
diff changeset
6044
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6045 success_p = 1;
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
28461
b6b552188c57 (realize_basic_faces): Block input while realizing
Gerd Moellmann <gerd@gnu.org>
parents: 28412
diff changeset
6048 UNBLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6049 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6050 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6051
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6052
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6053 /* 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
6054 specified, make it fully-specified. Attributes of the default face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6055 that are not explicitly specified are taken from frame parameters. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6056
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6057 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6058 realize_default_face (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6059 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6060 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6061 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6062 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6063 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6064 Lisp_Object frame_font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6065 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6066 int fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6067
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6068 /* If the `default' face is not yet known, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6069 lface = lface_from_face_name (f, Qdefault, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6070 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6071 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6072 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6073 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6074 lface = Finternal_make_lisp_face (Qdefault, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6075 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6076
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6077 #ifdef HAVE_WINDOW_SYSTEM
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6078 if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6079 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6080 /* Set frame_font to the value of the `font' frame parameter. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6081 frame_font = Fassq (Qfont, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6082 xassert (CONSP (frame_font) && STRINGP (XCDR (frame_font)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6083 frame_font = XCDR (frame_font);
31940
d69d99161d39 (realize_default_face): Call set_lface_from_font_name
Gerd Moellmann <gerd@gnu.org>
parents: 31570
diff changeset
6084 set_lface_from_font_name (f, lface, frame_font, 1, 1);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6085 }
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6086 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6087
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6088 if (!FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6089 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6090 LFACE_FAMILY (lface) = build_string ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6091 LFACE_SWIDTH (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6092 LFACE_HEIGHT (lface) = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6093 LFACE_WEIGHT (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6094 LFACE_SLANT (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6095 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6096
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6097 if (UNSPECIFIEDP (LFACE_UNDERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6098 LFACE_UNDERLINE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6099
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6100 if (UNSPECIFIEDP (LFACE_OVERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6101 LFACE_OVERLINE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6102
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6103 if (UNSPECIFIEDP (LFACE_STRIKE_THROUGH (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6104 LFACE_STRIKE_THROUGH (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6105
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6106 if (UNSPECIFIEDP (LFACE_BOX (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6107 LFACE_BOX (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6108
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6109 if (UNSPECIFIEDP (LFACE_INVERSE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6110 LFACE_INVERSE (lface) = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6111
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6112 if (UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6113 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6114 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6115 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6116 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
6117
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6118 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6119 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
6120 else if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6121 return 0;
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
6122 else if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
6123 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
6124 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6125 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6126 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6127
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6128 if (UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6129 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6130 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6131 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6132 Lisp_Object color = Fassq (Qbackground_color, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6133 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6134 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
6135 else if (FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6136 return 0;
26902
264b83a3a688 Changes for separate unspecified foreground and background colors
Eli Zaretskii <eliz@gnu.org>
parents: 26875
diff changeset
6137 else if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
27114
4efa5e54e9a9 (Qunspecified_fg, Qunspecified_bg): Remove.
Eli Zaretskii <eliz@gnu.org>
parents: 27100
diff changeset
6138 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
6139 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6140 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6141 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6142
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6143 if (UNSPECIFIEDP (LFACE_STIPPLE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6144 LFACE_STIPPLE (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6145
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6146 /* Realize the face; it must be fully-specified now. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6147 xassert (lface_fully_specified_p (XVECTOR (lface)->contents));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6148 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6149 bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6150 face = realize_face (c, attrs, 0, NULL, DEFAULT_FACE_ID);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6151 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6152 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6153
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6154
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6155 /* 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
6156 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
6157 have. The default face must have been realized already. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6158
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6159 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6160 realize_named_face (f, symbol, id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6161 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6162 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6163 int id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6164 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6165 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6166 Lisp_Object lface = lface_from_face_name (f, symbol, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6167 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6168 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6169 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6170
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6171 /* The default face must exist and be fully specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6172 get_lface_attributes (f, Qdefault, attrs, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6173 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6174 xassert (lface_fully_specified_p (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6175
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6176 /* If SYMBOL isn't know as a face, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6177 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6178 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6179 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6180 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6181 lface = Finternal_make_lisp_face (symbol, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6182 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6183
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6184 /* Merge SYMBOL's face with the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6185 get_lface_attributes (f, symbol, symbol_attrs, 1);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
6186 merge_face_vectors (f, symbol_attrs, attrs, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6187
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6188 /* Realize the face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6189 new_face = realize_face (c, attrs, 0, NULL, id);
24995
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6192
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6193 /* Realize the fully-specified face with attributes ATTRS in face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6194 cache CACHE for character C. If C is a multibyte character,
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6195 BASE_FACE is a face that has the same attributes. Otherwise,
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6196 BASE_FACE is ignored. If FORMER_FACE_ID is non-negative, it is an
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6197 ID of face to remove before caching the new face. Value is a
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6198 pointer to the newly created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6199
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6200 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6201 realize_face (cache, attrs, c, base_face, former_face_id)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6202 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6203 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6204 int c;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6205 struct face *base_face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6206 int former_face_id;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6207 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6208 struct face *face;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6209
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6210 /* LFACE must be fully specified. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6211 xassert (cache != NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6212 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6213
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6214 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
6215 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6216 /* Remove the former face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6217 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
6218 uncache_face (cache, former_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6219 free_realized_face (cache->f, former_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6220 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6221
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6222 if (FRAME_WINDOW_P (cache->f))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6223 face = realize_x_face (cache, attrs, c, base_face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6224 else if (FRAME_TERMCAP_P (cache->f) || FRAME_MSDOS_P (cache->f))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6225 face = realize_tty_face (cache, attrs, c);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6226 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6227 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6228
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6229 /* Insert the new face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6230 cache_face (cache, face, lface_hash (attrs));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6231 #ifdef HAVE_WINDOW_SYSTEM
28544
b42146066357 (realize_face): Change FRAME_X_P to FRAME_WINDOW_P.
Jason Rumney <jasonr@gnu.org>
parents: 28529
diff changeset
6232 if (FRAME_WINDOW_P (cache->f) && face->font == NULL)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6233 load_face_font (cache->f, face, c);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6234 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6235 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6236 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6237
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6238
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6239 /* Realize the fully-specified face with attributes ATTRS in face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6240 cache CACHE for character C. Do it for X frame CACHE->f. If C is
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6241 a multibyte character, BASE_FACE is a face that has the same
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6242 attributes. Otherwise, BASE_FACE is ignored. If the new face
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6243 doesn't share font with the default face, a fontname is allocated
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6244 from the heap and set in `font_name' of the new face, but it is not
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6245 yet loaded here. Value is a pointer to the newly created realized
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6246 face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6247
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6248 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6249 realize_x_face (cache, attrs, c, base_face)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6250 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6251 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6252 int c;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6253 struct face *base_face;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6254 {
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6255 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6256 struct face *face, *default_face;
26875
d6aa11f2a4af (choose_face_fontset_font): Delete codes for a
Kenichi Handa <handa@m17n.org>
parents: 26759
diff changeset
6257 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6258 Lisp_Object stipple, overline, strike_through, box;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6259
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6260 xassert (FRAME_WINDOW_P (cache->f));
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6261 xassert (SINGLE_BYTE_CHAR_P (c)
28753
582ba7ff96f7 (realize_x_face): Fix the argument of the second
Kenichi Handa <handa@m17n.org>
parents: 28620
diff changeset
6262 || base_face);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6263
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6264 /* Allocate a new realized face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6265 face = make_realized_face (attrs);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6266
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6267 f = cache->f;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6268
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6269 /* If C is a multibyte character, we share all face attirbutes with
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6270 BASE_FACE including the realized fontset. But, we must load a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6271 different font. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6272 if (!SINGLE_BYTE_CHAR_P (c))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6273 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6274 bcopy (base_face, face, sizeof *face);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6275 face->gc = 0;
29394
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6276
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6277 /* Don't try to free the colors copied bitwise from BASE_FACE. */
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6278 face->foreground_defaulted_p = 1;
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6279 face->background_defaulted_p = 1;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6280 face->underline_defaulted_p = 1;
29394
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6281 face->overline_color_defaulted_p = 1;
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6282 face->strike_through_color_defaulted_p = 1;
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6283 face->box_color_defaulted_p = 1;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6284
29394
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6285 /* to force realize_face to load font */
84489c72fb8e (realize_x_face): When copying BASE_FACE bitwise to the
Gerd Moellmann <gerd@gnu.org>
parents: 29284
diff changeset
6286 face->font = NULL;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6287 return face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6288 }
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6289
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6290 /* Now we are realizing a face for ASCII (and unibyte) characters. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6291
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6292 /* 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
6293 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
6294 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6295 if (default_face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6296 && FACE_SUITABLE_FOR_CHAR_P (default_face, c)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6297 && lface_same_font_attributes_p (default_face->lface, attrs))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6298 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6299 face->font = default_face->font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6300 face->fontset = default_face->fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6301 face->font_info_id = default_face->font_info_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6302 face->font_name = default_face->font_name;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6303 face->ascii_face = face;
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6304
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6305 /* But, as we can't share the fontset, make a new realized
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6306 fontset that has the same base fontset as of the default
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6307 face. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6308 face->fontset
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6309 = make_fontset_for_ascii_face (f, default_face->fontset);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6310 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6311 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6312 {
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6313 /* 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
6314 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
6315 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
6316 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
6317 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
6318 are constructed from ATTRS. */
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
6319 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
6320
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6321 if ((fontset == -1) && default_face)
30211
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
6322 fontset = default_face->fontset;
8d8aa26c6884 (realize_x_face): Make fontset using the base of the
Kenichi Handa <handa@m17n.org>
parents: 30174
diff changeset
6323 face->fontset = make_fontset_for_ascii_face (f, fontset);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6324 face->font = NULL; /* to force realize_face to load font */
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6325
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6326 #ifdef macintosh
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6327 /* Load the font if it is specified in ATTRS. This fixes
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6328 changing frame font on the Mac. */
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6329 if (STRINGP (attrs[LFACE_FONT_INDEX]))
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6330 {
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6331 struct font_info *font_info =
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6332 FS_LOAD_FONT (f, 0, XSTRING (attrs[LFACE_FONT_INDEX])->data, -1);
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6333 if (font_info)
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6334 face->font = font_info->font;
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6335 }
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
6336 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6337 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6338
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6339 /* Load colors, and set remaining attributes. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6340
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6341 load_face_colors (f, face, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6342
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6343 /* Set up box. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6344 box = attrs[LFACE_BOX_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6345 if (STRINGP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6346 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6347 /* 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
6348 the string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6349 face->box_color = load_color (f, face, attrs[LFACE_BOX_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6350 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6351 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6352 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6353 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6354 else if (INTEGERP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6355 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6356 /* Simple box of specified line width in foreground color of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6357 face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6358 xassert (XINT (box) > 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6359 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6360 face->box_line_width = XFASTINT (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6361 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6362 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6363 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6364 else if (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6365 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6366 /* `(:width WIDTH :color COLOR :shadow SHADOW)'. SHADOW
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6367 being one of `raised' or `sunken'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6368 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6369 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6370 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6371 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6372
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6373 while (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6374 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6375 Lisp_Object keyword, value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6376
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6377 keyword = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6378 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6379
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6380 if (!CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6381 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6382 value = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6383 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6384
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6385 if (EQ (keyword, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6386 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6387 if (INTEGERP (value) && XINT (value) > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6388 face->box_line_width = XFASTINT (value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6389 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6390 else if (EQ (keyword, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6391 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6392 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6393 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6394 face->box_color = load_color (f, face, value,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6395 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6396 face->use_box_color_for_shadows_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6397 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6398 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6399 else if (EQ (keyword, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6400 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6401 if (EQ (value, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6402 face->box = FACE_RAISED_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6403 else if (EQ (value, Qpressed_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6404 face->box = FACE_SUNKEN_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6405 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6406 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6407 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6408
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6409 /* Text underline, overline, strike-through. */
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6410
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6411 if (EQ (attrs[LFACE_UNDERLINE_INDEX], Qt))
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6412 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6413 /* Use default color (same as foreground color). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6414 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6415 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6416 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6417 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6418 else if (STRINGP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6419 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6420 /* Use specified color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6421 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6422 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6423 face->underline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6424 = load_color (f, face, attrs[LFACE_UNDERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6425 LFACE_UNDERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6426 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6427 else if (NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6428 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6429 face->underline_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6430 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6431 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6432 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6433
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6434 overline = attrs[LFACE_OVERLINE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6435 if (STRINGP (overline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6436 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6437 face->overline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6438 = load_color (f, face, attrs[LFACE_OVERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6439 LFACE_OVERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6440 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6441 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6442 else if (EQ (overline, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6443 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6444 face->overline_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6445 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6446 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6447 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6448
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6449 strike_through = attrs[LFACE_STRIKE_THROUGH_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6450 if (STRINGP (strike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6451 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6452 face->strike_through_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6453 = load_color (f, face, attrs[LFACE_STRIKE_THROUGH_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6454 LFACE_STRIKE_THROUGH_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6455 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6456 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6457 else if (EQ (strike_through, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6458 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6459 face->strike_through_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6460 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6461 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6462 }
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 stipple = attrs[LFACE_STIPPLE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6465 if (!NILP (stipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6466 face->stipple = load_pixmap (f, stipple, &face->pixmap_w, &face->pixmap_h);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6467
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6468 xassert (FACE_SUITABLE_FOR_CHAR_P (face, c));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6469 return face;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
6470 #endif /* HAVE_WINDOW_SYSTEM */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6471 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6472
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6473
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6474 /* 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
6475 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
6476 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
6477 default foreground/background colors. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6478
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6479 static void
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6480 map_tty_color (f, face, idx, defaulted)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6481 struct frame *f;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6482 struct face *face;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6483 enum lface_attribute_index idx;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6484 int *defaulted;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6485 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6486 Lisp_Object frame, color, def;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6487 int foreground_p = idx == LFACE_FOREGROUND_INDEX;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6488 unsigned long default_pixel, default_other_pixel, pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6489
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6490 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
6491
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6492 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6493 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6494 pixel = default_pixel = FACE_TTY_DEFAULT_FG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6495 default_other_pixel = FACE_TTY_DEFAULT_BG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6496 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6497 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6498 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6499 pixel = default_pixel = FACE_TTY_DEFAULT_BG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6500 default_other_pixel = FACE_TTY_DEFAULT_FG_COLOR;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6501 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6502
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6503 XSETFRAME (frame, f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6504 color = face->lface[idx];
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6505
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6506 if (STRINGP (color)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6507 && XSTRING (color)->size
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6508 && CONSP (Vtty_defined_color_alist)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6509 && (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
6510 CONSP (def)))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6511 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6512 /* 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
6513 (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
6514 pixel = XINT (XCAR (XCDR (def)));
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6515 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6516
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6517 if (pixel == default_pixel && STRINGP (color))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6518 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6519 pixel = load_color (f, face, color, idx);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6520
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6521 #if defined (MSDOS) || defined (WINDOWSNT)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6522 /* 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
6523 use the foreground color defined by the frame. */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6524 #ifdef MSDOS
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6525 if (FRAME_MSDOS_P (f))
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6526 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6527 #endif /* MSDOS */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6528 if (pixel == default_pixel
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6529 || pixel == FACE_TTY_DEFAULT_COLOR)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6530 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6531 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6532 pixel = FRAME_FOREGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6533 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6534 pixel = FRAME_BACKGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6535 face->lface[idx] = tty_color_name (f, pixel);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6536 *defaulted = 1;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6537 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6538 else if (pixel == default_other_pixel)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6539 {
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6540 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6541 pixel = FRAME_BACKGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6542 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6543 pixel = FRAME_FOREGROUND_PIXEL (f);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6544 face->lface[idx] = tty_color_name (f, pixel);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6545 *defaulted = 1;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6546 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6547 #ifdef MSDOS
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6548 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6549 #endif
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6550 #endif /* MSDOS or WINDOWSNT */
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6551 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6552
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6553 if (foreground_p)
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6554 face->foreground = pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6555 else
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6556 face->background = pixel;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6557 }
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6558
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6559
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6560 /* Realize the fully-specified face with attributes ATTRS in face
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6561 cache CACHE for character C. Do it for TTY frame CACHE->f. Value is a
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6562 pointer to the newly created realized face. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6563
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6564 static struct face *
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6565 realize_tty_face (cache, attrs, c)
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6566 struct face_cache *cache;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6567 Lisp_Object *attrs;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6568 int c;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6569 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6570 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6571 int weight, slant;
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
6572 int face_colors_defaulted = 0;
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6573 struct frame *f = cache->f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6574
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6575 /* Frame must be a termcap frame. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6576 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
6577
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6578 /* Allocate a new realized face. */
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6579 face = make_realized_face (attrs);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6580 face->font_name = FRAME_MSDOS_P (cache->f) ? "ms-dos" : "tty";
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6581
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6582 /* Map face attributes to TTY appearances. We map slant to
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6583 dimmed text because we want italic text to appear differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6584 and because dimmed text is probably used infrequently. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6585 weight = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6586 slant = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6587
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6588 if (weight > XLFD_WEIGHT_MEDIUM)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6589 face->tty_bold_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6590 if (weight < XLFD_WEIGHT_MEDIUM || slant != XLFD_SLANT_ROMAN)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6591 face->tty_dim_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6592 if (!NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6593 face->tty_underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6594 if (!NILP (attrs[LFACE_INVERSE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6595 face->tty_reverse_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6596
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6597 /* Map color names to color indices. */
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6598 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
6599 map_tty_color (f, face, LFACE_BACKGROUND_INDEX, &face_colors_defaulted);
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
6600
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
6601 /* 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
6602 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
6603 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
6604 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
6605 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6606 unsigned long tem = face->foreground;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6607 face->foreground = face->background;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6608 face->background = tem;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6609 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6610
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6611 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
6612 && face->tty_bold_p
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6613 && 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
6614 && 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
6615 face->tty_bold_p = 0;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6616
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6617 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6618 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6619
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6620
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6621 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
6622 Ftty_suppress_bold_inverse_default_colors,
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6623 Stty_suppress_bold_inverse_default_colors, 1, 1, 0,
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6624 "Suppress/allow boldness of faces with inverse default colors.\n\
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6625 SUPPRESS non-nil means suppress it.\n\
28620
8208dba7c326 (Ftty_suppress_bold_inverse_default_colors): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28544
diff changeset
6626 This affects bold faces on TTYs whose foreground is the default background\n\
8208dba7c326 (Ftty_suppress_bold_inverse_default_colors): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28544
diff changeset
6627 color of the display and whose background is the default foreground color.\n\
30707
093d1cfc207f (Ftty_suppress_bold_inverse_default_colors): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30698
diff changeset
6628 For such faces, the bold face attribute is ignored if this variable\n\
093d1cfc207f (Ftty_suppress_bold_inverse_default_colors): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 30698
diff changeset
6629 is non-nil.")
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6630 (suppress)
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6631 Lisp_Object suppress;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6632 {
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6633 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
6634 ++face_change_count;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6635 return suppress;
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6636 }
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6637
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
6638
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6639
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6640 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6641 Computing Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6642 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6643
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6644 /* 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
6645 property PROP on frame F in current_buffer. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6646
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6647 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6648 compute_char_face (f, ch, prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6649 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6650 int ch;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6651 Lisp_Object prop;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6652 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6653 int face_id;
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6654
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6655 if (NILP (current_buffer->enable_multibyte_characters))
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6656 ch = -1;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6657
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6658 if (NILP (prop))
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6659 {
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6660 struct face *face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6661 face_id = FACE_FOR_CHAR (f, face, ch);
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6662 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6663 else
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 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6666 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6667 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6668 merge_face_vector_with_property (f, attrs, prop);
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6669 face_id = lookup_face (f, attrs, ch, NULL);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6670 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6671
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6672 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6673 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6674
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6675
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6676 /* Return the face ID associated with buffer position POS for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6677 displaying ASCII characters. Return in *ENDPTR the position at
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6678 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
6679 overlays are concerned. W is a window displaying current_buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6680
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6681 REGION_BEG, REGION_END delimit the region, so it can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6682 highlighted.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6683
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6684 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
6685 this function can take.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6686
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6687 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
6688
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6689 The face returned is suitable for displaying ASCII characters. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6690
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6691 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6692 face_at_buffer_position (w, pos, region_beg, region_end,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6693 endptr, limit, mouse)
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6694 struct window *w;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6695 int pos;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6696 int region_beg, region_end;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6697 int *endptr;
5084
863e092a5891 (compute_char_face): Accept new arg LIMIT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
6698 int limit;
6615
96ddf85642d1 (compute_char_face): New arg MOUSE.
Richard M. Stallman <rms@gnu.org>
parents: 5858
diff changeset
6699 int mouse;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6700 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6701 struct frame *f = XFRAME (w->frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6702 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
6703 Lisp_Object prop, position;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6704 int i, noverlays;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6705 Lisp_Object *overlay_vec;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6706 Lisp_Object frame;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6707 int endpos;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6708 Lisp_Object propname = mouse ? Qmouse_face : Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6709 Lisp_Object limit1, end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6710 struct face *default_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6711 int multibyte_p = !NILP (current_buffer->enable_multibyte_characters);
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6712
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6713 /* 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
6714 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
6715 /* xassert (XBUFFER (w->buffer) == current_buffer); */
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6716
9284
a969e0eefaf5 (compute_char_face): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
parents: 9186
diff changeset
6717 XSETFRAME (frame, f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6718 XSETFASTINT (position, pos);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6719
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6720 endpos = ZV;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6721 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
6722 endpos = region_beg;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6723
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6724 /* Get the `face' or `mouse_face' text property at POS, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6725 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
6726 prop = Fget_text_property (position, propname, w->buffer);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6727 XSETFASTINT (limit1, (limit < endpos ? limit : endpos));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6728 end = Fnext_single_property_change (position, propname, w->buffer, limit1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6729 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6730 endpos = XINT (end);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6731
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6732 /* 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
6733 {
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6734 int next_overlay;
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6735 int len;
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6736
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6737 /* First try with room for 40 overlays. */
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6738 len = 40;
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6739 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
11420
8ab99c3646a7 (compute_char_face): Don't use NULL.
Richard M. Stallman <rms@gnu.org>
parents: 11416
diff changeset
6740 noverlays = overlays_at (pos, 0, &overlay_vec, &len,
30698
75ff6aa32bf0 (face_at_buffer_position): Update call to overlays_at.
Miles Bader <miles@gnu.org>
parents: 30601
diff changeset
6741 &next_overlay, NULL, 0);
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 /* If there are more than 40, make enough space for all, and try
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6744 again. */
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6745 if (noverlays > len)
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6746 {
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6747 len = noverlays;
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6748 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
8965
a7947f88d558 (compute_char_face): Pass new arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 8848
diff changeset
6749 noverlays = overlays_at (pos, 0, &overlay_vec, &len,
30698
75ff6aa32bf0 (face_at_buffer_position): Update call to overlays_at.
Miles Bader <miles@gnu.org>
parents: 30601
diff changeset
6750 &next_overlay, NULL, 0);
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6751 }
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6752
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6753 if (next_overlay < endpos)
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6754 endpos = next_overlay;
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6755 }
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6756
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6757 *endptr = endpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6758
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6759 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6760
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6761 /* Optimize common cases where we can use the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6762 if (noverlays == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6763 && NILP (prop)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6764 && !(pos >= region_beg && pos < region_end))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6765 return DEFAULT_FACE_ID;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6766
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6767 /* Begin with attributes from the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6768 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6769
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6770 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6771 if (!NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6772 merge_face_vector_with_property (f, attrs, prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6773
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6774 /* 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
6775 noverlays = sort_overlays (overlay_vec, noverlays, w);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6776 for (i = 0; i < noverlays; i++)
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6777 {
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6778 Lisp_Object oend;
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6779 int oendpos;
9186
45bac5feb065 (compute_char_face): Handle list as overlay face property.
Richard M. Stallman <rms@gnu.org>
parents: 9184
diff changeset
6780
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6781 prop = Foverlay_get (overlay_vec[i], propname);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6782 if (!NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6783 merge_face_vector_with_property (f, attrs, prop);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6784
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6785 oend = OVERLAY_END (overlay_vec[i]);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6786 oendpos = OVERLAY_POSITION (oend);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6787 if (oendpos < endpos)
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6788 endpos = oendpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6789 }
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6790
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6791 /* 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
6792 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
6793 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6794 Lisp_Object region_face = lface_from_face_name (f, Qregion, 0);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
6795 merge_face_vectors (f, XVECTOR (region_face)->contents, attrs, Qnil);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6796
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6797 if (region_end < endpos)
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6798 endpos = region_end;
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6799 }
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6800
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6801 *endptr = endpos;
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6802
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6803 /* 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
6804 or realize a new one for ASCII characters. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6805 return lookup_face (f, attrs, 0, NULL);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6806 }
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6807
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6808
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6809 /* 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
6810 window W, for ASCII characters.
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6811
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6812 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
6813 current_buffer, otherwise BUFPOS is zero to indicate that STRING is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6814 not an overlay string. W must display the current buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6815 REGION_BEG and REGION_END give the start and end positions of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6816 region; both are -1 if no region is visible. BASE_FACE_ID is the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6817 id of the basic face to merge with. It is usually equal to
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6818 DEFAULT_FACE_ID but can be MODE_LINE_FACE_ID or HEADER_LINE_FACE_ID
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6819 for strings displayed in the mode or top line.
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6820
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6821 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
6822 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
6823 string.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6824
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6825 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
6826 for displaying ASCII characters. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6827
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6828 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6829 face_at_string_position (w, string, pos, bufpos, region_beg,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6830 region_end, endptr, base_face_id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6831 struct window *w;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6832 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6833 int pos, bufpos;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6834 int region_beg, region_end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6835 int *endptr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6836 enum face_id base_face_id;
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6837 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6838 Lisp_Object prop, position, end, limit;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6839 struct frame *f = XFRAME (WINDOW_FRAME (w));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6840 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6841 struct face *base_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6842 int multibyte_p = STRING_MULTIBYTE (string);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6843
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6844 /* 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
6845 STRING. Value is nil if there is no face property. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6846 XSETFASTINT (position, pos);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6847 prop = Fget_text_property (position, Qface, string);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6848
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6849 /* 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
6850 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
6851 Otherwise it is a string position where to check faces next.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6852 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
6853 changes in Fnext_single_property_change. Strings are usually
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6854 short, so set the limit to the end of the string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6855 XSETFASTINT (limit, XSTRING (string)->size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6856 end = Fnext_single_property_change (position, Qface, string, limit);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6857 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6858 *endptr = XFASTINT (end);
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6859 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6860 *endptr = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6861
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6862 base_face = FACE_FROM_ID (f, base_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6863 xassert (base_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6864
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6865 /* 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
6866 are not in the region. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6867 if (NILP (prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6868 && (base_face_id != DEFAULT_FACE_ID
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6869 /* BUFPOS <= 0 means STRING is not an overlay string, so
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6870 that the region doesn't have to be taken into account. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6871 || bufpos <= 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6872 || bufpos < region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6873 || bufpos >= region_end)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6874 && (multibyte_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6875 /* We can't realize faces for different charsets differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6876 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
6877 on a window-system frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6878 || !FRAME_WINDOW_P (f)
28230
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6879 || FACE_SUITABLE_FOR_CHAR_P (base_face, 0)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6880 return base_face->id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6881
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6882 /* Begin with attributes from the base face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6883 bcopy (base_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6884
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6885 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6886 if (!NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6887 merge_face_vector_with_property (f, attrs, prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6888
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6889 /* If in the region, merge in the region face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6890 if (bufpos
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6891 && bufpos >= region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6892 && bufpos < region_end)
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6893 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6894 Lisp_Object region_face = lface_from_face_name (f, Qregion, 0);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
6895 merge_face_vectors (f, XVECTOR (region_face)->contents, attrs, Qnil);
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6896 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6897
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6898 /* 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
6899 or realize a new one for ASCII characters. */
8e330f701881 (Qx_charset_registry, Vface_default_registry):
Kenichi Handa <handa@m17n.org>
parents: 27984
diff changeset
6900 return lookup_face (f, attrs, 0, NULL);
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6901 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6902
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6903
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6904
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6905 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6906 Tests
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6907 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6908
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6909 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6910
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6911 /* Print the contents of the realized face FACE to stderr. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6912
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6913 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6914 dump_realized_face (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6915 struct face *face;
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6916 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6917 fprintf (stderr, "ID: %d\n", face->id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6918 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6919 fprintf (stderr, "gc: %d\n", (int) face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6920 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6921 fprintf (stderr, "foreground: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6922 face->foreground,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6923 XSTRING (face->lface[LFACE_FOREGROUND_INDEX])->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6924 fprintf (stderr, "background: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6925 face->background,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6926 XSTRING (face->lface[LFACE_BACKGROUND_INDEX])->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6927 fprintf (stderr, "font_name: %s (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6928 face->font_name,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6929 XSTRING (face->lface[LFACE_FAMILY_INDEX])->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6930 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6931 fprintf (stderr, "font = %p\n", face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6932 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6933 fprintf (stderr, "font_info_id = %d\n", face->font_info_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6934 fprintf (stderr, "fontset: %d\n", face->fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6935 fprintf (stderr, "underline: %d (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6936 face->underline_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6937 XSTRING (Fsymbol_name (face->lface[LFACE_UNDERLINE_INDEX]))->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6938 fprintf (stderr, "hash: %d\n", face->hash);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6939 fprintf (stderr, "charset: %d\n", face->charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6940 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6941
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6942
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6943 DEFUN ("dump-face", Fdump_face, Sdump_face, 0, 1, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6944 (n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6945 Lisp_Object n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6946 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6947 if (NILP (n))
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6948 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6949 int i;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6950
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6951 fprintf (stderr, "font selection order: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6952 for (i = 0; i < DIM (font_sort_order); ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6953 fprintf (stderr, "%d ", font_sort_order[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6954 fprintf (stderr, "\n");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6955
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6956 fprintf (stderr, "alternative fonts: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6957 debug_print (Vface_alternative_font_family_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6958 fprintf (stderr, "\n");
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6959
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
6960 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
6961 Fdump_face (make_number (i));
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6962 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6963 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6964 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6965 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6966 CHECK_NUMBER (n, 0);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
6967 face = FACE_FROM_ID (SELECTED_FRAME (), XINT (n));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6968 if (face == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6969 error ("Not a valid face");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6970 dump_realized_face (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6971 }
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
6972
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6973 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6974 }
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6975
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6976
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6977 DEFUN ("show-face-resources", Fshow_face_resources, Sshow_face_resources,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6978 0, 0, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6979 ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6980 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6981 fprintf (stderr, "number of colors = %d\n", ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6982 fprintf (stderr, "number of pixmaps = %d\n", npixmaps_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6983 fprintf (stderr, "number of GCs = %d\n", ngcs);
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6984 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6985 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6986
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6987 #endif /* GLYPH_DEBUG != 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6988
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6989
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6990
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6991 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6992 Initialization
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6993 ***********************************************************************/
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
6994
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6995 void
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6996 syms_of_xfaces ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6997 {
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6998 Qface = intern ("face");
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6999 staticpro (&Qface);
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
7000 Qbitmap_spec_p = intern ("bitmap-spec-p");
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
7001 staticpro (&Qbitmap_spec_p);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
7002 Qframe_update_face_colors = intern ("frame-update-face-colors");
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
7003 staticpro (&Qframe_update_face_colors);
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7004
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7005 /* Lisp face attribute keywords. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7006 QCfamily = intern (":family");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7007 staticpro (&QCfamily);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7008 QCheight = intern (":height");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7009 staticpro (&QCheight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7010 QCweight = intern (":weight");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7011 staticpro (&QCweight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7012 QCslant = intern (":slant");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7013 staticpro (&QCslant);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7014 QCunderline = intern (":underline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7015 staticpro (&QCunderline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7016 QCinverse_video = intern (":inverse-video");
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7017 staticpro (&QCinverse_video);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7018 QCreverse_video = intern (":reverse-video");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7019 staticpro (&QCreverse_video);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7020 QCforeground = intern (":foreground");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7021 staticpro (&QCforeground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7022 QCbackground = intern (":background");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7023 staticpro (&QCbackground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7024 QCstipple = intern (":stipple");;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7025 staticpro (&QCstipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7026 QCwidth = intern (":width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7027 staticpro (&QCwidth);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7028 QCfont = intern (":font");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7029 staticpro (&QCfont);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7030 QCbold = intern (":bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7031 staticpro (&QCbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7032 QCitalic = intern (":italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7033 staticpro (&QCitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7034 QCoverline = intern (":overline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7035 staticpro (&QCoverline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7036 QCstrike_through = intern (":strike-through");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7037 staticpro (&QCstrike_through);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7038 QCbox = intern (":box");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7039 staticpro (&QCbox);
31178
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
7040 QCinherit = intern (":inherit");
ade2aeaf252e (QCinherit):
Miles Bader <miles@gnu.org>
parents: 30973
diff changeset
7041 staticpro (&QCinherit);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7042
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7043 /* Symbols used for Lisp face attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7044 QCcolor = intern (":color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7045 staticpro (&QCcolor);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7046 QCline_width = intern (":line-width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7047 staticpro (&QCline_width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7048 QCstyle = intern (":style");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7049 staticpro (&QCstyle);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7050 Qreleased_button = intern ("released-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7051 staticpro (&Qreleased_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7052 Qpressed_button = intern ("pressed-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7053 staticpro (&Qpressed_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7054 Qnormal = intern ("normal");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7055 staticpro (&Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7056 Qultra_light = intern ("ultra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7057 staticpro (&Qultra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7058 Qextra_light = intern ("extra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7059 staticpro (&Qextra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7060 Qlight = intern ("light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7061 staticpro (&Qlight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7062 Qsemi_light = intern ("semi-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7063 staticpro (&Qsemi_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7064 Qsemi_bold = intern ("semi-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7065 staticpro (&Qsemi_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7066 Qbold = intern ("bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7067 staticpro (&Qbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7068 Qextra_bold = intern ("extra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7069 staticpro (&Qextra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7070 Qultra_bold = intern ("ultra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7071 staticpro (&Qultra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7072 Qoblique = intern ("oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7073 staticpro (&Qoblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7074 Qitalic = intern ("italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7075 staticpro (&Qitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7076 Qreverse_oblique = intern ("reverse-oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7077 staticpro (&Qreverse_oblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7078 Qreverse_italic = intern ("reverse-italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7079 staticpro (&Qreverse_italic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7080 Qultra_condensed = intern ("ultra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7081 staticpro (&Qultra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7082 Qextra_condensed = intern ("extra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7083 staticpro (&Qextra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7084 Qcondensed = intern ("condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7085 staticpro (&Qcondensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7086 Qsemi_condensed = intern ("semi-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7087 staticpro (&Qsemi_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7088 Qsemi_expanded = intern ("semi-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7089 staticpro (&Qsemi_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7090 Qexpanded = intern ("expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7091 staticpro (&Qexpanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7092 Qextra_expanded = intern ("extra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7093 staticpro (&Qextra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7094 Qultra_expanded = intern ("ultra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7095 staticpro (&Qultra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7096 Qbackground_color = intern ("background-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7097 staticpro (&Qbackground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7098 Qforeground_color = intern ("foreground-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7099 staticpro (&Qforeground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7100 Qunspecified = intern ("unspecified");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7101 staticpro (&Qunspecified);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7102
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
7103 Qface_alias = intern ("face-alias");
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
7104 staticpro (&Qface_alias);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7105 Qdefault = intern ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7106 staticpro (&Qdefault);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
7107 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
7108 staticpro (&Qtool_bar);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7109 Qregion = intern ("region");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7110 staticpro (&Qregion);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7111 Qfringe = intern ("fringe");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7112 staticpro (&Qfringe);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
7113 Qheader_line = intern ("header-line");
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
7114 staticpro (&Qheader_line);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7115 Qscroll_bar = intern ("scroll-bar");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7116 staticpro (&Qscroll_bar);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
7117 Qmenu = intern ("menu");
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
7118 staticpro (&Qmenu);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7119 Qcursor = intern ("cursor");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7120 staticpro (&Qcursor);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7121 Qborder = intern ("border");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7122 staticpro (&Qborder);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7123 Qmouse = intern ("mouse");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
7124 staticpro (&Qmouse);
26729
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7125 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
7126 staticpro (&Qtty_color_desc);
f5dded41adcc Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 26601
diff changeset
7127 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
7128 staticpro (&Qtty_color_by_index);
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7129 Qtty_color_alist = intern ("tty-color-alist");
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7130 staticpro (&Qtty_color_alist);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7131
31449
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
7132 Vparam_value_alist = Fcons (Fcons (Qnil, Qnil), Qnil);
8797df6a9fa2 (Vparam_value_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31440
diff changeset
7133 staticpro (&Vparam_value_alist);
30304
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
7134 Vface_alternative_font_family_alist = Qnil;
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
7135 staticpro (&Vface_alternative_font_family_alist);
33372
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
7136 Vface_alternative_font_registry_alist = Qnil;
2a665186a9e9 (Vface_alternative_font_registry_alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 33275
diff changeset
7137 staticpro (&Vface_alternative_font_registry_alist);
30304
626d55ea66ef (face-alternative-font-family-alist): Remove
Gerd Moellmann <gerd@gnu.org>
parents: 30235
diff changeset
7138
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7139 defsubr (&Sinternal_make_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7140 defsubr (&Sinternal_lisp_face_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7141 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
7142 #ifdef HAVE_WINDOW_SYSTEM
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7143 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
7144 #endif
27120
24a08208cf3a (syms_of_xfaces): Change Sface_color_gray_p to
Gerd Moellmann <gerd@gnu.org>
parents: 27114
diff changeset
7145 defsubr (&Scolor_gray_p);
24a08208cf3a (syms_of_xfaces): Change Sface_color_gray_p to
Gerd Moellmann <gerd@gnu.org>
parents: 27114
diff changeset
7146 defsubr (&Scolor_supported_p);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7147 defsubr (&Sinternal_get_lisp_face_attribute);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7148 defsubr (&Sinternal_lisp_face_attribute_values);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7149 defsubr (&Sinternal_lisp_face_equal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7150 defsubr (&Sinternal_lisp_face_empty_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7151 defsubr (&Sinternal_copy_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7152 defsubr (&Sinternal_merge_in_global_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7153 defsubr (&Sface_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7154 defsubr (&Sframe_face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7155 defsubr (&Sinternal_set_font_selection_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7156 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
7157 defsubr (&Sinternal_set_alternative_font_registry_alist);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7158 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7159 defsubr (&Sdump_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7160 defsubr (&Sshow_face_resources);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7161 #endif /* GLYPH_DEBUG */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7162 defsubr (&Sclear_face_cache);
28529
b8ac36c58391 (tty_suppress_bold_inverse_default_colors_p): New
Gerd Moellmann <gerd@gnu.org>
parents: 28464
diff changeset
7163 defsubr (&Stty_suppress_bold_inverse_default_colors);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7164
29711
913fab478495 (syms_of_xfaces) [DEBUG_X_COLORS]: Defsubr dump_colors
Gerd Moellmann <gerd@gnu.org>
parents: 29599
diff changeset
7165 #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
7166 defsubr (&Sdump_colors);
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
7167 #endif
8a2e32f7717e (Fdump_colors) [DEBUG_X_COLORS]: New function.
Gerd Moellmann <gerd@gnu.org>
parents: 29394
diff changeset
7168
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
7169 DEFVAR_LISP ("font-list-limit", &Vfont_list_limit,
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
7170 "*Limit for font matching.\n\
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
7171 If an integer > 0, font matching functions won't load more than\n\
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
7172 that number of fonts when searching for a matching font.");
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
7173 Vfont_list_limit = make_number (DEFAULT_FONT_LIST_LIMIT);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
7174
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7175 DEFVAR_LISP ("face-new-frame-defaults", &Vface_new_frame_defaults,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7176 "List of global face definitions (for internal use only.)");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7177 Vface_new_frame_defaults = Qnil;
30235
5a0d447b7eea check default_face before dereferencing
Sam Steingold <sds@gnu.org>
parents: 30211
diff changeset
7178
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7179 DEFVAR_LISP ("face-default-stipple", &Vface_default_stipple,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7180 "*Default stipple pattern used on monochrome displays.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7181 This stipple pattern is used on monochrome displays\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7182 instead of shades of gray for a face background color.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7183 See `set-face-stipple' for possible values for this variable.");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7184 Vface_default_stipple = build_string ("gray3");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7185
30973
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7186 DEFVAR_LISP ("tty-defined-color-alist", &Vtty_defined_color_alist,
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7187 "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
7188 Vtty_defined_color_alist = Qnil;
2f3dc355bcaf (lface_equal_p): Compare strings differently.
Gerd Moellmann <gerd@gnu.org>
parents: 30707
diff changeset
7189
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7190 DEFVAR_LISP ("scalable-fonts-allowed", &Vscalable_fonts_allowed,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7191 "Allowed scalable fonts.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7192 A value of nil means don't allow any scalable fonts.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7193 A value of t means allow any scalable font.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7194 Otherwise, value must be a list of regular expressions. A font may be\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7195 scaled if its name matches a regular expression in the list.");
32752
923b8d6d8277 Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents: 32176
diff changeset
7196 #if defined (WINDOWSNT) || defined (macintosh)
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7197 /* Windows uses mainly truetype fonts, so disallowing scalable fonts
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7198 by default limits the fonts available severely. */
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7199 Vscalable_fonts_allowed = Qt;
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7200 #else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7201 Vscalable_fonts_allowed = Qnil;
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7202 #endif
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
7203
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7204 #ifdef HAVE_WINDOW_SYSTEM
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
7205 defsubr (&Sbitmap_spec_p);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7206 defsubr (&Sx_list_fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7207 defsubr (&Sinternal_face_x_get_resource);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
7208 defsubr (&Sx_family_fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
7209 defsubr (&Sx_font_family_list);
27982
86de01dd01eb Change many FRAME_X... macros to FRAME_WINDOW... or other
Jason Rumney <jasonr@gnu.org>
parents: 27960
diff changeset
7210 #endif /* HAVE_WINDOW_SYSTEM */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7211 }