annotate src/xftfont.c @ 108361:c1fe9f79424a

Fix for Bug#5984. * composite.c (autocmp_chars): Save point as marker before calling auto-composition-function. * lisp.h (restore_point_unwind): Add prototype. * fileio.c (restore_point_unwind): Remove static attribute.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 30 Apr 2010 12:00:48 -0400
parents 1d1d5d9bd884
children bcae1f83a33e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* xftfont.c -- XFT font driver.
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106755
diff changeset
2 Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106755
diff changeset
3 Copyright (C) 2006, 2007, 2008, 2009, 2010
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 National Institute of Advanced Industrial Science and Technology (AIST)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 Registration Number H13PRO009
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 This file is part of GNU Emacs.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
9 GNU Emacs is free software: you can redistribute it and/or modify
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
11 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
12 (at your option) any later version.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 GNU Emacs is distributed in the hope that it will be useful,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 GNU General Public License for more details.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 #include <config.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 #include <stdio.h>
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 103838
diff changeset
24 #include <setjmp.h>
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 #include <X11/Xlib.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 #include <X11/Xft/Xft.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include "lisp.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 #include "dispextern.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "xterm.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 #include "frame.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 #include "blockinput.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 #include "character.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 #include "charset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 #include "fontset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 #include "font.h"
91143
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
37 #include "ftfont.h"
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 /* Xft font driver. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 static Lisp_Object Qxft;
106558
3d091f151696 xftfont.c: Parse symbolic names for constants also.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106538
diff changeset
42 static Lisp_Object QChinting, QCautohint, QChintstyle, QCrgba, QCembolden,
3d091f151696 xftfont.c: Parse symbolic names for constants also.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106538
diff changeset
43 QClcdfilter;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 /* The actual structure for Xft font that can be casted to struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 struct xftfont_info
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 struct font font;
106538
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
51 /* The following five members must be here in this order to be
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
52 compatible with struct ftfont_info (in ftfont.c). */
91143
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
53 #ifdef HAVE_LIBOTF
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
54 int maybe_otf; /* Flag to tell if this may be OTF or not. */
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
55 OTF *otf;
91163
a12e3e58ec94 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 91143
diff changeset
56 #endif /* HAVE_LIBOTF */
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
57 FT_Size ft_size;
101555
a8e049b0d2c2 (struct xftfont_info): New member `index'.
Kenichi Handa <handa@m17n.org>
parents: 100951
diff changeset
58 int index;
106538
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
59 FT_Matrix matrix;
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
60 Display *display;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
61 int screen;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
62 XftFont *xftfont;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 /* Structure pointed by (struct face *)->extra */
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
66
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 struct xftface_info
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 {
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
69 XftColor xft_fg; /* color for face->foreground */
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
70 XftColor xft_bg; /* color for face->background */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 static void xftfont_get_colors P_ ((FRAME_PTR, struct face *, GC gc,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 struct xftface_info *,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 XftColor *fg, XftColor *bg));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
78 /* Setup foreground and background colors of GC into FG and BG. If
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
79 XFTFACE_INFO is not NULL, reuse the colors in it if possible. BG
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
80 may be NULL. */
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
81
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 xftfont_get_colors (f, face, gc, xftface_info, fg, bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 GC gc;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 struct xftface_info *xftface_info;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 XftColor *fg, *bg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 if (xftface_info && face->gc == gc)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 *fg = xftface_info->xft_fg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 if (bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 *bg = xftface_info->xft_bg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 XGCValues xgcv;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 int fg_done = 0, bg_done = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 BLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 XGetGCValues (FRAME_X_DISPLAY (f), gc,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 GCForeground | GCBackground, &xgcv);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 if (xftface_info)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 if (xgcv.foreground == face->foreground)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 *fg = xftface_info->xft_fg, fg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 else if (xgcv.foreground == face->background)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 *fg = xftface_info->xft_bg, fg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 if (! bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 bg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 else if (xgcv.background == face->background)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 *bg = xftface_info->xft_bg, bg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 else if (xgcv.background == face->foreground)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 *bg = xftface_info->xft_fg, bg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 if (fg_done + bg_done < 2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 XColor colors[2];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 colors[0].pixel = fg->pixel = xgcv.foreground;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 if (bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 colors[1].pixel = bg->pixel = xgcv.background;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 XQueryColors (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), colors,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 bg ? 2 : 1);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 fg->color.alpha = 0xFFFF;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 fg->color.red = colors[0].red;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 fg->color.green = colors[0].green;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 fg->color.blue = colors[0].blue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 if (bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 bg->color.alpha = 0xFFFF;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 bg->color.red = colors[1].red;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135 bg->color.green = colors[1].green;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 bg->color.blue = colors[1].blue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 static Lisp_Object xftfont_list P_ ((Lisp_Object, Lisp_Object));
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
145 static Lisp_Object xftfont_match P_ ((Lisp_Object, Lisp_Object));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
146 static Lisp_Object xftfont_open P_ ((FRAME_PTR, Lisp_Object, int));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147 static void xftfont_close P_ ((FRAME_PTR, struct font *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 static int xftfont_prepare_face P_ ((FRAME_PTR, struct face *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 static void xftfont_done_face P_ ((FRAME_PTR, struct face *));
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
150 static int xftfont_has_char P_ ((Lisp_Object, int));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 static unsigned xftfont_encode_char P_ ((struct font *, int));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 static int xftfont_text_extents P_ ((struct font *, unsigned *, int,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153 struct font_metrics *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 static int xftfont_draw P_ ((struct glyph_string *, int, int, int, int, int));
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
155 static int xftfont_end_for_frame P_ ((FRAME_PTR f));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 struct font_driver xftfont_driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160 xftfont_list (frame, spec)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 Lisp_Object spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 {
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
164 Lisp_Object list = ftfont_driver.list (frame, spec), tail;
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
165
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
166 for (tail = list; CONSP (tail); tail = XCDR (tail))
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
167 ASET (XCAR (tail), FONT_TYPE_INDEX, Qxft);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
168 return list;
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
169 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
171 static Lisp_Object
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
172 xftfont_match (frame, spec)
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
173 Lisp_Object frame;
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
174 Lisp_Object spec;
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
175 {
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
176 Lisp_Object entity = ftfont_driver.match (frame, spec);
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
177
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
178 if (! NILP (entity))
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
179 ASET (entity, FONT_TYPE_INDEX, Qxft);
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
180 return entity;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182
96431
abddf0a4cec0 (xftfont_open): Don't call FcConfigSubstitute and
Kenichi Handa <handa@m17n.org>
parents: 96146
diff changeset
183 extern Lisp_Object ftfont_font_format P_ ((FcPattern *, Lisp_Object));
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
184 extern FcCharSet *ftfont_get_fc_charset P_ ((Lisp_Object));
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
185 extern Lisp_Object QCantialias;
90700
b165eceb829f (ftfont_font_format): Extern declaration.
Kenichi Handa <handa@m17n.org>
parents: 90675
diff changeset
186
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187 static FcChar8 ascii_printable[95];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
188
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
189 static void
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
190 xftfont_fix_match (pat, match)
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
191 FcPattern *pat, *match;
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
192 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
193 /* These values are not used for matching (except antialias), but for
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
194 rendering, so make sure they are carried over to the match.
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
195 We also put antialias here because most fonts are antialiased, so
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
196 the match will have antialias true. */
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
197
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
198 FcBool b = FcTrue;
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
199 int i;
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
200 double dpi;
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
201
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
202 FcPatternGetBool (pat, FC_ANTIALIAS, 0, &b);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
203 if (! b)
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
204 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
205 FcPatternDel (match, FC_ANTIALIAS);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
206 FcPatternAddBool (match, FC_ANTIALIAS, FcFalse);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
207 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
208 FcPatternGetBool (pat, FC_HINTING, 0, &b);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
209 if (! b)
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
210 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
211 FcPatternDel (match, FC_HINTING);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
212 FcPatternAddBool (match, FC_HINTING, FcFalse);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
213 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
214 if (FcResultMatch == FcPatternGetInteger (pat, FC_HINT_STYLE, 0, &i))
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
215 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
216 FcPatternDel (match, FC_HINT_STYLE);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
217 FcPatternAddInteger (match, FC_HINT_STYLE, i);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
218 }
106092
6804c4648fee * xftfont.c (xftfont_fix_match): Older versions of fontconfig does
Jan Djärv <jan.h.d@swipnet.se>
parents: 106089
diff changeset
219 #ifndef FC_LCD_FILTER
106089
b40edfe3e412 #ifdef on FC_LCD_FILTER.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106085
diff changeset
220 /* Older fontconfig versions don't have FC_LCD_FILTER. */
106092
6804c4648fee * xftfont.c (xftfont_fix_match): Older versions of fontconfig does
Jan Djärv <jan.h.d@swipnet.se>
parents: 106089
diff changeset
221 #define FC_LCD_FILTER "lcdfilter"
6804c4648fee * xftfont.c (xftfont_fix_match): Older versions of fontconfig does
Jan Djärv <jan.h.d@swipnet.se>
parents: 106089
diff changeset
222 #endif
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
223 if (FcResultMatch == FcPatternGetInteger (pat, FC_LCD_FILTER, 0, &i))
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
224 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
225 FcPatternDel (match, FC_LCD_FILTER);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
226 FcPatternAddInteger (match, FC_LCD_FILTER, i);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
227 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
228 if (FcResultMatch == FcPatternGetInteger (pat, FC_RGBA, 0, &i))
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
229 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
230 FcPatternDel (match, FC_RGBA);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
231 FcPatternAddInteger (match, FC_RGBA, i);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
232 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
233 if (FcResultMatch == FcPatternGetDouble (pat, FC_DPI, 0, &dpi))
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
234 {
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
235 FcPatternDel (match, FC_DPI);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
236 FcPatternAddDouble (match, FC_DPI, dpi);
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
237 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
238 }
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
239
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
240 static void
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
241 xftfont_add_rendering_parameters (pat, entity)
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
242 FcPattern *pat;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
243 Lisp_Object entity;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
244 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
245 Lisp_Object tail;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
246 int ival;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
247
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
248 for (tail = AREF (entity, FONT_EXTRA_INDEX); CONSP (tail); tail = XCDR (tail))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
249 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
250 Lisp_Object key = XCAR (XCAR (tail));
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
251 Lisp_Object val = XCDR (XCAR (tail));
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
252
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
253 if (EQ (key, QCantialias))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
254 FcPatternAddBool (pat, FC_ANTIALIAS, NILP (val) ? FcFalse : FcTrue);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
255 else if (EQ (key, QChinting))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
256 FcPatternAddBool (pat, FC_HINTING, NILP (val) ? FcFalse : FcTrue);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
257 else if (EQ (key, QCautohint))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
258 FcPatternAddBool (pat, FC_AUTOHINT, NILP (val) ? FcFalse : FcTrue);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
259 else if (EQ (key, QChintstyle))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
260 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
261 if (INTEGERP (val))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
262 FcPatternAddInteger (pat, FC_HINT_STYLE, XINT (val));
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
263 else if (SYMBOLP (val)
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
264 && FcNameConstant (SDATA (SYMBOL_NAME (val)), &ival))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
265 FcPatternAddInteger (pat, FC_HINT_STYLE, ival);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
266 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
267 else if (EQ (key, QCrgba))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
268 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
269 if (INTEGERP (val))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
270 FcPatternAddInteger (pat, FC_RGBA, XINT (val));
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
271 else if (SYMBOLP (val)
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
272 && FcNameConstant (SDATA (SYMBOL_NAME (val)), &ival))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
273 FcPatternAddInteger (pat, FC_RGBA, ival);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
274 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
275 else if (EQ (key, QClcdfilter))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
276 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
277 if (INTEGERP (val))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
278 FcPatternAddInteger (pat, FC_LCD_FILTER, ival = XINT (val));
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
279 else if (SYMBOLP (val)
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
280 && FcNameConstant (SDATA (SYMBOL_NAME (val)), &ival))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
281 FcPatternAddInteger (pat, FC_LCD_FILTER, ival);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
282 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
283 #ifdef FC_EMBOLDEN
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
284 else if (EQ (key, QCembolden))
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
285 FcPatternAddBool (pat, FC_EMBOLDEN, NILP (val) ? FcFalse : FcTrue);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
286 #endif
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
287 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
288 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
289
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
290 static Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 xftfont_open (f, entity, pixel_size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 int pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 {
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
296 FcResult result;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297 Display *display = FRAME_X_DISPLAY (f);
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
298 Lisp_Object val, filename, index, font_object;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
299 FcPattern *pat = NULL, *match;
90460
86449661f321 (xftfont_open): Change coding style of error
Kenichi Handa <handa@m17n.org>
parents: 90442
diff changeset
300 struct xftfont_info *xftfont_info = NULL;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302 double size = 0;
90460
86449661f321 (xftfont_open): Change coding style of error
Kenichi Handa <handa@m17n.org>
parents: 90442
diff changeset
303 XftFont *xftfont = NULL;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 int spacing;
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
305 char name[256];
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
306 int len, i;
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
307 XGlyphInfo extents;
91226
040f2e332dc3 (struct xftfont_info): Delete the member ft_face.
Kenichi Handa <handa@m17n.org>
parents: 91163
diff changeset
308 FT_Face ft_face;
106538
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
309 FcMatrix *matrix;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
311 val = assq_no_quit (QCfont_entity, AREF (entity, FONT_EXTRA_INDEX));
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
312 if (! CONSP (val))
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
313 return Qnil;
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
314 val = XCDR (val);
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
315 filename = XCAR (val);
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
316 index = XCDR (val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 size = XINT (AREF (entity, FONT_SIZE_INDEX));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 if (size == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 size = pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320 pat = FcPatternCreate ();
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
321 FcPatternAddInteger (pat, FC_WEIGHT, FONT_WEIGHT_NUMERIC (entity));
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
322 i = FONT_SLANT_NUMERIC (entity) - 100;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
323 if (i < 0) i = 0;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
324 FcPatternAddInteger (pat, FC_SLANT, i);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
325 FcPatternAddInteger (pat, FC_WIDTH, FONT_WIDTH_NUMERIC (entity));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 FcPatternAddDouble (pat, FC_PIXEL_SIZE, pixel_size);
90714
698001835583 (xftfont_open): Call FcConfigSubstitute.
Kenichi Handa <handa@m17n.org>
parents: 90712
diff changeset
327 val = AREF (entity, FONT_FAMILY_INDEX);
698001835583 (xftfont_open): Call FcConfigSubstitute.
Kenichi Handa <handa@m17n.org>
parents: 90712
diff changeset
328 if (! NILP (val))
698001835583 (xftfont_open): Call FcConfigSubstitute.
Kenichi Handa <handa@m17n.org>
parents: 90712
diff changeset
329 FcPatternAddString (pat, FC_FAMILY, (FcChar8 *) SDATA (SYMBOL_NAME (val)));
96094
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
330 val = AREF (entity, FONT_FOUNDRY_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
331 if (! NILP (val))
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
332 FcPatternAddString (pat, FC_FOUNDRY, (FcChar8 *) SDATA (SYMBOL_NAME (val)));
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
333 val = AREF (entity, FONT_SPACING_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
334 if (! NILP (val))
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
335 FcPatternAddInteger (pat, FC_SPACING, XINT (val));
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
336 val = AREF (entity, FONT_DPI_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
337 if (! NILP (val))
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
338 {
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
339 double dbl = XINT (val);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
340
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
341 FcPatternAddDouble (pat, FC_DPI, dbl);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
342 }
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
343 val = AREF (entity, FONT_AVGWIDTH_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
344 if (INTEGERP (val) && XINT (val) == 0)
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
345 FcPatternAddBool (pat, FC_SCALABLE, FcTrue);
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
346 /* This is necessary to identify the exact font (e.g. 10x20.pcf.gz
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
347 over 10x20-ISO8859-1.pcf.gz). */
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
348 FcPatternAddCharSet (pat, FC_CHARSET, ftfont_get_fc_charset (entity));
96094
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
349
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
350 xftfont_add_rendering_parameters (pat, entity);
90442
d6abf2344438 (xftfont_open): Make the font name fontconfig's
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
351
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
352 FcPatternAddString (pat, FC_FILE, (FcChar8 *) SDATA (filename));
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
353 FcPatternAddInteger (pat, FC_INDEX, XINT (index));
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
354
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
355
90442
d6abf2344438 (xftfont_open): Make the font name fontconfig's
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
356 BLOCK_INPUT;
103199
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
357 /* Make sure that the Xrender extension is added before the Xft one.
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
358 Otherwise, the close-display hook set by Xft is called after the
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
359 one for Xrender, and the former tries to re-add the latter. This
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
360 results in inconsistency of internal states and leads to X
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
361 protocol error when one reconnects to the same X server.
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
362 (Bug#1696) */
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
363 {
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
364 int event_base, error_base;
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
365 XRenderQueryExtension (display, &event_base, &error_base);
3b14cedd241f (xftfont_open): Make sure that Xrender extension is added
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 102992
diff changeset
366 }
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
367
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
368 /* Substitute in values from X resources and XftDefaultSet. */
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
369 XftDefaultSubstitute (display, FRAME_X_SCREEN_NUMBER (f), pat);
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
370 match = XftFontMatch (display, FRAME_X_SCREEN_NUMBER (f), pat, &result);
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105669
diff changeset
371 xftfont_fix_match (pat, match);
106558
3d091f151696 xftfont.c: Parse symbolic names for constants also.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106538
diff changeset
372
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
373 FcPatternDestroy (pat);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
374 xftfont = XftFontOpenPattern (display, match);
103650
e561e9f73ad4 * xftfont.c (xftfont_open): Avoid passing NULL argument to
Chong Yidong <cyd@stupidchicken.com>
parents: 103199
diff changeset
375 if (!xftfont)
e561e9f73ad4 * xftfont.c (xftfont_open): Avoid passing NULL argument to
Chong Yidong <cyd@stupidchicken.com>
parents: 103199
diff changeset
376 {
e561e9f73ad4 * xftfont.c (xftfont_open): Avoid passing NULL argument to
Chong Yidong <cyd@stupidchicken.com>
parents: 103199
diff changeset
377 UNBLOCK_INPUT;
e561e9f73ad4 * xftfont.c (xftfont_open): Avoid passing NULL argument to
Chong Yidong <cyd@stupidchicken.com>
parents: 103199
diff changeset
378 XftPatternDestroy (match);
e561e9f73ad4 * xftfont.c (xftfont_open): Avoid passing NULL argument to
Chong Yidong <cyd@stupidchicken.com>
parents: 103199
diff changeset
379 return Qnil;
e561e9f73ad4 * xftfont.c (xftfont_open): Avoid passing NULL argument to
Chong Yidong <cyd@stupidchicken.com>
parents: 103199
diff changeset
380 }
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
381 ft_face = XftLockFace (xftfont);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
382 UNBLOCK_INPUT;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
383
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 /* We should not destroy PAT here because it is kept in XFTFONT and
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385 destroyed automatically when XFTFONT is closed. */
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
386 font_object = font_make_object (VECSIZE (struct xftfont_info), entity, size);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
387 ASET (font_object, FONT_TYPE_INDEX, Qxft);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
388 len = font_unparse_xlfd (entity, size, name, 256);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
389 if (len > 0)
100551
42e9e426d886 (xftfont_open): Genarate a multibyte string if give names are utf-8.
Kenichi Handa <handa@m17n.org>
parents: 100427
diff changeset
390 ASET (font_object, FONT_NAME_INDEX, make_string (name, len));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
391 len = font_unparse_fcname (entity, size, name, 256);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
392 if (len > 0)
100551
42e9e426d886 (xftfont_open): Genarate a multibyte string if give names are utf-8.
Kenichi Handa <handa@m17n.org>
parents: 100427
diff changeset
393 ASET (font_object, FONT_FULLNAME_INDEX, make_string (name, len));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
394 else
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
395 ASET (font_object, FONT_FULLNAME_INDEX,
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
396 AREF (font_object, FONT_NAME_INDEX));
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
397 ASET (font_object, FONT_FILE_INDEX, filename);
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
398 ASET (font_object, FONT_FORMAT_INDEX,
96431
abddf0a4cec0 (xftfont_open): Don't call FcConfigSubstitute and
Kenichi Handa <handa@m17n.org>
parents: 96146
diff changeset
399 ftfont_font_format (xftfont->pattern, filename));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
400 font = XFONT_OBJECT (font_object);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
401 font->pixel_size = pixel_size;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
402 font->driver = &xftfont_driver;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
403 font->encoding_charset = font->repertory_charset = -1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
405 xftfont_info = (struct xftfont_info *) font;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
406 xftfont_info->display = display;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407 xftfont_info->screen = FRAME_X_SCREEN_NUMBER (f);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408 xftfont_info->xftfont = xftfont;
106538
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
409 /* This means that there's no need of transformation. */
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
410 xftfont_info->matrix.xx = 0;
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
411 if (FcPatternGetMatrix (xftfont->pattern, FC_MATRIX, 0, &matrix)
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
412 == FcResultMatch)
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
413 {
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
414 xftfont_info->matrix.xx = 0x10000L * matrix->xx;
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
415 xftfont_info->matrix.yy = 0x10000L * matrix->yy;
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
416 xftfont_info->matrix.xy = 0x10000L * matrix->xy;
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
417 xftfont_info->matrix.yx = 0x10000L * matrix->yx;
500878bee91d (struct xftfont_info): New member matrix.
Kenichi Handa <handa@m17n.org>
parents: 106290
diff changeset
418 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 font->pixel_size = size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420 font->driver = &xftfont_driver;
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
421 if (INTEGERP (AREF (entity, FONT_SPACING_INDEX)))
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
422 spacing = XINT (AREF (entity, FONT_SPACING_INDEX));
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
423 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
424 spacing = FC_PROPORTIONAL;
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
425 if (! ascii_printable[0])
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
426 {
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
427 int i;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
428 for (i = 0; i < 95; i++)
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
429 ascii_printable[i] = ' ' + i;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
430 }
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
431 BLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432 if (spacing != FC_PROPORTIONAL)
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
433 {
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
434 font->min_width = font->average_width = font->space_width
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
435 = xftfont->max_advance_width;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
436 XftTextExtents8 (display, xftfont, ascii_printable + 1, 94, &extents);
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
437 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
438 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
439 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
440 XftTextExtents8 (display, xftfont, ascii_printable, 1, &extents);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
441 font->space_width = extents.xOff;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
442 if (font->space_width <= 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
443 /* dirty workaround */
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
444 font->space_width = pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
445 XftTextExtents8 (display, xftfont, ascii_printable + 1, 94, &extents);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
446 font->average_width = (font->space_width + extents.xOff) / 95;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
447 }
90442
d6abf2344438 (xftfont_open): Make the font name fontconfig's
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
448 UNBLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
450 font->ascent = xftfont->ascent;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
451 font->descent = xftfont->descent;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
452 if (pixel_size >= 5)
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
453 {
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
454 /* The above condition is a dirty workaround because
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
455 XftTextExtents8 behaves strangely for some fonts
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
456 (e.g. "Dejavu Sans Mono") when pixel_size is less than 5. */
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
457 if (font->ascent < extents.y)
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
458 font->ascent = extents.y;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
459 if (font->descent < extents.height - extents.y)
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
460 font->descent = extents.height - extents.y;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
461 }
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
462 font->height = font->ascent + font->descent;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
463
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
464 if (XINT (AREF (entity, FONT_SIZE_INDEX)) == 0)
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
465 {
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
466 int upEM = ft_face->units_per_EM;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
467
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
468 font->underline_position = -ft_face->underline_position * size / upEM;
102861
0ea82e792866 (xftfont_open): Fix setting font->underline_thickness.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
469 font->underline_thickness = ft_face->underline_thickness * size / upEM;
95293
089ad7a58f94 (xftfont_open): Delete unused variable. If
Kenichi Handa <handa@m17n.org>
parents: 95102
diff changeset
470 if (font->underline_thickness > 2)
089ad7a58f94 (xftfont_open): Delete unused variable. If
Kenichi Handa <handa@m17n.org>
parents: 95102
diff changeset
471 font->underline_position -= font->underline_thickness / 2;
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
472 }
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
473 else
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
474 {
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
475 font->underline_position = -1;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
476 font->underline_thickness = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
477 }
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
478 #ifdef HAVE_LIBOTF
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
479 xftfont_info->maybe_otf = ft_face->face_flags & FT_FACE_FLAG_SFNT;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
480 xftfont_info->otf = NULL;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
481 #endif /* HAVE_LIBOTF */
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
482 xftfont_info->ft_size = ft_face->size;
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
483
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484 /* Unfortunately Xft doesn't provide a way to get minimum char
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 width. So, we use space_width instead. */
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
486 font->min_width = font->space_width;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
487
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
488 font->baseline_offset = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
489 font->relative_compose = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
490 font->default_ascent = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
491 font->vertical_centering = 0;
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
492 #ifdef FT_BDF_H
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
493 if (! (ft_face->face_flags & FT_FACE_FLAG_SFNT))
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
494 {
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
495 BDF_PropertyRec rec;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
496
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
497 if (FT_Get_BDF_Property (ft_face, "_MULE_BASELINE_OFFSET", &rec) == 0
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
498 && rec.type == BDF_PROPERTY_TYPE_INTEGER)
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
499 font->baseline_offset = rec.u.integer;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
500 if (FT_Get_BDF_Property (ft_face, "_MULE_RELATIVE_COMPOSE", &rec) == 0
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
501 && rec.type == BDF_PROPERTY_TYPE_INTEGER)
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
502 font->relative_compose = rec.u.integer;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
503 if (FT_Get_BDF_Property (ft_face, "_MULE_DEFAULT_ASCENT", &rec) == 0
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
504 && rec.type == BDF_PROPERTY_TYPE_INTEGER)
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
505 font->default_ascent = rec.u.integer;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
506 }
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
507 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
508
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
509 return font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
510 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
511
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
512 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
513 xftfont_close (f, font)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
514 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518
91143
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
519 #ifdef HAVE_LIBOTF
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
520 if (xftfont_info->otf)
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
521 OTF_close (xftfont_info->otf);
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
522 #endif
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
523 BLOCK_INPUT;
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
524 XftUnlockFace (xftfont_info->xftfont);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 XftFontClose (xftfont_info->display, xftfont_info->xftfont);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
526 UNBLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
527 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
528
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
529 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
530 xftfont_prepare_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
531 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
532 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
533 {
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
534 struct xftface_info *xftface_info;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
535
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
536 #if 0
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
537 /* This doesn't work if face->ascii_face doesn't use an Xft font. */
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
538 if (face != face->ascii_face)
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
539 {
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
540 face->extra = face->ascii_face->extra;
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
541 return 0;
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
542 }
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
543 #endif
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
544
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
545 xftface_info = malloc (sizeof (struct xftface_info));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
546 if (! xftface_info)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548 xftfont_get_colors (f, face, face->gc, NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 &xftface_info->xft_fg, &xftface_info->xft_bg);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
550 face->extra = xftface_info;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 xftfont_done_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
558 {
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
559 struct xftface_info *xftface_info;
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
560
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
561 #if 0
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
562 /* This doesn't work if face->ascii_face doesn't use an Xft font. */
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
563 if (face != face->ascii_face
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
564 || ! face->extra)
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
565 return;
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
566 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
567
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
568 xftface_info = (struct xftface_info *) face->extra;
90527
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
569 if (xftface_info)
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
570 {
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
571 free (xftface_info);
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
572 face->extra = NULL;
90527
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
573 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
574 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
575
102992
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
576 extern Lisp_Object Qja, Qko;
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
577
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
578 static int
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
579 xftfont_has_char (font, c)
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
580 Lisp_Object font;
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
581 int c;
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
582 {
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
583 struct xftfont_info *xftfont_info;
102992
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
584 struct charset *cs = NULL;
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
585
102992
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
586 if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qja)
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
587 && charset_jisx0208 >= 0)
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
588 cs = CHARSET_FROM_ID (charset_jisx0208);
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
589 else if (EQ (AREF (font, FONT_ADSTYLE_INDEX), Qko)
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
590 && charset_ksc5601 >= 0)
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
591 cs = CHARSET_FROM_ID (charset_ksc5601);
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
592 if (cs)
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
593 return (ENCODE_CHAR (cs, c) != CHARSET_INVALID_CODE (cs));
64cdf8a83bdd (xftfont_has_char): Special handling of `ja' and `ko' adstyle.
Kenichi Handa <handa@m17n.org>
parents: 102861
diff changeset
594
103838
a7805f91abdd (xftfont_open): Fix typo: FC_RGBA->FC_HINT_STYLE.
Kenichi Handa <handa@m17n.org>
parents: 103650
diff changeset
595 if (FONT_ENTITY_P (font))
a7805f91abdd (xftfont_open): Fix typo: FC_RGBA->FC_HINT_STYLE.
Kenichi Handa <handa@m17n.org>
parents: 103650
diff changeset
596 return ftfont_driver.has_char (font, c);
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
597 xftfont_info = (struct xftfont_info *) XFONT_OBJECT (font);
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
598 return (XftCharExists (xftfont_info->display, xftfont_info->xftfont,
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
599 (FcChar32) c) == FcTrue);
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
600 }
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
601
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
602 static unsigned
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
603 xftfont_encode_char (font, c)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
604 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
605 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
606 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
607 struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
608 unsigned code = XftCharIndex (xftfont_info->display, xftfont_info->xftfont,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
609 (FcChar32) c);
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
610
91269
421d7c7d296a (xftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91243
diff changeset
611 return (code ? code : FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
612 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
613
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
614 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
615 xftfont_text_extents (font, code, nglyphs, metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
616 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
617 unsigned *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
618 int nglyphs;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
619 struct font_metrics *metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
620 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
621 struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
622 XGlyphInfo extents;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
623
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
624 BLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
625 XftGlyphExtents (xftfont_info->display, xftfont_info->xftfont, code, nglyphs,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
626 &extents);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
627 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
628 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
629 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
630 metrics->lbearing = - extents.x;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
631 metrics->rbearing = - extents.x + extents.width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
632 metrics->width = extents.xOff;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
633 metrics->ascent = extents.y;
90616
68d59ef20174 (xftfont_text_extents): Fix calculation of descent
Kenichi Handa <handa@m17n.org>
parents: 90589
diff changeset
634 metrics->descent = extents.height - extents.y;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
636 return extents.xOff;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
637 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
638
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
639 static XftDraw *
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
640 xftfont_get_xft_draw (f)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
641 FRAME_PTR f;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
642 {
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
643 XftDraw *xft_draw = font_get_frame_data (f, &xftfont_driver);
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
644
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
645 if (! xft_draw)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
646 {
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
647 BLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
648 xft_draw= XftDrawCreate (FRAME_X_DISPLAY (f),
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
649 FRAME_X_WINDOW (f),
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
650 FRAME_X_VISUAL (f),
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
651 FRAME_X_COLORMAP (f));
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
652 UNBLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
653 if (! xft_draw)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
654 abort ();
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
655 font_put_frame_data (f, &xftfont_driver, xft_draw);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
656 }
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
657 return xft_draw;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
658 }
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
659
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
660 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
661 xftfont_draw (s, from, to, x, y, with_background)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
662 struct glyph_string *s;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
663 int from, to, x, y, with_background;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
664 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
665 FRAME_PTR f = s->f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
666 struct face *face = s->face;
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
667 struct xftfont_info *xftfont_info = (struct xftfont_info *) s->font;
91011
7239c19e55e9 (xftfont_draw): If s->font_info != s->face->font_info,
Kenichi Handa <handa@m17n.org>
parents: 90959
diff changeset
668 struct xftface_info *xftface_info = NULL;
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
669 XftDraw *xft_draw = xftfont_get_xft_draw (f);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
670 FT_UInt *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
671 XftColor fg, bg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
672 int len = to - from;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
673 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
674
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
675 if (s->font == face->font)
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
676 xftface_info = (struct xftface_info *) face->extra;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
677 xftfont_get_colors (f, face, s->gc, xftface_info,
90426
e9ed7d437c21 (xftfont_default_fid): Set fid_known to 1.
Kenichi Handa <handa@m17n.org>
parents: 90400
diff changeset
678 &fg, with_background ? &bg : NULL);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
679 BLOCK_INPUT;
91027
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
680 if (s->num_clips > 0)
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
681 XftDrawSetClipRectangles (xft_draw, 0, 0, s->clip, s->num_clips);
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
682 else
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
683 XftDrawSetClip (xft_draw, NULL);
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
684
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
685 if (with_background)
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
686 XftDrawRect (xft_draw, &bg,
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
687 x, y - face->font->ascent, s->width, face->font->height);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
688 code = alloca (sizeof (FT_UInt) * len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
689 for (i = 0; i < len; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
690 code[i] = ((XCHAR2B_BYTE1 (s->char2b + from + i) << 8)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
691 | XCHAR2B_BYTE2 (s->char2b + from + i));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
692
92184
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
693 if (s->padding_p)
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
694 for (i = 0; i < len; i++)
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
695 XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
696 x + i, y, code + i, 1);
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
697 else
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
698 XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
699 x, y, code, len);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
700 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
701
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
702 return len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
703 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
704
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
705 static int
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
706 xftfont_end_for_frame (f)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
707 FRAME_PTR f;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
708 {
106290
8671036bedc4 Don't crash if an X terminal is deleted with force == t.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106092
diff changeset
709 XftDraw *xft_draw;
8671036bedc4 Don't crash if an X terminal is deleted with force == t.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106092
diff changeset
710
8671036bedc4 Don't crash if an X terminal is deleted with force == t.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106092
diff changeset
711 /* Don't do anything if display is dead */
8671036bedc4 Don't crash if an X terminal is deleted with force == t.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106092
diff changeset
712 if (FRAME_X_DISPLAY (f) == NULL) return 0;
8671036bedc4 Don't crash if an X terminal is deleted with force == t.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106092
diff changeset
713
8671036bedc4 Don't crash if an X terminal is deleted with force == t.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106092
diff changeset
714 xft_draw = font_get_frame_data (f, &xftfont_driver);
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
715
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
716 if (xft_draw)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
717 {
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
718 BLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
719 XftDrawDestroy (xft_draw);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
720 UNBLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
721 font_put_frame_data (f, &xftfont_driver, NULL);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
722 }
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
723 return 0;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
724 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
725
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
726 static int
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
727 xftfont_cached_font_ok (f, font_object, entity)
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
728 struct frame *f;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
729 Lisp_Object font_object;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
730 Lisp_Object entity;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
731
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
732 {
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
733 struct xftfont_info *info = (struct xftfont_info *) XFONT_OBJECT (font_object);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
734 FcPattern *oldpat = info->xftfont->pattern;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
735 Display *display = FRAME_X_DISPLAY (f);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
736 FcPattern *pat = FcPatternCreate ();
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
737 FcBool b1, b2;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
738 int ok = 0, i1, i2, r1, r2;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
739
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
740 xftfont_add_rendering_parameters (pat, entity);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
741 XftDefaultSubstitute (display, FRAME_X_SCREEN_NUMBER (f), pat);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
742
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
743 r1 = FcPatternGetBool (pat, FC_ANTIALIAS, 0, &b1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
744 r2 = FcPatternGetBool (oldpat, FC_ANTIALIAS, 0, &b2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
745 if (r1 != r2 || b1 != b2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
746 r1 = FcPatternGetBool (pat, FC_HINTING, 0, &b1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
747 r2 = FcPatternGetBool (oldpat, FC_HINTING, 0, &b2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
748 if (r1 != r2 || b1 != b2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
749 r1 = FcPatternGetBool (pat, FC_AUTOHINT, 0, &b1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
750 r2 = FcPatternGetBool (oldpat, FC_AUTOHINT, 0, &b2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
751 if (r1 != r2 || b1 != b2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
752 #ifdef FC_EMBOLDEN
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
753 r1 = FcPatternGetBool (pat, FC_EMBOLDEN, 0, &b1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
754 r2 = FcPatternGetBool (oldpat, FC_EMBOLDEN, 0, &b2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
755 if (r1 != r2 || b1 != b2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
756 #endif
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
757 r1 = FcPatternGetInteger (pat, FC_HINT_STYLE, 0, &i1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
758 r2 = FcPatternGetInteger (oldpat, FC_HINT_STYLE, 0, &i2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
759 if (r1 != r2 || i1 != i2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
760 r1 = FcPatternGetInteger (pat, FC_LCD_FILTER, 0, &i1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
761 r2 = FcPatternGetInteger (oldpat, FC_LCD_FILTER, 0, &i2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
762 if (r1 != r2 || i1 != i2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
763 r1 = FcPatternGetInteger (pat, FC_RGBA, 0, &i1);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
764 r2 = FcPatternGetInteger (oldpat, FC_RGBA, 0, &i2);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
765 if (r1 != r2 || i1 != i2) goto out;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
766
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
767 ok = 1;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
768 out:
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
769 FcPatternDestroy (pat);
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
770 return ok;
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
771 }
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
772
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
773 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
774 syms_of_xftfont ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
775 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
776 DEFSYM (Qxft, "xft");
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
777 DEFSYM (QChinting, ":hinting");
100301
5c8b389c391a (syms_of_xftfont): Fix typo.
Chong Yidong <cyd@stupidchicken.com>
parents: 96562
diff changeset
778 DEFSYM (QCautohint, ":autohint");
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
779 DEFSYM (QChintstyle, ":hintstyle");
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
780 DEFSYM (QCrgba, ":rgba");
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
781 DEFSYM (QCembolden, ":embolden");
106558
3d091f151696 xftfont.c: Parse symbolic names for constants also.
Jan Djärv <jan.h.d@swipnet.se>
parents: 106538
diff changeset
782 DEFSYM (QClcdfilter, ":lcdfilter");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
783
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
784 xftfont_driver = ftfont_driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
785 xftfont_driver.type = Qxft;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
786 xftfont_driver.get_cache = xfont_driver.get_cache;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
787 xftfont_driver.list = xftfont_list;
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
788 xftfont_driver.match = xftfont_match;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
789 xftfont_driver.open = xftfont_open;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
790 xftfont_driver.close = xftfont_close;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
791 xftfont_driver.prepare_face = xftfont_prepare_face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
792 xftfont_driver.done_face = xftfont_done_face;
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
793 xftfont_driver.has_char = xftfont_has_char;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794 xftfont_driver.encode_char = xftfont_encode_char;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
795 xftfont_driver.text_extents = xftfont_text_extents;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
796 xftfont_driver.draw = xftfont_draw;
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
797 xftfont_driver.end_for_frame = xftfont_end_for_frame;
106755
574dd89b7759 Fix slowdown and wrong font choosed by XSETTINGS changes. bug #5157.
Jan D. <jan.h.d@swipnet.se>
parents: 106558
diff changeset
798 xftfont_driver.cached_font_ok = xftfont_cached_font_ok;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
799
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
800 register_font_driver (&xftfont_driver, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
801 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90426
diff changeset
802
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90426
diff changeset
803 /* arch-tag: 64ec61bf-7c8e-4fe6-b953-c6a85d5e1605
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90426
diff changeset
804 (do not change this comment) */