annotate src/xfaces.c @ 26424:db29d7e69272

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Fri, 12 Nov 1999 13:10:20 +0000
parents b7aa6ac26872
children 5510d0cc07c3
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.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2 Copyright (C) 1993, 1994, 1998, 1999 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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
29 1. Font family or fontset alias name.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
30
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'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
33
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
34 3. Font height in 1/10pt
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
35
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
36 4. Font weight, e.g. `bold'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
37
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
38 5. Font slant, e.g. `italic'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
39
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
40 6. Foreground color.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
41
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
58 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
59 same named face (face names are symbols) differently for different
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
60 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
61 faces. The value of a named face in such an alist is a Lisp vector
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
62 with the symbol `face' in slot 0, and a slot for each each of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
63 face attributes mentioned above.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
64
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
65 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
66 definitions from this list are used to initialize faces of newly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
67 created frames.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
68
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
69 A face doesn't have to specify all attributes. Those not specified
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
70 have a value of `unspecified'. Faces specifying all attributes are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
71 called `fully-specified'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
72
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
73
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
74 Face merging.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
75
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
76 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
77 combining several faces. This process is called `face merging'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
78 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
79 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
80 sure that the default face is always fully-specified, face merging
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
81 always results in a fully-specified face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
82
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
83
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
84 Face realization.
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 After all face attributes for a character have been determined by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
87 merging faces of that character, that face is `realized'. The
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
88 realization process maps face attributes to what is physically
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
89 available on the system where Emacs runs. The result is a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
90 `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
91 face cache of the frame on which it was realized.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
92
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
93 Face realization is done in the context of the charset of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
94 character to display because different fonts and encodings are used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
95 for different charsets. In other words, for characters of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
96 different charsets, different realized faces are needed to display
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
97 them.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
98
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
99 Except for composite characters (CHARSET_COMPOSITION), faces are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
100 always realized for a specific character set and contain a specific
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
101 font, even if the face being realized specifies a fontset (see
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
102 `font selection' below). The reason is that the result of the new
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
103 font selection stage is better than what can be done with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
104 statically defined font name patterns in fontsets.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
105
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
106
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
107 Unibyte text.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
108
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
109 In unibyte text, Emacs' charsets aren't applicable; function
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
110 `char-charset' reports CHARSET_ASCII for all characters, including
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
111 those > 0x7f. The X registry and encoding of fonts to use is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
112 determined from the variable `x-unibyte-registry-and-encoding' in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
113 this case. The variable is initialized at Emacs startup time from
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
114 the font the user specified for Emacs.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
115
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
116 Currently all unibyte text, i.e. all buffers with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
117 enable_multibyte_characters nil are displayed with fonts of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
118 same registry and encoding `x-unibyte-registry-and-encoding'. This
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
119 is consistent with the fact that languages can also be set
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
120 globally, only.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
121
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 Font selection.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
124
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
125 Font selection tries to find the best available matching font for a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
126 given (charset, face) combination. This is done slightly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
127 differently for faces specifying a fontset, or a font family name.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
128
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
129 If the face specifies a fontset alias name, that fontset determines
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
130 a pattern for fonts of the given charset. If the face specifies a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
131 font family, a font pattern is constructed. Charset symbols have a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
132 property `x-charset-registry' for that purpose that maps a charset
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
133 to an XLFD registry and encoding in the font pattern constructed.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
134
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
135 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
136 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
137 match for the given face attributes in this font list.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
138
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
139 Font selection can be influenced by the user.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
140
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
141 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
142 attributes width, height, weight, and slant by setting
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
143 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
144 names. The default is '(:width :height :weight :slant), and means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
145 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
146 width specified by a face, then---within fonts with that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
147 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
148 etc.
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 2. Setting face-alternative-font-family-alist allows the user to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
151 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
152 face doesn't exist.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
153
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
154
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
155 Composite characters.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
156
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
157 Realized faces for composite characters are the only ones having a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
158 fontset id >= 0. When a composite character is encoded into a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
159 sequence of non-composite characters (in xterm.c), a suitable font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
160 for the non-composite characters is then selected and realized,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
161 i.e. the realization process is delayed but in principle the same.
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
164 Initialization of basic faces.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
165
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
166 The faces `default', `modeline' are considered `basic faces'.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
167 When redisplay happens the first time for a newly created frame,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
168 basic faces are realized for CHARSET_ASCII. Frame parameters are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
169 used to fill in unspecified attributes of the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
170
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
171 /* Define SCALABLE_FONTS to a non-zero value to enable scalable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
172 font use. Define it to zero to disable scalable font use.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
173
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
174 Use of too many or too large scalable fonts can crash XFree86
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
175 servers. That's why I've put the code dealing with scalable fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
176 in #if's. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
177
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
178 #define SCALABLE_FONTS 1
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
179
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25890
diff changeset
180 #include <config.h>
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 #include <sys/types.h>
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 #include <sys/stat.h>
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 #include "lisp.h"
17047
6c586afaa572 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16051
diff changeset
184 #include "charset.h"
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
185 #include "frame.h"
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
186
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
187 #ifdef HAVE_X_WINDOWS
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 #include "xterm.h"
17047
6c586afaa572 Include charset.h.
Karl Heuer <kwzh@gnu.org>
parents: 16051
diff changeset
189 #include "fontset.h"
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
190 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
191 #include <Xm/Xm.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
192 #include <Xm/XmStrDefs.h>
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
193 #endif /* USE_MOTIF */
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
194 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
195
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
196 #ifdef MSDOS
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
197 #include "dosfns.h"
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
198 #endif
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
199
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 #include "buffer.h"
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
201 #include "dispextern.h"
2438
b513de4de386 * xfaces.c: Doc fixes.
Jim Blandy <jimb@redhat.com>
parents: 2391
diff changeset
202 #include "blockinput.h"
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
203 #include "window.h"
8848
48b3ac951c53 Add #include "intervals.h"
Karl Heuer <kwzh@gnu.org>
parents: 8472
diff changeset
204 #include "intervals.h"
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
206 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
207
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
208 /* 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
209 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
210 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
211 #included. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
212
3436
291f28da7ea1 Test XOS_NEEDS_TIME_H, not HPUX, for including time.hj.
Richard M. Stallman <rms@gnu.org>
parents: 3401
diff changeset
213 #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
214 #include <time.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
215 #undef USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
216 #include <X11/Xos.h>
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
217 #define USG
d968bcba16af * xfaces.c [XOS_NEEDS_TIME_H]: #undef USG while #including
Jim Blandy <jimb@redhat.com>
parents: 3882
diff changeset
218 #define __TIMEVAL__
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
219 #else /* not XOS_NEEDS_TIME_H */
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 #include <X11/Xos.h>
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
221 #endif /* not XOS_NEEDS_TIME_H */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
222
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
223 #endif /* HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
224
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
225 #include <stdio.h>
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
226 #include <ctype.h>
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
227 #include "keyboard.h"
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
228
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
229 #ifndef max
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
230 #define max(A, B) ((A) > (B) ? (A) : (B))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
231 #define min(A, B) ((A) < (B) ? (A) : (B))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
232 #define abs(X) ((X) < 0 ? -(X) : (X))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
233 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
234
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
235 /* Non-zero if face attribute ATTR is unspecified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
236
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
237 #define UNSPECIFIEDP(ATTR) EQ ((ATTR), Qunspecified)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
238
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
239 /* Value is the number of elements of VECTOR. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
240
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
241 #define DIM(VECTOR) (sizeof (VECTOR) / sizeof *(VECTOR))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
242
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
243 /* Make a copy of string S on the stack using alloca. Value is a pointer
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
244 to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
245
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
246 #define STRDUPA(S) strcpy ((char *) alloca (strlen ((S)) + 1), (S))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
247
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
248 /* 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
249 alloca. Value is a pointer to the copy. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
250
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
251 #define LSTRDUPA(S) STRDUPA (XSTRING ((S))->data)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
252
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
253 /* Size of hash table of realized faces in face caches (should be a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
254 prime number). */
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 #define FACE_CACHE_BUCKETS_SIZE 1001
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
257
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
258 /* Keyword symbols used for face attribute names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
259
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
260 Lisp_Object QCfamily, QCheight, QCweight, QCslant, QCunderline;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
261 Lisp_Object QCinverse_video, QCforeground, QCbackground, QCstipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
262 Lisp_Object QCwidth, QCfont, QCbold, QCitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
263 Lisp_Object QCreverse_video;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
264 Lisp_Object QCoverline, QCstrike_through, QCbox;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
265
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
266 /* Symbols used for attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
267
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
268 Lisp_Object Qnormal, Qbold, Qultra_light, Qextra_light, Qlight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
269 Lisp_Object Qsemi_light, Qsemi_bold, Qextra_bold, Qultra_bold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
270 Lisp_Object Qoblique, Qitalic, Qreverse_oblique, Qreverse_italic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
271 Lisp_Object Qultra_condensed, Qextra_condensed, Qcondensed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
272 Lisp_Object Qsemi_condensed, Qsemi_expanded, Qexpanded, Qextra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
273 Lisp_Object Qultra_expanded;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
274 Lisp_Object Qreleased_button, Qpressed_button;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
275 Lisp_Object QCstyle, QCcolor, QCline_width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
276 Lisp_Object Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
277
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
278 /* The symbol `x-charset-registry'. This property of charsets defines
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
279 the X registry and encoding that fonts should have that are used to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
280 display characters of that charset. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
281
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
282 Lisp_Object Qx_charset_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
283
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
284 /* 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
285 has changed, frame_update_face_colors. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
286
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
287 Lisp_Object Qframe_update_face_colors;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
288
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
289 /* Names of basic faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
290
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
291 Lisp_Object Qdefault, Qmode_line, Qtool_bar, Qregion, Qfringe;
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
292 Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu;
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
293
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
294 /* 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
295 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
296 the aliased face. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
297
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
298 Lisp_Object Qface_alias;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
299
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
300 /* Names of frame parameters related to faces. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
301
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
302 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
303 extern Lisp_Object Qborder_color, Qcursor_color, Qmouse_color;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
304
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
305 /* Default stipple pattern used on monochrome displays. This stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
306 pattern is used on monochrome displays instead of shades of gray
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
307 for a face background color. See `set-face-stipple' for possible
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
308 values for this variable. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
309
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
310 Lisp_Object Vface_default_stipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
311
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
312 /* Default registry and encoding to use for charsets whose charset
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
313 symbols don't specify one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
314
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
315 Lisp_Object Vface_default_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
316
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
317 /* Alist of alternative font families. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
318 (FAMILY FAMILY1 FAMILY2 ...). If fonts of FAMILY can't be loaded,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
319 try FAMILY1, then FAMILY2, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
320
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
321 Lisp_Object Vface_alternative_font_family_alist;
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 /* 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
324 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
325 font. Otherwise, value must be a list of regular expressions. A
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
326 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
327 list. */
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 #if SCALABLE_FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
330 Lisp_Object Vscalable_fonts_allowed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
331 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
332
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
333 /* 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
334 integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead. */
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
335
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
336 Lisp_Object Vfont_list_limit;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
337 #define DEFAULT_FONT_LIST_LIMIT 100
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
338
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
339 /* The symbols `foreground-color' and `background-color' which can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
340 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
341 Emacs 20.2. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
342
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
343 Lisp_Object Qforeground_color, Qbackground_color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
344
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
345 /* The symbols `face' and `mouse-face' used as text properties. */
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
346
23730
c71c3ac4b80a (Qmouse_face): Replace definition with extern decl.
Richard M. Stallman <rms@gnu.org>
parents: 21766
diff changeset
347 Lisp_Object Qface;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
348 extern Lisp_Object Qmouse_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
349
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
350 /* Error symbol for wrong_type_argument in load_pixmap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
351
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
352 Lisp_Object Qbitmap_spec_p;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
353
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
354 /* Alist of global face definitions. Each element is of the form
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
355 (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
356 is a Lisp vector of face attributes. These faces are used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
357 to initialize faces for new frames. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
358
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
359 Lisp_Object Vface_new_frame_defaults;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
360
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
361 /* The next ID to assign to Lisp faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
362
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
363 static int next_lface_id;
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 /* A vector mapping Lisp face Id's to face names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
366
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
367 static Lisp_Object *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
368 static int lface_id_to_name_size;
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 /* An alist of elements (COLOR-NAME . INDEX) mapping color names
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
371 to color indices for tty frames. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
372
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
373 Lisp_Object Vface_tty_color_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
374
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
375 /* Counter for calls to clear_face_cache. If this counter reaches
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
376 CLEAR_FONT_TABLE_COUNT, and a frame has more than
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
377 CLEAR_FONT_TABLE_NFONTS load, unused fonts are freed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
378
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
379 static int clear_font_table_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
380 #define CLEAR_FONT_TABLE_COUNT 100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
381 #define CLEAR_FONT_TABLE_NFONTS 10
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
382
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
383 /* Non-zero means face attributes have been changed since the last
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
384 redisplay. Used in redisplay_internal. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
385
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
386 int face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
387
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
388 /* The total number of colors currently allocated. */
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
391 static int ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
392 static int npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
393 static int ngcs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
394 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
395
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
396
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
398 /* Function prototypes. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
399
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
400 struct font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
401 struct table_entry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
402
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
403 static Lisp_Object resolve_face_name P_ ((Lisp_Object));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
404 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
405 static void set_font_frame_param P_ ((Lisp_Object, Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
406 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
407 int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
408 static int first_font_matching P_ ((struct frame *f, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
409 struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
410 static int x_face_list_fonts P_ ((struct frame *, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
411 struct font_name *, int, int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
412 static int font_scalable_p P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
413 static Lisp_Object deduce_unibyte_registry P_ ((struct frame *, char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
414 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
415 static int load_pixmap P_ ((struct frame *, Lisp_Object, unsigned *, unsigned *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
416 static char *xstrdup P_ ((char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
417 static unsigned char *xstrlwr P_ ((unsigned char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
418 static void signal_error P_ ((char *, Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
419 static struct frame *frame_or_selected_frame P_ ((Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
420 static void load_face_font_or_fontset P_ ((struct frame *, struct face *, char *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
421 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
422 static void free_face_colors P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
423 static int face_color_gray_p P_ ((struct frame *, char *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
424 static char *build_font_name P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
425 static void free_font_names P_ ((struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
426 static int sorted_font_list P_ ((struct frame *, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
427 int (*cmpfn) P_ ((const void *, const void *)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
428 struct font_name **));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
429 static int font_list P_ ((struct frame *, char *, char *, char *, struct font_name **));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
430 static int try_font_list P_ ((struct frame *, Lisp_Object *, char *, char *, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
431 struct font_name **));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
432 static int cmp_font_names P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
433 static struct face *realize_face P_ ((struct face_cache *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
434 Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
435 static struct face *realize_x_face P_ ((struct face_cache *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
436 Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
437 static struct face *realize_tty_face P_ ((struct face_cache *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
438 Lisp_Object *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
439 static int realize_basic_faces P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
440 static int realize_default_face P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
441 static void realize_named_face P_ ((struct frame *, Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
442 static int lface_fully_specified_p P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
443 static int lface_equal_p P_ ((Lisp_Object *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
444 static unsigned hash_string_case_insensitive P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
445 static unsigned lface_hash P_ ((Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
446 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
447 static struct face_cache *make_face_cache P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
448 static void free_realized_face P_ ((struct frame *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
449 static void clear_face_gcs P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
450 static void free_face_cache P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
451 static int face_numeric_weight P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
452 static int face_numeric_slant P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
453 static int face_numeric_swidth P_ ((Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
454 static int face_fontset P_ ((struct frame *, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
455 static char *choose_face_font P_ ((struct frame *, Lisp_Object *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
456 Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
457 static char *choose_face_fontset_font P_ ((struct frame *, Lisp_Object *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
458 int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
459 static void merge_face_vectors P_ ((Lisp_Object *from, Lisp_Object *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
460 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
461 Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
462 static int set_lface_from_font_name P_ ((struct frame *, Lisp_Object, char *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
463 int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
464 static Lisp_Object lface_from_face_name P_ ((struct frame *, Lisp_Object, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
465 static struct face *make_realized_face P_ ((Lisp_Object *, int, Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
466 static void free_realized_faces P_ ((struct face_cache *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
467 static char *best_matching_font P_ ((struct frame *, Lisp_Object *,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
468 struct font_name *, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
469 static void cache_face P_ ((struct face_cache *, struct face *, unsigned));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
470 static void uncache_face P_ ((struct face_cache *, struct face *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
471 static int xlfd_numeric_slant P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
472 static int xlfd_numeric_weight P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
473 static int xlfd_numeric_swidth P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
474 static Lisp_Object xlfd_symbolic_slant P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
475 static Lisp_Object xlfd_symbolic_weight P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
476 static Lisp_Object xlfd_symbolic_swidth P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
477 static int xlfd_fixed_p P_ ((struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
478 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
479 int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
480 static Lisp_Object xlfd_symbolic_value P_ ((struct table_entry *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
481 struct font_name *, int, int));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
482 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
483 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
484
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
485 #ifdef HAVE_X_WINDOWS
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
486
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
487 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
488 static int xlfd_point_size P_ ((struct frame *, struct font_name *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
489 static void sort_fonts P_ ((struct frame *, struct font_name *, int,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
490 int (*cmpfn) P_ ((const void *, const void *))));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
491 static GC x_create_gc P_ ((struct frame *, unsigned long, XGCValues *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
492 static void x_free_gc P_ ((struct frame *, GC));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
493 static void clear_font_table P_ ((struct frame *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
494
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
495 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
496
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
497
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
498 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
499 Utilities
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
500 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
501
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
502 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
503
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
504 /* 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
505 are given by XGCV and MASK. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
506
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
507 static INLINE GC
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
508 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
509 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
510 unsigned long mask;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
511 XGCValues *xgcv;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
512 {
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 GC gc;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
514 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
515 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
516 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
517 IF_DEBUG (++ngcs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
518 return gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
519 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
520
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
521
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
522 /* Free GC which was used on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
523
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
524 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
525 x_free_gc (f, gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
526 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
527 GC gc;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
528 {
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
529 BLOCK_INPUT;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
530 xassert (--ngcs >= 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
531 XFreeGC (FRAME_X_DISPLAY (f), gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
532 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
533 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
534
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
535 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
536
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
537
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
538 /* Like strdup, but uses xmalloc. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
539
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
540 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
541 xstrdup (s)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
542 char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
543 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
544 int len = strlen (s) + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
545 char *p = (char *) xmalloc (len);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
546 bcopy (s, p, len);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
547 return p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
548 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
549
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
550
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
551 /* 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
552 ISO8859-1. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
553
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
554 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
555 xstricmp (s1, s2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
556 unsigned char *s1, *s2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
557 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
558 while (*s1 && *s2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
559 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
560 unsigned char c1 = tolower (*s1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
561 unsigned char c2 = tolower (*s2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
562 if (c1 != c2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
563 return c1 < c2 ? -1 : 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
564 ++s1, ++s2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
565 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
566
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
567 if (*s1 == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
568 return *s2 == 0 ? 0 : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
569 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
570 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
571
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
572
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
573 /* Like strlwr, which might not always be available. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
574
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
575 static unsigned char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
576 xstrlwr (s)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
577 unsigned char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
578 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
579 unsigned char *p = s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
580
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
581 for (p = s; *p; ++p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
582 *p = tolower (*p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
583
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
584 return s;
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 /* Signal `error' with message S, and additional argument ARG. */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
591 signal_error (s, arg)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
592 char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
593 Lisp_Object arg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
594 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
595 Fsignal (Qerror, Fcons (build_string (s), Fcons (arg, Qnil)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
596 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
597
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
598
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
599 /* 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
600 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
601 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
602 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
603 Lisp function definitions. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
604
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
605 static INLINE struct frame *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
606 frame_or_selected_frame (frame, nparam)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
607 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
608 int nparam;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
609 {
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
610 if (NILP (frame))
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
611 frame = selected_frame;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
612
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
613 CHECK_LIVE_FRAME (frame, nparam);
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
614 return XFRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
615 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
616
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
617
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
618 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
619 Frames and faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
620 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
621
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
622 /* 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
623
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
624 void
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
625 init_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
626 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
627 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
628 /* Make a face cache, if F doesn't have one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
629 if (FRAME_FACE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
630 FRAME_FACE_CACHE (f) = make_face_cache (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
631
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
632 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
633 /* Make the image cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
634 if (FRAME_X_P (f))
9529
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
635 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
636 if (FRAME_X_IMAGE_CACHE (f) == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
637 FRAME_X_IMAGE_CACHE (f) = make_image_cache ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
638 ++FRAME_X_IMAGE_CACHE (f)->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
639 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
640 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
641
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
642 /* Realize basic faces. Must have enough information in frame
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
643 parameters to realize basic faces at this point. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
644 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
645 if (!FRAME_X_P (f) || FRAME_X_WINDOW (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
646 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
647 if (!realize_basic_faces (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
648 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
649 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
650
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
651
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
652 /* Free face cache of frame F. Called from Fdelete_frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
653
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
654 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
655 free_frame_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
656 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
657 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
658 struct face_cache *face_cache = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
659
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
660 if (face_cache)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
661 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
662 free_face_cache (face_cache);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
663 FRAME_FACE_CACHE (f) = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
664 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
665
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
666 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
667 if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
668 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
669 struct image_cache *image_cache = FRAME_X_IMAGE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
670 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
671 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
672 --image_cache->refcount;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
673 if (image_cache->refcount == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
674 free_image_cache (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
675 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
676 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
677 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
678 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
679
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
680
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
681 /* 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
682 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
683 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
684 of named faces. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
685
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
686 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
687 recompute_basic_faces (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
688 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
689 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
690 if (FRAME_FACE_CACHE (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
691 {
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
692 int realized_p;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
693 clear_face_cache (0);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
694 realized_p = realize_basic_faces (f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
695 xassert (realized_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
696 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
697 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
698
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
699
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
700 /* 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
701 try to free unused fonts, too. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
702
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
703 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
704 clear_face_cache (clear_fonts_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
705 int clear_fonts_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
706 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
707 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
708 Lisp_Object tail, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
709 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
710
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
711 if (clear_fonts_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
712 || ++clear_font_table_count == CLEAR_FONT_TABLE_COUNT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
713 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
714 /* 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
715 frees all realized faces on all frames. Fonts needed by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
716 faces will be loaded again when faces are realized again. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
717 clear_font_table_count = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
718
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
719 FOR_EACH_FRAME (tail, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
720 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
721 f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
722 if (FRAME_X_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
723 && 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
724 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
725 free_all_realized_faces (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
726 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
727 }
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
728 }
8e610355cb29 Eliminate the "display faces"; store GCs in the "computed faces".
Richard M. Stallman <rms@gnu.org>
parents: 9326
diff changeset
729 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
730 else
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
731 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
732 /* Clear GCs of realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
733 FOR_EACH_FRAME (tail, frame)
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
734 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
735 f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
736 if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
737 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
738 clear_face_gcs (FRAME_FACE_CACHE (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
739 clear_image_cache (f, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
740 }
13460
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
741 }
5513606156bc (unload_font): Invalidate computed faces.
Richard M. Stallman <rms@gnu.org>
parents: 13363
diff changeset
742 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
743 #endif /* HAVE_X_WINDOWS */
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
744 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
745
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
746
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
747 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
748 "Clear face caches on all frames.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
749 Optional THOROUGHLY non-nil means try to free unused fonts, too.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
750 (thorougly)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
751 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
752 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
753 clear_face_cache (!NILP (thorougly));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
754 return Qnil;
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
755 }
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
756
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
757
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
758
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
759 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
760
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
761
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
762 /* Remove those fonts from the font table of frame F that are not used
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
763 by fontsets. Called from clear_face_cache from time to time. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
764
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
765 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
766 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
767 struct frame *f;
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
768 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
769 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
770 char *used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
771 Lisp_Object rest, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
772 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
773
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
774 xassert (FRAME_X_P (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
775
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
776 used = (char *) alloca (dpyinfo->n_fonts * sizeof *used);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
777 bzero (used, dpyinfo->n_fonts * sizeof *used);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
778
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
779 /* For all frames with the same x_display_info as F, record
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
780 in `used' those fonts that are in use by fontsets. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
781 FOR_EACH_FRAME (rest, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
782 if (FRAME_X_DISPLAY_INFO (XFRAME (frame)) == dpyinfo)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
783 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
784 struct frame *f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
785 struct fontset_data *fontset_data = FRAME_FONTSET_DATA (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
786
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
787 for (i = 0; i < fontset_data->n_fontsets; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
788 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
789 struct fontset_info *info = fontset_data->fontset_table[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
790 int j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
791
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
792 for (j = 0; j <= MAX_CHARSET; ++j)
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 idx = info->font_indexes[j];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
795 if (idx >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
796 used[idx] = 1;
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 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
801 /* Free those fonts that are not used by fontsets. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
802 for (i = 0; i < dpyinfo->n_fonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
803 if (used[i] == 0 && dpyinfo->font_table[i].name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
804 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
805 struct font_info *font_info = dpyinfo->font_table + i;
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 /* Free names. In xfns.c there is a comment that full_name
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
808 should never be freed because it is always shared with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
809 something else. I don't think this is true anymore---see
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
810 x_load_font. It's either equal to font_info->name or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
811 allocated via xmalloc, and there seems to be no place in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
812 the source files where full_name is transferred to another
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
813 data structure. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
814 if (font_info->full_name != font_info->name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
815 xfree (font_info->full_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
816 xfree (font_info->name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
817
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
818 /* Free the font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
819 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
820 XFreeFont (dpyinfo->display, font_info->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
821 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
822
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
823 /* Mark font table slot free. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
824 font_info->font = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
825 font_info->name = font_info->full_name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
826 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
827 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
828
24995
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 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
831
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
832
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
833
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
834 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
835 X Pixmaps
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 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
839
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
840 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
841 "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
842 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
843 (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
844 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
845 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
846 (WIDTH + 7)/8 bytes.")
14090
24b93860d392 (Fpixmap_spec_p): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
847 (object)
24b93860d392 (Fpixmap_spec_p): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
848 Lisp_Object object;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
849 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
850 int pixmap_p = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
851
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
852 if (STRINGP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
853 /* 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
854 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
855 else if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
856 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
857 /* 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
858 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
859 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
860 Lisp_Object width, height, data;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
861
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
862 height = width = data = Qnil;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
863
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
864 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
865 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
866 width = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
867 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
868 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
869 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
870 height = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
871 object = XCDR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
872 if (CONSP (object))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
873 data = XCAR (object);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
874 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
875 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
876
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
877 if (NATNUMP (width) && NATNUMP (height) && STRINGP (data))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
878 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
879 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
880 / BITS_PER_CHAR);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
881 if (STRING_BYTES (XSTRING (data)) >= bytes_per_row * height)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
882 pixmap_p = 1;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
883 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
884 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
885
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
886 return pixmap_p ? Qt : Qnil;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
887 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
888
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
889
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
890 /* 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
891 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
892 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
893 bitmap cannot be loaded, display a message saying so, and return
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
894 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
895 if these pointers are not null. */
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 static int
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
898 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
899 FRAME_PTR f;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
900 Lisp_Object name;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
901 unsigned int *w_ptr, *h_ptr;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
902 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
903 int bitmap_id;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
904 Lisp_Object tem;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
905
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
906 if (NILP (name))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
907 return 0;
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
908
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
909 tem = Fbitmap_spec_p (name);
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
910 if (NILP (tem))
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
911 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
912
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
913 BLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
914 if (CONSP (name))
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
915 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
916 /* Decode a bitmap spec into a bitmap. */
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
917
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
918 int h, w;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
919 Lisp_Object bits;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
920
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
921 w = XINT (Fcar (name));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
922 h = XINT (Fcar (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
923 bits = Fcar (Fcdr (Fcdr (name)));
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
924
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
925 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
926 w, h);
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
927 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
928 else
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
929 {
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
930 /* 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
931 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
932 }
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
933 UNBLOCK_INPUT;
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
934
9902
32ed712a45a3 (load_pixmap): Handle bitmap_id < 0. F is a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents: 9671
diff changeset
935 if (bitmap_id < 0)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
936 {
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
937 add_to_log ("Invalid or undefined bitmap %s", name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
938 bitmap_id = 0;
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 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
941 *w_ptr = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
942 if (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
943 *h_ptr = 0;
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 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
946 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
947 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
948 ++npixmaps_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
949 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
950 if (w_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
951 *w_ptr = x_bitmap_width (f, bitmap_id);
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 (h_ptr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
954 *h_ptr = x_bitmap_height (f, bitmap_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
955 }
9564
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
956
1bfb920ab23e (intern_face): Set the fill_style.
Richard M. Stallman <rms@gnu.org>
parents: 9529
diff changeset
957 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
958 }
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
959
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
960 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
961
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
962
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
963
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
964 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
965 Minimum font bounds
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
966 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
967
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
968 #ifdef HAVE_X_WINDOWS
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
969
25062
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
970 /* 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
971 changes. */
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
972
6879
471aebc1b151 (frame_update_line_height): Don't call x_set_window_size.
Richard M. Stallman <rms@gnu.org>
parents: 6784
diff changeset
973 int
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
974 frame_update_line_height (f)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
975 struct frame *f;
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
976 {
25062
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
977 int fontset, line_height, changed_p;
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
978
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
979 fontset = f->output_data.x->fontset;
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
980 if (fontset > 0)
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
981 line_height = FRAME_FONTSET_DATA (f)->fontset_table[fontset]->height;
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
982 else
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
983 line_height = FONT_HEIGHT (f->output_data.x->font);
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
984
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
985 changed_p = line_height != f->output_data.x->line_height;
050561b336aa (load_face_colors): Load background color if setting
Gerd Moellmann <gerd@gnu.org>
parents: 24995
diff changeset
986 f->output_data.x->line_height = line_height;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
987 return changed_p;
6768
0b61d2b74e64 (frame_update_line_height): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6615
diff changeset
988 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
989
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
990 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
991
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
992
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
993 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
994 Fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
995 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
996
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
997 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
998
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
999 /* Load font or fontset of face FACE which is used on frame F.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1000 FONTSET is the fontset FACE should use or -1, if FACE doesn't use a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1001 fontset. FONT_NAME is the name of the font to load, if no fontset
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1002 is used. It is null if no suitable font name could be determined
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1003 for the face. */
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
1004
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1005 static void
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1006 load_face_font_or_fontset (f, face, font_name, fontset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1007 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1008 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1009 char *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1010 int fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1011 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1012 struct font_info *font_info = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1013
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1014 face->font_info_id = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1015 face->fontset = fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1016 face->font = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1017
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1018 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1019 if (fontset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1020 font_info = FS_LOAD_FONT (f, FRAME_X_FONT_TABLE (f), CHARSET_ASCII,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1021 NULL, fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1022 else if (font_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1023 font_info = FS_LOAD_FONT (f, FRAME_X_FONT_TABLE (f), face->charset,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1024 font_name, -1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1025 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1026
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1027 if (font_info)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1028 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1029 char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1030 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1031
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1032 face->font_info_id = FONT_INFO_ID (f, font_info);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1033 face->font = font_info->font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1034 face->font_name = font_info->full_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1035
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1036 /* Make the registry part of the font name readily accessible.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1037 The registry is used to find suitable faces for unibyte text. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1038 s = font_info->full_name + strlen (font_info->full_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1039 i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1040 while (i < 2 && --s >= font_info->full_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1041 if (*s == '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1042 ++i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1043
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1044 if (!STRINGP (face->registry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1045 || xstricmp (XSTRING (face->registry)->data, s + 1) != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1046 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1047 if (STRINGP (Vface_default_registry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1048 && !xstricmp (XSTRING (Vface_default_registry)->data, s + 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1049 face->registry = Vface_default_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1050 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1051 face->registry = build_string (s + 1);
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 else if (fontset >= 0)
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1055 add_to_log ("Unable to load ASCII font of fontset %d",
25301
2042c4a224ad (add_to_log): Renamed from display_message.
Gerd Moellmann <gerd@gnu.org>
parents: 25270
diff changeset
1056 make_number (fontset), Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1057 else if (font_name)
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1058 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
1059 build_string (font_name), Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1060 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1061
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1062 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1063
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1064
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1065
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1066 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1067 X Colors
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1068 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1069
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1070 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1071
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1072 /* 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
1073 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
1074
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1075 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1076 face_color_gray_p (f, color_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1077 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1078 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1079 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1080 XColor color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1081 int gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1082
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1083 if (defined_color (f, color_name, &color, 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1084 gray_p = ((abs (color.red - color.green)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1085 < max (color.red, color.green) / 20)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1086 && (abs (color.green - color.blue)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1087 < max (color.green, color.blue) / 20)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1088 && (abs (color.blue - color.red)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1089 < max (color.blue, color.red) / 20));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1090 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1091 gray_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1092
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1093 return gray_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1094 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1095
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1096
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1097 /* 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
1098 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
1099 color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1101 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1102 face_color_supported_p (f, color_name, background_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1103 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1104 char *color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1105 int background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1106 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1107 Lisp_Object frame;
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 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1110 return (!NILP (Vwindow_system)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1111 && (!NILP (Fx_display_color_p (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1112 || xstricmp (color_name, "black") == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1113 || xstricmp (color_name, "white") == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1114 || (background_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1115 && face_color_gray_p (f, color_name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1116 || (!NILP (Fx_display_grayscale_p (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1117 && face_color_gray_p (f, color_name))));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1118 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1119
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1120
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1121 DEFUN ("face-color-gray-p", Fface_color_gray_p, Sface_color_gray_p, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1122 "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
1123 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
1124 If FRAME is nil or omitted, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1125 (color, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1126 Lisp_Object color, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1127 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1128 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1129 CHECK_STRING (color, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1130 return face_color_gray_p (f, XSTRING (color)->data) ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1131 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1132
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1133
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1134 DEFUN ("face-color-supported-p", Fface_color_supported_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1135 Sface_color_supported_p, 2, 3, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1136 "Return non-nil if COLOR can be displayed on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1137 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
1138 If FRAME is nil or omitted, use the selected frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1139 COLOR must be a valid color name.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1140 (frame, color, background_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1141 Lisp_Object frame, color, background_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1142 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1143 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1144 CHECK_STRING (color, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1145 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
1146 return Qt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1147 return Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1148 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1149
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1150 /* 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
1151 TARGET_INDEX must be one of LFACE_FOREGROUND_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1152 LFACE_BACKGROUND_INDEX, LFACE_UNDERLINE_INDEX, LFACE_OVERLINE_INDEX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1153 LFACE_STRIKE_THROUGH_INDEX, or LFACE_BOX_INDEX. Value is the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1154 pixel color. If color cannot be loaded, display a message, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1155 return the foreground, background or underline color of F, but
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1156 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
1157 these colors. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1158
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1159 unsigned long
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1160 load_color (f, face, name, target_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1161 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1162 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1163 Lisp_Object name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1164 enum lface_attribute_index target_index;
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 XColor color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1167
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1168 xassert (STRINGP (name));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1169 xassert (target_index == LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1170 || target_index == LFACE_BACKGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1171 || target_index == LFACE_UNDERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1172 || target_index == LFACE_OVERLINE_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1173 || target_index == LFACE_STRIKE_THROUGH_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1174 || target_index == LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1175
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1176 /* 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
1177 to the values in an existing cell. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1178 if (!defined_color (f, XSTRING (name)->data, &color, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1179 {
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1180 add_to_log ("Unable to load color %s", name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1181
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1182 switch (target_index)
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 case LFACE_FOREGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1185 face->foreground_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1186 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1187 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1188
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1189 case LFACE_BACKGROUND_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1190 face->background_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1191 color.pixel = FRAME_BACKGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1192 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1193
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1194 case LFACE_UNDERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1195 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1196 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1197 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1198
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1199 case LFACE_OVERLINE_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1200 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1201 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1202 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1203
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1204 case LFACE_STRIKE_THROUGH_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1205 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1206 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1207 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1208
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1209 case LFACE_BOX_INDEX:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1210 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1211 color.pixel = FRAME_FOREGROUND_PIXEL (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1212 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1213
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1214 default:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1215 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1216 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1217 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1218 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1219 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1220 ++ncolors_allocated;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1221 #endif
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 return color.pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1224 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1225
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1226
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1227 /* 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
1228 specified by slots LFACE_BACKGROUND_INDEX and LFACE_FOREGROUND_INDEX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1229 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
1230 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
1231
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1232 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1233 load_face_colors (f, face, attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1234 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1235 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1236 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1237 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1238 Lisp_Object fg, bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1239
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1240 bg = attrs[LFACE_BACKGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1241 fg = attrs[LFACE_FOREGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1242
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1243 /* Swap colors if face is inverse-video. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1244 if (EQ (attrs[LFACE_INVERSE_INDEX], Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1245 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1246 Lisp_Object tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1247 tmp = fg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1248 fg = bg;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1249 bg = tmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1250 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1251
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1252 /* Check for support for foreground, not for background because
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1253 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
1254 "supported" as background because we are supposed to use stipple
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1255 for them. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1256 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
1257 && !NILP (Fbitmap_spec_p (Vface_default_stipple)))
24995
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_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1260 face->stipple = load_pixmap (f, Vface_default_stipple,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1261 &face->pixmap_w, &face->pixmap_h);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1262 }
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1263
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
1264 face->background = load_color (f, face, bg, LFACE_BACKGROUND_INDEX);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1265 face->foreground = load_color (f, face, fg, LFACE_FOREGROUND_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1266 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1267
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1268
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1269 /* Free color PIXEL on frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1270
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1271 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1272 unload_color (f, pixel)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1273 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1274 unsigned long pixel;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1275 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1276 Display *dpy = FRAME_X_DISPLAY (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1277 int class = FRAME_X_DISPLAY_INFO (f)->visual->class;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1278
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1279 if (pixel == BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1280 || pixel == WHITE_PIX_DEFAULT (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1281 return;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1282
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1283 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1284
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1285 /* If display has an immutable color map, freeing colors is not
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1286 necessary and some servers don't allow it. So don't do it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1287 if (! (class == StaticColor || class == StaticGray || class == TrueColor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1288 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1289 Colormap cmap = DefaultColormapOfScreen (FRAME_X_SCREEN (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1290 XFreeColors (dpy, cmap, &pixel, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1291 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1292
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1293 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1294 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1295
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1296
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1297 /* Free colors allocated for FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1298
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1299 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1300 free_face_colors (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1301 struct frame *f;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1302 struct face *face;
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1303 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1304 int class = FRAME_X_DISPLAY_INFO (f)->visual->class;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1305
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1306 /* If display has an immutable color map, freeing colors is not
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1307 necessary and some servers don't allow it. So don't do it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1308 if (class != StaticColor
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1309 && class != StaticGray
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1310 && class != TrueColor)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1311 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1312 Display *dpy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1313 Colormap cmap;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1314
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1315 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1316 dpy = FRAME_X_DISPLAY (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1317 cmap = DefaultColormapOfScreen (FRAME_X_SCREEN (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1318
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1319 if (face->foreground != BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1320 && face->foreground != WHITE_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1321 && !face->foreground_defaulted_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1322 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1323 XFreeColors (dpy, cmap, &face->foreground, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1324 IF_DEBUG (--ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1325 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1326
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1327 if (face->background != BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1328 && face->background != WHITE_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1329 && !face->background_defaulted_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1330 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1331 XFreeColors (dpy, cmap, &face->background, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1332 IF_DEBUG (--ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1333 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1334
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1335 if (face->underline_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1336 && !face->underline_defaulted_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1337 && face->underline_color != BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1338 && face->underline_color != WHITE_PIX_DEFAULT (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1339 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1340 XFreeColors (dpy, cmap, &face->underline_color, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1341 IF_DEBUG (--ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1342 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1343
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1344 if (face->overline_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1345 && !face->overline_color_defaulted_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1346 && face->overline_color != BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1347 && face->overline_color != WHITE_PIX_DEFAULT (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1348 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1349 XFreeColors (dpy, cmap, &face->overline_color, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1350 IF_DEBUG (--ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1351 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1352
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1353 if (face->strike_through_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1354 && !face->strike_through_color_defaulted_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1355 && face->strike_through_color != BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1356 && face->strike_through_color != WHITE_PIX_DEFAULT (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1357 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1358 XFreeColors (dpy, cmap, &face->strike_through_color, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1359 IF_DEBUG (--ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1360 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1361
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1362 if (face->box != FACE_NO_BOX
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1363 && !face->box_color_defaulted_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1364 && face->box_color != BLACK_PIX_DEFAULT (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1365 && face->box_color != WHITE_PIX_DEFAULT (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1366 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1367 XFreeColors (dpy, cmap, &face->box_color, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1368 IF_DEBUG (--ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1369 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1370
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1371 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1372 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1373 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1374
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1375 #else /* ! HAVE_X_WINDOWS */
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1376
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1377 #ifdef MSDOS
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1378 unsigned long
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1379 load_color (f, face, name, target_index)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1380 struct frame *f;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1381 struct face *face;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1382 Lisp_Object name;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1383 enum lface_attribute_index target_index;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1384 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1385 Lisp_Object color;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1386 int color_idx = FACE_TTY_DEFAULT_COLOR;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1387
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1388 if (NILP (name))
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1389 return (unsigned long)FACE_TTY_DEFAULT_COLOR;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1390
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1391 CHECK_STRING (name, 0);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1392
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1393 color = Qnil;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1394 if (XSTRING (name)->size && !NILP (Ffboundp (Qmsdos_color_translate)))
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1395 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1396 color = call1 (Qmsdos_color_translate, name);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1397
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1398 if (INTEGERP (color))
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1399 return (unsigned long)XINT (color);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1400
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
1401 add_to_log ("Unable to load color %s", name, Qnil);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1402
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1403 switch (target_index)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1404 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1405 case LFACE_FOREGROUND_INDEX:
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1406 face->foreground_defaulted_p = 1;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1407 color_idx = FRAME_FOREGROUND_PIXEL (f);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1408 break;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1409
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1410 case LFACE_BACKGROUND_INDEX:
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1411 face->background_defaulted_p = 1;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1412 color_idx = FRAME_BACKGROUND_PIXEL (f);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1413 break;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1414
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1415 case LFACE_UNDERLINE_INDEX:
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1416 face->underline_defaulted_p = 1;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1417 color_idx = FRAME_FOREGROUND_PIXEL (f);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1418 break;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1419
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1420 case LFACE_OVERLINE_INDEX:
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1421 face->overline_color_defaulted_p = 1;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1422 color_idx = FRAME_FOREGROUND_PIXEL (f);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1423 break;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1424
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1425 case LFACE_STRIKE_THROUGH_INDEX:
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1426 face->strike_through_color_defaulted_p = 1;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1427 color_idx = FRAME_FOREGROUND_PIXEL (f);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1428 break;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1429
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1430 case LFACE_BOX_INDEX:
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1431 face->box_color_defaulted_p = 1;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1432 color_idx = FRAME_FOREGROUND_PIXEL (f);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1433 break;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1434 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1435 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1436 else
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1437 color_idx = msdos_stdcolor_idx (XSTRING (name)->data);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1438
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1439 return (unsigned long)color_idx;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1440 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1441 #endif /* MSDOS */
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
1442 #endif /* ! HAVE_X_WINDOWS */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1443
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1444
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1445
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1446 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1447 XLFD Font Names
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1448 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1449
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1450 /* An enumerator for each field of an XLFD font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1451
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1452 enum xlfd_field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1453 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1454 XLFD_FOUNDRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1455 XLFD_FAMILY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1456 XLFD_WEIGHT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1457 XLFD_SLANT,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1458 XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1459 XLFD_ADSTYLE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1460 XLFD_PIXEL_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1461 XLFD_POINT_SIZE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1462 XLFD_RESX,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1463 XLFD_RESY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1464 XLFD_SPACING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1465 XLFD_AVGWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1466 XLFD_REGISTRY,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1467 XLFD_ENCODING,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1468 XLFD_LAST
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1469 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1470
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1471 /* An enumerator for each possible slant value of a font. Taken from
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1472 the XLFD specification. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1473
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1474 enum xlfd_slant
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1475 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1476 XLFD_SLANT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1477 XLFD_SLANT_ROMAN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1478 XLFD_SLANT_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1479 XLFD_SLANT_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1480 XLFD_SLANT_REVERSE_ITALIC,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1481 XLFD_SLANT_REVERSE_OBLIQUE,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1482 XLFD_SLANT_OTHER
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1483 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1484
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1485 /* Relative font weight according to XLFD documentation. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1486
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1487 enum xlfd_weight
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1488 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1489 XLFD_WEIGHT_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1490 XLFD_WEIGHT_ULTRA_LIGHT, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1491 XLFD_WEIGHT_EXTRA_LIGHT, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1492 XLFD_WEIGHT_LIGHT, /* 30 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1493 XLFD_WEIGHT_SEMI_LIGHT, /* 40: SemiLight, Book, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1494 XLFD_WEIGHT_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1495 XLFD_WEIGHT_SEMI_BOLD, /* 60: SemiBold, DemiBold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1496 XLFD_WEIGHT_BOLD, /* 70: Bold, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1497 XLFD_WEIGHT_EXTRA_BOLD, /* 80: ExtraBold, Heavy, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1498 XLFD_WEIGHT_ULTRA_BOLD /* 90: UltraBold, Black, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1499 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1500
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1501 /* Relative proportionate width. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1502
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1503 enum xlfd_swidth
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1504 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1505 XLFD_SWIDTH_UNKNOWN,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1506 XLFD_SWIDTH_ULTRA_CONDENSED, /* 10 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1507 XLFD_SWIDTH_EXTRA_CONDENSED, /* 20 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1508 XLFD_SWIDTH_CONDENSED, /* 30: Condensed, Narrow, Compressed, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1509 XLFD_SWIDTH_SEMI_CONDENSED, /* 40: semicondensed */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1510 XLFD_SWIDTH_MEDIUM, /* 50: Medium, Normal, Regular, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1511 XLFD_SWIDTH_SEMI_EXPANDED, /* 60: SemiExpanded, DemiExpanded, ... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1512 XLFD_SWIDTH_EXPANDED, /* 70: Expanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1513 XLFD_SWIDTH_EXTRA_EXPANDED, /* 80: ExtraExpanded, Wide... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1514 XLFD_SWIDTH_ULTRA_EXPANDED /* 90: UltraExpanded... */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1515 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1516
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1517 /* Structure used for tables mapping XLFD weight, slant, and width
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1518 names to numeric and symbolic values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1519
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1520 struct table_entry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1521 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1522 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1523 int numeric;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1524 Lisp_Object *symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1525 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1526
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1527 /* Table of XLFD slant names and their numeric and symbolic
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1528 representations. This table must be sorted by slant names in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1529 ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1530
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1531 static struct table_entry slant_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1532 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1533 {"i", XLFD_SLANT_ITALIC, &Qitalic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1534 {"o", XLFD_SLANT_OBLIQUE, &Qoblique},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1535 {"ot", XLFD_SLANT_OTHER, &Qitalic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1536 {"r", XLFD_SLANT_ROMAN, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1537 {"ri", XLFD_SLANT_REVERSE_ITALIC, &Qreverse_italic},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1538 {"ro", XLFD_SLANT_REVERSE_OBLIQUE, &Qreverse_oblique}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1539 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1540
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1541 /* 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
1542 names in ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1543
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1544 static struct table_entry weight_table[] =
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 {"black", XLFD_WEIGHT_ULTRA_BOLD, &Qultra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1547 {"bold", XLFD_WEIGHT_BOLD, &Qbold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1548 {"book", XLFD_WEIGHT_SEMI_LIGHT, &Qsemi_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1549 {"demibold", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1550 {"extralight", XLFD_WEIGHT_EXTRA_LIGHT, &Qextra_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1551 {"extrabold", XLFD_WEIGHT_EXTRA_BOLD, &Qextra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1552 {"heavy", XLFD_WEIGHT_EXTRA_BOLD, &Qextra_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1553 {"light", XLFD_WEIGHT_LIGHT, &Qlight},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1554 {"medium", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1555 {"normal", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1556 {"regular", XLFD_WEIGHT_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1557 {"semibold", XLFD_WEIGHT_SEMI_BOLD, &Qsemi_bold},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1558 {"semilight", XLFD_WEIGHT_SEMI_LIGHT, &Qsemi_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1559 {"ultralight", XLFD_WEIGHT_ULTRA_LIGHT, &Qultra_light},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1560 {"ultrabold", XLFD_WEIGHT_ULTRA_BOLD, &Qultra_bold}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1561 };
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 /* 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
1564 names in ascending order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1565
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1566 static struct table_entry swidth_table[] =
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1567 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1568 {"compressed", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1569 {"condensed", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1570 {"demiexpanded", XLFD_SWIDTH_SEMI_EXPANDED, &Qsemi_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1571 {"expanded", XLFD_SWIDTH_EXPANDED, &Qexpanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1572 {"extracondensed", XLFD_SWIDTH_EXTRA_CONDENSED, &Qextra_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1573 {"extraexpanded", XLFD_SWIDTH_EXTRA_EXPANDED, &Qextra_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1574 {"medium", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1575 {"narrow", XLFD_SWIDTH_CONDENSED, &Qcondensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1576 {"normal", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1577 {"regular", XLFD_SWIDTH_MEDIUM, &Qnormal},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1578 {"semicondensed", XLFD_SWIDTH_SEMI_CONDENSED, &Qsemi_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1579 {"semiexpanded", XLFD_SWIDTH_SEMI_EXPANDED, &Qsemi_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1580 {"ultracondensed", XLFD_SWIDTH_ULTRA_CONDENSED, &Qultra_condensed},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1581 {"ultraexpanded", XLFD_SWIDTH_ULTRA_EXPANDED, &Qultra_expanded},
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1582 {"wide", XLFD_SWIDTH_EXTRA_EXPANDED, &Qextra_expanded}
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1583 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1584
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1585 /* 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
1586 format into their fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1587
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1588 struct font_name
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 /* The original name which is modified destructively by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1591 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
1592 if it was allocated from the heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1593 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1594
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1595 /* Font name fields. Each vector element points into `name' above.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1596 Fields are NUL-terminated. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1597 char *fields[XLFD_LAST];
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 /* Numeric values for those fields that interest us. See
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1600 split_font_name for which these are. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1601 int numeric[XLFD_LAST];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1602 };
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1603
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1604 /* The frame in effect when sorting font names. Set temporarily in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1605 sort_fonts so that it is available in font comparison functions. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1606
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1607 static struct frame *font_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1608
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1609 /* Order by which font selection chooses fonts. The default values
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1610 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
1611 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
1612 set via set-face-font-sort-order. */
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 static int font_sort_order[4];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1615
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 /* 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
1618 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
1619 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
1620 matches. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1621
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1622 static struct table_entry *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1623 xlfd_lookup_field_contents (table, dim, font, field_index)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1624 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1625 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1626 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1627 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1628 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1629 /* Function split_font_name converts fields to lower-case, so there
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1630 is no need to use xstrlwr or xstricmp here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1631 char *s = font->fields[field_index];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1632 int low, mid, high, cmp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1633
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1634 low = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1635 high = dim - 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1636
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1637 while (low <= high)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1638 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1639 mid = (low + high) / 2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1640 cmp = strcmp (table[mid].name, s);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1641
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1642 if (cmp < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1643 low = mid + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1644 else if (cmp > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1645 high = mid - 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1646 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1647 return table + mid;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1648 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1649
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1650 return NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1651 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1652
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1653
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1654 /* Return a numeric representation for font name field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1655 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
1656 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
1657 table entry matches. This function is used to translate weight,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1658 slant, and swidth names of XLFD font names to numeric values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1659
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1660 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1661 xlfd_numeric_value (table, dim, font, field_index, dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1662 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1663 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1664 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1665 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1666 int dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1667 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1668 struct table_entry *p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1669 p = xlfd_lookup_field_contents (table, dim, font, field_index);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1670 return p ? p->numeric : dflt;
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 /* Return a symbolic representation for font name field
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1675 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
1676 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
1677 table entry matches. This function is used to translate weight,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1678 slant, and swidth names of XLFD font names to symbols. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1679
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1680 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1681 xlfd_symbolic_value (table, dim, font, field_index, dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1682 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1683 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1684 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1685 int field_index;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1686 int dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1687 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1688 struct table_entry *p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1689 p = xlfd_lookup_field_contents (table, dim, font, field_index);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1690 return p ? *p->symbol : dflt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1691 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1692
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1693
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1694 /* 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
1695
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1696 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1697 xlfd_numeric_slant (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1698 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1699 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1700 return xlfd_numeric_value (slant_table, DIM (slant_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1701 font, XLFD_SLANT, XLFD_SLANT_ROMAN);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1704
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1705 /* 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
1706
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1707 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1708 xlfd_symbolic_slant (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1709 struct font_name *font;
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 return xlfd_symbolic_value (slant_table, DIM (slant_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1712 font, XLFD_SLANT, Qnormal);
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
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 /* 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
1717
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1718 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1719 xlfd_numeric_weight (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1720 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1721 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1722 return xlfd_numeric_value (weight_table, DIM (weight_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1723 font, XLFD_WEIGHT, XLFD_WEIGHT_MEDIUM);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1724 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1725
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 /* 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
1728
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1729 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1730 xlfd_symbolic_weight (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1731 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1732 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1733 return xlfd_symbolic_value (weight_table, DIM (weight_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1734 font, XLFD_WEIGHT, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1735 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1736
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1737
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1738 /* 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
1739 name fields are found in FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1740
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1741 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1742 xlfd_numeric_swidth (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1743 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1744 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1745 return xlfd_numeric_value (swidth_table, DIM (swidth_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1746 font, XLFD_SWIDTH, XLFD_SWIDTH_MEDIUM);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1747 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1750 /* Return a symbolic value for the swidth of FONT. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1751
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1752 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1753 xlfd_symbolic_swidth (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1754 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1755 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1756 return xlfd_symbolic_value (swidth_table, DIM (swidth_table),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1757 font, XLFD_SWIDTH, Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1758 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1761 /* 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
1762 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
1763 no element of TABLE contains SYMBOL. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1764
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1765 static struct table_entry *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1766 face_value (table, dim, symbol)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1767 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1768 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1769 Lisp_Object symbol;
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 int i;
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 xassert (SYMBOLP (symbol));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1774
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1775 for (i = 0; i < dim; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1776 if (EQ (*table[i].symbol, symbol))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1777 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1778
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1779 return i < dim ? table + i : NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1780 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1781
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1782
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1783 /* 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
1784 entries. Value is -1 if SYMBOL is not found in TABLE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1785
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1786 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1787 face_numeric_value (table, dim, symbol)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1788 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1789 int dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1790 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1791 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1792 struct table_entry *p = face_value (table, dim, symbol);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1793 return p ? p->numeric : -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1794 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1797 /* Return a numeric value representing the weight specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1798 symbol WEIGHT. Value is one of the enumerators of enum
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1799 xlfd_weight. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1800
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1801 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1802 face_numeric_weight (weight)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1803 Lisp_Object weight;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1804 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1805 return face_numeric_value (weight_table, DIM (weight_table), weight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1806 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1807
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1808
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1809 /* Return a numeric value representing the slant specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1810 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
1811
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1812 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1813 face_numeric_slant (slant)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1814 Lisp_Object slant;
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 return face_numeric_value (slant_table, DIM (slant_table), slant);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1819
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1820 /* Return a numeric value representing the swidth specified by Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1821 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
1822
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1823 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1824 face_numeric_swidth (width)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1825 Lisp_Object width;
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 return face_numeric_value (swidth_table, DIM (swidth_table), width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1828 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1829
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1830
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1831 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1832
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1833 /* 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
1834
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1835 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1836 xlfd_fixed_p (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1837 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1838 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1839 /* Function split_font_name converts fields to lower-case, so there
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1840 is no need to use tolower here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1841 return *font->fields[XLFD_SPACING] != 'p';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1842 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1843
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1844
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1845 /* 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
1846
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1847 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
1848 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
1849 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
1850 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
1851 display one is using. For example, some intlfonts are available in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1852 72dpi versions, only.)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1853
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1854 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
1855 be determined. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1856
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1857 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1858 xlfd_point_size (f, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1859 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1860 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1861 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1862 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1863 double font_resy = atoi (font->fields[XLFD_RESY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1864 double font_pt = atoi (font->fields[XLFD_POINT_SIZE]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1865 int real_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1866
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1867 if (font_resy == 0 || font_pt == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1868 real_pt = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1869 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1870 real_pt = (font_resy / resy) * font_pt + 0.5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1871
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1872 return real_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1873 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1874
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1875
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1876 /* Split XLFD font name FONT->name destructively into NUL-terminated,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1877 lower-case fields in FONT->fields. NUMERIC_P non-zero means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1878 compute numeric values for fields XLFD_POINT_SIZE, XLFD_SWIDTH,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1879 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
1880 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
1881 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
1882 XLFD_LAST fields separated by `-'. (The XLFD specification allows
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1883 forms of font names where certain field contents are enclosed in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1884 square brackets. We don't support that, for now. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1885
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1886 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1887 split_font_name (f, font, numeric_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1888 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1889 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1890 int numeric_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1891 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1892 int i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1893 int success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1894
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1895 if (*font->name == '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1896 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1897 char *p = xstrlwr (font->name) + 1;
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 while (i < XLFD_LAST)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1900 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1901 font->fields[i] = p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1902 ++i;
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 while (*p && *p != '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1905 ++p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1906
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1907 if (*p != '-')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1908 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1909
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1910 *p++ = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1911 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1912 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1913
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1914 success_p = i == XLFD_LAST;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1915
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1916 /* If requested, and font name was in the expected format,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1917 compute numeric values for some fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1918 if (numeric_p && success_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1919 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1920 font->numeric[XLFD_POINT_SIZE] = xlfd_point_size (f, font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1921 font->numeric[XLFD_RESY] = atoi (font->fields[XLFD_RESY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1922 font->numeric[XLFD_SLANT] = xlfd_numeric_slant (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1923 font->numeric[XLFD_WEIGHT] = xlfd_numeric_weight (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1924 font->numeric[XLFD_SWIDTH] = xlfd_numeric_swidth (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1925 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1926
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1927 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1928 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1929
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 /* 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
1932 pointer to the font name, which is allocated via xmalloc. */
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 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1935 build_font_name (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1936 struct font_name *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 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1939 int size = 100;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1940 char *font_name = (char *) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1941 int total_length = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1942
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1943 for (i = 0; i < XLFD_LAST; ++i)
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 /* Add 1 because of the leading `-'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1946 int len = strlen (font->fields[i]) + 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1947
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1948 /* Reallocate font_name if necessary. Add 1 for the final
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1949 NUL-byte. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1950 if (total_length + len + 1 >= size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1951 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1952 int new_size = max (2 * size, size + len + 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1953 int sz = new_size * sizeof *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1954 font_name = (char *) xrealloc (font_name, sz);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1955 size = new_size;
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 font_name[total_length] = '-';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1959 bcopy (font->fields[i], font_name + total_length + 1, len - 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1960 total_length += len;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1961 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1962
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1963 font_name[total_length] = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1964 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1965 }
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 /* 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
1969 itself and all `name' fields in its elements. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1970
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1971 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1972 free_font_names (fonts, n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1973 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1974 int n;
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 while (n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1977 xfree (fonts[--n].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1978 xfree (fonts);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1982 /* Sort vector FONTS of font_name structures which contains NFONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1983 elements using qsort and comparison function CMPFN. F is the frame
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1984 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
1985 is temporarily set to F to make it available in CMPFN. */
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 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1988 sort_fonts (f, fonts, nfonts, cmpfn)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1989 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1990 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1991 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1992 int (*cmpfn) P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1993 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1994 font_frame = f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1995 qsort (fonts, nfonts, sizeof *fonts, cmpfn);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1996 font_frame = NULL;
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1997 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
1998
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
1999
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2000 /* 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
2001 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
2002 NFONTS font_name structures. TRY_ALTERNATIVES_P non-zero means try
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2003 alternative patterns from Valternate_fontname_alist if no fonts are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2004 found matching PATTERN. SCALABLE_FONTS_P non-zero means include
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2005 scalable fonts.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2006
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2007 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
2008 allocated via xmalloc, and split font names into fields. Ignore
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2009 fonts that we can't parse. Value is the number of fonts found.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2010
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2011 This is similar to x_list_fonts. The differences are:
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 1. It avoids consing.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2014 2. It never calls XLoadQueryFont. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2015
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2016 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2017 x_face_list_fonts (f, pattern, fonts, nfonts, try_alternatives_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2018 scalable_fonts_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2019 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2020 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2021 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2022 int nfonts, try_alternatives_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2023 int scalable_fonts_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2024 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2025 Display *dpy = f ? FRAME_X_DISPLAY (f) : x_display_list->display;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2026 int n, i, j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2027 char **names;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2028
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2029 /* Get the list of fonts matching PATTERN from the X server. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2030 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2031 names = XListFonts (dpy, pattern, nfonts, &n);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2032 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2033
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2034 if (names)
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 /* 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
2037 split them into fields. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2038 for (i = j = 0; i < n; ++i)
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 /* Make a copy of the font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2041 fonts[j].name = xstrdup (names[i]);
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 /* Ignore fonts having a name that we can't parse. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2044 if (!split_font_name (f, fonts + j, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2045 xfree (fonts[j].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2046 else if (font_scalable_p (fonts + j))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2047 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2048 #if SCALABLE_FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2049 if (!scalable_fonts_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2050 || !may_use_scalable_font_p (fonts + j, names[i]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2051 xfree (fonts[j].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2052 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2053 ++j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2054 #else /* !SCALABLE_FONTS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2055 /* Always ignore scalable fonts. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2056 xfree (fonts[j].name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2057 #endif /* !SCALABLE_FONTS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2058 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2059 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2060 ++j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2061 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2062
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2063 n = j;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2064
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2065 /* Free font names. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2066 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2067 XFreeFontNames (names);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2068 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2069 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2070
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2071
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2072 /* If no fonts found, try patterns from Valternate_fontname_alist. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2073 if (n == 0 && try_alternatives_p)
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 Lisp_Object list = Valternate_fontname_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2076
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2077 while (CONSP (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2078 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2079 Lisp_Object entry = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2080 if (CONSP (entry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2081 && STRINGP (XCAR (entry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2082 && strcmp (XSTRING (XCAR (entry))->data, pattern) == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2083 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2084 list = XCDR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2085 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2086
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2087 if (CONSP (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2088 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2089 Lisp_Object patterns = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2090 Lisp_Object name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2091
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2092 while (CONSP (patterns)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2093 /* If list is screwed up, give up. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2094 && (name = XCAR (patterns),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2095 STRINGP (name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2096 /* Ignore patterns equal to PATTERN because we tried that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2097 already with no success. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2098 && (strcmp (XSTRING (name)->data, pattern) == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2099 || (n = x_face_list_fonts (f, XSTRING (name)->data,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2100 fonts, nfonts, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2101 scalable_fonts_p),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2102 n == 0)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2103 patterns = XCDR (patterns);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2107 return n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2108 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2109
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2110
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2111 /* Determine the first font matching PATTERN on frame F. Return in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2112 *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
2113 if a match was found. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2114
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2115 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2116 first_font_matching (f, pattern, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2117 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2118 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2119 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2120 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2121 int nfonts = 100;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2122 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2123
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2124 fonts = (struct font_name *) xmalloc (nfonts * sizeof *fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2125 nfonts = x_face_list_fonts (f, pattern, fonts, nfonts, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2126
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2127 if (nfonts > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2128 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2129 bcopy (&fonts[0], font, sizeof *font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2130
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2131 fonts[0].name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2132 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2133 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2134
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2135 return nfonts > 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2136 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2139 /* Determine fonts matching PATTERN on frame F. Sort resulting fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2140 using comparison function CMPFN. Value is the number of fonts
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2141 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
2142 font_name structures allocated from the heap containing matching
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2143 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
2144 allocated from the heap. Font names in these structures are split
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2145 into fields. Use free_font_names to free such an array. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2146
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2147 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2148 sorted_font_list (f, pattern, cmpfn, fonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2149 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2150 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2151 int (*cmpfn) P_ ((const void *, const void *));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2152 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2153 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2154 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2155
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2156 /* 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
2157 nfonts = DEFAULT_FONT_LIST_LIMIT;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2158 if (INTEGERP (Vfont_list_limit) && XINT (Vfont_list_limit) > 0)
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2159 nfonts = XFASTINT (Vfont_list_limit);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2160
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2161 *fonts = (struct font_name *) xmalloc (nfonts * sizeof **fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2162 #if SCALABLE_FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2163 nfonts = x_face_list_fonts (f, pattern, *fonts, nfonts, 1, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2164 #else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2165 nfonts = x_face_list_fonts (f, pattern, *fonts, nfonts, 1, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2166 #endif
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 /* Sort the resulting array and return it in *FONTS. If no
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2169 fonts were found, make sure to set *FONTS to null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2170 if (nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2171 sort_fonts (f, *fonts, nfonts, cmpfn);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2172 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2173 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2174 xfree (*fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2175 *fonts = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2176 }
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 return nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2179 }
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 /* 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
2183 strcmp. Sort order is given by the global variable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2184 font_sort_order. Font names are sorted so that, everything else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2185 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
2186 which they are used are listed first. The global variable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2187 font_frame is the frame on which we operate. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2188
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2189 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2190 cmp_font_names (a, b)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2191 const void *a, *b;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2192 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2193 struct font_name *x = (struct font_name *) a;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2194 struct font_name *y = (struct font_name *) b;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2195 int cmp;
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 /* 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
2198 so we can use strcmp here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2199 cmp = strcmp (x->fields[XLFD_FAMILY], y->fields[XLFD_FAMILY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2200 if (cmp == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2201 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2202 int i;
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 for (i = 0; i < DIM (font_sort_order) && cmp == 0; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2205 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2206 int j = font_sort_order[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2207 cmp = x->numeric[j] - y->numeric[j];
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 if (cmp == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2211 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2212 /* Everything else being equal, we prefer fonts with an
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2213 y-resolution closer to that of the frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2214 int resy = FRAME_X_DISPLAY_INFO (font_frame)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2215 int x_resy = x->numeric[XLFD_RESY];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2216 int y_resy = y->numeric[XLFD_RESY];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2217 cmp = abs (resy - x_resy) - abs (resy - y_resy);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2221 return cmp;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2224
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2225 /* Get a sorted list of fonts of family FAMILY on frame F. If PATTERN
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2226 is non-null list fonts matching that pattern. Otherwise, if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2227 REGISTRY_AND_ENCODING is non-null return only fonts with that
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2228 registry and encoding, otherwise return fonts of any registry and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2229 encoding. Set *FONTS to a vector of font_name structures allocated
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2230 from the heap containing the fonts found. Value is the number of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2231 fonts found. */
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 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2234 font_list (f, pattern, family, registry_and_encoding, fonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2235 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2236 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2237 char *family;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2238 char *registry_and_encoding;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2239 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2240 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2241 if (pattern == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2242 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2243 if (family == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2244 family = "*";
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 if (registry_and_encoding == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2247 registry_and_encoding = "*";
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2248
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2249 pattern = (char *) alloca (strlen (family)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2250 + strlen (registry_and_encoding)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2251 + 10);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2252 if (index (family, '-'))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2253 sprintf (pattern, "-%s-*-%s", family, registry_and_encoding);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2254 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2255 sprintf (pattern, "-*-%s-*-%s", family, registry_and_encoding);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2256 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2257
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2258 return sorted_font_list (f, pattern, cmp_font_names, fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2259 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2260
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2261
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2262 /* 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
2263 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
2264 entries. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2265
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2266 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2267 remove_duplicates (list)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2268 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2269 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2270 Lisp_Object tail = list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2271
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2272 while (!NILP (tail) && !NILP (XCDR (tail)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2273 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2274 Lisp_Object next = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2275 if (!NILP (Fequal (XCAR (next), XCAR (tail))))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2276 XCDR (tail) = XCDR (next);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2277 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2278 tail = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2279 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2280 }
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
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
2283 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
2284 "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
2285 If FAMILY is omitted or nil, list all families.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2286 Otherwise, FAMILY must be a string, possibly containing wildcards\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2287 `?' and `*'.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2288 If FRAME is omitted or nil, use the selected frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2289 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
2290 SLANT FIXED-P FULL REGISTRY-AND-ENCODING].\n\
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2291 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
2292 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
2293 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
2294 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
2295 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
2296 giving the registry and encoding of the font.\n\
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2297 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
2298 the face font sort order.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2299 (family, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2300 Lisp_Object family, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2301 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2302 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2303 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2304 int i, nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2305 Lisp_Object result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2306 struct gcpro gcpro1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2307 char *family_pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2308
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2309 if (NILP (family))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2310 family_pattern = "*";
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2311 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2312 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2313 CHECK_STRING (family, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2314 family_pattern = LSTRDUPA (family);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2315 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2316
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2317 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2318 GCPRO1 (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2319 nfonts = font_list (f, NULL, family_pattern, NULL, &fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2320 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2321 {
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2322 Lisp_Object v = Fmake_vector (make_number (8), Qnil);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2323 char *tem;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2324
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2325 #define ASET(VECTOR, IDX, VAL) (XVECTOR (VECTOR)->contents[IDX] = (VAL))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2326
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2327 ASET (v, 0, build_string (fonts[i].fields[XLFD_FAMILY]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2328 ASET (v, 1, xlfd_symbolic_swidth (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2329 ASET (v, 2, make_number (xlfd_point_size (f, fonts + i)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2330 ASET (v, 3, xlfd_symbolic_weight (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2331 ASET (v, 4, xlfd_symbolic_slant (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2332 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
2333 tem = build_font_name (fonts + i);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2334 ASET (v, 6, build_string (tem));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2335 sprintf (tem, "%s-%s", fonts[i].fields[XLFD_REGISTRY],
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2336 fonts[i].fields[XLFD_ENCODING]);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2337 ASET (v, 7, build_string (tem));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2338 xfree (tem);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2339
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2340 result = Fcons (v, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2341
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2342 #undef ASET
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2345 remove_duplicates (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2346 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2347 UNGCPRO;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2348 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2349 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2350
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2351
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2352 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
2353 0, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2354 "Return a list of available font families on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2355 If FRAME is omitted or nil, use the selected frame.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2356 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
2357 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
2358 are fixed-pitch.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2359 (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2360 Lisp_Object frame;
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 struct frame *f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2363 int nfonts, i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2364 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2365 Lisp_Object result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2366 struct gcpro gcpro1;
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2367 int count = specpdl_ptr - specpdl;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2368 int limit;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2369
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2370 /* Let's consider all fonts. Increase the limit for matching
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2371 fonts until we have them all. */
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2372 for (limit = 500;;)
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2373 {
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2374 specbind (intern ("font-list-limit"), make_number (limit));
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2375 nfonts = font_list (f, NULL, "*", NULL, &fonts);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2376
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2377 if (nfonts == limit)
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2378 {
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2379 free_font_names (fonts, nfonts);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2380 limit *= 2;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2381 }
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2382 else
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2383 break;
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2384 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2385
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2386 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2387 GCPRO1 (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2388 for (i = nfonts - 1; i >= 0; --i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2389 result = Fcons (Fcons (build_string (fonts[i].fields[XLFD_FAMILY]),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2390 xlfd_fixed_p (fonts + i) ? Qt : Qnil),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2391 result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2392
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2393 remove_duplicates (result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2394 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2395 UNGCPRO;
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
2396 return unbind_to (count, result);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2399
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2400 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
2401 "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
2402 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
2403 the same size as FACE on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2404 PATTERN is a string, perhaps with wildcard characters;\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2405 the * character matches any substring, and\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2406 the ? character matches any single character.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2407 PATTERN is case-insensitive.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2408 FACE is a face name--a symbol.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2409 \n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2410 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
2411 set-face-font.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2412 \n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2413 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
2414 even if they match PATTERN and FACE.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2415 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
2416 fonts to match. The first MAXIMUM fonts are reported.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2417 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
2418 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
2419 the WIDTH times as wide as FACE on FRAME.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2420 (pattern, face, frame, maximum, width)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2421 Lisp_Object pattern, face, frame, maximum, width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2422 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2423 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2424 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2425 int maxnames;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2426
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2427 check_x ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2428 CHECK_STRING (pattern, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2429
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2430 if (NILP (maximum))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2431 maxnames = 2000;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2432 else
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 CHECK_NATNUM (maximum, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2435 maxnames = XINT (maximum);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2436 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2437
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2438 if (!NILP (width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2439 CHECK_NUMBER (width, 4);
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 /* 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
2442 called before any frame is created. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2443 f = frame_or_selected_frame (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2444 if (!FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2445 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2446 /* Perhaps we have not yet created any frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2447 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2448 face = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2449 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2450
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2451 /* Determine the width standard for comparison with the fonts we find. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2452
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2453 if (NILP (face))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2454 size = 0;
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 /* This is of limited utility since it works with character
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2458 widths. Keep it for compatibility. --gerd. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2459 int face_id = lookup_named_face (f, face, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2460 struct face *face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2461
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2462 if (face->font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2463 size = face->font->max_bounds.width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2464 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2465 size = FRAME_FONT (f)->max_bounds.width;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2466
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2467 if (!NILP (width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2468 size *= XINT (width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2469 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2470
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 Lisp_Object args[2];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2473
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2474 args[0] = x_list_fonts (f, pattern, size, maxnames);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2475 if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2476 /* We don't have to check fontsets. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2477 return args[0];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2478 args[1] = list_fontsets (f, pattern, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2479 return Fnconc (2, args);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2480 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2481 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2482
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2483 #endif /* HAVE_X_WINDOWS */
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2486
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2487 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2488 Lisp Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2489 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2490
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2491 /* Access face attributes of face FACE, a Lisp vector. */
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 #define LFACE_FAMILY(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2494 XVECTOR (LFACE)->contents[LFACE_FAMILY_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2495 #define LFACE_HEIGHT(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2496 XVECTOR (LFACE)->contents[LFACE_HEIGHT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2497 #define LFACE_WEIGHT(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2498 XVECTOR (LFACE)->contents[LFACE_WEIGHT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2499 #define LFACE_SLANT(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2500 XVECTOR (LFACE)->contents[LFACE_SLANT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2501 #define LFACE_UNDERLINE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2502 XVECTOR (LFACE)->contents[LFACE_UNDERLINE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2503 #define LFACE_INVERSE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2504 XVECTOR (LFACE)->contents[LFACE_INVERSE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2505 #define LFACE_FOREGROUND(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2506 XVECTOR (LFACE)->contents[LFACE_FOREGROUND_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2507 #define LFACE_BACKGROUND(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2508 XVECTOR (LFACE)->contents[LFACE_BACKGROUND_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2509 #define LFACE_STIPPLE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2510 XVECTOR (LFACE)->contents[LFACE_STIPPLE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2511 #define LFACE_SWIDTH(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2512 XVECTOR (LFACE)->contents[LFACE_SWIDTH_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2513 #define LFACE_OVERLINE(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2514 XVECTOR (LFACE)->contents[LFACE_OVERLINE_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2515 #define LFACE_STRIKE_THROUGH(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2516 XVECTOR (LFACE)->contents[LFACE_STRIKE_THROUGH_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2517 #define LFACE_BOX(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2518 XVECTOR (LFACE)->contents[LFACE_BOX_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2519
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2520 /* 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
2521 LFACE_VECTOR_SIZE which has the symbol `face' in slot 0. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2522
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2523 #define LFACEP(LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2524 (VECTORP (LFACE) \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2525 && XVECTOR (LFACE)->size == LFACE_VECTOR_SIZE \
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2526 && EQ (XVECTOR (LFACE)->contents[0], Qface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2527
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2528
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2529 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2530
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2531 /* Check consistency of Lisp face attribute vector ATTRS. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2532
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2533 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2534 check_lface_attrs (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2535 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2536 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2537 xassert (UNSPECIFIEDP (attrs[LFACE_FAMILY_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2538 || STRINGP (attrs[LFACE_FAMILY_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2539 xassert (UNSPECIFIEDP (attrs[LFACE_SWIDTH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2540 || SYMBOLP (attrs[LFACE_SWIDTH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2541 xassert (UNSPECIFIEDP (attrs[LFACE_HEIGHT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2542 || INTEGERP (attrs[LFACE_HEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2543 xassert (UNSPECIFIEDP (attrs[LFACE_WEIGHT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2544 || SYMBOLP (attrs[LFACE_WEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2545 xassert (UNSPECIFIEDP (attrs[LFACE_SLANT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2546 || SYMBOLP (attrs[LFACE_SLANT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2547 xassert (UNSPECIFIEDP (attrs[LFACE_UNDERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2548 || SYMBOLP (attrs[LFACE_UNDERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2549 || STRINGP (attrs[LFACE_UNDERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2550 xassert (UNSPECIFIEDP (attrs[LFACE_OVERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2551 || SYMBOLP (attrs[LFACE_OVERLINE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2552 || STRINGP (attrs[LFACE_OVERLINE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2553 xassert (UNSPECIFIEDP (attrs[LFACE_STRIKE_THROUGH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2554 || SYMBOLP (attrs[LFACE_STRIKE_THROUGH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2555 || STRINGP (attrs[LFACE_STRIKE_THROUGH_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2556 xassert (UNSPECIFIEDP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2557 || SYMBOLP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2558 || STRINGP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2559 || INTEGERP (attrs[LFACE_BOX_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2560 || CONSP (attrs[LFACE_BOX_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2561 xassert (UNSPECIFIEDP (attrs[LFACE_INVERSE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2562 || SYMBOLP (attrs[LFACE_INVERSE_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2563 xassert (UNSPECIFIEDP (attrs[LFACE_FOREGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2564 || STRINGP (attrs[LFACE_FOREGROUND_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2565 xassert (UNSPECIFIEDP (attrs[LFACE_BACKGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2566 || STRINGP (attrs[LFACE_BACKGROUND_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2567 #ifdef HAVE_WINDOW_SYSTEM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2568 xassert (UNSPECIFIEDP (attrs[LFACE_STIPPLE_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2569 || SYMBOLP (attrs[LFACE_STIPPLE_INDEX])
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
2570 || !NILP (Fbitmap_spec_p (attrs[LFACE_STIPPLE_INDEX])));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2571 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2572 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2573
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2574
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2575 /* Check consistency of attributes of Lisp face LFACE (a Lisp vector). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2576
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2577 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2578 check_lface (lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2579 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2580 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2581 if (!NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2582 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2583 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2584 check_lface_attrs (XVECTOR (lface)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2585 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2586 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2587
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2588 #else /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2589
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2590 #define check_lface_attrs(attrs) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2591 #define check_lface(lface) (void) 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2592
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2593 #endif /* GLYPH_DEBUG == 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2594
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2595
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2596 /* Resolve face name FACE_NAME. If FACE_NAME Is a string, intern it
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2597 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
2598 return that face's name. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2599
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2600 static Lisp_Object
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2601 resolve_face_name (face_name)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2602 Lisp_Object face_name;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2603 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2604 Lisp_Object aliased;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2605
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2606 if (STRINGP (face_name))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2607 face_name = intern (XSTRING (face_name)->data);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2608
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2609 for (;;)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2610 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2611 aliased = Fget (face_name, Qface_alias);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2612 if (NILP (aliased))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2613 break;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2614 else
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2615 face_name = aliased;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2616 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2617
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2618 return face_name;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2619 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2620
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2621
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2622 /* 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
2623 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
2624 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
2625 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
2626 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
2627 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
2628 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
2629 name. */
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2630
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2631 static INLINE Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2632 lface_from_face_name (f, face_name, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2633 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2634 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2635 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2636 {
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2637 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2638
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
2639 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
2640
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2641 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2642 lface = assq_no_quit (face_name, f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2643 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2644 lface = assq_no_quit (face_name, Vface_new_frame_defaults);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2645
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2646 if (CONSP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2647 lface = XCDR (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2648 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2649 signal_error ("Invalid face", face_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2650
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2651 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2652 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2653 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2654
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2655
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2656 /* 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
2657 frame F. Store the resulting attributes in ATTRS which must point
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2658 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
2659 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
2660 Otherwise, value is zero if FACE_NAME is not a face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2661
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2662 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2663 get_lface_attributes (f, face_name, attrs, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2664 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2665 Lisp_Object face_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2666 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2667 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2668 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2669 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2670 int success_p;
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 lface = lface_from_face_name (f, face_name, signal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2673 if (!NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2674 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2675 bcopy (XVECTOR (lface)->contents, attrs,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2676 LFACE_VECTOR_SIZE * sizeof *attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2677 success_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2678 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2679 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2680 success_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2681
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2682 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2683 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2684
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2685
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2686 /* Non-zero if all attributes in face attribute vector ATTRS are
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2687 specified, i.e. are non-nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2688
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2689 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2690 lface_fully_specified_p (attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2691 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2692 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2693 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2694
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2695 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2696 if (UNSPECIFIEDP (attrs[i]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2697 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2698
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2699 return i == LFACE_VECTOR_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2700 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2701
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2702
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2703 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2704
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2705 /* Set font-related attributes of Lisp face LFACE from XLFD font name
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2706 FONT_NAME. If FORCE_P is zero, set only unspecified attributes of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2707 LFACE. Ignore fields of FONT_NAME containing wildcards. Value is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2708 zero if not successful because FONT_NAME was not in a valid format.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2709 A valid format is one that is suitable for split_font_name, see the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2710 comment there. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2711
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2712 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2713 set_lface_from_font_name (f, lface, font_name, force_p)
6784
d41c216ccd27 (frame_update_line_height): Check param_faces[i] not null.
Richard M. Stallman <rms@gnu.org>
parents: 6768
diff changeset
2714 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2715 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2716 char *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2717 int force_p;
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 struct font_name font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2720 char *buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2721 int pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2722 int free_font_name_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2723
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2724 /* If FONT_NAME contains wildcards, use the first matching font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2725 if (index (font_name, '*') || index (font_name, '?'))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2726 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2727 if (!first_font_matching (f, font_name, &font))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2728 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2729 free_font_name_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2730 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2731 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2732 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2733 font.name = STRDUPA (font_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2734 if (!split_font_name (f, &font, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2735 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2736 /* The font name may be something like `6x13'. Make
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2737 sure we use the full name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2738 struct font_info *font_info;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2739
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2740 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2741 font_info = fs_load_font (f, FRAME_X_FONT_TABLE (f),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2742 CHARSET_ASCII, font_name, -1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2743 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2744
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2745 if (!font_info)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2746 return 0;
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 font.name = STRDUPA (font_info->full_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2749 split_font_name (f, &font, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2750 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2751
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2752 /* FONT_NAME should not be a fontset name, here. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2753 xassert (xstricmp (font.fields[XLFD_REGISTRY], "fontset") != 0);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2756 /* Set attributes only if unspecified, otherwise face defaults for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2757 new frames would never take effect. */
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 (force_p || UNSPECIFIEDP (LFACE_FAMILY (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2760 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2761 buffer = (char *) alloca (strlen (font.fields[XLFD_FAMILY])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2762 + strlen (font.fields[XLFD_FOUNDRY])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2763 + 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2764 sprintf (buffer, "%s-%s", font.fields[XLFD_FOUNDRY],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2765 font.fields[XLFD_FAMILY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2766 LFACE_FAMILY (lface) = build_string (buffer);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2767 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2768
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2769 if (force_p || UNSPECIFIEDP (LFACE_HEIGHT (lface)))
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 pt = xlfd_point_size (f, &font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2772 xassert (pt > 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2773 LFACE_HEIGHT (lface) = make_number (pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2774 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2775
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2776 if (force_p || UNSPECIFIEDP (LFACE_SWIDTH (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2777 LFACE_SWIDTH (lface) = xlfd_symbolic_swidth (&font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2778
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2779 if (force_p || UNSPECIFIEDP (LFACE_WEIGHT (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2780 LFACE_WEIGHT (lface) = xlfd_symbolic_weight (&font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2781
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2782 if (force_p || UNSPECIFIEDP (LFACE_SLANT (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2783 LFACE_SLANT (lface) = xlfd_symbolic_slant (&font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2784
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2785 if (free_font_name_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2786 xfree (font.name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2787
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2788 return 1;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2791 #endif /* HAVE_X_WINDOWS */
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 /* Merge two Lisp face attribute vectors FROM and TO and store the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2795 resulting attributes in TO. Every non-nil attribute of FROM
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2796 overrides the corresponding attribute of TO. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2797
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2798 static INLINE void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2799 merge_face_vectors (from, to)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2800 Lisp_Object *from, *to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2801 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2802 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2803 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2804 if (!UNSPECIFIEDP (from[i]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2805 to[i] = from[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2806 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2807
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2808
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2809 /* 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
2810 is a face property, determine the resulting face attributes on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2811 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
2812 specification or a list of such specifications. Each face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2813 specification can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2814
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2815 1. A symbol or string naming a Lisp face.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2816
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2817 2. A property list of the form (KEYWORD VALUE ...) where each
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2818 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
2819 for that attribute.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2820
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2821 3. Conses or the form (FOREGROUND-COLOR . COLOR) or
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2822 (BACKGROUND-COLOR . COLOR) where COLOR is a color name. This is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2823 for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2824
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2825 Face specifications earlier in lists take precedence over later
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2826 specifications. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2827
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2828 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2829 merge_face_vector_with_property (f, to, prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2830 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2831 Lisp_Object *to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2832 Lisp_Object prop;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2833 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2834 if (CONSP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2835 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2836 Lisp_Object first = XCAR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2837
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2838 if (EQ (first, Qforeground_color)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2839 || EQ (first, Qbackground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2840 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2841 /* One of (FOREGROUND-COLOR . COLOR) or (BACKGROUND-COLOR
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2842 . COLOR). COLOR must be a string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2843 Lisp_Object color_name = XCDR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2844 Lisp_Object color = first;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2845
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2846 if (STRINGP (color_name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2847 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2848 if (EQ (color, Qforeground_color))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2849 to[LFACE_FOREGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2850 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2851 to[LFACE_BACKGROUND_INDEX] = color_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2852 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2853 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2854 add_to_log ("Invalid face color", color_name, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2855 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2856 else if (SYMBOLP (first)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2857 && *XSYMBOL (first)->name->data == ':')
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2858 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2859 /* Assume this is the property list form. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2860 while (CONSP (prop) && CONSP (XCDR (prop)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2861 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2862 Lisp_Object keyword = XCAR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2863 Lisp_Object value = XCAR (XCDR (prop));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2864
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2865 if (EQ (keyword, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2866 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2867 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2868 to[LFACE_FAMILY_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2869 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2870 add_to_log ("Illegal face font family", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2871 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2872 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2873 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2874 if (INTEGERP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2875 to[LFACE_HEIGHT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2876 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2877 add_to_log ("Illegal face font height", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2878 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2879 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2880 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2881 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2882 && face_numeric_weight (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2883 to[LFACE_WEIGHT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2884 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2885 add_to_log ("Illegal face weight", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2886 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2887 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2888 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2889 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2890 && face_numeric_slant (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2891 to[LFACE_SLANT_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2892 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2893 add_to_log ("Illegal face slant", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2894 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2895 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2896 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2897 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2898 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2899 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2900 to[LFACE_UNDERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2901 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2902 add_to_log ("Illegal face underline", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2903 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2904 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2905 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2906 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2907 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2908 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2909 to[LFACE_OVERLINE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2910 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2911 add_to_log ("Illegal face overline", value, Qnil);
24995
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 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2914 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2915 if (EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2916 || NILP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2917 || STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2918 to[LFACE_STRIKE_THROUGH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2919 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2920 add_to_log ("Illegal face strike-through", value, Qnil);
24995
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 else if (EQ (keyword, QCbox))
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 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2925 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2926 if (INTEGERP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2927 || STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2928 || CONSP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2929 || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2930 to[LFACE_BOX_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2931 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2932 add_to_log ("Illegal face box", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2933 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2934 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2935 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2936 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2937 if (EQ (value, Qt) || NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2938 to[LFACE_INVERSE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2939 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2940 add_to_log ("Illegal face inverse-video", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2941 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2942 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2943 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2944 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2945 to[LFACE_FOREGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2946 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2947 add_to_log ("Illegal face foreground", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2948 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2949 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2950 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2951 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2952 to[LFACE_BACKGROUND_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2953 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2954 add_to_log ("Illegal face background", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2955 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2956 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2957 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2958 #ifdef HAVE_X_WINDOWS
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
2959 Lisp_Object pixmap_p = Fbitmap_spec_p (value);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2960 if (!NILP (pixmap_p))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2961 to[LFACE_STIPPLE_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2962 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2963 add_to_log ("Illegal face stipple", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2964 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2965 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2966 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2967 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2968 if (SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2969 && face_numeric_swidth (value) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2970 to[LFACE_SWIDTH_INDEX] = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2971 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2972 add_to_log ("Illegal face width", value, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2973 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2974 else
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2975 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
2976 keyword, Qnil);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2977
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2978 prop = XCDR (XCDR (prop));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2979 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2980 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2981 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2982 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2983 /* This is a list of face specs. Specifications at the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2984 beginning of the list take precedence over later
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2985 specifications, so we have to merge starting with the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2986 last specification. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2987 Lisp_Object next = XCDR (prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2988 if (!NILP (next))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2989 merge_face_vector_with_property (f, to, next);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2990 merge_face_vector_with_property (f, to, first);
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2993 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2994 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2995 /* PROP ought to be a face name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2996 Lisp_Object lface = lface_from_face_name (f, prop, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
2997 if (NILP (lface))
25799
1c370ec939da (load_pixmap): Call add_to_log without frame parameter.
Gerd Moellmann <gerd@gnu.org>
parents: 25678
diff changeset
2998 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
2999 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3000 merge_face_vectors (XVECTOR (lface)->contents, to);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3001 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3002 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3003
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 DEFUN ("internal-make-lisp-face", Finternal_make_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3006 Sinternal_make_lisp_face, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3007 "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
3008 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
3009 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
3010 for that frame. Otherwise operate on the global face definition.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3011 Value is a vector of face attributes.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3012 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3013 Lisp_Object face, frame;
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 Lisp_Object global_lface, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3016 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3017 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3018
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3019 CHECK_SYMBOL (face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3020 global_lface = lface_from_face_name (NULL, face, 0);
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 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3023 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3024 CHECK_LIVE_FRAME (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3025 f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3026 lface = lface_from_face_name (f, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3027 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3028 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3029 f = NULL, lface = Qnil;
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 /* Add a global definition if there is none. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3032 if (NILP (global_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3033 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3034 global_lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3035 Qunspecified);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3036 XVECTOR (global_lface)->contents[0] = Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3037 Vface_new_frame_defaults = Fcons (Fcons (face, global_lface),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3038 Vface_new_frame_defaults);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3039
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3040 /* 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
3041 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
3042 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
3043 property `face' of the Lisp face name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3044 if (next_lface_id == lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3045 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3046 int new_size = max (50, 2 * lface_id_to_name_size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3047 int sz = new_size * sizeof *lface_id_to_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3048 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
3049 lface_id_to_name_size = new_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3050 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3051
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3052 lface_id_to_name[next_lface_id] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3053 Fput (face, Qface, make_number (next_lface_id));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3054 ++next_lface_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3055 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3056 else if (f == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3057 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3058 XVECTOR (global_lface)->contents[i] = Qunspecified;
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 /* Add a frame-local definition. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3061 if (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3062 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3063 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3064 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3065 lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3066 Qunspecified);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3067 XVECTOR (lface)->contents[0] = Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3068 f->face_alist = Fcons (Fcons (face, lface), f->face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3069 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3070 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3071 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3072 XVECTOR (lface)->contents[i] = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3073 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3074 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3075 lface = global_lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3076
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3077 xassert (LFACEP (lface));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3078 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3079 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3080 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3081
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3082
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3083 DEFUN ("internal-lisp-face-p", Finternal_lisp_face_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3084 Sinternal_lisp_face_p, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3085 "Return non-nil if FACE names a face.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3086 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
3087 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
3088 Otherwise check for the existence of a global face.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3089 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3090 Lisp_Object face, frame;
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 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3093
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3094 if (!NILP (frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3095 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3096 CHECK_LIVE_FRAME (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3097 lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3098 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3099 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3100 lface = lface_from_face_name (NULL, face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3101
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3102 return lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3103 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3104
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3105
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3106 DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3107 Sinternal_copy_lisp_face, 4, 4, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3108 "Copy face FROM to TO.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3109 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
3110 global face definition of TO. Otherwise, copy the frame-local\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3111 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
3112 on NEW-FRAME, or FRAME if NEW-FRAME is nil.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3113 \n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3114 Value is TO.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3115 (from, to, frame, new_frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3116 Lisp_Object from, to, frame, new_frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3117 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3118 Lisp_Object lface, copy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3119
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3120 CHECK_SYMBOL (from, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3121 CHECK_SYMBOL (to, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3122 if (NILP (new_frame))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3123 new_frame = frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3124
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3125 if (EQ (frame, Qt))
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 /* Copy global definition of FROM. We don't make copies of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3128 strings etc. because 20.2 didn't do it either. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3129 lface = lface_from_face_name (NULL, from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3130 copy = Finternal_make_lisp_face (to, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3131 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3132 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3133 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3134 /* Copy frame-local definition of FROM. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3135 CHECK_LIVE_FRAME (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3136 CHECK_LIVE_FRAME (new_frame, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3137 lface = lface_from_face_name (XFRAME (frame), from, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3138 copy = Finternal_make_lisp_face (to, new_frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3139 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3140
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3141 bcopy (XVECTOR (lface)->contents, XVECTOR (copy)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3142 LFACE_VECTOR_SIZE * sizeof (Lisp_Object));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3143
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3144 return to;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3145 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3146
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3147
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3148 DEFUN ("internal-set-lisp-face-attribute", Finternal_set_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3149 Sinternal_set_lisp_face_attribute, 3, 4, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3150 "Set attribute ATTR of FACE to VALUE.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3151 If optional argument FRAME is given, set the face attribute of face FACE\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3152 on that frame. If FRAME is t, set the attribute of the default for face\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3153 FACE (for new frames). If FRAME is omitted or nil, use the selected\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3154 frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3155 (face, attr, value, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3156 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
3157 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3158 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3159 Lisp_Object old_value = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3160 int font_related_attr_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3161
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3162 CHECK_SYMBOL (face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3163 CHECK_SYMBOL (attr, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3164
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3165 face = resolve_face_name (face);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3166
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3167 /* Set lface to the Lisp attribute vector of FACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3168 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3169 lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3170 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3171 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3172 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3173 frame = selected_frame;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3174
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3175 CHECK_LIVE_FRAME (frame, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3176 lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3177
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3178 /* If a frame-local face doesn't exist yet, create one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3179 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3180 lface = Finternal_make_lisp_face (face, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3181 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3182
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3183 if (EQ (attr, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3184 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3185 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3186 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3187 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3188 if (XSTRING (value)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3189 signal_error ("Invalid face family", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3190 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3191 old_value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3192 LFACE_FAMILY (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3193 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3194 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3195 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3196 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3197 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3198 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3199 CHECK_NUMBER (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3200 if (XINT (value) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3201 signal_error ("Invalid face height", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3202 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3203 old_value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3204 LFACE_HEIGHT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3205 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3206 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3207 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3208 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3209 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3210 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3211 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3212 if (face_numeric_weight (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3213 signal_error ("Invalid face weight", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3214 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3215 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3216 LFACE_WEIGHT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3217 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3218 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3219 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3220 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3221 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3222 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3223 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3224 if (face_numeric_slant (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3225 signal_error ("Invalid face slant", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3226 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3227 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3228 LFACE_SLANT (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3229 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3230 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3231 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3232 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3233 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3234 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3235 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3236 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3237 /* Underline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3238 || (STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3239 && XSTRING (value)->size == 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3240 signal_error ("Invalid face underline", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3241
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3242 old_value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3243 LFACE_UNDERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3244 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3245 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3246 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3247 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3248 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3249 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3250 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3251 /* Overline color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3252 || (STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3253 && XSTRING (value)->size == 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3254 signal_error ("Invalid face overline", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3255
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3256 old_value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3257 LFACE_OVERLINE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3258 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3259 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3260 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3261 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3262 if ((SYMBOLP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3263 && !EQ (value, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3264 && !EQ (value, Qnil))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3265 /* Strike-through color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3266 || (STRINGP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3267 && XSTRING (value)->size == 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3268 signal_error ("Invalid face strike-through", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3269
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3270 old_value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3271 LFACE_STRIKE_THROUGH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3272 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3273 else if (EQ (attr, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3274 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3275 int valid_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3276
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3277 /* 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
3278 of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3279 if (EQ (value, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3280 value = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3281
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3282 if (UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3283 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3284 else if (NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3285 valid_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3286 else if (INTEGERP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3287 valid_p = XINT (value) > 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3288 else if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3289 valid_p = XSTRING (value)->size > 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3290 else if (CONSP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3291 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3292 Lisp_Object tem;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3293
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3294 tem = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3295 while (CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3296 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3297 Lisp_Object k, v;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3298
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3299 k = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3300 tem = XCDR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3301 if (!CONSP (tem))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3302 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3303 v = XCAR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3304 tem = XCDR (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3305
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3306 if (EQ (k, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3307 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3308 if (!INTEGERP (v) || XINT (v) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3309 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3310 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3311 else if (EQ (k, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3312 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3313 if (!STRINGP (v) || XSTRING (v)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3314 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3315 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3316 else if (EQ (k, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3317 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3318 if (!EQ (v, Qpressed_button) && !EQ (v, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3319 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3320 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3321 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3322 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3323 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3324
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3325 valid_p = NILP (tem);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3326 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3327 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3328 valid_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3329
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3330 if (!valid_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3331 signal_error ("Invalid face box", value);
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 old_value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3334 LFACE_BOX (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3335 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3336 else if (EQ (attr, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3337 || EQ (attr, QCreverse_video))
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 if (!UNSPECIFIEDP (value))
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 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3342 if (!EQ (value, Qt) && !NILP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3343 signal_error ("Invalid inverse-video face attribute value", value);
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 old_value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3346 LFACE_INVERSE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3347 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3348 else if (EQ (attr, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3349 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3350 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3351 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3352 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3353 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3354 when the face is realized. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3355 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3356 if (XSTRING (value)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3357 signal_error ("Empty foreground color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3358 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3359 old_value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3360 LFACE_FOREGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3361 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3362 else if (EQ (attr, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3363 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3364 if (!UNSPECIFIEDP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3365 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3366 /* Don't check for valid color names here because it depends
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3367 on the frame (display) whether the color will be valid
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3368 when the face is realized. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3369 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3370 if (XSTRING (value)->size == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3371 signal_error ("Empty background color value", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3372 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3373 old_value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3374 LFACE_BACKGROUND (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3375 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3376 else if (EQ (attr, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3377 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3378 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3379 if (!UNSPECIFIEDP (value)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3380 && !NILP (value)
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
3381 && NILP (Fbitmap_spec_p (value)))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3382 signal_error ("Invalid stipple attribute", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3383 old_value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3384 LFACE_STIPPLE (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3385 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3386 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3387 else if (EQ (attr, QCwidth))
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 (!UNSPECIFIEDP (value))
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 CHECK_SYMBOL (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3392 if (face_numeric_swidth (value) < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3393 signal_error ("Invalid face width", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3394 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3395 old_value = LFACE_SWIDTH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3396 LFACE_SWIDTH (lface) = value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3397 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3398 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3399 else if (EQ (attr, QCfont))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3400 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3401 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3402 /* Set font-related attributes of the Lisp face from an
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3403 XLFD font name. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3404 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3405
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3406 CHECK_STRING (value, 3);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3407 if (EQ (frame, Qt))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3408 f = SELECTED_FRAME ();
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3409 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3410 f = check_x_frame (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3411
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3412 if (!set_lface_from_font_name (f, lface, XSTRING (value)->data, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3413 signal_error ("Invalid font name", value);
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 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3416 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3417 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3418 else if (EQ (attr, QCbold))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3419 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3420 old_value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3421 LFACE_WEIGHT (lface) = NILP (value) ? Qnormal : Qbold;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3422 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3423 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3424 else if (EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3425 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3426 old_value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3427 LFACE_SLANT (lface) = NILP (value) ? Qnormal : Qitalic;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3428 font_related_attr_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3429 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3430 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3431 signal_error ("Invalid face attribute name", attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3432
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3433 /* Changing a named face means that all realized faces depending on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3434 that face are invalid. Since we cannot tell which realized faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3435 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
3436 by incrementing face_change_count. The next call to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3437 init_iterator will then free realized faces. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3438 if (!EQ (frame, Qt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3439 && (EQ (attr, QCfont)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3440 || NILP (Fequal (old_value, value))))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3441 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3442 ++face_change_count;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3443 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3444 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3445
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3446 #ifdef HAVE_X_WINDOWS
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3447
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3448 if (!EQ (frame, Qt)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3449 && !UNSPECIFIEDP (value)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3450 && NILP (Fequal (old_value, value)))
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3451 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3452 Lisp_Object param;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3453
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3454 param = Qnil;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3455
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3456 if (EQ (face, Qdefault))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3457 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3458 /* 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
3459 reflected in changed `font' frame parameters. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3460 if (font_related_attr_p
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3461 && lface_fully_specified_p (XVECTOR (lface)->contents))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3462 set_font_frame_param (frame, lface);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3463 else if (EQ (attr, QCforeground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3464 param = Qforeground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3465 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3466 param = Qbackground_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3467 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3468 else if (EQ (face, Qscroll_bar))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3469 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3470 /* 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
3471 `scroll-bar-foreground' and `scroll-bar-background'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3472 if (EQ (attr, QCforeground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3473 param = Qscroll_bar_foreground;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3474 else if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3475 param = Qscroll_bar_background;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3476 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3477 else if (EQ (face, Qborder))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3478 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3479 /* Changing background color of `border' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3480 `border-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3481 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3482 param = Qborder_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3483 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3484 else if (EQ (face, Qcursor))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3485 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3486 /* Changing background color of `cursor' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3487 `cursor-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3488 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3489 param = Qcursor_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3490 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3491 else if (EQ (face, Qmouse))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3492 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3493 /* Changing background color of `mouse' sets frame parameter
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3494 `mouse-color'. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3495 if (EQ (attr, QCbackground))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3496 param = Qmouse_color;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3497 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3498
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3499 if (SYMBOLP (param))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3500 Fmodify_frame_parameters (frame, Fcons (Fcons (param, value), Qnil));
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3501 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3502
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3503 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3504
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3505 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3506 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3507
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3508
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3509 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3510
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3511 /* Set the `font' frame parameter of FRAME according to `default' face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3512 attributes LFACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3513
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3514 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3515 set_font_frame_param (frame, lface)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3516 Lisp_Object frame, lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3517 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3518 struct frame *f = XFRAME (frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3519 Lisp_Object frame_font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3520 int fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3521 char *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3522
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3523 /* Get FRAME's font parameter. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3524 frame_font = Fassq (Qfont, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3525 xassert (CONSP (frame_font) && STRINGP (XCDR (frame_font)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3526 frame_font = XCDR (frame_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3527
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3528 fontset = fs_query_fontset (f, XSTRING (frame_font)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3529 if (fontset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3530 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3531 /* Frame parameter is a fontset name. Modify the fontset so
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3532 that all its fonts reflect face attributes LFACE. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3533 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3534 struct fontset_info *fontset_info;
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 fontset_info = FRAME_FONTSET_DATA (f)->fontset_table[fontset];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3537
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3538 for (charset = 0; charset < MAX_CHARSET; ++charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3539 if (fontset_info->fontname[charset])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3540 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3541 font = choose_face_fontset_font (f, XVECTOR (lface)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3542 fontset, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3543 Fset_fontset_font (frame_font, CHARSET_SYMBOL (charset),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3544 build_string (font), frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3545 xfree (font);
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 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3549 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3550 /* Frame parameter is an X font name. I believe this can
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3551 only happen in unibyte mode. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3552 font = choose_face_font (f, XVECTOR (lface)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3553 -1, Vface_default_registry);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3554 if (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3555 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3556 store_frame_param (f, Qfont, build_string (font));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3557 xfree (font);
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3560 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3561
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3562
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3563 /* 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
3564 has been assigned the value NEW_VALUE. */
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3565
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3566 void
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3567 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
3568 struct frame *f;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3569 Lisp_Object param, new_value;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3570 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3571 Lisp_Object lface;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3572
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3573 /* 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
3574 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
3575 face-set-after-frame-defaults. */
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3576 if (NILP (f->face_alist))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3577 return;
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3578
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3579 if (EQ (param, Qforeground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3580 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3581 lface = lface_from_face_name (f, Qdefault, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3582 LFACE_FOREGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3583 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3584 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3585 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3586 else if (EQ (param, Qbackground_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3587 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3588 Lisp_Object frame;
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3589
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3590 /* 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
3591 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
3592 frame-update-face-colors to do that. */
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3593 XSETFRAME (frame, f);
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3594 call1 (Qframe_update_face_colors, frame);
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
3595
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3596 lface = lface_from_face_name (f, Qdefault, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3597 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3598 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3599 realize_basic_faces (f);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3600 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3601 if (EQ (param, Qborder_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3602 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3603 lface = lface_from_face_name (f, Qborder, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3604 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3605 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3606 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3607 else if (EQ (param, Qcursor_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3608 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3609 lface = lface_from_face_name (f, Qcursor, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3610 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3611 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3612 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3613 else if (EQ (param, Qmouse_color))
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3614 {
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3615 lface = lface_from_face_name (f, Qmouse, 1);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3616 LFACE_BACKGROUND (lface) = (STRINGP (new_value)
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3617 ? new_value : Qunspecified);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3618 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3619 }
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3620
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
3621
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3622 /* 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
3623 of frame FRAME. This is here because ordinary `x-get-resource'
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3624 doesn't take a frame argument. */
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 DEFUN ("internal-face-x-get-resource", Finternal_face_x_get_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3627 Sinternal_face_x_get_resource, 3, 3, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3628 (resource, class, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3629 Lisp_Object resource, class, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3630 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3631 Lisp_Object value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3632 CHECK_STRING (resource, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3633 CHECK_STRING (class, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3634 CHECK_LIVE_FRAME (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3635 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3636 value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3637 resource, class, Qnil, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3638 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3639 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3640 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3641
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 /* 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
3644 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
3645 "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
3646 error; if SIGNAL_P is zero, return 0. */
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 static Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3649 face_boolean_x_resource_value (value, signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3650 Lisp_Object value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3651 int signal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3652 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3653 Lisp_Object result = make_number (0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3654
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3655 xassert (STRINGP (value));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3656
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3657 if (xstricmp (XSTRING (value)->data, "on") == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3658 || xstricmp (XSTRING (value)->data, "true") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3659 result = Qt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3660 else if (xstricmp (XSTRING (value)->data, "off") == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3661 || xstricmp (XSTRING (value)->data, "false") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3662 result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3663 else if (xstricmp (XSTRING (value)->data, "unspecified") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3664 result = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3665 else if (signal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3666 signal_error ("Invalid face attribute value from X resource", value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3667
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3668 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3669 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3670
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3671
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3672 DEFUN ("internal-set-lisp-face-attribute-from-resource",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3673 Finternal_set_lisp_face_attribute_from_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3674 Sinternal_set_lisp_face_attribute_from_resource,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3675 3, 4, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3676 (face, attr, value, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3677 Lisp_Object face, attr, value, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3678 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3679 CHECK_SYMBOL (face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3680 CHECK_SYMBOL (attr, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3681 CHECK_STRING (value, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3682
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3683 if (xstricmp (XSTRING (value)->data, "unspecified") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3684 value = Qunspecified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3685 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3686 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3687 value = Fstring_to_number (value, make_number (10));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3688 if (XINT (value) <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3689 signal_error ("Invalid face height from X resource", value);
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 else if (EQ (attr, QCbold) || EQ (attr, QCitalic))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3692 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3693 else if (EQ (attr, QCweight) || EQ (attr, QCslant) || EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3694 value = intern (XSTRING (value)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3695 else if (EQ (attr, QCreverse_video) || EQ (attr, QCinverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3696 value = face_boolean_x_resource_value (value, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3697 else if (EQ (attr, QCunderline)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3698 || EQ (attr, QCoverline)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3699 || EQ (attr, QCstrike_through)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3700 || EQ (attr, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3701 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3702 Lisp_Object boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3703
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3704 /* 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
3705 VALUE does NOT specify a color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3706 boolean_value = face_boolean_x_resource_value (value, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3707 if (SYMBOLP (boolean_value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3708 value = boolean_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3709 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3710
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3711 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
3712 }
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
3713
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3714
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3715
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3716 /***********************************************************************
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3717 Menu face
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3718 ***********************************************************************/
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3719
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3720 #ifdef USE_X_TOOLKIT
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3721
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3722 /* 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
3723 XtApplyToWidgets. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3724
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3725 struct x_resources
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3726 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3727 Arg *av;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3728 int ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3729 };
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3730
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3731
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3732 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3733
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3734 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
3735 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
3736
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3737
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3738 /* 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
3739 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
3740 submenu. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3741
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3742 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3743 xm_apply_resources (w, p)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3744 Widget w;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3745 XtPointer p;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3746 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3747 Widget submenu = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3748 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
3749
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3750 XtSetValues (w, res->av, res->ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3751 XtVaGetValues (w, XmNsubMenuId, &submenu, NULL);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3752 if (submenu)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3753 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3754 XtSetValues (submenu, res->av, res->ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3755 XtApplyToWidgets (submenu, xm_apply_resources, p);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3756 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3757 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3758
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3759
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3760 /* 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
3761 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
3762 following problems:
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3763
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3764 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
3765 somewhere in LessTif. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3766
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3767 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3768 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
3769 struct frame *f;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3770 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3771 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3772 struct face *face;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3773 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3774 Arg av[3];
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3775 int ac = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3776 XmFontList fl = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3777
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3778 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
3779 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
3780
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3781 if (!UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3782 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3783 XtSetArg (av[ac], XmNforeground, face->foreground);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3784 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3785 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3786
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3787 if (!UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3788 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3789 XtSetArg (av[ac], XmNbackground, face->background);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3790 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3791 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3792
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3793 /* 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
3794 if (face->font
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3795 && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3796 || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3797 || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3798 || !UNSPECIFIEDP (LFACE_SLANT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3799 || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3800 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3801 #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
3802 in LessTif during geometry computation. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3803 XmFontListEntry fe;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3804 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
3805 fl = XmFontListAppendEntry (NULL, fe);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3806 XtSetArg (av[ac], XmNfontList, fl);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3807 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3808 #endif
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3809 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3810
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3811 xassert (ac <= sizeof av / sizeof *av);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3812
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3813 if (ac)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3814 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3815 struct x_resources res;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3816
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3817 XtSetValues (widget, av, ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3818 res.av = av, res.ac = ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3819 XtApplyToWidgets (widget, xm_apply_resources, &res);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3820 if (fl)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3821 XmFontListFree (fl);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3822 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3823 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3824
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3825
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3826 #endif /* USE_MOTIF */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3827
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3828 #ifdef USE_LUCID
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3829
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3830 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
3831 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
3832
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3833
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3834 /* 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
3835 structure. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3836
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3837 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3838 xl_apply_resources (widget, p)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3839 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3840 XtPointer p;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3841 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3842 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
3843 XtSetValues (widget, res->av, res->ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3844 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3845
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3846
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3847 /* 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
3848 This is the Lucid version. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3849
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3850 static void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3851 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
3852 struct frame *f;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3853 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3854 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3855 struct face *face;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3856 Lisp_Object lface;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3857 Arg av[3];
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3858 int ac = 0;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3859
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3860 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
3861 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
3862
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3863 if (!UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3864 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3865 XtSetArg (av[ac], XtNforeground, face->foreground);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3866 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3867 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3868
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3869 if (!UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3870 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3871 XtSetArg (av[ac], XtNbackground, face->background);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3872 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3873 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3874
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3875 if (face->font
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3876 && (!UNSPECIFIEDP (LFACE_FAMILY (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3877 || !UNSPECIFIEDP (LFACE_SWIDTH (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3878 || !UNSPECIFIEDP (LFACE_WEIGHT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3879 || !UNSPECIFIEDP (LFACE_SLANT (lface))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3880 || !UNSPECIFIEDP (LFACE_HEIGHT (lface))))
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3881 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3882 XtSetArg (av[ac], XtNfont, face->font);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3883 ++ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3884 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3885
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3886 if (ac)
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3887 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3888 struct x_resources res;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3889
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3890 XtSetValues (widget, av, ac);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3891
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3892 /* 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
3893 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
3894 is a function from lwlib. */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3895 res.av = av, res.ac = ac;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3896 XtApplyToWidgets (widget, xl_apply_resources, &res);
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3897 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3898 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3899
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3900 #endif /* USE_LUCID */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3901
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3902
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3903 /* 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
3904
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3905 void
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3906 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
3907 struct frame *f;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3908 Widget widget;
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3909 {
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3910 #ifdef USE_LUCID
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3911 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
3912 #endif
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3913 #ifdef USE_MOTIF
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3914 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
3915 #endif
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3916 }
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3917
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3918 #endif /* USE_X_TOOLKIT */
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
3919
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3920 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3921
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3922
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3923
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3924 DEFUN ("internal-get-lisp-face-attribute", Finternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3925 Sinternal_get_lisp_face_attribute,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3926 2, 3, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3927 "Return face attribute KEYWORD of face SYMBOL.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3928 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
3929 face attribute name, signal an error.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3930 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
3931 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
3932 frames). If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3933 (symbol, keyword, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3934 Lisp_Object symbol, keyword, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3935 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3936 Lisp_Object lface, value = Qnil;
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 CHECK_SYMBOL (symbol, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3939 CHECK_SYMBOL (keyword, 1);
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 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3942 lface = lface_from_face_name (NULL, symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3943 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3944 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3945 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
3946 frame = selected_frame;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3947 CHECK_LIVE_FRAME (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3948 lface = lface_from_face_name (XFRAME (frame), symbol, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3949 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3950
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3951 if (EQ (keyword, QCfamily))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3952 value = LFACE_FAMILY (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3953 else if (EQ (keyword, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3954 value = LFACE_HEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3955 else if (EQ (keyword, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3956 value = LFACE_WEIGHT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3957 else if (EQ (keyword, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3958 value = LFACE_SLANT (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3959 else if (EQ (keyword, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3960 value = LFACE_UNDERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3961 else if (EQ (keyword, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3962 value = LFACE_OVERLINE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3963 else if (EQ (keyword, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3964 value = LFACE_STRIKE_THROUGH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3965 else if (EQ (keyword, QCbox))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3966 value = LFACE_BOX (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3967 else if (EQ (keyword, QCinverse_video)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3968 || EQ (keyword, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3969 value = LFACE_INVERSE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3970 else if (EQ (keyword, QCforeground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3971 value = LFACE_FOREGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3972 else if (EQ (keyword, QCbackground))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3973 value = LFACE_BACKGROUND (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3974 else if (EQ (keyword, QCstipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3975 value = LFACE_STIPPLE (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3976 else if (EQ (keyword, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3977 value = LFACE_SWIDTH (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3978 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3979 signal_error ("Invalid face attribute name", keyword);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3980
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3981 return value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3982 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3983
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3984
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3985 DEFUN ("internal-lisp-face-attribute-values",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3986 Finternal_lisp_face_attribute_values,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3987 Sinternal_lisp_face_attribute_values, 1, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3988 "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
3989 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
3990 (attr)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3991 Lisp_Object attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3992 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3993 Lisp_Object result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3994
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3995 CHECK_SYMBOL (attr, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3996
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3997 if (EQ (attr, QCweight)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3998 || EQ (attr, QCslant)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
3999 || EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4000 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4001 /* Extract permissible symbols from tables. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4002 struct table_entry *table;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4003 int i, dim;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4004
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4005 if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4006 table = weight_table, dim = DIM (weight_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4007 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4008 table = slant_table, dim = DIM (slant_table);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4009 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4010 table = swidth_table, dim = DIM (swidth_table);
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 for (i = 0; i < dim; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4013 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4014 Lisp_Object symbol = *table[i].symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4015 Lisp_Object tail = result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4016
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4017 while (!NILP (tail)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4018 && !EQ (XCAR (tail), symbol))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4019 tail = XCDR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4020
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4021 if (NILP (tail))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4022 result = Fcons (symbol, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4023 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4024 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4025 else if (EQ (attr, QCunderline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4026 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4027 else if (EQ (attr, QCoverline))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4028 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4029 else if (EQ (attr, QCstrike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4030 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4031 else if (EQ (attr, QCinverse_video) || EQ (attr, QCreverse_video))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4032 result = Fcons (Qt, Fcons (Qnil, Qnil));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4033
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4034 return result;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4037
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4038 DEFUN ("internal-merge-in-global-face", Finternal_merge_in_global_face,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4039 Sinternal_merge_in_global_face, 2, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4040 "Add attributes from frame-default definition of FACE to FACE on FRAME.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4041 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4042 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4043 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4044 Lisp_Object global_lface, local_lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4045 CHECK_LIVE_FRAME (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4046 global_lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4047 local_lface = lface_from_face_name (XFRAME (frame), face, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4048 if (NILP (local_lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4049 local_lface = Finternal_make_lisp_face (face, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4050 merge_face_vectors (XVECTOR (global_lface)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4051 XVECTOR (local_lface)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4052 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4053 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4054
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4055
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4056 /* The following function is implemented for compatibility with 20.2.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4057 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
4058 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
4059 done in fontset.el. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4060
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4061 DEFUN ("face-font", Fface_font, Sface_font, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4062 "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
4063 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
4064 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
4065 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
4066 of the form (bold), (italic) or (bold italic).\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4067 If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4068 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4069 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4070 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4071 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4072 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4073 Lisp_Object result = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4074 Lisp_Object lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4075
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4076 if (!UNSPECIFIEDP (LFACE_WEIGHT (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4077 && !EQ (LFACE_WEIGHT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4078 result = Fcons (Qbold, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4079
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4080 if (!NILP (LFACE_SLANT (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4081 && !EQ (LFACE_SLANT (lface), Qnormal))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4082 result = Fcons (Qitalic, result);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4083
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4084 return result;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4085 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4086 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4087 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4088 struct frame *f = frame_or_selected_frame (frame, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4089 int face_id = lookup_named_face (f, face, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4090 struct face *face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4091 return build_string (face->font_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4092 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4093 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4094
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4095
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4096 /* 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
4097 all attributes are `equal'. Tries to be fast because this function
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4098 is called quite often. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4099
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4100 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4101 lface_equal_p (v1, v2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4102 Lisp_Object *v1, *v2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4103 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4104 int i, equal_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4105
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4106 for (i = 1; i < LFACE_VECTOR_SIZE && equal_p; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4107 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4108 Lisp_Object a = v1[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4109 Lisp_Object b = v2[i];
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 /* 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
4112 and the other is specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4113 equal_p = XTYPE (a) == XTYPE (b);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4114 if (!equal_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4115 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4116
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4117 if (!EQ (a, b))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4118 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4119 switch (XTYPE (a))
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 case Lisp_String:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4122 equal_p = (XSTRING (a)->size == XSTRING (b)->size
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4123 && bcmp (XSTRING (a)->data, XSTRING (b)->data,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4124 XSTRING (a)->size) == 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4125 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4126
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4127 case Lisp_Int:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4128 case Lisp_Symbol:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4129 equal_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4130 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4131
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4132 default:
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4133 equal_p = !NILP (Fequal (a, b));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4134 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4135 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4136 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4137 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4138
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4139 return equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4140 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4141
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4142
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4143 DEFUN ("internal-lisp-face-equal-p", Finternal_lisp_face_equal_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4144 Sinternal_lisp_face_equal_p, 2, 3, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4145 "True if FACE1 and FACE2 are equal.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4146 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
4147 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
4148 If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4149 (face1, face2, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4150 Lisp_Object face1, face2, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4151 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4152 int equal_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4153 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4154 Lisp_Object lface1, lface2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4155
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4156 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4157 f = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4158 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4159 /* 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
4160 before X frames exist. At that time, if FRAME is nil,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4161 selected_frame will be used which is the frame dumped with
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4162 Emacs. That frame is not an X frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4163 f = frame_or_selected_frame (frame, 2);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4164
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4165 lface1 = lface_from_face_name (NULL, face1, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4166 lface2 = lface_from_face_name (NULL, face2, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4167 equal_p = lface_equal_p (XVECTOR (lface1)->contents,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4168 XVECTOR (lface2)->contents);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4169 return equal_p ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4170 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4171
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4172
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4173 DEFUN ("internal-lisp-face-empty-p", Finternal_lisp_face_empty_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4174 Sinternal_lisp_face_empty_p, 1, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4175 "True if FACE has no attribute specified.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4176 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
4177 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
4178 If FRAME is omitted or nil, use the selected frame.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4179 (face, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4180 Lisp_Object face, frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4181 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4182 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4183 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4184 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4185
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4186 if (NILP (frame))
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4187 frame = selected_frame;
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4188 CHECK_LIVE_FRAME (frame, 0);
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
4189 f = XFRAME (frame);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4190
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4191 if (EQ (frame, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4192 lface = lface_from_face_name (NULL, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4193 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4194 lface = lface_from_face_name (f, face, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4195
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4196 for (i = 1; i < LFACE_VECTOR_SIZE; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4197 if (!UNSPECIFIEDP (XVECTOR (lface)->contents[i]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4198 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4199
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4200 return i == LFACE_VECTOR_SIZE ? Qt : Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4201 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4202
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4203
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4204 DEFUN ("frame-face-alist", Fframe_face_alist, Sframe_face_alist,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4205 0, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4206 "Return an alist of frame-local faces defined on FRAME.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4207 For internal use only.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4208 (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4209 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4210 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4211 struct frame *f = frame_or_selected_frame (frame, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4212 return f->face_alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4213 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4214
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4215
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4216 /* 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
4217 below in computing a hash value for a Lisp face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4218
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4219 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4220 hash_string_case_insensitive (string)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4221 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4222 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4223 unsigned char *s;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4224 unsigned hash = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4225 xassert (STRINGP (string));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4226 for (s = XSTRING (string)->data; *s; ++s)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4227 hash = (hash << 1) ^ tolower (*s);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4228 return hash;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4232 /* Return a hash code for face attribute vector V. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4233
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4234 static INLINE unsigned
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4235 lface_hash (v)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4236 Lisp_Object *v;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4237 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4238 return (hash_string_case_insensitive (v[LFACE_FAMILY_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4239 ^ hash_string_case_insensitive (v[LFACE_FOREGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4240 ^ hash_string_case_insensitive (v[LFACE_BACKGROUND_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4241 ^ (unsigned) v[LFACE_WEIGHT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4242 ^ (unsigned) v[LFACE_SLANT_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4243 ^ (unsigned) v[LFACE_SWIDTH_INDEX]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4244 ^ XFASTINT (v[LFACE_HEIGHT_INDEX]));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4245 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4246
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4247
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4248 /* 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
4249 considering charsets/registries). They do if they specify the same
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4250 family, point size, weight, width and slant. Both LFACE1 and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4251 LFACE2 must be fully-specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4252
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4253 static INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4254 lface_same_font_attributes_p (lface1, lface2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4255 Lisp_Object *lface1, *lface2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4256 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4257 xassert (lface_fully_specified_p (lface1)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4258 && lface_fully_specified_p (lface2));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4259 return (xstricmp (XSTRING (lface1[LFACE_FAMILY_INDEX])->data,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4260 XSTRING (lface2[LFACE_FAMILY_INDEX])->data) == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4261 && (XFASTINT (lface1[LFACE_HEIGHT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4262 == XFASTINT (lface2[LFACE_HEIGHT_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4263 && EQ (lface1[LFACE_SWIDTH_INDEX], lface2[LFACE_SWIDTH_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4264 && EQ (lface1[LFACE_WEIGHT_INDEX], lface2[LFACE_WEIGHT_INDEX])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4265 && EQ (lface1[LFACE_SLANT_INDEX], lface2[LFACE_SLANT_INDEX]));
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4268
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4269
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 Realized Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4272 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4273
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4274 /* Allocate and return a new realized face for Lisp face attribute
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4275 vector ATTR, charset CHARSET, and registry REGISTRY. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4276
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4277 static struct face *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4278 make_realized_face (attr, charset, registry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4279 Lisp_Object *attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4280 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4281 Lisp_Object registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4282 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4283 struct face *face = (struct face *) xmalloc (sizeof *face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4284 bzero (face, sizeof *face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4285 face->charset = charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4286 face->registry = registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4287 bcopy (attr, face->lface, sizeof face->lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4288 return face;
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
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 /* Free realized face FACE, including its X resources. FACE may
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4293 be null. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4294
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4295 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4296 free_realized_face (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4297 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4298 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4299 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4300 if (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4301 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4302 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4303 if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4304 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4305 if (face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4306 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4307 x_free_gc (f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4308 face->gc = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4309 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4310
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4311 free_face_colors (f, face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4312 x_destroy_bitmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4313 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4314 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4315
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4316 xfree (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4317 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4318 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4319
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4320
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4321 /* Prepare face FACE for subsequent display on frame F. This
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4322 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
4323 by clearing the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4324
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4325 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4326 prepare_face_for_display (f, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4327 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4328 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4329 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4330 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4331 xassert (FRAME_X_P (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4332
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4333 if (face->gc == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4334 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4335 XGCValues xgcv;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4336 unsigned long mask = GCForeground | GCBackground | GCGraphicsExposures;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4337
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4338 xgcv.foreground = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4339 xgcv.background = face->background;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4340 xgcv.graphics_exposures = False;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4341
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4342 /* 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
4343 if (face->font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4344 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4345 xgcv.font = face->font->fid;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4346 mask |= GCFont;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4347 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4348
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4349 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4350 if (face->stipple)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4351 {
25092
79a5a567bdb0 (prepare_face_for_display): Use FillOpaqueStippled instead of
Gerd Moellmann <gerd@gnu.org>
parents: 25062
diff changeset
4352 xgcv.fill_style = FillOpaqueStippled;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4353 xgcv.stipple = x_bitmap_pixmap (f, face->stipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4354 mask |= GCFillStyle | GCStipple;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4355 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4356
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4357 face->gc = x_create_gc (f, mask, &xgcv);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4358 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4359 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4360 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4361 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4362
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4363
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4364 /* Non-zero if FACE is suitable for displaying ISO8859-1. Used in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4365 macro FACE_SUITABLE_FOR_CHARSET_P to avoid realizing a new face for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4366 ISO8859-1 if the ASCII face suffices. */
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4367
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4368 int
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4369 face_suitable_for_iso8859_1_p (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4370 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4371 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4372 int len = strlen (face->font_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4373 return len >= 9 && xstricmp (face->font_name + len - 9, "iso8859-1") == 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4374 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4375
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4376
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4377 /* Value is non-zero if FACE is suitable for displaying characters
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4378 of CHARSET. CHARSET < 0 means unibyte text. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4379
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4380 INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4381 face_suitable_for_charset_p (face, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4382 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4383 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4384 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4385 int suitable_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4386
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4387 if (charset < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4388 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4389 if (EQ (face->registry, Vface_default_registry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4390 || !NILP (Fequal (face->registry, Vface_default_registry)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4391 suitable_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4392 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4393 else if (face->charset == charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4394 suitable_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4395 else if (face->charset == CHARSET_ASCII
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4396 && charset == charset_latin_iso8859_1)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4397 suitable_p = face_suitable_for_iso8859_1_p (face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4398 else if (face->charset == charset_latin_iso8859_1
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4399 && charset == CHARSET_ASCII)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4400 suitable_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4401
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4402 return suitable_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4403 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4404
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4405
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4406
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4407 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4408 Face Cache
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4409 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4410
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4411 /* Return a new face cache for frame F. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4412
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4413 static struct face_cache *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4414 make_face_cache (f)
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4415 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4416 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4417 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4418 int size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4419
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4420 c = (struct face_cache *) xmalloc (sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4421 bzero (c, sizeof *c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4422 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4423 c->buckets = (struct face **) xmalloc (size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4424 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4425 c->size = 50;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4426 c->faces_by_id = (struct face **) xmalloc (c->size * sizeof *c->faces_by_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4427 c->f = f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4428 return c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4429 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4430
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4431
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4432 /* Clear out all graphics contexts for all realized faces, except for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4433 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
4434 keeping too many graphics contexts that are no longer needed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4435
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4436 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4437 clear_face_gcs (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4438 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4439 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4440 if (c && FRAME_X_P (c->f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4441 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4442 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4443 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4444 for (i = BASIC_FACE_ID_SENTINEL; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4445 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4446 struct face *face = c->faces_by_id[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4447 if (face && face->gc)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4448 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4449 x_free_gc (c->f, face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4450 face->gc = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4451 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4452 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4453 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4454 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4455 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4456
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4457
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4458 /* 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
4459 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
4460 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
4461 event doesn't try to use faces we destroyed. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4462
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4463 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4464 free_realized_faces (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4465 struct face_cache *c;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4466 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4467 if (c && c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4468 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4469 int i, size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4470 struct frame *f = c->f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4471
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4472 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4473 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4474 free_realized_face (f, c->faces_by_id[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4475 c->faces_by_id[i] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4476 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4477
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4478 c->used = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4479 size = FACE_CACHE_BUCKETS_SIZE * sizeof *c->buckets;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4480 bzero (c->buckets, size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4481
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4482 /* Must do a thorough redisplay the next time. Mark current
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4483 matrices as invalid because they will reference faces freed
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4484 above. This function is also called when a frame is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4485 destroyed. In this case, the root window of F is nil. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4486 if (WINDOWP (f->root_window))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4487 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4488 clear_current_matrices (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4489 ++windows_or_buffers_changed;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4490 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4491 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4492 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4493
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4494
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4495 /* 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
4496 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
4497 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
4498
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4499 void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4500 free_all_realized_faces (frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4501 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4502 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4503 if (NILP (frame))
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4504 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4505 Lisp_Object rest;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4506 FOR_EACH_FRAME (rest, frame)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4507 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4508 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4509 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4510 free_realized_faces (FRAME_FACE_CACHE (XFRAME (frame)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4511 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4512
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4513
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4514 /* 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
4515
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4516 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4517 free_face_cache (c)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4518 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4519 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4520 if (c)
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 free_realized_faces (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4523 xfree (c->buckets);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4524 xfree (c->faces_by_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4525 xfree (c);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4526 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4527 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4528
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4529
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4530 /* 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
4531 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
4532 collision list of the face hash table of C. This is done because
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4533 otherwise lookup_face would find FACE for every charset, even if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4534 faces with the same attributes but for specific charsets exist. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4535
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4536 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4537 cache_face (c, face, hash)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4538 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4539 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4540 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4541 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4542 int i = hash % FACE_CACHE_BUCKETS_SIZE;
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 face->hash = hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4545
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4546 if (face->fontset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4547 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4548 struct face *last = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4549 if (last)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4550 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4551 while (last->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4552 last = last->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4553 last->next = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4554 face->prev = last;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4555 face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4556 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4557 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4558 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4559 c->buckets[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4560 face->prev = face->next = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4561 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4562 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4563 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4564 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4565 face->prev = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4566 face->next = c->buckets[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4567 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4568 face->next->prev = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4569 c->buckets[i] = face;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4570 }
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4571
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4572 /* 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
4573 slot as FACE->id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4574 for (i = 0; i < c->used; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4575 if (c->faces_by_id[i] == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4576 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4577 face->id = i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4578
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4579 /* Maybe enlarge C->faces_by_id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4580 if (i == c->used && c->used == c->size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4581 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4582 int new_size = 2 * c->size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4583 int sz = new_size * sizeof *c->faces_by_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4584 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
4585 c->size = new_size;
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4589 /* Check that FACE got a unique id. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4590 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4591 int j, n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4592 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4593
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4594 for (j = n = 0; j < FACE_CACHE_BUCKETS_SIZE; ++j)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4595 for (face = c->buckets[j]; face; face = face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4596 if (face->id == i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4597 ++n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4598
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4599 xassert (n == 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4600 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4601 #endif /* GLYPH_DEBUG */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4602
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4603 c->faces_by_id[i] = face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4604 if (i == c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4605 ++c->used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4606 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4607
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4608
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4609 /* Remove face FACE from cache C. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4610
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4611 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4612 uncache_face (c, face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4613 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4614 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4615 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4616 int i = face->hash % FACE_CACHE_BUCKETS_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4617
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4618 if (face->prev)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4619 face->prev->next = face->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4620 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4621 c->buckets[i] = face->next;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4622
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4623 if (face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4624 face->next->prev = face->prev;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4625
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4626 c->faces_by_id[face->id] = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4627 if (face->id == c->used)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4628 --c->used;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4629 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4630
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4631
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4632 /* Look up a realized face with face attributes ATTR in the face cache
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4633 of frame F. The face will be used to display characters of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4634 CHARSET. CHARSET < 0 means the face will be used to display
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4635 unibyte text. The value of face-default-registry is used to choose
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4636 a font for the face in that case. Value is the ID of the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4637 found. If no suitable face is found, realize a new one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4638
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4639 INLINE int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4640 lookup_face (f, attr, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4641 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4642 Lisp_Object *attr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4643 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4644 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4645 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4646 unsigned hash;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4647 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4648 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4649
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4650 xassert (c != NULL);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4651 check_lface_attrs (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4652
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4653 /* Look up ATTR in the face cache. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4654 hash = lface_hash (attr);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4655 i = hash % FACE_CACHE_BUCKETS_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4656
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4657 for (face = c->buckets[i]; face; face = face->next)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4658 if (face->hash == hash
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4659 && (!FRAME_WINDOW_P (f)
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4660 || FACE_SUITABLE_FOR_CHARSET_P (face, charset))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4661 && lface_equal_p (face->lface, attr))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4662 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4663
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4664 /* If not found, realize a new face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4665 if (face == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4666 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4667 face = realize_face (c, attr, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4668 cache_face (c, face, hash);
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 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4672 xassert (face == FACE_FROM_ID (f, face->id));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4673 if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4674 xassert (charset < 0 || FACE_SUITABLE_FOR_CHARSET_P (face, charset));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4675 #endif /* GLYPH_DEBUG */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4676
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4677 return face->id;
8472
0d0b32e78a5b (compute_glyph_face_1): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8119
diff changeset
4678 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4679
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4680
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4681 /* Return the face id of the realized face for named face SYMBOL on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4682 frame F suitable for displaying characters from CHARSET. CHARSET <
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4683 0 means unibyte text. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4684
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4685 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4686 lookup_named_face (f, symbol, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4687 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4688 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4689 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4690 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4691 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4692 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4693 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4694
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4695 get_lface_attributes (f, symbol, symbol_attrs, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4696 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4697 merge_face_vectors (symbol_attrs, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4698 return lookup_face (f, attrs, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4699 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4700
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 /* 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
4703 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
4704
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4705 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4706 ascii_face_of_lisp_face (f, lface_id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4707 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4708 int lface_id;
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 int face_id;
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 if (lface_id >= 0 && lface_id < lface_id_to_name_size)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4713 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4714 Lisp_Object face_name = lface_id_to_name[lface_id];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4715 face_id = lookup_named_face (f, face_name, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4716 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4717 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4718 face_id = -1;
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 return face_id;
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
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 /* 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
4725 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
4726 STEPS < 0 means larger. Value is the id of the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4727
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4728 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4729 smaller_face (f, face_id, steps)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4730 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4731 int face_id, steps;
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 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4734 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4735 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4736 int pt, last_pt, last_height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4737 int delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4738 int new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4739 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4740
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4741 /* 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
4742 if (FRAME_TERMCAP_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4743 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4744
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4745 /* Try in increments of 1/2 pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4746 delta = steps < 0 ? 5 : -5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4747 steps = abs (steps);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4748
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4749 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4750 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4751 pt = last_pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4752 new_face_id = face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4753 last_height = FONT_HEIGHT (face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4754
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4755 while (steps
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4756 && pt + delta > 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4757 /* Give up if we cannot find a font within 10pt. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4758 && abs (last_pt - pt) < 100)
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 /* Look up a face for a slightly smaller/larger font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4761 pt += delta;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4762 attrs[LFACE_HEIGHT_INDEX] = make_number (pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4763 new_face_id = lookup_face (f, attrs, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4764 new_face = FACE_FROM_ID (f, new_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4765
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4766 /* If height changes, count that as one step. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4767 if (FONT_HEIGHT (new_face->font) != last_height)
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 --steps;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4770 last_height = FONT_HEIGHT (new_face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4771 last_pt = pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4772 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4773 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4774
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4775 return new_face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4776
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4777 #else /* not HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4778
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4779 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4780
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4781 #endif /* not HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4782 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4783
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4784
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4785 /* 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
4786 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
4787
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
4788 int
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4789 face_with_height (f, face_id, height)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4790 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4791 int face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4792 int height;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4793 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4794 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4795 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4796 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4797
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4798 if (FRAME_TERMCAP_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4799 || height <= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4800 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4801
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4802 face = FACE_FROM_ID (f, face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4803 bcopy (face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4804 attrs[LFACE_HEIGHT_INDEX] = make_number (height);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4805 face_id = lookup_face (f, attrs, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4806 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4807
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4808 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4809 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4810
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4811 /* Return the face id of the realized face for named face SYMBOL on
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4812 frame F suitable for displaying characters from CHARSET (CHARSET <
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4813 0 means unibyte text), and use attributes of the face FACE_ID for
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4814 attributes that aren't completely specified by SYMBOL. This is
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4815 like lookup_named_face, except that the default attributes come
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4816 from FACE_ID, not from the default face. FACE_ID is assumed to
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4817 be already realized. */
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4818
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4819 int
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4820 lookup_derived_face (f, symbol, charset, face_id)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4821 struct frame *f;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4822 Lisp_Object symbol;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4823 int charset;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4824 int face_id;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4825 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4826 Lisp_Object attrs[LFACE_VECTOR_SIZE];
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4827 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
4828 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
4829
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4830 if (!default_face)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4831 abort ();
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4832
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4833 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
4834 bcopy (default_face->lface, attrs, sizeof attrs);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4835 merge_face_vectors (symbol_attrs, attrs);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4836 return lookup_face (f, attrs, charset);
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4837 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
4838
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4839
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4840
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4841 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4842 Font selection
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4843 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4844
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4845 DEFUN ("internal-set-font-selection-order",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4846 Finternal_set_font_selection_order,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4847 Sinternal_set_font_selection_order, 1, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4848 "Set font selection order for face font selection to ORDER.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4849 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
4850 `:height', `:weight', and `:slant'. Face attributes appearing\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4851 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
4852 `: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
4853 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
4854 Value is ORDER.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4855 (order)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4856 Lisp_Object order;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4857 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4858 Lisp_Object list;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4859 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4860 int indices[4];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4861
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4862 CHECK_LIST (order, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4863 bzero (indices, sizeof indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4864 i = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4865
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4866 for (list = order;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4867 CONSP (list) && i < DIM (indices);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4868 list = XCDR (list), ++i)
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 Lisp_Object attr = XCAR (list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4871 int xlfd;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4872
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4873 if (EQ (attr, QCwidth))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4874 xlfd = XLFD_SWIDTH;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4875 else if (EQ (attr, QCheight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4876 xlfd = XLFD_POINT_SIZE;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4877 else if (EQ (attr, QCweight))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4878 xlfd = XLFD_WEIGHT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4879 else if (EQ (attr, QCslant))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4880 xlfd = XLFD_SLANT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4881 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4882 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4883
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4884 if (indices[i] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4885 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4886 indices[i] = xlfd;
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 if (!NILP (list)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4890 || i != DIM (indices)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4891 || indices[0] == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4892 || indices[1] == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4893 || indices[2] == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4894 || indices[3] == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4895 signal_error ("Invalid font sort order", order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4896
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4897 if (bcmp (indices, font_sort_order, sizeof indices) != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4898 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4899 bcopy (indices, font_sort_order, sizeof font_sort_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4900 free_all_realized_faces (Qnil);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4903 return Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4904 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4905
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4906
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4907 DEFUN ("internal-set-alternative-font-family-alist",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4908 Finternal_set_alternative_font_family_alist,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4909 Sinternal_set_alternative_font_family_alist, 1, 1, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4910 "Define alternative font families to try in face font selection.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4911 ALIST is an alist of (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...) entries.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4912 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
4913 be found. Value is ALIST.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4914 (alist)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4915 Lisp_Object alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4916 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4917 CHECK_LIST (alist, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4918 Vface_alternative_font_family_alist = alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4919 free_all_realized_faces (Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4920 return alist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4921 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4922
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4923
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4924 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4925
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4926 /* Return the X registry and encoding of font name FONT_NAME on frame F.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4927 Value is nil if not successful. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4928
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4929 static Lisp_Object
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4930 deduce_unibyte_registry (f, font_name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4931 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4932 char *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4933 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4934 struct font_name font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4935 Lisp_Object registry = Qnil;
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 font.name = STRDUPA (font_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4938 if (split_font_name (f, &font, 0))
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 char *buffer;
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 /* Extract registry and encoding. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4943 buffer = (char *) alloca (strlen (font.fields[XLFD_REGISTRY])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4944 + strlen (font.fields[XLFD_ENCODING])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4945 + 10);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4946 strcpy (buffer, font.fields[XLFD_REGISTRY]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4947 strcat (buffer, "-");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4948 strcat (buffer, font.fields[XLFD_ENCODING]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4949 registry = build_string (buffer);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4950 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4951
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4952 return registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4953 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4954
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 /* 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
4957 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
4958 are zero for scalable fonts. Intlfonts contain at least one
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4959 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
4960 just test average width. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4961
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4962 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4963 font_scalable_p (font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4964 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4965 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4966 char *s = font->fields[XLFD_AVGWIDTH];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4967 return *s == '0' && *(s + 1) == '\0';
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4968 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4969
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4970
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4971 /* 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
4972 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
4973 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
4974 sizes. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4975
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4976 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4977 better_font_p (values, font1, font2, compare_pt_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4978 int *values;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4979 struct font_name *font1, *font2;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4980 int compare_pt_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4981 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4982 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4983
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4984 for (i = 0; i < 4; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4985 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4986 int xlfd_idx = font_sort_order[i];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4987
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4988 if (compare_pt_p || xlfd_idx != XLFD_POINT_SIZE)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4989 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4990 int delta1 = abs (values[i] - font1->numeric[xlfd_idx]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4991 int delta2 = abs (values[i] - font2->numeric[xlfd_idx]);
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 if (delta1 > delta2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4994 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4995 else if (delta1 < delta2)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4996 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
4997 else
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 /* The difference may be equal because, e.g., the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5000 specifies `italic' but we have only `regular' and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5001 `oblique'. Prefer `oblique' in this case. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5002 if ((xlfd_idx == XLFD_WEIGHT || xlfd_idx == XLFD_SLANT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5003 && font1->numeric[xlfd_idx] > values[i]
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5004 && font2->numeric[xlfd_idx] < values[i])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5005 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5006 }
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5009
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5010 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5011 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5012
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5013
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5014 #if SCALABLE_FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5015
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5016 /* 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
5017 SPECIFIED. SPECIFIED is an array of face attribute values in font
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5018 sort order. */
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 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5021 exact_face_match_p (specified, font)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5022 int *specified;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5023 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5024 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5025 int i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5026
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5027 for (i = 0; i < 4; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5028 if (specified[i] != font->numeric[font_sort_order[i]])
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5029 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5030
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5031 return i == 4;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5032 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5035 /* 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
5036 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
5037 Value is allocated from heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5038
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5039 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5040 build_scalable_font_name (f, font, specified_pt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5041 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5042 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5043 int specified_pt;
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 char point_size[20], pixel_size[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5046 int pixel_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5047 double resy = FRAME_X_DISPLAY_INFO (f)->resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5048 double pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5049
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5050 /* If scalable font is for a specific resolution, compute
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5051 the point size we must specify from the resolution of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5052 the display and the specified resolution of the font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5053 if (font->numeric[XLFD_RESY] != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5054 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5055 pt = resy / font->numeric[XLFD_RESY] * specified_pt + 0.5;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5056 pixel_value = font->numeric[XLFD_RESY] / 720.0 * pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5057 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5058 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5059 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5060 pt = specified_pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5061 pixel_value = resy / 720.0 * pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5062 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5063
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5064 /* Set point size of the font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5065 sprintf (point_size, "%d", (int) pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5066 font->fields[XLFD_POINT_SIZE] = point_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5067 font->numeric[XLFD_POINT_SIZE] = pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5068
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5069 /* Set pixel size. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5070 sprintf (pixel_size, "%d", pixel_value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5071 font->fields[XLFD_PIXEL_SIZE] = pixel_size;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5072 font->numeric[XLFD_PIXEL_SIZE] = pixel_value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5073
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5074 /* If font doesn't specify its resolution, use the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5075 resolution of the display. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5076 if (font->numeric[XLFD_RESY] == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5077 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5078 char buffer[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5079 sprintf (buffer, "%d", (int) resy);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5080 font->fields[XLFD_RESY] = buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5081 font->numeric[XLFD_RESY] = resy;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5082 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5083
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5084 if (strcmp (font->fields[XLFD_RESX], "0") == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5085 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5086 char buffer[20];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5087 int resx = FRAME_X_DISPLAY_INFO (f)->resx;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5088 sprintf (buffer, "%d", resx);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5089 font->fields[XLFD_RESX] = buffer;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5090 font->numeric[XLFD_RESX] = resx;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5091 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5092
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5093 return build_font_name (font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5094 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5095
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5096
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5097 /* 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
5098 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
5099 with input blocked. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5100
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5101 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5102 may_use_scalable_font_p (font, name)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5103 struct font_name *font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5104 char *name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5105 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5106 if (EQ (Vscalable_fonts_allowed, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5107 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5108 else if (CONSP (Vscalable_fonts_allowed))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5109 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5110 Lisp_Object tail, regexp;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5111
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5112 for (tail = Vscalable_fonts_allowed; CONSP (tail); tail = XCDR (tail))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5113 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5114 regexp = XCAR (tail);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5115 if (STRINGP (regexp)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5116 && fast_c_string_match_ignore_case (regexp, name) >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5117 return 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5118 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5119 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5120
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5121 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5122 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5123
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5124 #endif /* SCALABLE_FONTS != 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5125
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5126
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5127 /* Return the name of the best matching font for face attributes
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5128 ATTRS in the array of font_name structures FONTS which contains
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5129 NFONTS elements. Value is a font name which is allocated from
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5130 the heap. FONTS is freed by this function. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5131
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5132 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5133 best_matching_font (f, attrs, fonts, nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5134 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5135 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5136 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5137 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5138 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5139 char *font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5140 struct font_name *best;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5141 int i, pt;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5142 int specified[4];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5143 int exact_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5144
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5145 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5146 return NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5147
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5148 /* Make specified font attributes available in `specified',
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5149 indexed by sort order. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5150 for (i = 0; i < DIM (font_sort_order); ++i)
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 int xlfd_idx = font_sort_order[i];
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 if (xlfd_idx == XLFD_SWIDTH)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5155 specified[i] = face_numeric_swidth (attrs[LFACE_SWIDTH_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5156 else if (xlfd_idx == XLFD_POINT_SIZE)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5157 specified[i] = pt = XFASTINT (attrs[LFACE_HEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5158 else if (xlfd_idx == XLFD_WEIGHT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5159 specified[i] = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5160 else if (xlfd_idx == XLFD_SLANT)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5161 specified[i] = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5162 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5163 abort ();
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 #if SCALABLE_FONTS
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 /* Set to 1 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5169 exact_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5170
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5171 /* Start with the first non-scalable font in the list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5172 for (i = 0; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5173 if (!font_scalable_p (fonts + i))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5174 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5175
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5176 /* Find the best match among the non-scalable fonts. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5177 if (i < nfonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5178 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5179 best = fonts + i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5180
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5181 for (i = 1; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5182 if (!font_scalable_p (fonts + i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5183 && better_font_p (specified, fonts + i, best, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5184 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5185 best = fonts + i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5186
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5187 exact_p = exact_face_match_p (specified, best);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5188 if (exact_p)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5189 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5190 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5191
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5192 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5193 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5194 best = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5195
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5196 /* 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
5197 we can find a better match among scalable fonts. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5198 if (!exact_p)
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 /* A scalable font is better if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5201
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5202 1. its weight, slant, swidth attributes are better, or.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5203
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5204 2. the best non-scalable font doesn't have the required
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5205 point size, and the scalable fonts weight, slant, swidth
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5206 isn't worse. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5207
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5208 int non_scalable_has_exact_height_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5209
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5210 if (best && best->numeric[XLFD_POINT_SIZE] == pt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5211 non_scalable_has_exact_height_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5212 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5213 non_scalable_has_exact_height_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5214
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5215 for (i = 0; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5216 if (font_scalable_p (fonts + i))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5217 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5218 if (best == NULL
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5219 || better_font_p (specified, fonts + i, best, 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5220 || (!non_scalable_has_exact_height_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5221 && !better_font_p (specified, best, fonts + i, 0)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5222 best = fonts + i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5223 }
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 (font_scalable_p (best))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5227 font_name = build_scalable_font_name (f, best, pt);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5228 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5229 font_name = build_font_name (best);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5230
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5231 #else /* !SCALABLE_FONTS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5232
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5233 /* Find the best non-scalable font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5234 best = fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5235
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5236 for (i = 1; i < nfonts; ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5237 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5238 xassert (!font_scalable_p (fonts + i));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5239 if (better_font_p (specified, fonts + i, best, 1))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5240 best = fonts + i;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5241 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5242
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5243 font_name = build_font_name (best);
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 #endif /* !SCALABLE_FONTS */
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 /* Free font_name structures. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5248 free_font_names (fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5249
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5250 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5251 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5252
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5253
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5254 /* 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
5255 registry/encoding REGISTRY. Return in *FONTS a pointer to a vector
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5256 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
5257 of fonts found. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5258
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5259 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5260 try_font_list (f, attrs, pattern, family, registry, fonts)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5261 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5262 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5263 char *pattern, *family, *registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5264 struct font_name **fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5265 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5266 int nfonts;
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 if (family == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5269 family = LSTRDUPA (attrs[LFACE_FAMILY_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5270
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5271 nfonts = font_list (f, pattern, family, registry, fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5272
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5273 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5274 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5275 Lisp_Object alter;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5276
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5277 /* Try alternative font families from
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5278 Vface_alternative_font_family_alist. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5279 alter = Fassoc (build_string (family),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5280 Vface_alternative_font_family_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5281 if (CONSP (alter))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5282 for (alter = XCDR (alter);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5283 CONSP (alter) && nfonts == 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5284 alter = XCDR (alter))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5285 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5286 if (STRINGP (XCAR (alter)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5287 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5288 family = LSTRDUPA (XCAR (alter));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5289 nfonts = font_list (f, NULL, family, registry, fonts);
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5292
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5293 /* Try font family of the default face or "fixed". */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5294 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5295 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5296 struct face *dflt = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5297 if (dflt)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5298 family = LSTRDUPA (dflt->lface[LFACE_FAMILY_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5299 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5300 family = "fixed";
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5301 nfonts = font_list (f, NULL, family, registry, fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5302 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5303
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5304 /* Try any family with the given registry. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5305 if (nfonts == 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5306 nfonts = font_list (f, NULL, "*", registry, fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5307 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5308
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5309 return nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5310 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5311
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5312
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5313 /* Return the registry and encoding pattern that fonts for CHARSET
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5314 should match. Value is allocated from the heap. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5315
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5316 char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5317 x_charset_registry (charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5318 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5319 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5320 Lisp_Object prop, charset_plist;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5321 char *registry;
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 /* Get registry and encoding from the charset's plist. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5324 charset_plist = CHARSET_TABLE_INFO (charset, CHARSET_PLIST_IDX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5325 prop = Fplist_get (charset_plist, Qx_charset_registry);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5326
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5327 if (STRINGP (prop))
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 if (index (XSTRING (prop)->data, '-'))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5330 registry = xstrdup (XSTRING (prop)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5331 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5332 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5333 /* If registry doesn't contain a `-', make it a pattern. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5334 registry = (char *) xmalloc (STRING_BYTES (XSTRING (prop)) + 5);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5335 strcpy (registry, XSTRING (prop)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5336 strcat (registry, "*-*");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5337 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5338 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5339 else if (STRINGP (Vface_default_registry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5340 registry = xstrdup (XSTRING (Vface_default_registry)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5341 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5342 registry = xstrdup ("iso8859-1");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5343
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5344 return registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5345 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5346
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5347
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5348 /* Return the fontset id of the fontset name or alias name given by
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5349 the family attribute of ATTRS on frame F. Value is -1 if the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5350 family attribute of ATTRS doesn't name a fontset. */
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 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5353 face_fontset (f, attrs)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5354 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5355 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5356 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5357 Lisp_Object name = attrs[LFACE_FAMILY_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5358 int fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5359
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5360 name = Fquery_fontset (name, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5361 if (NILP (name))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5362 fontset = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5363 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5364 fontset = fs_query_fontset (f, XSTRING (name)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5365
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5366 return fontset;
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5369
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5370 /* Get the font to use for the face realizing the fully-specified Lisp
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5371 face ATTRS for charset CHARSET on frame F. CHARSET < 0 means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5372 unibyte text; UNIBYTE_REGISTRY is the registry and encoding to use
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5373 in this case. Value is the font name which is allocated from the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5374 heap (which means that it must be freed eventually). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5375
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5376 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5377 choose_face_font (f, attrs, charset, unibyte_registry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5378 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5379 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5380 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5381 Lisp_Object unibyte_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5382 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5383 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5384 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5385 char *registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5386
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5387 /* ATTRS must be fully-specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5388 xassert (lface_fully_specified_p (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5389
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5390 if (STRINGP (unibyte_registry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5391 registry = xstrdup (XSTRING (unibyte_registry)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5392 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5393 registry = x_charset_registry (charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5394
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5395 nfonts = try_font_list (f, attrs, NULL, NULL, registry, &fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5396 xfree (registry);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5397 return best_matching_font (f, attrs, fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5398 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5399
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5400
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5401 /* Choose a font to use on frame F to display CHARSET using FONTSET
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5402 with Lisp face attributes specified by ATTRS. CHARSET may be any
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5403 valid charset except CHARSET_COMPOSITION. CHARSET < 0 means
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5404 unibyte text. If the fontset doesn't contain a font pattern for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5405 charset, use the pattern for CHARSET_ASCII. Value is the font name
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5406 which is allocated from the heap and must be freed by the caller. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5407
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5408 static char *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5409 choose_face_fontset_font (f, attrs, fontset, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5410 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5411 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5412 int fontset, charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5413 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5414 char *pattern;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5415 char *font_name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5416 struct fontset_info *fontset_info;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5417 struct font_name *fonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5418 int nfonts;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5419
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5420 xassert (charset != CHARSET_COMPOSITION);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5421 xassert (fontset >= 0 && fontset < FRAME_FONTSET_DATA (f)->n_fontsets);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5422
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5423 /* For unibyte text, use the ASCII font of the fontset. Using the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5424 ASCII font seems to be the most reasonable thing we can do in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5425 this case. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5426 if (charset < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5427 charset = CHARSET_ASCII;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5428
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5429 /* Get the font name pattern to use for CHARSET from the fontset. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5430 fontset_info = FRAME_FONTSET_DATA (f)->fontset_table[fontset];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5431 pattern = fontset_info->fontname[charset];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5432 if (!pattern)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5433 pattern = fontset_info->fontname[CHARSET_ASCII];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5434 xassert (pattern);
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 /* Get a list of fonts matching that pattern and choose the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5437 best match for the specified face attributes from it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5438 nfonts = try_font_list (f, attrs, pattern, NULL, NULL, &fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5439 font_name = best_matching_font (f, attrs, fonts, nfonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5440 return font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5441 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5442
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5443 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5444
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5445
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5446
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5447 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5448 Face Realization
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5451 /* 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
5452 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
5453 face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5454
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5455 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5456 realize_basic_faces (f)
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
5457 struct frame *f;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5458 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5459 int success_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5460
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5461 if (realize_default_face (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5462 {
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
5463 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
5464 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
5465 realize_named_face (f, Qfringe, BITMAP_AREA_FACE_ID);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
5466 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
5467 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
5468 realize_named_face (f, Qborder, BORDER_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
5469 realize_named_face (f, Qcursor, CURSOR_FACE_ID);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
5470 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
5471 realize_named_face (f, Qmenu, MENU_FACE_ID);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5472 success_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5473 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5474
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5475 return success_p;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5476 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5477
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5478
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5479 /* 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
5480 specified, make it fully-specified. Attributes of the default face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5481 that are not explicitly specified are taken from frame parameters. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5482
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5483 static int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5484 realize_default_face (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5485 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5486 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5487 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5488 Lisp_Object lface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5489 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5490 Lisp_Object unibyte_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5491 Lisp_Object frame_font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5492 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5493 int fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5494
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5495 /* If the `default' face is not yet known, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5496 lface = lface_from_face_name (f, Qdefault, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5497 if (NILP (lface))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5498 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5499 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5500 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5501 lface = Finternal_make_lisp_face (Qdefault, frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5502 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5503
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5504 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5505 if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5506 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5507 /* Set frame_font to the value of the `font' frame parameter. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5508 frame_font = Fassq (Qfont, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5509 xassert (CONSP (frame_font) && STRINGP (XCDR (frame_font)));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5510 frame_font = XCDR (frame_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5511
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5512 fontset = fs_query_fontset (f, XSTRING (frame_font)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5513 if (fontset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5514 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5515 /* If frame_font is a fontset name, don't use that for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5516 determining font-related attributes of the default face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5517 because it is just an artificial name. Use the ASCII font of
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5518 the fontset, instead. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5519 struct font_info *font_info;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5520 struct font_name font;
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 BLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5523 font_info = FS_LOAD_FONT (f, FRAME_X_FONT_TABLE (f), CHARSET_ASCII,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5524 NULL, fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5525 UNBLOCK_INPUT;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5526
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5527 /* Set weight etc. from the ASCII font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5528 if (!set_lface_from_font_name (f, lface, font_info->full_name, 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5529 return 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5530
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5531 /* Remember registry and encoding of the frame font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5532 unibyte_registry = deduce_unibyte_registry (f, font_info->full_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5533 if (STRINGP (unibyte_registry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5534 Vface_default_registry = unibyte_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5535 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5536 Vface_default_registry = build_string ("iso8859-1");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5537
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5538 /* But set the family to the fontset alias name. Implementation
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5539 note: When a font is passed to Emacs via `-fn FONT', a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5540 fontset is created in `x-win.el' whose name ends in
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5541 `fontset-startup'. This fontset has an alias name that is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5542 equal to frame_font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5543 xassert (STRINGP (frame_font));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5544 font.name = LSTRDUPA (frame_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5545
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5546 if (!split_font_name (f, &font, 1)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5547 || xstricmp (font.fields[XLFD_REGISTRY], "fontset") != 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5548 || xstricmp (font.fields[XLFD_ENCODING], "startup") != 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5549 LFACE_FAMILY (lface) = frame_font;
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 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5552 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5553 /* Frame parameters contain a real font. Fill default face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5554 attributes from that font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5555 if (!set_lface_from_font_name (f, lface,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5556 XSTRING (frame_font)->data, 0))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5557 return 0;
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 /* Remember registry and encoding of the frame font. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5560 unibyte_registry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5561 = deduce_unibyte_registry (f, XSTRING (frame_font)->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5562 if (STRINGP (unibyte_registry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5563 Vface_default_registry = unibyte_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5564 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5565 Vface_default_registry = build_string ("iso8859-1");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5566 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5567 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5568 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5569
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5570 if (!FRAME_WINDOW_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5571 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5572 LFACE_FAMILY (lface) = build_string ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5573 LFACE_SWIDTH (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5574 LFACE_HEIGHT (lface) = make_number (1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5575 LFACE_WEIGHT (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5576 LFACE_SLANT (lface) = Qnormal;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5577 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5578
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5579 if (UNSPECIFIEDP (LFACE_UNDERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5580 LFACE_UNDERLINE (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5581
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5582 if (UNSPECIFIEDP (LFACE_OVERLINE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5583 LFACE_OVERLINE (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5584
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5585 if (UNSPECIFIEDP (LFACE_STRIKE_THROUGH (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5586 LFACE_STRIKE_THROUGH (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5587
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5588 if (UNSPECIFIEDP (LFACE_BOX (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5589 LFACE_BOX (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5590
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5591 if (UNSPECIFIEDP (LFACE_INVERSE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5592 LFACE_INVERSE (lface) = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5593
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5594 if (UNSPECIFIEDP (LFACE_FOREGROUND (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5595 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5596 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5597 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5598 Lisp_Object color = Fassq (Qforeground_color, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5599
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5600 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5601 LFACE_FOREGROUND (lface) = XCDR (color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5602 else if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5603 return 0;
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5604 else if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5605 /* Frame parameters for terminal frames usually don't contain
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5606 a color. Use an empty string to indicate that the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5607 should use the (unknown) default color of the terminal. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5608 LFACE_FOREGROUND (lface) = build_string ("");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5609 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5610 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5611 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5612
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5613 if (UNSPECIFIEDP (LFACE_BACKGROUND (lface)))
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 /* This function is called so early that colors are not yet
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5616 set in the frame parameter list. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5617 Lisp_Object color = Fassq (Qbackground_color, f->param_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5618 if (CONSP (color) && STRINGP (XCDR (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5619 LFACE_BACKGROUND (lface) = XCDR (color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5620 else if (FRAME_X_P (f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5621 return 0;
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5622 else if (FRAME_TERMCAP_P (f) || FRAME_MSDOS_P (f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5623 /* Frame parameters for terminal frames usually don't contain
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5624 a color. Use an empty string to indicate that the face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5625 should use the (unknown) default color of the terminal. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5626 LFACE_BACKGROUND (lface) = build_string ("");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5627 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5628 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5629 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5630
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5631 if (UNSPECIFIEDP (LFACE_STIPPLE (lface)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5632 LFACE_STIPPLE (lface) = Qnil;
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 /* Realize the face; it must be fully-specified now. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5635 xassert (lface_fully_specified_p (XVECTOR (lface)->contents));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5636 check_lface (lface);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5637 bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5638 face = realize_face (c, attrs, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5639
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5640 /* Remove the former default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5641 if (c->used > DEFAULT_FACE_ID)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5642 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5643 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5644 uncache_face (c, default_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5645 free_realized_face (f, default_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5646 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5647
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5648 /* Insert the new default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5649 cache_face (c, face, lface_hash (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5650 xassert (face->id == DEFAULT_FACE_ID);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5655 /* 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
5656 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
5657 have. The default face must have been realized already. */
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 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5660 realize_named_face (f, symbol, id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5661 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5662 Lisp_Object symbol;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5663 int id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5664 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5665 struct face_cache *c = FRAME_FACE_CACHE (f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5666 Lisp_Object lface = lface_from_face_name (f, symbol, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5667 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5668 Lisp_Object symbol_attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5669 struct face *new_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5670
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5671 /* The default face must exist and be fully specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5672 get_lface_attributes (f, Qdefault, attrs, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5673 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5674 xassert (lface_fully_specified_p (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5675
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5676 /* If SYMBOL isn't know as a face, create it. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5677 if (NILP (lface))
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 Lisp_Object frame;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5680 XSETFRAME (frame, f);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5681 lface = Finternal_make_lisp_face (symbol, frame);
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5684 /* Merge SYMBOL's face with the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5685 get_lface_attributes (f, symbol, symbol_attrs, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5686 merge_face_vectors (symbol_attrs, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5687
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5688 /* Realize the face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5689 new_face = realize_face (c, attrs, CHARSET_ASCII);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5690
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5691 /* Remove the former face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5692 if (c->used > id)
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 struct face *old_face = c->faces_by_id[id];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5695 uncache_face (c, old_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5696 free_realized_face (f, old_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5697 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5698
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5699 /* Insert the new face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5700 cache_face (c, new_face, lface_hash (attrs));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5701 xassert (new_face->id == id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5702 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5705 /* Realize the fully-specified face with attributes ATTRS in face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5706 cache C for character set CHARSET or for unibyte text if CHARSET <
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5707 0. Value is a pointer to the newly created realized face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5708
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5709 static struct face *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5710 realize_face (c, attrs, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5711 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5712 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5713 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5714 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5715 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5716
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5717 /* LFACE must be fully specified. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5718 xassert (c != NULL);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5719 check_lface_attrs (attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5720
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5721 if (FRAME_X_P (c->f))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5722 face = realize_x_face (c, attrs, charset);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5723 else if (FRAME_TERMCAP_P (c->f) || FRAME_MSDOS_P (c->f))
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5724 face = realize_tty_face (c, attrs, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5725 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5726 abort ();
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5727
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5728 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5729 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5730
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5731
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5732 /* Realize the fully-specified face with attributes ATTRS in face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5733 cache C for character set CHARSET or for unibyte text if CHARSET <
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5734 0. Do it for X frame C->f. Value is a pointer to the newly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5735 created realized face. */
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 static struct face *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5738 realize_x_face (c, attrs, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5739 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5740 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5741 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5742 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5743 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5744 struct face *face, *default_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5745 struct frame *f = c->f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5746 Lisp_Object stipple, overline, strike_through, box;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5747 Lisp_Object unibyte_registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5748 struct gcpro gcpro1;
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 xassert (FRAME_X_P (f));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5751
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5752 /* If realizing a face for use in unibyte text, get the X registry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5753 and encoding to use from Vface_default_registry. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5754 if (charset < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5755 unibyte_registry = (STRINGP (Vface_default_registry)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5756 ? Vface_default_registry
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5757 : build_string ("iso8859-1"));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5758 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5759 unibyte_registry = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5760 GCPRO1 (unibyte_registry);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5761
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5762 /* Allocate a new realized face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5763 face = make_realized_face (attrs, charset, unibyte_registry);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5764
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5765 /* 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
5766 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
5767 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5768 if (default_face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5769 && FACE_SUITABLE_FOR_CHARSET_P (default_face, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5770 && lface_same_font_attributes_p (default_face->lface, attrs))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5771 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5772 face->font = default_face->font;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5773 face->fontset = default_face->fontset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5774 face->font_info_id = default_face->font_info_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5775 face->font_name = default_face->font_name;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5776 face->registry = default_face->registry;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5777 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5778 else if (charset >= 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5779 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5780 /* For all charsets except CHARSET_COMPOSITION, we use our own
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5781 font selection functions to choose a best matching font for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5782 the specified face attributes. If the face specifies a
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5783 fontset alias name, the fontset determines the font name
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5784 pattern, otherwise we construct a font pattern from face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5785 attributes and charset.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5786
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5787 If charset is CHARSET_COMPOSITION, we always construct a face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5788 with a fontset, even if the face doesn't specify a fontset alias
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5789 (we use fontset-standard in that case). When the composite
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5790 character is displayed in xterm.c, a suitable concrete font is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5791 loaded in x_get_char_font_and_encoding. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5792
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5793 char *font_name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5794 int fontset = face_fontset (f, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5795
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5796 if (charset == CHARSET_COMPOSITION)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5797 fontset = max (0, fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5798 else if (fontset < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5799 font_name = choose_face_font (f, attrs, charset, Qnil);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5800 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5801 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5802 font_name = choose_face_fontset_font (f, attrs, fontset, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5803 fontset = -1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5804 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5805
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5806 load_face_font_or_fontset (f, face, font_name, fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5807 xfree (font_name);
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 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5810 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5811 /* Unibyte case, and font is not equal to that of the default
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5812 face. UNIBYTE_REGISTRY is the X registry and encoding the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5813 font should have. What is a reasonable thing to do if the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5814 user specified a fontset alias name for the face in this
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5815 case? We choose a font by taking the ASCII font of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5816 fontset, but using UNIBYTE_REGISTRY for its registry and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5817 encoding. */
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 char *font_name = NULL;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5820 int fontset = face_fontset (f, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5821
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5822 if (fontset < 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5823 font_name = choose_face_font (f, attrs, charset, unibyte_registry);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5824 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5825 font_name = choose_face_fontset_font (f, attrs, fontset, charset);
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 load_face_font_or_fontset (f, face, font_name, -1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5828 xfree (font_name);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5829 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5830
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5831 /* Load colors, and set remaining attributes. */
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 load_face_colors (f, face, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5834
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5835 /* Set up box. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5836 box = attrs[LFACE_BOX_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5837 if (STRINGP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5838 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5839 /* 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
5840 the string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5841 face->box_color = load_color (f, face, attrs[LFACE_BOX_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5842 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5843 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5844 face->box_line_width = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5845 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5846 else if (INTEGERP (box))
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 /* Simple box of specified line width in foreground color of the
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5849 face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5850 xassert (XINT (box) > 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5851 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5852 face->box_line_width = XFASTINT (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5853 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5854 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5855 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5856 else if (CONSP (box))
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 /* `(:width WIDTH :color COLOR :shadow SHADOW)'. SHADOW
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5859 being one of `raised' or `sunken'. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5860 face->box = FACE_SIMPLE_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5861 face->box_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5862 face->box_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5863 face->box_line_width = 1;
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 while (CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5866 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5867 Lisp_Object keyword, value;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5868
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5869 keyword = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5870 box = XCDR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5871
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5872 if (!CONSP (box))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5873 break;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5874 value = XCAR (box);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5875 box = XCDR (box);
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 if (EQ (keyword, QCline_width))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5878 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5879 if (INTEGERP (value) && XINT (value) > 0)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5880 face->box_line_width = XFASTINT (value);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5881 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5882 else if (EQ (keyword, QCcolor))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5883 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5884 if (STRINGP (value))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5885 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5886 face->box_color = load_color (f, face, value,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5887 LFACE_BOX_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5888 face->use_box_color_for_shadows_p = 1;
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5891 else if (EQ (keyword, QCstyle))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5892 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5893 if (EQ (value, Qreleased_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5894 face->box = FACE_RAISED_BOX;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5895 else if (EQ (value, Qpressed_button))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5896 face->box = FACE_SUNKEN_BOX;
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 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5899 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5900
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5901 /* Text underline, overline, strike-through. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5902
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5903 if (EQ (attrs[LFACE_UNDERLINE_INDEX], Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5904 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5905 /* Use default color (same as foreground color). */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5906 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5907 face->underline_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5908 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5909 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5910 else if (STRINGP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5911 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5912 /* Use specified color. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5913 face->underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5914 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5915 face->underline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5916 = load_color (f, face, attrs[LFACE_UNDERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5917 LFACE_UNDERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5918 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5919 else if (NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5920 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5921 face->underline_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5922 face->underline_defaulted_p = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5923 face->underline_color = 0;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5924 }
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 overline = attrs[LFACE_OVERLINE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5927 if (STRINGP (overline))
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 face->overline_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5930 = load_color (f, face, attrs[LFACE_OVERLINE_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5931 LFACE_OVERLINE_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5932 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5933 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5934 else if (EQ (overline, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5935 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5936 face->overline_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5937 face->overline_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5938 face->overline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5939 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5940
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5941 strike_through = attrs[LFACE_STRIKE_THROUGH_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5942 if (STRINGP (strike_through))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5943 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5944 face->strike_through_color
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5945 = load_color (f, face, attrs[LFACE_STRIKE_THROUGH_INDEX],
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5946 LFACE_STRIKE_THROUGH_INDEX);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5947 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5948 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5949 else if (EQ (strike_through, Qt))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5950 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5951 face->strike_through_color = face->foreground;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5952 face->strike_through_color_defaulted_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5953 face->strike_through_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5954 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5955
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5956 stipple = attrs[LFACE_STIPPLE_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5957 if (!NILP (stipple))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5958 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
5959
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5960 UNGCPRO;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5961 xassert (face->fontset < 0 || face->charset == CHARSET_COMPOSITION);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5962 xassert (FACE_SUITABLE_FOR_CHARSET_P (face, charset));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5963 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5964 #endif /* HAVE_X_WINDOWS */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5965 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5966
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5967
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5968 /* Realize the fully-specified face with attributes ATTRS in face
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5969 cache C for character set CHARSET or for unibyte text if CHARSET <
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5970 0. Do it for TTY frame C->f. Value is a pointer to the newly
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5971 created realized face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5972
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5973 static struct face *
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5974 realize_tty_face (c, attrs, charset)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5975 struct face_cache *c;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5976 Lisp_Object *attrs;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5977 int charset;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5978 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5979 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5980 int weight, slant;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5981 Lisp_Object color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5982
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5983 /* Frame must be a termcap frame. */
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5984 xassert (FRAME_TERMCAP_P (c->f) || FRAME_MSDOS_P (c->f));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5985
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5986 /* Allocate a new realized face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5987 face = make_realized_face (attrs, charset, Qnil);
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
5988 face->font_name = FRAME_MSDOS_P (c->f) ? "ms-dos" : "tty";
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5989
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5990 /* Map face attributes to TTY appearances. We map slant to
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5991 dimmed text because we want italic text to appear differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5992 and because dimmed text is probably used infrequently. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5993 weight = face_numeric_weight (attrs[LFACE_WEIGHT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5994 slant = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5996 if (weight > XLFD_WEIGHT_MEDIUM)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5997 face->tty_bold_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5998 if (weight < XLFD_WEIGHT_MEDIUM || slant != XLFD_SLANT_ROMAN)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
5999 face->tty_dim_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6000 if (!NILP (attrs[LFACE_UNDERLINE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6001 face->tty_underline_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6002 if (!NILP (attrs[LFACE_INVERSE_INDEX]))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6003 face->tty_reverse_p = 1;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6004
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6005 /* Map color names to color indices. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6006 face->foreground = face->background = FACE_TTY_DEFAULT_COLOR;
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 color = attrs[LFACE_FOREGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6009 if (XSTRING (color)->size
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6010 && (color = Fassoc (color, Vface_tty_color_alist),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6011 CONSP (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6012 face->foreground = XINT (XCDR (color));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6013
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6014 #ifdef MSDOS
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6015 if (FRAME_MSDOS_P (c->f) && face->foreground == FACE_TTY_DEFAULT_COLOR)
25213
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6016 {
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6017 face->foreground = load_color (c->f, face,
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6018 attrs[LFACE_FOREGROUND_INDEX],
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6019 LFACE_FOREGROUND_INDEX);
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6020 /* If the foreground of the default face is the default color,
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6021 use the foreground color defined by the frame. */
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6022 if (face->foreground == FACE_TTY_DEFAULT_COLOR)
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6023 {
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6024 face->foreground = FRAME_FOREGROUND_PIXEL (f);
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6025 attrs[LFACE_FOREGROUND_INDEX] =
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6026 build_string (msdos_stdcolor_name (face->foreground));
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6027 }
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6028 }
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6029 #endif
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6030
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6031 color = attrs[LFACE_BACKGROUND_INDEX];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6032 if (XSTRING (color)->size
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6033 && (color = Fassoc (color, Vface_tty_color_alist),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6034 CONSP (color)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6035 face->background = XINT (XCDR (color));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6036
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6037 #ifdef MSDOS
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6038 if (FRAME_MSDOS_P (c->f) && face->background == FACE_TTY_DEFAULT_COLOR)
25213
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6039 {
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6040 face->background = load_color (c->f, face,
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6041 attrs[LFACE_BACKGROUND_INDEX],
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6042 LFACE_BACKGROUND_INDEX);
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6043 /* If the background of the default face is the default color,
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6044 use the background color defined by the frame. */
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6045 if (face->background == FACE_TTY_DEFAULT_COLOR)
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6046 {
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6047 face->background = FRAME_BACKGROUND_PIXEL (f);
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6048 attrs[LFACE_BACKGROUND_INDEX] =
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6049 build_string (msdos_stdcolor_name (face->background));
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6050 }
11d01c90da6d (realize_default_face) [MSDOS]: Don't take default
Eli Zaretskii <eliz@gnu.org>
parents: 25114
diff changeset
6051 }
25114
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6052
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6053 /* Swap colors if face is inverse-video. */
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6054 if (face->tty_reverse_p)
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6055 {
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6056 unsigned long tem = face->foreground;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6057
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6058 face->foreground = face->background;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6059 face->background = tem;
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6060 }
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6061 #endif
be5d3e21fbd7 (load_color): Remove static from definition and remove
Eli Zaretskii <eliz@gnu.org>
parents: 25092
diff changeset
6062
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6063 return face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6064 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6065
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6066
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6067 DEFUN ("face-register-tty-color", Fface_register_tty_color,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6068 Sface_register_tty_color, 2, 2, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6069 "Say that COLOR is color number NUMBER on the terminal.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6070 COLOR is a string, the color name. Value is COLOR.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6071 (color, number)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6072 Lisp_Object color, number;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6073 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6074 Lisp_Object entry;
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 CHECK_STRING (color, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6077 CHECK_NUMBER (number, 1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6078 entry = Fassoc (color, Vface_tty_color_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6079 if (NILP (entry))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6080 Vface_tty_color_alist = Fcons (Fcons (color, number),
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6081 Vface_tty_color_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6082 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6083 Fsetcdr (entry, number);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6084 return color;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6085 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6086
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6087
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6088 DEFUN ("face-clear-tty-colors", Fface_clear_tty_colors,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6089 Sface_clear_tty_colors, 0, 0, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6090 "Unregister all registered tty colors.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6091 ()
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6092 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6093 return Vface_tty_color_alist = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6094 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6095
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6096
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6097 DEFUN ("tty-defined-colors", Ftty_defined_colors,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6098 Stty_defined_colors, 0, 0, 0,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6099 "Return a list of registered tty colors.")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6100 ()
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6101 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6102 Lisp_Object list, colors;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6103
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6104 colors = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6105 for (list = Vface_tty_color_alist; CONSP (list); list = XCDR (list))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6106 colors = Fcons (XCAR (XCAR (list)), colors);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6107
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6108 return colors;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6109 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6110
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6111
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6112
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 Computing Faces
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6115 ***********************************************************************/
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6116
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6117 /* 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
6118 property PROP on frame F in current_buffer. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6119
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6120 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6121 compute_char_face (f, ch, prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6122 struct frame *f;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6123 int ch;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6124 Lisp_Object prop;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6125 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6126 int face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6127 int charset = (NILP (current_buffer->enable_multibyte_characters)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6128 ? -1
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6129 : CHAR_CHARSET (ch));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6130
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6131 if (NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6132 face_id = FACE_FOR_CHARSET (f, DEFAULT_FACE_ID, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6133 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6134 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6135 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6136 struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6137 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6138 merge_face_vector_with_property (f, attrs, prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6139 face_id = lookup_face (f, attrs, charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6140 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6141
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6142 return face_id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6143 }
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6144
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6145
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6146 /* Return the face ID associated with buffer position POS for
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6147 displaying ASCII characters. Return in *ENDPTR the position at
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6148 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
6149 overlays are concerned. W is a window displaying current_buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6150
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6151 REGION_BEG, REGION_END delimit the region, so it can be
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6152 highlighted.
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 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
6155 this function can take.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6156
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6157 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
6158
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6159 The face returned is suitable for displaying CHARSET_ASCII if
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6160 current_buffer->enable_multibyte_characters is non-nil. Otherwise,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6161 the face is suitable for displaying unibyte text. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6162
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6163 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6164 face_at_buffer_position (w, pos, region_beg, region_end,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6165 endptr, limit, mouse)
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6166 struct window *w;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6167 int pos;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6168 int region_beg, region_end;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6169 int *endptr;
5084
863e092a5891 (compute_char_face): Accept new arg LIMIT.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
6170 int limit;
6615
96ddf85642d1 (compute_char_face): New arg MOUSE.
Richard M. Stallman <rms@gnu.org>
parents: 5858
diff changeset
6171 int mouse;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6172 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6173 struct frame *f = XFRAME (w->frame);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6174 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
6175 Lisp_Object prop, position;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6176 int i, noverlays;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6177 Lisp_Object *overlay_vec;
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6178 Lisp_Object frame;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6179 int endpos;
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6180 Lisp_Object propname = mouse ? Qmouse_face : Qface;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6181 Lisp_Object limit1, end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6182 struct face *default_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6183 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
6184
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6185 /* 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
6186 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
6187 /* xassert (XBUFFER (w->buffer) == current_buffer); */
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6188
9284
a969e0eefaf5 (compute_char_face): Use new accessor macros instead of calling XSET directly.
Karl Heuer <kwzh@gnu.org>
parents: 9186
diff changeset
6189 XSETFRAME (frame, f);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6190 XSETFASTINT (position, pos);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6191
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6192 endpos = ZV;
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6193 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
6194 endpos = region_beg;
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6195
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6196 /* Get the `face' or `mouse_face' text property at POS, and
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6197 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
6198 prop = Fget_text_property (position, propname, w->buffer);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6199 XSETFASTINT (limit1, (limit < endpos ? limit : endpos));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6200 end = Fnext_single_property_change (position, propname, w->buffer, limit1);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6201 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6202 endpos = XINT (end);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6203
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6204 /* 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
6205 {
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6206 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
6207 int len;
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6208
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6209 /* 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
6210 len = 40;
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6211 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
6212 noverlays = overlays_at (pos, 0, &overlay_vec, &len,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6213 &next_overlay, NULL);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6214
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6215 /* 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
6216 again. */
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6217 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
6218 {
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6219 len = noverlays;
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6220 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
6221 noverlays = overlays_at (pos, 0, &overlay_vec, &len,
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6222 &next_overlay, NULL);
2838
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6223 }
5f6a2d52d2ef (compute_char_face): Pass 0 as EXTEND arg to overlays_at.
Richard M. Stallman <rms@gnu.org>
parents: 2821
diff changeset
6224
2784
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6225 if (next_overlay < endpos)
f8c6796b7777 * xfaces.c (compute_char_face): When merging the overlays,
Jim Blandy <jimb@redhat.com>
parents: 2767
diff changeset
6226 endpos = next_overlay;
2767
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6227 }
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6228
482fa0725db6 * xfaces.c (intern_frame_face): Exchange order of arguments, to
Jim Blandy <jimb@redhat.com>
parents: 2743
diff changeset
6229 *endptr = endpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6230
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6231 default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6232
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6233 /* Optimize common cases where we can use the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6234 if (noverlays == 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6235 && NILP (prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6236 && !(pos >= region_beg && pos < region_end)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6237 && (multibyte_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6238 || !FRAME_WINDOW_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6239 || FACE_SUITABLE_FOR_CHARSET_P (default_face, -1)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6240 return DEFAULT_FACE_ID;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6241
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6242 /* Begin with attributes from the default face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6243 bcopy (default_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6244
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6245 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6246 if (!NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6247 merge_face_vector_with_property (f, attrs, prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6248
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6249 /* 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
6250 noverlays = sort_overlays (overlay_vec, noverlays, w);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6251 for (i = 0; i < noverlays; i++)
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6252 {
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6253 Lisp_Object oend;
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6254 int oendpos;
9186
45bac5feb065 (compute_char_face): Handle list as overlay face property.
Richard M. Stallman <rms@gnu.org>
parents: 9184
diff changeset
6255
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6256 prop = Foverlay_get (overlay_vec[i], propname);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6257 if (!NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6258 merge_face_vector_with_property (f, attrs, prop);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6259
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6260 oend = OVERLAY_END (overlay_vec[i]);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6261 oendpos = OVERLAY_POSITION (oend);
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6262 if (oendpos < endpos)
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6263 endpos = oendpos;
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6264 }
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6265
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6266 /* 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
6267 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
6268 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6269 Lisp_Object region_face = lface_from_face_name (f, Qregion, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6270 merge_face_vectors (XVECTOR (region_face)->contents, attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6271
2795
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6272 if (region_end < endpos)
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6273 endpos = region_end;
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6274 }
e97e96fb0cb8 (compute_char_face): New args REGION_BEG, REGION_END.
Richard M. Stallman <rms@gnu.org>
parents: 2784
diff changeset
6275
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6276 *endptr = endpos;
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6277
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6278 /* Look up a realized face with the given face attributes,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6279 or realize a new one. Charset is ignored for tty frames. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6280 return lookup_face (f, attrs, multibyte_p ? CHARSET_ASCII : -1);
2342
f881f2936eec *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2336
diff changeset
6281 }
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6282
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6283
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6284 /* Compute the face at character position POS in Lisp string STRING on
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6285 window W, for charset CHARSET_ASCII.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6286
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6287 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
6288 current_buffer, otherwise BUFPOS is zero to indicate that STRING is
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6289 not an overlay string. W must display the current buffer.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6290 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
6291 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
6292 id of the basic face to merge with. It is usually equal to
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6293 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
6294 for strings displayed in the mode or top line.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6295
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6296 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
6297 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
6298 string.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6299
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6300 Value is the id of the face to use. The face returned is suitable
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6301 for displaying CHARSET_ASCII if STRING is multibyte. Otherwise,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6302 the face is suitable for displaying unibyte text. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6303
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6304 int
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6305 face_at_string_position (w, string, pos, bufpos, region_beg,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6306 region_end, endptr, base_face_id)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6307 struct window *w;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6308 Lisp_Object string;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6309 int pos, bufpos;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6310 int region_beg, region_end;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6311 int *endptr;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6312 enum face_id base_face_id;
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6313 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6314 Lisp_Object prop, position, end, limit;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6315 struct frame *f = XFRAME (WINDOW_FRAME (w));
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6316 Lisp_Object attrs[LFACE_VECTOR_SIZE];
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6317 struct face *base_face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6318 int multibyte_p = STRING_MULTIBYTE (string);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6319
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6320 /* 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
6321 STRING. Value is nil if there is no face property. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6322 XSETFASTINT (position, pos);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6323 prop = Fget_text_property (position, Qface, string);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6324
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6325 /* 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
6326 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
6327 Otherwise it is a string position where to check faces next.
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6328 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
6329 changes in Fnext_single_property_change. Strings are usually
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6330 short, so set the limit to the end of the string. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6331 XSETFASTINT (limit, XSTRING (string)->size);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6332 end = Fnext_single_property_change (position, Qface, string, limit);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6333 if (INTEGERP (end))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6334 *endptr = XFASTINT (end);
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6335 else
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6336 *endptr = -1;
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 base_face = FACE_FROM_ID (f, base_face_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6339 xassert (base_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6340
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6341 /* 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
6342 are not in the region. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6343 if (NILP (prop)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6344 && (base_face_id != DEFAULT_FACE_ID
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6345 /* BUFPOS <= 0 means STRING is not an overlay string, so
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6346 that the region doesn't have to be taken into account. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6347 || bufpos <= 0
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6348 || bufpos < region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6349 || bufpos >= region_end)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6350 && (multibyte_p
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6351 /* We can't realize faces for different charsets differently
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6352 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
6353 on a window-system frame. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6354 || !FRAME_WINDOW_P (f)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6355 || FACE_SUITABLE_FOR_CHARSET_P (base_face, -1)))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6356 return base_face->id;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6357
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6358 /* Begin with attributes from the base face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6359 bcopy (base_face->lface, attrs, sizeof attrs);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6360
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6361 /* Merge in attributes specified via text properties. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6362 if (!NILP (prop))
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6363 merge_face_vector_with_property (f, attrs, prop);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6364
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6365 /* If in the region, merge in the region face. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6366 if (bufpos
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6367 && bufpos >= region_beg
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6368 && bufpos < region_end)
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6369 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6370 Lisp_Object region_face = lface_from_face_name (f, Qregion, 0);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6371 merge_face_vectors (XVECTOR (region_face)->contents, attrs);
19128
e789b647f15b (merge_face_list): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18723
diff changeset
6372 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6373
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6374 /* Look up a realized face with the given face attributes,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6375 or realize a new one. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6376 return lookup_face (f, attrs, multibyte_p ? CHARSET_ASCII : -1);
3074
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6377 }
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6378
96b4623fdeb3 * xterm.h: New section for declarations for xfaces.c.
Jim Blandy <jimb@redhat.com>
parents: 3065
diff changeset
6379
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6380
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6381 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6382 Tests
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6383 ***********************************************************************/
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 GLYPH_DEBUG
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 /* Print the contents of the realized face FACE to stderr. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6388
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6389 static void
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6390 dump_realized_face (face)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6391 struct face *face;
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6392 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6393 fprintf (stderr, "ID: %d\n", face->id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6394 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6395 fprintf (stderr, "gc: %d\n", (int) face->gc);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6396 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6397 fprintf (stderr, "foreground: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6398 face->foreground,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6399 XSTRING (face->lface[LFACE_FOREGROUND_INDEX])->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6400 fprintf (stderr, "background: 0x%lx (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6401 face->background,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6402 XSTRING (face->lface[LFACE_BACKGROUND_INDEX])->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6403 fprintf (stderr, "font_name: %s (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6404 face->font_name,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6405 XSTRING (face->lface[LFACE_FAMILY_INDEX])->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6406 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6407 fprintf (stderr, "font = %p\n", face->font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6408 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6409 fprintf (stderr, "font_info_id = %d\n", face->font_info_id);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6410 fprintf (stderr, "fontset: %d\n", face->fontset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6411 fprintf (stderr, "underline: %d (%s)\n",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6412 face->underline_p,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6413 XSTRING (Fsymbol_name (face->lface[LFACE_UNDERLINE_INDEX]))->data);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6414 fprintf (stderr, "hash: %d\n", face->hash);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6415 fprintf (stderr, "charset: %d\n", face->charset);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6416 }
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
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6419 DEFUN ("dump-face", Fdump_face, Sdump_face, 0, 1, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6420 (n)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6421 Lisp_Object n;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6422 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6423 if (NILP (n))
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6424 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6425 int i;
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 fprintf (stderr, "font selection order: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6428 for (i = 0; i < DIM (font_sort_order); ++i)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6429 fprintf (stderr, "%d ", font_sort_order[i]);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6430 fprintf (stderr, "\n");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6431
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6432 fprintf (stderr, "alternative fonts: ");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6433 debug_print (Vface_alternative_font_family_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6434 fprintf (stderr, "\n");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6435
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
6436 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
6437 Fdump_face (make_number (i));
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6438 }
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6439 else
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6440 {
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6441 struct face *face;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6442 CHECK_NUMBER (n, 0);
25678
1878f7ae0df5 (frame_or_selected_frame): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents: 25661
diff changeset
6443 face = FACE_FROM_ID (SELECTED_FRAME (), XINT (n));
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6444 if (face == NULL)
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6445 error ("Not a valid face");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6446 dump_realized_face (face);
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
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6449 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6450 }
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6451
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6452
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6453 DEFUN ("show-face-resources", Fshow_face_resources, Sshow_face_resources,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6454 0, 0, 0, "")
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6455 ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6456 {
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6457 fprintf (stderr, "number of colors = %d\n", ncolors_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6458 fprintf (stderr, "number of pixmaps = %d\n", npixmaps_allocated);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6459 fprintf (stderr, "number of GCs = %d\n", ngcs);
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6460 return Qnil;
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6461 }
24995
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 #endif /* GLYPH_DEBUG != 0 */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6464
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6465
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6466
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6467 /***********************************************************************
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6468 Initialization
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6469 ***********************************************************************/
2730
139740855fa6 * xfaces.c (Fmake_face_internal): Do nothing for non-X frames.
Jim Blandy <jimb@redhat.com>
parents: 2538
diff changeset
6470
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6471 void
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6472 syms_of_xfaces ()
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6473 {
2391
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6474 Qface = intern ("face");
226dcdb8ab67 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 2342
diff changeset
6475 staticpro (&Qface);
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
6476 Qbitmap_spec_p = intern ("bitmap-spec-p");
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
6477 staticpro (&Qbitmap_spec_p);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6478 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
6479 staticpro (&Qframe_update_face_colors);
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6480
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6481 /* Lisp face attribute keywords. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6482 QCfamily = intern (":family");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6483 staticpro (&QCfamily);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6484 QCheight = intern (":height");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6485 staticpro (&QCheight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6486 QCweight = intern (":weight");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6487 staticpro (&QCweight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6488 QCslant = intern (":slant");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6489 staticpro (&QCslant);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6490 QCunderline = intern (":underline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6491 staticpro (&QCunderline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6492 QCinverse_video = intern (":inverse-video");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6493 staticpro (&QCinverse_video);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6494 QCreverse_video = intern (":reverse-video");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6495 staticpro (&QCreverse_video);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6496 QCforeground = intern (":foreground");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6497 staticpro (&QCforeground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6498 QCbackground = intern (":background");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6499 staticpro (&QCbackground);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6500 QCstipple = intern (":stipple");;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6501 staticpro (&QCstipple);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6502 QCwidth = intern (":width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6503 staticpro (&QCwidth);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6504 QCfont = intern (":font");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6505 staticpro (&QCfont);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6506 QCbold = intern (":bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6507 staticpro (&QCbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6508 QCitalic = intern (":italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6509 staticpro (&QCitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6510 QCoverline = intern (":overline");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6511 staticpro (&QCoverline);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6512 QCstrike_through = intern (":strike-through");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6513 staticpro (&QCstrike_through);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6514 QCbox = intern (":box");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6515 staticpro (&QCbox);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6516
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6517 /* Symbols used for Lisp face attribute values. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6518 QCcolor = intern (":color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6519 staticpro (&QCcolor);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6520 QCline_width = intern (":line-width");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6521 staticpro (&QCline_width);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6522 QCstyle = intern (":style");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6523 staticpro (&QCstyle);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6524 Qreleased_button = intern ("released-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6525 staticpro (&Qreleased_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6526 Qpressed_button = intern ("pressed-button");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6527 staticpro (&Qpressed_button);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6528 Qnormal = intern ("normal");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6529 staticpro (&Qnormal);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6530 Qultra_light = intern ("ultra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6531 staticpro (&Qultra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6532 Qextra_light = intern ("extra-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6533 staticpro (&Qextra_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6534 Qlight = intern ("light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6535 staticpro (&Qlight);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6536 Qsemi_light = intern ("semi-light");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6537 staticpro (&Qsemi_light);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6538 Qsemi_bold = intern ("semi-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6539 staticpro (&Qsemi_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6540 Qbold = intern ("bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6541 staticpro (&Qbold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6542 Qextra_bold = intern ("extra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6543 staticpro (&Qextra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6544 Qultra_bold = intern ("ultra-bold");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6545 staticpro (&Qultra_bold);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6546 Qoblique = intern ("oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6547 staticpro (&Qoblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6548 Qitalic = intern ("italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6549 staticpro (&Qitalic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6550 Qreverse_oblique = intern ("reverse-oblique");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6551 staticpro (&Qreverse_oblique);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6552 Qreverse_italic = intern ("reverse-italic");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6553 staticpro (&Qreverse_italic);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6554 Qultra_condensed = intern ("ultra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6555 staticpro (&Qultra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6556 Qextra_condensed = intern ("extra-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6557 staticpro (&Qextra_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6558 Qcondensed = intern ("condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6559 staticpro (&Qcondensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6560 Qsemi_condensed = intern ("semi-condensed");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6561 staticpro (&Qsemi_condensed);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6562 Qsemi_expanded = intern ("semi-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6563 staticpro (&Qsemi_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6564 Qexpanded = intern ("expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6565 staticpro (&Qexpanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6566 Qextra_expanded = intern ("extra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6567 staticpro (&Qextra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6568 Qultra_expanded = intern ("ultra-expanded");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6569 staticpro (&Qultra_expanded);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6570 Qbackground_color = intern ("background-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6571 staticpro (&Qbackground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6572 Qforeground_color = intern ("foreground-color");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6573 staticpro (&Qforeground_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6574 Qunspecified = intern ("unspecified");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6575 staticpro (&Qunspecified);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6576
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6577 Qx_charset_registry = intern ("x-charset-registry");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6578 staticpro (&Qx_charset_registry);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6579 Qface_alias = intern ("face-alias");
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6580 staticpro (&Qface_alias);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6581 Qdefault = intern ("default");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6582 staticpro (&Qdefault);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6583 Qmode_line = intern ("mode-line");
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6584 staticpro (&Qmode_line);
25544
693ca9ba497a Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents: 25389
diff changeset
6585 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
6586 staticpro (&Qtool_bar);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6587 Qregion = intern ("region");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6588 staticpro (&Qregion);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6589 Qfringe = intern ("fringe");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6590 staticpro (&Qfringe);
25546
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6591 Qheader_line = intern ("header-line");
Gerd Moellmann <gerd@gnu.org>
parents: 25544
diff changeset
6592 staticpro (&Qheader_line);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6593 Qscroll_bar = intern ("scroll-bar");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6594 staticpro (&Qscroll_bar);
25883
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
6595 Qmenu = intern ("menu");
2955c353186a (toplevel) [USE_MOTIF]: Include some Motif headers.
Gerd Moellmann <gerd@gnu.org>
parents: 25799
diff changeset
6596 staticpro (&Qmenu);
25592
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6597 Qcursor = intern ("cursor");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6598 staticpro (&Qcursor);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6599 Qborder = intern ("border");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6600 staticpro (&Qborder);
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6601 Qmouse = intern ("mouse");
c6be980d15a6 (recompute_basic_faces): Clear face cache.
Gerd Moellmann <gerd@gnu.org>
parents: 25546
diff changeset
6602 staticpro (&Qmouse);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6603
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6604 defsubr (&Sinternal_make_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6605 defsubr (&Sinternal_lisp_face_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6606 defsubr (&Sinternal_set_lisp_face_attribute);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6607 #ifdef HAVE_X_WINDOWS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6608 defsubr (&Sinternal_set_lisp_face_attribute_from_resource);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6609 defsubr (&Sface_color_gray_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6610 defsubr (&Sface_color_supported_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6611 #endif
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6612 defsubr (&Sinternal_get_lisp_face_attribute);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6613 defsubr (&Sinternal_lisp_face_attribute_values);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6614 defsubr (&Sinternal_lisp_face_equal_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6615 defsubr (&Sinternal_lisp_face_empty_p);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6616 defsubr (&Sinternal_copy_lisp_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6617 defsubr (&Sinternal_merge_in_global_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6618 defsubr (&Sface_font);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6619 defsubr (&Sframe_face_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6620 defsubr (&Sinternal_set_font_selection_order);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6621 defsubr (&Sinternal_set_alternative_font_family_alist);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6622 #if GLYPH_DEBUG
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6623 defsubr (&Sdump_face);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6624 defsubr (&Sshow_face_resources);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6625 #endif /* GLYPH_DEBUG */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6626 defsubr (&Sclear_face_cache);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6627
25270
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
6628 DEFVAR_LISP ("font-list-limit", &Vfont_list_limit,
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
6629 "*Limit for font matching.\n\
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
6630 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
6631 that number of fonts when searching for a matching font.");
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
6632 Vfont_list_limit = make_number (DEFAULT_FONT_LIST_LIMIT);
7c4983be66e4 (Vfont_list_limit): New.
Gerd Moellmann <gerd@gnu.org>
parents: 25213
diff changeset
6633
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6634 DEFVAR_LISP ("face-new-frame-defaults", &Vface_new_frame_defaults,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6635 "List of global face definitions (for internal use only.)");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6636 Vface_new_frame_defaults = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6637
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6638 DEFVAR_LISP ("face-default-stipple", &Vface_default_stipple,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6639 "*Default stipple pattern used on monochrome displays.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6640 This stipple pattern is used on monochrome displays\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6641 instead of shades of gray for a face background color.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6642 See `set-face-stipple' for possible values for this variable.");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6643 Vface_default_stipple = build_string ("gray3");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6644
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6645 DEFVAR_LISP ("face-default-registry", &Vface_default_registry,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6646 "Default registry and encoding to use.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6647 This registry and encoding is used for unibyte text. It is set up\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6648 from the specified frame font when Emacs starts. (For internal use only.)");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6649 Vface_default_registry = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6650
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6651 DEFVAR_LISP ("face-alternative-font-family-alist",
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6652 &Vface_alternative_font_family_alist, "");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6653 Vface_alternative_font_family_alist = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6654
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6655 #if SCALABLE_FONTS
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6656
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6657 DEFVAR_LISP ("scalable-fonts-allowed", &Vscalable_fonts_allowed,
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6658 "Allowed scalable fonts.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6659 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
6660 A value of t means allow any scalable font.\n\
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6661 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
6662 scaled if its name matches a regular expression in the list.");
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6663 Vscalable_fonts_allowed = Qnil;
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 #endif /* SCALABLE_FONTS */
18083
c361afa561c5 Include frame.h unconditionally.
Richard M. Stallman <rms@gnu.org>
parents: 17047
diff changeset
6666
9572
b36d5e88cccc *** empty log message ***
Morten Welinder <terra@diku.dk>
parents: 9566
diff changeset
6667 #ifdef HAVE_X_WINDOWS
25890
b10a34d40b55 (Qbitmap_spec_p): Replaces Qpixmap_spec_p.
Gerd Moellmann <gerd@gnu.org>
parents: 25883
diff changeset
6668 defsubr (&Sbitmap_spec_p);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6669 defsubr (&Sx_list_fonts);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6670 defsubr (&Sinternal_face_x_get_resource);
25661
a6e2ae7964fb (Fx_family_fonts): Replaces Fx_font_list.
Gerd Moellmann <gerd@gnu.org>
parents: 25592
diff changeset
6671 defsubr (&Sx_family_fonts);
24995
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6672 defsubr (&Sx_font_family_list);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6673 #endif /* HAVE_X_WINDOWS */
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 /* TTY face support. */
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6676 defsubr (&Sface_register_tty_color);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6677 defsubr (&Sface_clear_tty_colors);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6678 defsubr (&Stty_defined_colors);
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6679 Vface_tty_color_alist = Qnil;
b52cdabf9253 Implemented from scratch.
Gerd Moellmann <gerd@gnu.org>
parents: 23730
diff changeset
6680 staticpro (&Vface_tty_color_alist);
2336
7aaafd275bec Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6681 }