annotate src/composite.c @ 100258:bf2416a86e50

* term/xterm.el (terminal-init-xterm): Discard pending input before reading a reply to the terminal attributes query.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 06 Dec 2008 03:55:05 +0000
parents 0ba1e475119f
children e038c1a8307c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* Composite sequence support.
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 67658
diff changeset
2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78313
diff changeset
3 2006, 2007, 2008 Free Software Foundation, Inc.
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78313
diff changeset
4 Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
67658
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 65487
diff changeset
5 National Institute of Advanced Industrial Science and Technology (AIST)
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 65487
diff changeset
6 Registration Number H14PRO021
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
7 Copyright (C) 2003, 2006
88366
97f11940f06a Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41001
diff changeset
8 National Institute of Advanced Industrial Science and Technology (AIST)
97f11940f06a Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41001
diff changeset
9 Registration Number H13PRO009
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 This file is part of GNU Emacs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94922
diff changeset
13 GNU Emacs is free software: you can redistribute it and/or modify
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 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: 94922
diff changeset
15 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: 94922
diff changeset
16 (at your option) any later version.
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 GNU Emacs is distributed in the hope that it will be useful,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 but WITHOUT ANY WARRANTY; without even the implied warranty of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 GNU General Public License for more details.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 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: 94922
diff changeset
24 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 #include <config.h>
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 #include "lisp.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include "buffer.h"
88366
97f11940f06a Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41001
diff changeset
29 #include "character.h"
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "intervals.h"
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
31 #include "window.h"
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
32 #include "frame.h"
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
33 #include "dispextern.h"
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
34 #include "font.h"
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 /* Emacs uses special text property `composition' to support character
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 composition. A sequence of characters that have the same (i.e. eq)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 `composition' property value is treated as a single composite
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 sequence (we call it just `composition' here after). Characters in
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 a composition are all composed somehow on the screen.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 The property value has this form when the composition is made:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 ((LENGTH . COMPONENTS) . MODIFICATION-FUNC)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 then turns to this form:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 (COMPOSITION-ID . (LENGTH COMPONENTS-VEC . MODIFICATION-FUNC))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 when the composition is registered in composition_hash_table and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 composition_table. These rather peculiar structures were designed
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 to make it easy to distinguish them quickly (we can do that by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 checking only the first element) and to extract LENGTH (from the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 former form) and COMPOSITION-ID (from the latter form).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 We register a composition when it is displayed, or when the width
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 is required (for instance, to calculate columns).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 LENGTH -- Length of the composition. This information is used to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 check the validity of the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 COMPONENTS -- Character, string, vector, list, or nil.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 If it is nil, characters in the text are composed relatively
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 according to their metrics in font glyphs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 If it is a character or a string, the character or characters
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 in the string are composed relatively.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 If it is a vector or list of integers, the element is a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 character or an encoded composition rule. The characters are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 composed according to the rules. (2N)th elements are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 characters to be composed and (2N+1)th elements are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 composition rules to tell how to compose (2N+2)th element with
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 the previously composed 2N glyphs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 COMPONENTS-VEC -- Vector of integers. In relative composition, the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 elements are characters to be composed. In rule-base
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 composition, the elements are characters or encoded
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 composition rules.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78 MODIFICATION-FUNC -- If non nil, it is a function to call when the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 composition gets invalid after a modification in a buffer. If
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 it is nil, a function in `composition-function-table' of the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 first character in the sequence is called.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 COMPOSITION-ID --Identification number of the composition. It is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 used as an index to composition_table for the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 When Emacs has to display a composition or has to know its
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 displaying width, the function get_composition_id is called. It
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 returns COMPOSITION-ID so that the caller can access the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 information about the composition through composition_table. If a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 COMPOSITION-ID has not yet been assigned to the composition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 get_composition_id checks the validity of `composition' property,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 and, if valid, assigns a new ID, registers the information in
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 composition_hash_table and composition_table, and changes the form
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 of the property value. If the property is invalid, return -1
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 without changing the property value.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 We use two tables to keep information about composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 composition_hash_table and composition_table.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 The former is a hash table in which keys are COMPONENTS-VECs and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 values are the corresponding COMPOSITION-IDs. This hash table is
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
102 weak, but as each key (COMPONENTS-VEC) is also kept as a value of the
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 `composition' property, it won't be collected as garbage until all
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
104 bits of text that have the same COMPONENTS-VEC are deleted.
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 The latter is a table of pointers to `struct composition' indexed
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
107 by COMPOSITION-ID. This structure keeps the other information (see
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 composite.h).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 In general, a text property holds information about individual
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 characters. But, a `composition' property holds information about
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
112 a sequence of characters (in this sense, it is like the `intangible'
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 property). That means that we should not share the property value
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
114 in adjacent compositions -- we can't distinguish them if they have the
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 same property. So, after any changes, we call
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 `update_compositions' and change a property of one of adjacent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 compositions to a copy of it. This function also runs a proper
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 composition modification function to make a composition that gets
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 invalid by the change valid again.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
121 As the value of the `composition' property holds information about a
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 specific range of text, the value gets invalid if we change the
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
123 text in the range. We treat the `composition' property as always
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 rear-nonsticky (currently by setting default-text-properties to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 (rear-nonsticky (composition))) and we never make properties of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 adjacent compositions identical. Thus, any such changes make the
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
127 range just shorter. So, we can check the validity of the `composition'
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 property by comparing LENGTH information with the actual length of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 Lisp_Object Qcomposition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 /* Table of pointers to the structure `composition' indexed by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 COMPOSITION-ID. This structure is for storing information about
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 each composition except for COMPONENTS-VEC. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139 struct composition **composition_table;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 /* The current size of `composition_table'. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142 static int composition_table_size;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 /* Number of compositions currently made. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 int n_compositions;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147 /* Hash table for compositions. The key is COMPONENTS-VEC of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 `composition' property. The value is the corresponding
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 COMPOSITION-ID. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150 Lisp_Object composition_hash_table;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 /* Function to call to adjust composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153 Lisp_Object Vcompose_chars_after_function;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
155 Lisp_Object Qauto_composed;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
156 Lisp_Object Vauto_composition_function;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
157 Lisp_Object Qauto_composition_function;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
158 Lisp_Object Vcomposition_function_table;
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
159
89546
c380df3cc4df (Fremove_list_of_text_properties): Declare.
Dave Love <fx@gnu.org>
parents: 89509
diff changeset
160 EXFUN (Fremove_list_of_text_properties, 4);
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
161
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 /* Temporary variable used in macros COMPOSITION_XXX. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 Lisp_Object composition_temp;
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
164
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
165
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
166 /* Return COMPOSITION-ID of a composition at buffer position
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167 CHARPOS/BYTEPOS and length NCHARS. The `composition' property of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 the sequence is PROP. STRING, if non-nil, is a string that
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169 contains the composition instead of the current buffer.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171 If the composition is invalid, return -1. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
173 int
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
174 get_composition_id (charpos, bytepos, nchars, prop, string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175 int charpos, bytepos, nchars;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
176 Lisp_Object prop, string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 Lisp_Object id, length, components, key, *key_contents;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 int glyph_len;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
180 struct Lisp_Hash_Table *hash_table = XHASH_TABLE (composition_hash_table);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 int hash_index;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182 unsigned hash_code;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
183 struct composition *cmp;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184 int i, ch;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
186 /* PROP should be
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187 Form-A: ((LENGTH . COMPONENTS) . MODIFICATION-FUNC)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
188 or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
189 Form-B: (COMPOSITION-ID . (LENGTH COMPONENTS-VEC . MODIFICATION-FUNC))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
190 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191 if (nchars == 0 || !CONSP (prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
192 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
194 id = XCAR (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
195 if (INTEGERP (id))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
196 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
197 /* PROP should be Form-B. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198 if (XINT (id) < 0 || XINT (id) >= n_compositions)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
199 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200 return XINT (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
201 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
202
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
203 /* PROP should be Form-A.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
204 Thus, ID should be (LENGTH . COMPONENTS). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205 if (!CONSP (id))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
207 length = XCAR (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208 if (!INTEGERP (length) || XINT (length) != nchars)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
210
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211 components = XCDR (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213 /* Check if the same composition has already been registered or not
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214 by consulting composition_hash_table. The key for this table is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 COMPONENTS (converted to a vector COMPONENTS-VEC) or, if it is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
216 nil, vector of characters in the composition range. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
217 if (INTEGERP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
218 key = Fmake_vector (make_number (1), components);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
219 else if (STRINGP (components) || CONSP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
220 key = Fvconcat (1, &components);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
221 else if (VECTORP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
222 key = components;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
223 else if (NILP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
224 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
225 key = Fmake_vector (make_number (nchars), Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
226 if (STRINGP (string))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
227 for (i = 0; i < nchars; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
228 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
229 FETCH_STRING_CHAR_ADVANCE (ch, string, charpos, bytepos);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
230 XVECTOR (key)->contents[i] = make_number (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
231 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
232 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233 for (i = 0; i < nchars; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 FETCH_CHAR_ADVANCE (ch, charpos, bytepos);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236 XVECTOR (key)->contents[i] = make_number (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
238 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
240 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
241
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
242 hash_index = hash_lookup (hash_table, key, &hash_code);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
243 if (hash_index >= 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
244 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245 /* We have already registered the same composition. Change PROP
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
246 from Form-A above to Form-B while replacing COMPONENTS with
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
247 COMPONENTS-VEC stored in the hash table. We can directly
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 modify the cons cell of PROP because it is not shared. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249 key = HASH_KEY (hash_table, hash_index);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250 id = HASH_VALUE (hash_table, hash_index);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
251 XSETCAR (prop, id);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
252 XSETCDR (prop, Fcons (make_number (nchars), Fcons (key, XCDR (prop))));
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253 return XINT (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
254 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 /* This composition is a new one. We must register it. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
257
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258 /* Check if we have sufficient memory to store this information. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 if (composition_table_size == 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 composition_table_size = 256;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262 composition_table
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263 = (struct composition **) xmalloc (sizeof (composition_table[0])
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 * composition_table_size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 else if (composition_table_size <= n_compositions)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268 composition_table_size += 256;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269 composition_table
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 = (struct composition **) xrealloc (composition_table,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271 sizeof (composition_table[0])
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 * composition_table_size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 key_contents = XVECTOR (key)->contents;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 /* Check if the contents of COMPONENTS are valid if COMPONENTS is a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
278 vector or a list. It should be a sequence of:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
279 char1 rule1 char2 rule2 char3 ... ruleN charN+1 */
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
280
94922
181a3677061e Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92028
diff changeset
281 if (VECTORP (components)
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
282 && ASIZE (components) >= 2
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
283 && VECTORP (AREF (components, 0)))
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
284 {
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
285 /* COMPONENTS is a glyph-string. */
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
286 int len = ASIZE (key);
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
287
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
288 for (i = 1; i < len; i++)
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
289 if (! VECTORP (AREF (key, i)))
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
290 goto invalid_composition;
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
291 }
94922
181a3677061e Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92028
diff changeset
292 else if (VECTORP (components) || CONSP (components))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 int len = XVECTOR (key)->size;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 /* The number of elements should be odd. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297 if ((len % 2) == 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299 /* All elements should be integers (character or encoded
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300 composition rule). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301 for (i = 0; i < len; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 if (!INTEGERP (key_contents[i]))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
306 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
307
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308 /* Change PROP from Form-A above to Form-B. We can directly modify
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 the cons cell of PROP because it is not shared. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 XSETFASTINT (id, n_compositions);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
311 XSETCAR (prop, id);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
312 XSETCDR (prop, Fcons (make_number (nchars), Fcons (key, XCDR (prop))));
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314 /* Register the composition in composition_hash_table. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 hash_index = hash_put (hash_table, key, id, hash_code);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 /* Register the composition in composition_table. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 cmp = (struct composition *) xmalloc (sizeof (struct composition));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320 cmp->method = (NILP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 ? COMPOSITION_RELATIVE
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322 : ((INTEGERP (components) || STRINGP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
323 ? COMPOSITION_WITH_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324 : COMPOSITION_WITH_RULE_ALTCHARS));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
325 cmp->hash_index = hash_index;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 glyph_len = (cmp->method == COMPOSITION_WITH_RULE_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
327 ? (XVECTOR (key)->size + 1) / 2
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
328 : XVECTOR (key)->size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329 cmp->glyph_len = glyph_len;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
330 cmp->offsets = (short *) xmalloc (sizeof (short) * glyph_len * 2);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 cmp->font = NULL;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
333 if (cmp->method != COMPOSITION_WITH_RULE_ALTCHARS)
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
335 /* Relative composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
336 cmp->width = 0;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337 for (i = 0; i < glyph_len; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 int this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 ch = XINT (key_contents[i]);
96413
b38a7de9af46 (get_composition_id): Fix the width calculation for TAB.
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
341 this_width = (ch == '\t' ? 1 : CHAR_WIDTH (ch));
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
342 if (cmp->width < this_width)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
343 cmp->width = this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
344 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
345 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
346 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
347 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
348 /* Rule-base composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
349 float leftmost = 0.0, rightmost;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
351 ch = XINT (key_contents[0]);
90618
b7ce72709298 (get_composition_id): Pay attention to TAB
Kenichi Handa <handa@m17n.org>
parents: 90405
diff changeset
352 rightmost = ch != '\t' ? CHAR_WIDTH (ch) : 1;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
353
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
354 for (i = 1; i < glyph_len; i += 2)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355 {
89726
2660b0974edb (get_composition_id): Handle xoff and yoff in a
Kenichi Handa <handa@m17n.org>
parents: 89706
diff changeset
356 int rule, gref, nref, xoff, yoff;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
357 int this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
358 float this_left;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
359
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
360 rule = XINT (key_contents[i]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
361 ch = XINT (key_contents[i + 1]);
90618
b7ce72709298 (get_composition_id): Pay attention to TAB
Kenichi Handa <handa@m17n.org>
parents: 90405
diff changeset
362 this_width = ch != '\t' ? CHAR_WIDTH (ch) : 1;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364 /* A composition rule is specified by an integer value
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 that encodes global and new reference points (GREF and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 NREF). GREF and NREF are specified by numbers as
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
367 below:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368 0---1---2 -- ascent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
369 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
371 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
372 9--10--11 -- center
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 ---3---4---5--- baseline
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
376 6---7---8 -- descent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377 */
89726
2660b0974edb (get_composition_id): Handle xoff and yoff in a
Kenichi Handa <handa@m17n.org>
parents: 89706
diff changeset
378 COMPOSITION_DECODE_RULE (rule, gref, nref, xoff, yoff);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 this_left = (leftmost
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380 + (gref % 3) * (rightmost - leftmost) / 2.0
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381 - (nref % 3) * this_width / 2.0);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
382
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
383 if (this_left < leftmost)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 leftmost = this_left;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385 if (this_left + this_width > rightmost)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 rightmost = this_left + this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
388
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
389 cmp->width = rightmost - leftmost;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390 if (cmp->width < (rightmost - leftmost))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391 /* To get a ceiling integer value. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
392 cmp->width++;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
393 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
394
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395 composition_table[n_compositions] = cmp;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
396
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397 return n_compositions++;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
398
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
399 invalid_composition:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
400 /* Would it be better to remove this `composition' property? */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
401 return -1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
403
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
405 /* Find a static composition at or nearest to position POS of OBJECT
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
406 (buffer or string).
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408 OBJECT defaults to the current buffer. If there's a composition at
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
409 POS, set *START and *END to the start and end of the sequence,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
410 *PROP to the `composition' property, and return 1.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
411
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412 If there's no composition at POS and LIMIT is negative, return 0.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
413
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
414 Otherwise, search for a composition forward (LIMIT > POS) or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 backward (LIMIT < POS). In this case, LIMIT bounds the search.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
416
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417 If a composition is found, set *START, *END, and *PROP as above,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418 and return 1, else return 0.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420 This doesn't check the validity of composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422 int
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
423 find_composition (pos, limit, start, end, prop, object)
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
424 int pos, limit;
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
425 EMACS_INT *start, *end;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
426 Lisp_Object *prop, object;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
427 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
428 Lisp_Object val;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
429
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
430 if (get_property_and_range (pos, Qcomposition, prop, start, end, object))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
431 return 1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
433 if (limit < 0 || limit == pos)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
434 return 0;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
435
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
436 if (limit > pos) /* search forward */
34933
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
437 {
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
438 val = Fnext_single_property_change (make_number (pos), Qcomposition,
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
439 object, make_number (limit));
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
440 pos = XINT (val);
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
441 if (pos == limit)
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
442 return 0;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
443 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
444 else /* search backward */
34933
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
445 {
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
446 if (get_property_and_range (pos - 1, Qcomposition, prop, start, end,
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
447 object))
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
448 return 1;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
449 val = Fprevious_single_property_change (make_number (pos), Qcomposition,
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
450 object, make_number (limit));
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
451 pos = XINT (val);
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
452 if (pos == limit)
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
453 return 0;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
454 pos--;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
455 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
456 get_property_and_range (pos, Qcomposition, prop, start, end, object);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
457 return 1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
458 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
459
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
460 /* Run a proper function to adjust the composition sitting between
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
461 FROM and TO with property PROP. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
462
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
463 static void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
464 run_composition_function (from, to, prop)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
465 int from, to;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
466 Lisp_Object prop;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
467 {
34958
e3133339e30c (run_composition_function): Remove unused variable
Eli Zaretskii <eliz@gnu.org>
parents: 34933
diff changeset
468 Lisp_Object func;
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
469 EMACS_INT start, end;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
470
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
471 func = COMPOSITION_MODIFICATION_FUNC (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
472 /* If an invalid composition precedes or follows, try to make them
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
473 valid too. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
474 if (from > BEGV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
475 && find_composition (from - 1, -1, &start, &end, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
476 && !COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
477 from = start;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
478 if (to < ZV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
479 && find_composition (to, -1, &start, &end, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
480 && !COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
481 to = end;
46940
545e543e82d5 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46938
diff changeset
482 if (!NILP (Ffboundp (func)))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
483 call2 (func, make_number (from), make_number (to));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486 /* Make invalid compositions adjacent to or inside FROM and TO valid.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
487 CHECK_MASK is bitwise `or' of mask bits defined by macros
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
488 CHECK_XXX (see the comment in composite.h).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
489
89361
1dd4e6b8509a (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 89340
diff changeset
490 It also resets the text-property `auto-composed' to a proper region
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
491 so that automatic character composition works correctly later while
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
492 displaying the region.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89361
diff changeset
493
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
494 This function is called when a buffer text is changed. If the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
495 change is deletion, FROM == TO. Otherwise, FROM < TO. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
496
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
497 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
498 update_compositions (from, to, check_mask)
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
499 EMACS_INT from, to;
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
500 int check_mask;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501 {
34958
e3133339e30c (run_composition_function): Remove unused variable
Eli Zaretskii <eliz@gnu.org>
parents: 34933
diff changeset
502 Lisp_Object prop;
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
503 EMACS_INT start, end;
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
504 /* The beginning and end of the region to set the property
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
505 `auto-composed' to nil. */
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
506 EMACS_INT min_pos = from, max_pos = to;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507
39046
a61b3d907098 (update_compositions): Do nothing if
Gerd Moellmann <gerd@gnu.org>
parents: 38116
diff changeset
508 if (inhibit_modification_hooks)
a61b3d907098 (update_compositions): Do nothing if
Gerd Moellmann <gerd@gnu.org>
parents: 38116
diff changeset
509 return;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
510
28581
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
511 /* If FROM and TO are not in a valid range, do nothing. */
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
512 if (! (BEGV <= from && from <= to && to <= ZV))
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
513 return;
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
514
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 if (check_mask & CHECK_HEAD)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 /* FROM should be at composition boundary. But, insertion or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518 deletion will make two compositions adjacent and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 indistinguishable when they have same (eq) property. To
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 avoid it, in such a case, we change the property of the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 latter to the copy of it. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
522 if (from > BEGV
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
523 && find_composition (from - 1, -1, &start, &end, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
524 && COMPOSITION_VALID_P (start, end, prop))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 {
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
526 min_pos = start;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
527 if (end > to)
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
528 max_pos = end;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
529 if (from < end)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
530 Fput_text_property (make_number (from), make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
531 Qcomposition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
532 Fcons (XCAR (prop), XCDR (prop)), Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
533 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
534 from = end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
535 }
37242
029c8c1b451d (update_compositions) <check_mask & CHECK_HEAD>: Fix
Dave Love <fx@gnu.org>
parents: 34958
diff changeset
536 else if (from < ZV
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
537 && find_composition (from, -1, &start, &from, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
538 && COMPOSITION_VALID_P (start, from, prop))
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
539 {
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
540 if (from > to)
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
541 max_pos = from;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
542 run_composition_function (start, from, prop);
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
543 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
544 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
545
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
546 if (check_mask & CHECK_INSIDE)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548 /* In this case, we are sure that (check & CHECK_TAIL) is also
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 nonzero. Thus, here we should check only compositions before
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
550 (to - 1). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551 while (from < to - 1
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 && find_composition (from, to, &start, &from, &prop, Qnil)
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
553 && COMPOSITION_VALID_P (start, from, prop)
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 && from < to - 1)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 run_composition_function (start, from, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
558 if (check_mask & CHECK_TAIL)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
559 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
560 if (from < to
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
561 && find_composition (to - 1, -1, &start, &end, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
562 && COMPOSITION_VALID_P (start, end, prop))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
563 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564 /* TO should be also at composition boundary. But,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565 insertion or deletion will make two compositions adjacent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
566 and indistinguishable when they have same (eq) property.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
567 To avoid it, in such a case, we change the property of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
568 the former to the copy of it. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
569 if (to < end)
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
570 {
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
571 Fput_text_property (make_number (start), make_number (to),
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
572 Qcomposition,
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
573 Fcons (XCAR (prop), XCDR (prop)), Qnil);
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
574 max_pos = end;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
575 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
576 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
577 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
578 else if (to < ZV
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
579 && find_composition (to, -1, &start, &end, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
580 && COMPOSITION_VALID_P (start, end, prop))
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
581 {
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
582 run_composition_function (start, end, prop);
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
583 max_pos = end;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
584 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
585 }
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
586 if (min_pos < max_pos)
89633
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
587 {
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
588 int count = SPECPDL_INDEX ();
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
589
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
590 specbind (Qinhibit_read_only, Qt);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
591 specbind (Qinhibit_modification_hooks, Qt);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
592 specbind (Qinhibit_point_motion_hooks, Qt);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
593 Fremove_list_of_text_properties (make_number (min_pos),
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
594 make_number (max_pos),
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
595 Fcons (Qauto_composed, Qnil), Qnil);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
596 unbind_to (count, Qnil);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
597 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
598 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
599
30022
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
600
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
601 /* Modify composition property values in LIST destructively. LIST is
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
602 a list as returned from text_property_list. Change values to the
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
603 top-level copies of them so that none of them are `eq'. */
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
604
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
605 void
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
606 make_composition_value_copy (list)
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
607 Lisp_Object list;
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
608 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
609 Lisp_Object plist, val;
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
610
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
611 for (; CONSP (list); list = XCDR (list))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
612 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
613 plist = XCAR (XCDR (XCDR (XCAR (list))));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
614 while (CONSP (plist) && CONSP (XCDR (plist)))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
615 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
616 if (EQ (XCAR (plist), Qcomposition)
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
617 && (val = XCAR (XCDR (plist)), CONSP (val)))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
618 XSETCAR (XCDR (plist), Fcons (XCAR (val), XCDR (val)));
30022
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
619 plist = XCDR (XCDR (plist));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
620 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
621 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
622 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
623
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
624
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
625 /* Make text in the region between START and END a composition that
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
626 has COMPONENTS and MODIFICATION-FUNC.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
627
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
628 If STRING is non-nil, then operate on characters contained between
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
629 indices START and END in STRING. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
630
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
631 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
632 compose_text (start, end, components, modification_func, string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
633 int start, end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
634 Lisp_Object components, modification_func, string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
636 Lisp_Object prop;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
637
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
638 prop = Fcons (Fcons (make_number (end - start), components),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
639 modification_func);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
640 Fput_text_property (make_number (start), make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
641 Qcomposition, prop, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
642 }
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
643
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
644
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
645 static Lisp_Object autocmp_chars P_ ((Lisp_Object, EMACS_INT, EMACS_INT,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
646 EMACS_INT, struct window *,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
647 struct face *, Lisp_Object));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
648
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
649
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
650 /* Lisp glyph-string handlers */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
651
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
652 /* Hash table for automatic composition. The key is a header of a
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
653 lgstring (Lispy glyph-string), and the value is a body of a
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
654 lgstring. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
655
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
656 static Lisp_Object gstring_hash_table;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
657
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
658 static Lisp_Object gstring_lookup_cache P_ ((Lisp_Object));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
659
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
660 static Lisp_Object
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
661 gstring_lookup_cache (header)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
662 Lisp_Object header;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
663 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
664 struct Lisp_Hash_Table *h = XHASH_TABLE (gstring_hash_table);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
665 int i = hash_lookup (h, header, NULL);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
666
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
667 return (i >= 0 ? HASH_VALUE (h, i) : Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
668 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
669
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
670 Lisp_Object
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
671 composition_gstring_put_cache (gstring, len)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
672 Lisp_Object gstring;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
673 int len;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
674 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
675 struct Lisp_Hash_Table *h = XHASH_TABLE (gstring_hash_table);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
676 unsigned hash;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
677 Lisp_Object header, copy;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
678 int i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
679
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
680 header = LGSTRING_HEADER (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
681 hash = h->hashfn (h, header);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
682 if (len < 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
683 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
684 len = LGSTRING_GLYPH_LEN (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
685 for (i = 0; i < len; i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
686 if (NILP (LGSTRING_GLYPH (gstring, i)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
687 break;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
688 len = i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
689 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
690
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
691 copy = Fmake_vector (make_number (len + 2), Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
692 LGSTRING_SET_HEADER (copy, Fcopy_sequence (header));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
693 for (i = 0; i < len; i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
694 LGSTRING_SET_GLYPH (copy, i, Fcopy_sequence (LGSTRING_GLYPH (gstring, i)));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
695 i = hash_put (h, LGSTRING_HEADER (copy), copy, hash);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
696 LGSTRING_SET_ID (copy, make_number (i));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
697 return copy;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
698 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
699
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
700 Lisp_Object
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
701 composition_gstring_from_id (id)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
702 int id;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
703 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
704 struct Lisp_Hash_Table *h = XHASH_TABLE (gstring_hash_table);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
705
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
706 return HASH_VALUE (h, id);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
707 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
708
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
709 static Lisp_Object fill_gstring_header P_ ((Lisp_Object, Lisp_Object,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
710 Lisp_Object, Lisp_Object,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
711 Lisp_Object));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
712
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
713 int
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
714 composition_gstring_p (gstring)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
715 Lisp_Object gstring;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
716 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
717 Lisp_Object header;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
718 int i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
719
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
720 if (! VECTORP (gstring) || ASIZE (gstring) < 2)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
721 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
722 header = LGSTRING_HEADER (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
723 if (! VECTORP (header) || ASIZE (header) < 2)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
724 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
725 if (! NILP (LGSTRING_FONT (gstring))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
726 && ! FONT_OBJECT_P (LGSTRING_FONT (gstring)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
727 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
728 for (i = 1; i < ASIZE (LGSTRING_HEADER (gstring)); i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
729 if (! NATNUMP (AREF (LGSTRING_HEADER (gstring), i)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
730 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
731 if (! NILP (LGSTRING_ID (gstring)) && ! NATNUMP (LGSTRING_ID (gstring)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
732 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
733 for (i = 0; i < LGSTRING_GLYPH_LEN (gstring); i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
734 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
735 Lisp_Object glyph = LGSTRING_GLYPH (gstring, i);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
736 if (NILP (glyph))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
737 break;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
738 if (! VECTORP (glyph) || ASIZE (glyph) != LGLYPH_SIZE)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
739 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
740 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
741 return 1;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
742 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
743
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
744 int
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
745 composition_gstring_width (gstring, from, to, metrics)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
746 Lisp_Object gstring;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
747 int from, to;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
748 struct font_metrics *metrics;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
749 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
750 Lisp_Object *glyph;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
751 int width = 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
752
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
753 if (metrics)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
754 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
755 Lisp_Object font_object = LGSTRING_FONT (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
756 struct font *font = XFONT_OBJECT (font_object);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
757
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
758 metrics->ascent = font->ascent;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
759 metrics->descent = font->descent;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
760 metrics->width = metrics->lbearing = metrics->rbearing = 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
761 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
762 for (glyph = &LGSTRING_GLYPH (gstring, from); from < to; from++, glyph++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
763 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
764 int x;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
765
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
766 if (NILP (LGLYPH_ADJUSTMENT (*glyph)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
767 width += LGLYPH_WIDTH (*glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
768 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
769 width += LGLYPH_WADJUST (*glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
770 if (metrics)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
771 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
772 x = metrics->width + LGLYPH_LBEARING (*glyph) + LGLYPH_XOFF (*glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
773 if (metrics->lbearing > x)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
774 metrics->lbearing = x;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
775 x = metrics->width + LGLYPH_RBEARING (*glyph) + LGLYPH_XOFF (*glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
776 if (metrics->rbearing < x)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
777 metrics->rbearing = x;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
778 metrics->width = width;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
779 x = LGLYPH_ASCENT (*glyph) - LGLYPH_YOFF (*glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
780 if (metrics->ascent < x)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
781 metrics->ascent = x;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
782 x = LGLYPH_DESCENT (*glyph) - LGLYPH_YOFF (*glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
783 if (metrics->descent < x)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
784 metrics->descent = x;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
785 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
786 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
787 return width;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
788 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
789
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
790
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
791 static Lisp_Object gstring_work;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
792 static Lisp_Object gstring_work_headers;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
793
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
794 static Lisp_Object
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
795 fill_gstring_header (header, start, end, font_object, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
796 Lisp_Object header, start, end, font_object, string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
797 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
798 EMACS_INT from, to, from_byte;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
799 EMACS_INT len, i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
800
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
801 if (NILP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
802 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
803 if (NILP (current_buffer->enable_multibyte_characters))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
804 error ("Attempt to shape unibyte text");
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
805 validate_region (&start, &end);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
806 from = XFASTINT (start);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
807 to = XFASTINT (end);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
808 from_byte = CHAR_TO_BYTE (from);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
809 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
810 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
811 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
812 CHECK_STRING (string);
99301
ef372a9c4197 (fill_gstring_header): Fix copy/paste typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 98369
diff changeset
813 if (! STRING_MULTIBYTE (string))
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
814 error ("Attempt to shape unibyte text");
98214
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
815 /* FROM and TO are checked by the caller. */
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
816 from = XINT (start);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
817 to = XINT (end);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
818 if (from < 0 || from > to || to > SCHARS (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
819 args_out_of_range_3 (string, start, end);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
820 from_byte = string_char_to_byte (string, from);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
821 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
822
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
823 len = to - from;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
824 if (len == 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
825 error ("Attempt to shape zero-length text");
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
826 if (VECTORP (header))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
827 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
828 if (ASIZE (header) != len + 1)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
829 args_out_of_range (header, make_number (len + 1));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
830 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
831 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
832 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
833 if (len <= 8)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
834 header = AREF (gstring_work_headers, len - 1);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
835 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
836 header = Fmake_vector (make_number (len + 1), Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
837 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
838
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
839 ASET (header, 0, font_object);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
840 for (i = 0; i < len; i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
841 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
842 int c;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
843
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
844 if (NILP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
845 FETCH_CHAR_ADVANCE_NO_CHECK (c, from, from_byte);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
846 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
847 FETCH_STRING_CHAR_ADVANCE_NO_CHECK (c, string, from, from_byte);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
848 ASET (header, i + 1, make_number (c));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
849 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
850 return header;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
851 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
852
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
853 extern void font_fill_lglyph_metrics P_ ((Lisp_Object, Lisp_Object));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
854
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
855 static void
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
856 fill_gstring_body (gstring)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
857 Lisp_Object gstring;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
858 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
859 Lisp_Object font_object = LGSTRING_FONT (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
860 Lisp_Object header = AREF (gstring, 0);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
861 EMACS_INT len = LGSTRING_CHAR_LEN (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
862 EMACS_INT i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
863
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
864 for (i = 0; i < len; i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
865 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
866 Lisp_Object g = LGSTRING_GLYPH (gstring, i);
97854
a361f652d863 (fill_gstring_body): Avoid compiler warnings.
Eli Zaretskii <eliz@gnu.org>
parents: 97819
diff changeset
867 EMACS_INT c = XINT (AREF (header, i + 1));
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
868
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
869 if (NILP (g))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
870 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
871 g = LGLYPH_NEW ();
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
872 LGSTRING_SET_GLYPH (gstring, i, g);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
873 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
874 LGLYPH_SET_FROM (g, i);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
875 LGLYPH_SET_TO (g, i);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
876 LGLYPH_SET_CHAR (g, c);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
877 if (! NILP (font_object))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
878 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
879 font_fill_lglyph_metrics (g, font_object);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
880 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
881 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
882 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
883 int width = XFASTINT (CHAR_TABLE_REF (Vchar_width_table, c));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
884
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
885 LGLYPH_SET_CODE (g, c);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
886 LGLYPH_SET_LBEARING (g, 0);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
887 LGLYPH_SET_RBEARING (g, width);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
888 LGLYPH_SET_WIDTH (g, width);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
889 LGLYPH_SET_ASCENT (g, 1);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
890 LGLYPH_SET_DESCENT (g, 0);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
891 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
892 LGLYPH_SET_ADJUSTMENT (g, Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
893 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
894 if (i < LGSTRING_GLYPH_LEN (gstring))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
895 LGSTRING_SET_GLYPH (gstring, i, Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
896 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
897
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
898 EXFUN (Fre_search_forward, 4);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
899
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
900 /* Try to compose the characters at CHARPOS according to CFT_ELEMENT
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
901 which is an element of composition-fucntion-table (which see).
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
902 LIMIT limits the characters to compose. STRING, if not nil, is a
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
903 target string. WIN is a window where the characters are being
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
904 displayed. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
905
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
906 static Lisp_Object
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
907 autocmp_chars (cft_element, charpos, bytepos, limit, win, face, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
908 Lisp_Object cft_element;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
909 EMACS_INT charpos, bytepos, limit;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
910 struct window *win;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
911 struct face *face;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
912 Lisp_Object string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
913 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
914 int count = SPECPDL_INDEX ();
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
915 FRAME_PTR f = XFRAME (win->frame);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
916 Lisp_Object pos = make_number (charpos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
917 EMACS_INT pt = PT, pt_byte = PT_BYTE;
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
918 int lookback;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
919
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
920 record_unwind_save_match_data ();
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
921 for (lookback = -1; CONSP (cft_element); cft_element = XCDR (cft_element))
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
922 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
923 Lisp_Object elt = XCAR (cft_element);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
924 Lisp_Object re;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
925 Lisp_Object font_object = Qnil, gstring;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
926 EMACS_INT to;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
927
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
928 if (! VECTORP (elt) || ASIZE (elt) != 3)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
929 continue;
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
930 if (lookback < 0)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
931 lookback = XFASTINT (AREF (elt, 1));
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
932 else if (lookback != XFASTINT (AREF (elt, 1)))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
933 break;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
934 re = AREF (elt, 0);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
935 if (NILP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
936 TEMP_SET_PT_BOTH (charpos, bytepos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
937 if (NILP (re)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
938 || (STRINGP (re)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
939 && (STRINGP (string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
940 ? EQ (Fstring_match (re, string, pos), pos)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
941 : (! NILP (Fre_search_forward (re, make_number (limit), Qt, Qnil))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
942 && EQ (Fmatch_beginning (make_number (0)), pos)))))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
943 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
944 to = (NILP (re) ? charpos + 1 : XINT (Fmatch_end (make_number (0))));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
945 #ifdef HAVE_WINDOW_SYSTEM
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
946 if (FRAME_WINDOW_P (f))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
947 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
948 font_object = font_range (charpos, &to, win, face, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
949 if (! FONT_OBJECT_P (font_object))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
950 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
951 if (NILP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
952 TEMP_SET_PT_BOTH (pt, pt_byte);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
953 return unbind_to (count, Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
954 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
955 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
956 #endif /* not HAVE_WINDOW_SYSTEM */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
957 gstring = Fcomposition_get_gstring (pos, make_number (to),
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
958 font_object, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
959 if (NILP (LGSTRING_ID (gstring)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
960 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
961 Lisp_Object args[6];
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
962
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
963 args[0] = Vauto_composition_function;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
964 args[1] = AREF (elt, 2);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
965 args[2] = pos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
966 args[3] = make_number (to);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
967 args[4] = font_object;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
968 args[5] = string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
969 gstring = safe_call (6, args);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
970 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
971 if (NILP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
972 TEMP_SET_PT_BOTH (pt, pt_byte);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
973 return unbind_to (count, gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
974 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
975 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
976 if (NILP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
977 TEMP_SET_PT_BOTH (pt, pt_byte);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
978 return unbind_to (count, Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
979 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
980
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
981
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
982 /* Update cmp_it->stop_pos to the next position after CHARPOS (and
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
983 BYTEPOS) where character composition may happen. If BYTEPOS is
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
984 negative, compoute it. If it is a static composition, set
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
985 cmp_it->ch to -1. Otherwise, set cmp_it->ch to the character that
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
986 triggers a automatic composition. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
987
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
988 void
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
989 composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
990 struct composition_it *cmp_it;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
991 EMACS_INT charpos, bytepos, endpos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
992 Lisp_Object string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
993 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
994 EMACS_INT start, end, c;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
995 Lisp_Object prop, val;
98107
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
996 /* This is from forward_to_next_line_start in xdisp.c. */
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
997 const int MAX_NEWLINE_DISTANCE = 500;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
998
98107
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
999 if (endpos > charpos + MAX_NEWLINE_DISTANCE)
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1000 endpos = charpos + MAX_NEWLINE_DISTANCE;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1001 cmp_it->stop_pos = endpos;
98128
092123c2b01a (composition_compute_stop_pos): Reset cmp_it->id to -1 at first.
Kenichi Handa <handa@m17n.org>
parents: 98115
diff changeset
1002 cmp_it->id = -1;
98115
463a86221cdd (composition_compute_stop_pos): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98107
diff changeset
1003 cmp_it->ch = -2;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1004 if (find_composition (charpos, endpos, &start, &end, &prop, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1005 && COMPOSITION_VALID_P (start, end, prop))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1006 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1007 cmp_it->stop_pos = endpos = start;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1008 cmp_it->ch = -1;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1009 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1010 if (NILP (current_buffer->enable_multibyte_characters)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1011 || ! FUNCTIONP (Vauto_composition_function))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1012 return;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1013 if (bytepos < 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1014 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1015 if (STRINGP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1016 bytepos = string_char_to_byte (string, charpos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1017 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1018 bytepos = CHAR_TO_BYTE (charpos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1019 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1020
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1021 start = charpos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1022 while (charpos < endpos)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1023 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1024 if (STRINGP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1025 FETCH_STRING_CHAR_ADVANCE (c, string, charpos, bytepos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1026 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1027 FETCH_CHAR_ADVANCE (c, charpos, bytepos);
98107
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1028 if (c == '\n')
98214
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1029 {
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1030 cmp_it->ch = -2;
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1031 break;
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1032 }
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1033 val = CHAR_TABLE_REF (Vcomposition_function_table, c);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1034 if (! NILP (val))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1035 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1036 Lisp_Object elt;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1037
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1038 for (; CONSP (val); val = XCDR (val))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1039 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1040 elt = XCAR (val);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1041 if (VECTORP (elt) && ASIZE (elt) == 3 && NATNUMP (AREF (elt, 1))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1042 && charpos - 1 - XFASTINT (AREF (elt, 1)) >= start)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1043 break;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1044 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1045 if (CONSP (val))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1046 {
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1047 cmp_it->lookback = XFASTINT (AREF (elt, 1));
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1048 cmp_it->stop_pos = charpos - 1 - cmp_it->lookback;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1049 cmp_it->ch = c;
98115
463a86221cdd (composition_compute_stop_pos): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98107
diff changeset
1050 return;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1051 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1052 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1053 }
98115
463a86221cdd (composition_compute_stop_pos): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98107
diff changeset
1054 cmp_it->stop_pos = charpos;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1055 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1056
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1057 /* Check if the character at CHARPOS (and BYTEPOS) is composed
99512
0ba1e475119f Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents: 99301
diff changeset
1058 (possibly with the following characters) on window W. ENDPOS limits
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1059 characters to be composed. FACE, in non-NULL, is a base face of
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1060 the character. If STRING is not nil, it is a string containing the
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1061 character to check, and CHARPOS and BYTEPOS are indices in the
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1062 string. In that case, FACE must not be NULL.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1063
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1064 If the character is composed, setup members of CMP_IT (id, nglyphs,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1065 and from), and return 1. Otherwise, update CMP_IT->stop_pos, and
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1066 return 0. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1067
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1068 int
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1069 composition_reseat_it (cmp_it, charpos, bytepos, endpos, w, face, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1070 struct composition_it *cmp_it;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1071 EMACS_INT charpos, bytepos, endpos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1072 struct window *w;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1073 struct face *face;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1074 Lisp_Object string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1075 {
98107
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1076 if (cmp_it->ch == -2)
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1077 {
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1078 composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string);
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1079 if (cmp_it->ch == -2)
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1080 return 0;
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1081 }
77ec19652e4d (composition_compute_stop_pos): Limit the search of composition to
Kenichi Handa <handa@m17n.org>
parents: 98100
diff changeset
1082
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1083 if (cmp_it->ch < 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1084 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1085 /* We are looking at a static composition. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1086 EMACS_INT start, end;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1087 Lisp_Object prop;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1088
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1089 find_composition (charpos, -1, &start, &end, &prop, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1090 cmp_it->id = get_composition_id (charpos, bytepos, end - start,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1091 prop, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1092 if (cmp_it->id < 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1093 goto no_composition;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1094 cmp_it->nchars = end - start;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1095 cmp_it->nglyphs = composition_table[cmp_it->id]->glyph_len;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1096 }
98156
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1097 else if (w)
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1098 {
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1099 Lisp_Object val, elt;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1100 int i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1101
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1102 val = CHAR_TABLE_REF (Vcomposition_function_table, cmp_it->ch);
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1103 for (; CONSP (val); val = XCDR (val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1104 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1105 elt = XCAR (val);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1106 if (cmp_it->lookback == XFASTINT (AREF (elt, 1)))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1107 break;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1108 }
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1109 if (NILP (val))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1110 goto no_composition;
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1111
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1112 val = autocmp_chars (val, charpos, bytepos, endpos, w, face, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1113 if (! composition_gstring_p (val))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1114 goto no_composition;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1115 if (NILP (LGSTRING_ID (val)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1116 val = composition_gstring_put_cache (val, -1);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1117 cmp_it->id = XINT (LGSTRING_ID (val));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1118 for (i = 0; i < LGSTRING_GLYPH_LEN (val); i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1119 if (NILP (LGSTRING_GLYPH (val, i)))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1120 break;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1121 cmp_it->nglyphs = i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1122 }
98156
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1123 else
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1124 goto no_composition;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1125 cmp_it->from = 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1126 return 1;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1127
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1128 no_composition:
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1129 charpos++;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1130 if (STRINGP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1131 bytepos += MULTIBYTE_LENGTH_NO_CHECK (SDATA (string) + bytepos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1132 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1133 INC_POS (bytepos);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1134 composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1135 return 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1136 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1137
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1138 int
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1139 composition_update_it (cmp_it, charpos, bytepos, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1140 struct composition_it *cmp_it;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1141 EMACS_INT charpos, bytepos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1142 Lisp_Object string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1143 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1144 int i, c;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1145
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1146 if (cmp_it->ch < 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1147 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1148 struct composition *cmp = composition_table[cmp_it->id];
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1149
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1150 cmp_it->to = cmp_it->nglyphs;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1151 if (cmp_it->nglyphs == 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1152 c = -1;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1153 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1154 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1155 for (i = 0; i < cmp->glyph_len; i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1156 if ((c = COMPOSITION_GLYPH (cmp, i)) != '\t')
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1157 break;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1158 if (c == '\t')
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1159 c = ' ';
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1160 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1161 cmp_it->width = cmp->width;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1162 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1163 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1164 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1165 Lisp_Object gstring = composition_gstring_from_id (cmp_it->id);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1166
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1167 if (cmp_it->nglyphs == 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1168 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1169 c = -1;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1170 cmp_it->nchars = LGSTRING_CHAR_LEN (gstring);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1171 cmp_it->width = 0;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1172 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1173 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1174 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1175 Lisp_Object glyph = LGSTRING_GLYPH (gstring, cmp_it->from);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1176 int from = LGLYPH_FROM (glyph);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1177
97887
cff62eaa08c4 * font.h (font_range):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97854
diff changeset
1178 c = XINT (LGSTRING_CHAR (gstring, from));
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1179 cmp_it->nchars = LGLYPH_TO (glyph) - from + 1;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1180 cmp_it->width = (LGLYPH_WIDTH (glyph) > 0
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1181 ? CHAR_WIDTH (LGLYPH_CHAR (glyph)) : 0);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1182 for (cmp_it->to = cmp_it->from + 1; cmp_it->to < cmp_it->nglyphs;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1183 cmp_it->to++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1184 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1185 glyph = LGSTRING_GLYPH (gstring, cmp_it->to);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1186 if (LGLYPH_FROM (glyph) != from)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1187 break;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1188 if (LGLYPH_WIDTH (glyph) > 0)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1189 cmp_it->width += CHAR_WIDTH (LGLYPH_CHAR (glyph));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1190 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1191 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1192 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1193
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1194 charpos += cmp_it->nchars;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1195 if (STRINGP (string))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1196 cmp_it->nbytes = string_char_to_byte (string, charpos) - bytepos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1197 else
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1198 cmp_it->nbytes = CHAR_TO_BYTE (charpos) - bytepos;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1199 return c;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1200 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1201
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1202
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1203 struct position_record
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1204 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1205 EMACS_INT pos, pos_byte;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1206 unsigned char *p;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1207 };
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1208
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1209 /* Update the members of POSTION to the next character boundary. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1210 #define FORWARD_CHAR(POSITION, STOP) \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1211 do { \
98068
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1212 (POSITION).pos++; \
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1213 if ((POSITION).pos == (STOP)) \
98068
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1214 { \
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1215 (POSITION).p = GAP_END_ADDR; \
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1216 (POSITION).pos_byte = GPT_BYTE; \
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1217 } \
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1218 else \
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1219 { \
98100
2eda9a0daa3e (FORWARD_CHAR): Fix calculation of (POSITION).pos_byte.
Kenichi Handa <handa@m17n.org>
parents: 98068
diff changeset
1220 (POSITION).pos_byte += BYTES_BY_CHAR_HEAD (*((POSITION).p)); \
98068
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1221 (POSITION).p += BYTES_BY_CHAR_HEAD (*((POSITION).p)); \
9723eb0d11ab (FORWARD_CHAR): Check STOP after incrementing (POSITION).pos.
Kenichi Handa <handa@m17n.org>
parents: 97982
diff changeset
1222 } \
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1223 } while (0)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1224
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1225 /* Update the members of POSTION to the previous character boundary. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1226 #define BACKWARD_CHAR(POSITION, STOP) \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1227 do { \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1228 if ((POSITION).pos == STOP) \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1229 (POSITION).p = GPT_ADDR; \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1230 do { \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1231 (POSITION).pos_byte--; \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1232 (POSITION).p--; \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1233 } while (! CHAR_HEAD_P (*((POSITION).p))); \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1234 (POSITION).pos--; \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1235 } while (0)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1236
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1237 static Lisp_Object _work_val;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1238 static int _work_char;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1239
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1240 /* 1 iff the character C is composable. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1241 #define CHAR_COMPOSABLE_P(C) \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1242 (_work_val = CHAR_TABLE_REF (Vunicode_category_table, (C)), \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1243 (SYMBOLP (_work_val) \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1244 && (_work_char = SDATA (SYMBOL_NAME (_work_val))[0]) != 'C' \
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1245 && _work_char != 'Z'))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1246
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1247 /* This is like find_composition, but find an automatic composition
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1248 instead. If found, set *GSTRING to the glyph-string representing
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1249 the composition, and return 1. Otherwise, return 0. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1250
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1251 static int
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1252 find_automatic_composition (pos, limit, start, end, gstring, string)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1253 EMACS_INT pos, limit, *start, *end;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1254 Lisp_Object *gstring, string;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1255 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1256 EMACS_INT head, tail, stop;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1257 struct position_record orig, cur, check, prev;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1258 Lisp_Object check_val, val, elt;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1259 int check_lookback;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1260 int c;
98156
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1261 Lisp_Object window;
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1262 struct window *w;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1263
98158
f9f157d63fd1 (find_automatic_composition): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98157
diff changeset
1264 window = Fget_buffer_window (Fcurrent_buffer (), Qnil);
98156
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1265 if (NILP (window))
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1266 return 0;
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1267 w = XWINDOW (window);
464ec62a612c (composition_reseat_it): If the current buffer is
Kenichi Handa <handa@m17n.org>
parents: 98128
diff changeset
1268
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1269 orig.pos = pos;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1270 if (NILP (string))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1271 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1272 head = BEGV, tail = ZV, stop = GPT;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1273 orig.pos_byte = CHAR_TO_BYTE (orig.pos);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1274 orig.p = BYTE_POS_ADDR (orig.pos_byte);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1275 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1276 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1277 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1278 head = 0, tail = SCHARS (string), stop = -1;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1279 orig.pos_byte = string_char_to_byte (string, orig.pos);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1280 orig.p = SDATA (string) + orig.pos_byte;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1281 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1282 if (limit < pos)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1283 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1284 head = max (head, limit);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1285 tail = min (tail, pos + 3);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1286 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1287 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1288 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1289 tail = min (tail, limit + 3);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1290 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1291 cur = orig;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1292
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1293 retry:
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1294 check_val = Qnil;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1295 /* At first, check if POS is compoable. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1296 c = STRING_CHAR (cur.p, 0);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1297 if (! CHAR_COMPOSABLE_P (c))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1298 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1299 if (limit < 0)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1300 return 0;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1301 if (limit >= cur.pos)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1302 goto search_forward;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1303 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1304 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1305 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1306 val = CHAR_TABLE_REF (Vcomposition_function_table, c);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1307 if (! NILP (val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1308 check_val = val, check = cur;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1309 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1310 while (cur.pos + 1 < tail)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1311 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1312 FORWARD_CHAR (cur, stop);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1313 c = STRING_CHAR (cur.p, 0);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1314 if (! CHAR_COMPOSABLE_P (c))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1315 break;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1316 val = CHAR_TABLE_REF (Vcomposition_function_table, c);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1317 if (NILP (val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1318 continue;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1319 check_val = val, check = cur;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1320 break;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1321 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1322 cur = orig;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1323 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1324 /* Rewind back to the position where we can safely search forward
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1325 for compositions. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1326 while (cur.pos > head)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1327 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1328 BACKWARD_CHAR (cur, stop);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1329 c = STRING_CHAR (cur.p, 0);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1330 if (! CHAR_COMPOSABLE_P (c))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1331 break;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1332 val = CHAR_TABLE_REF (Vcomposition_function_table, c);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1333 if (! NILP (val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1334 check_val = val, check = cur;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1335 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1336 prev = cur;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1337 /* Now search forward. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1338 search_forward:
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1339 *gstring = Qnil;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1340 if (! NILP (check_val) || limit >= orig.pos)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1341 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1342 if (NILP (check_val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1343 cur = orig;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1344 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1345 cur = check;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1346 while (cur.pos < tail)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1347 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1348 int need_adjustment = 0;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1349
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1350 if (NILP (check_val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1351 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1352 c = STRING_CHAR (cur.p, 0);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1353 check_val = CHAR_TABLE_REF (Vcomposition_function_table, c);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1354 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1355 for (; CONSP (check_val); check_val = XCDR (check_val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1356 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1357 elt = XCAR (check_val);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1358 if (VECTORP (elt) && ASIZE (elt) == 3 && NATNUMP (AREF (elt, 1))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1359 && cur.pos - XFASTINT (AREF (elt, 1)) >= head)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1360 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1361 check.pos = cur.pos - XFASTINT (AREF (elt, 1));
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1362 if (check.pos == cur.pos)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1363 check.pos_byte = cur.pos_byte;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1364 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1365 check.pos_byte = CHAR_TO_BYTE (check.pos);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1366 val = autocmp_chars (check_val, check.pos, check.pos_byte,
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1367 tail, w, NULL, string);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1368 need_adjustment = 1;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1369 if (! NILP (val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1370 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1371 *gstring = val;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1372 *start = check.pos;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1373 *end = check.pos + LGSTRING_CHAR_LEN (*gstring);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1374 if (*start <= orig.pos ? *end > orig.pos
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1375 : limit >= orig.pos)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1376 return 1;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1377 cur.pos = *end;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1378 cur.pos_byte = CHAR_TO_BYTE (cur.pos);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1379 break;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1380 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1381 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1382 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1383 if (need_adjustment)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1384 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1385 /* As we have called Lisp, there's a possibilily that
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1386 buffer/string is relocated. */
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1387 if (NILP (string))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1388 cur.p = BYTE_POS_ADDR (cur.pos_byte);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1389 else
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1390 cur.p = SDATA (string) + cur.pos_byte;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1391 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1392 if (! CONSP (check_val))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1393 FORWARD_CHAR (cur, stop);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1394 check_val = Qnil;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1395 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1396 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1397 if (! NILP (*gstring))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1398 return (limit >= 0 || (*start <= orig.pos && *end > orig.pos));
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1399 if (limit >= 0 && limit < orig.pos && prev.pos > head)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1400 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1401 cur = prev;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1402 BACKWARD_CHAR (cur, stop);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1403 orig = cur;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1404 tail = orig.pos;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1405 goto retry;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1406 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1407 return 0;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1408 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1409
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1410 int
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1411 composition_adjust_point (last_pt)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1412 EMACS_INT last_pt;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1413 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1414 EMACS_INT charpos, bytepos, startpos, beg, end, pos;
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1415 Lisp_Object val;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1416 int i;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1417
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1418 if (PT == BEGV || PT == ZV)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1419 return PT;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1420
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1421 /* At first check the static composition. */
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1422 if (get_property_and_range (PT, Qcomposition, &val, &beg, &end, Qnil)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1423 && COMPOSITION_VALID_P (beg, end, val)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1424 && beg < PT /* && end > PT <- It's always the case. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1425 && (last_pt <= beg || last_pt >= end))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1426 return (PT < last_pt ? beg : end);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1427
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1428 if (NILP (current_buffer->enable_multibyte_characters)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1429 || ! FUNCTIONP (Vauto_composition_function))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1430 return PT;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1431
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1432 /* Next check the automatic composition. */
98209
b5e444f66902 (composition_adjust_point): Fix int/EMACS_INT mixup.
Romain Francoise <romain@orebokech.com>
parents: 98197
diff changeset
1433 if (! find_automatic_composition (PT, (EMACS_INT) -1, &beg, &end, &val, Qnil)
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1434 || beg == PT)
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1435 return PT;
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1436 for (i = 0; i < LGSTRING_GLYPH_LEN (val); i++)
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1437 {
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1438 Lisp_Object glyph = LGSTRING_GLYPH (val, i);
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1439
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1440 if (NILP (glyph))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1441 break;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1442 if (beg + LGLYPH_FROM (glyph) == PT)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1443 return PT;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1444 if (beg + LGLYPH_TO (glyph) >= PT)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1445 return (PT < last_pt
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1446 ? beg + LGLYPH_FROM (glyph)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1447 : beg + LGLYPH_TO (glyph) + 1);
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1448 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1449 return PT;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1450 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1451
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1452 DEFUN ("composition-get-gstring", Fcomposition_get_gstring,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1453 Scomposition_get_gstring, 4, 4, 0,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1454 doc: /* Return a glyph-string for characters between FROM and TO.
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1455 If the glyph string is for graphic display, FONT-OBJECT must be
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1456 a font-object to use for those characters.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1457 Otherwise (for terminal display), FONT-OBJECT must be nil.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1458
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1459 If the optional 4th argument STRING is not nil, it is a string
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1460 containing the target characters between indices FROM and TO.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1461
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1462 A glyph-string is a vector containing information about how to display
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1463 a specific character sequence. The format is:
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1464 [HEADER ID GLYPH ...]
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1465
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1466 HEADER is a vector of this form:
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1467 [FONT-OBJECT CHAR ...]
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1468 where
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1469 FONT-OBJECT is a font-object for all glyphs in the glyph-string,
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1470 or nil if not yet decided.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1471 CHARs are characters to be composed by GLYPHs.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1472
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1473 ID is an identification number of the glyph-string. It may be nil if
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1474 not yet shaped.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1475
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1476 GLYPH is a vector whose elements have this form:
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1477 [ FROM-IDX TO-IDX C CODE WIDTH LBEARING RBEARING ASCENT DESCENT
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1478 [ [X-OFF Y-OFF WADJUST] | nil] ]
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1479 where
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1480 FROM-IDX and TO-IDX are used internally and should not be touched.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1481 C is the character of the glyph.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1482 CODE is the glyph-code of C in FONT-OBJECT.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1483 WIDTH thru DESCENT are the metrics (in pixels) of the glyph.
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1484 X-OFF and Y-OFF are offsets to the base position for the glyph.
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1485 WADJUST is the adjustment to the normal width of the glyph.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1486
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1487 If GLYPH is nil, the remaining elements of the glyph-string vector
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1488 should be ignored. */)
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1489 (from, to, font_object, string)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1490 Lisp_Object font_object, from, to, string;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1491 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1492 Lisp_Object gstring, header;
98213
52d26067a946 (Fcomposition_get_gstring): Yet another int/Lisp_Oject mixup (YAILOM).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 98209
diff changeset
1493 EMACS_INT frompos, topos;
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1494
98214
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1495 CHECK_NATNUM (from);
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1496 CHECK_NATNUM (to);
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1497 if (! NILP (font_object))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1498 CHECK_FONT_OBJECT (font_object);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1499 header = fill_gstring_header (Qnil, from, to, font_object, string);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1500 gstring = gstring_lookup_cache (header);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1501 if (! NILP (gstring))
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1502 return gstring;
98213
52d26067a946 (Fcomposition_get_gstring): Yet another int/Lisp_Oject mixup (YAILOM).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 98209
diff changeset
1503
98214
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1504 frompos = XINT (from);
5803b1114219 (fill_gstring_header): Don't check FROM and TO here.
Kenichi Handa <handa@m17n.org>
parents: 98213
diff changeset
1505 topos = XINT (to);
98213
52d26067a946 (Fcomposition_get_gstring): Yet another int/Lisp_Oject mixup (YAILOM).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 98209
diff changeset
1506 if (LGSTRING_GLYPH_LEN (gstring_work) < topos - frompos)
52d26067a946 (Fcomposition_get_gstring): Yet another int/Lisp_Oject mixup (YAILOM).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 98209
diff changeset
1507 gstring_work = Fmake_vector (make_number (topos - frompos + 2), Qnil);
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1508 LGSTRING_SET_HEADER (gstring_work, header);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1509 LGSTRING_SET_ID (gstring_work, Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1510 fill_gstring_body (gstring_work);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1511 return gstring_work;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1512 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1513
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1514
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1515 /* Emacs Lisp APIs. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1516
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1517 DEFUN ("compose-region-internal", Fcompose_region_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1518 Scompose_region_internal, 2, 4, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1519 doc: /* Internal use only.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1520
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1521 Compose text in the region between START and END.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1522 Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1523 for the composition. See `compose-region' for more details. */)
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
1524 (start, end, components, modification_func)
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
1525 Lisp_Object start, end, components, modification_func;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1526 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1527 validate_region (&start, &end);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1528 if (!NILP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1529 && !INTEGERP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1530 && !CONSP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1531 && !STRINGP (components))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1532 CHECK_VECTOR (components);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1533
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
1534 compose_text (XINT (start), XINT (end), components, modification_func, Qnil);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1535 return Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1536 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1537
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1538 DEFUN ("compose-string-internal", Fcompose_string_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1539 Scompose_string_internal, 3, 5, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1540 doc: /* Internal use only.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1541
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1542 Compose text between indices START and END of STRING.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1543 Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1544 for the composition. See `compose-string' for more details. */)
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
1545 (string, start, end, components, modification_func)
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
1546 Lisp_Object string, start, end, components, modification_func;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1547 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1548 CHECK_STRING (string);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1549 CHECK_NUMBER (start);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1550 CHECK_NUMBER (end);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1551
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1552 if (XINT (start) < 0 ||
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1553 XINT (start) > XINT (end)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1554 || XINT (end) > SCHARS (string))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1555 args_out_of_range (start, end);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1556
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
1557 compose_text (XINT (start), XINT (end), components, modification_func, string);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1558 return string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1559 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1560
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1561 DEFUN ("find-composition-internal", Ffind_composition_internal,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
1562 Sfind_composition_internal, 4, 4, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1563 doc: /* Internal use only.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1564
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1565 Return information about composition at or nearest to position POS.
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1566 See `find-composition' for more details. */)
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1567 (pos, limit, string, detail_p)
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1568 Lisp_Object pos, limit, string, detail_p;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1569 {
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1570 Lisp_Object prop, tail, gstring;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1571 EMACS_INT start, end, from, to;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1572 int id;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1573
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1574 CHECK_NUMBER_COERCE_MARKER (pos);
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1575 from = XINT (pos);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1576 if (!NILP (limit))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1577 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1578 CHECK_NUMBER_COERCE_MARKER (limit);
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1579 to = XINT (limit);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1580 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1581 else
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1582 to = -1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
1583
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1584 if (!NILP (string))
38097
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1585 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1586 CHECK_STRING (string);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
1587 if (XINT (pos) < 0 || XINT (pos) > SCHARS (string))
38097
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1588 args_out_of_range (string, pos);
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1589 }
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1590 else
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1591 {
38116
a85b9df3dffb (Ffind_composition_internal): Accept ZV
Gerd Moellmann <gerd@gnu.org>
parents: 38098
diff changeset
1592 if (XINT (pos) < BEGV || XINT (pos) > ZV)
38097
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1593 args_out_of_range (Fcurrent_buffer (), pos);
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
1594 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1595
97982
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1596 if (!find_composition (from, to, &start, &end, &prop, string))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1597 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1598 if (!NILP (current_buffer->enable_multibyte_characters)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1599 && FUNCTIONP (Vauto_composition_function)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1600 && find_automatic_composition (from, to, &start, &end, &gstring,
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1601 string))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1602 return list3 (make_number (start), make_number (end), gstring);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1603 return Qnil;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1604 }
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1605 if ((end <= XINT (pos) || start > XINT (pos)))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1606 {
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1607 EMACS_INT s, e;
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1608
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1609 if (find_automatic_composition (from, to, &s, &e, &gstring, string)
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1610 && (e <= XINT (pos) ? e > end : s < start))
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1611 return list3 (make_number (start), make_number (end), gstring);
59bcf1726f2c (autocmp_chars): Check lookback count.
Kenichi Handa <handa@m17n.org>
parents: 97887
diff changeset
1612 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1613 if (!COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1614 return Fcons (make_number (start), Fcons (make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1615 Fcons (Qnil, Qnil)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1616 if (NILP (detail_p))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1617 return Fcons (make_number (start), Fcons (make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1618 Fcons (Qt, Qnil)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1619
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1620 if (COMPOSITION_REGISTERD_P (prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1621 id = COMPOSITION_ID (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1622 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1623 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1624 int start_byte = (NILP (string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1625 ? CHAR_TO_BYTE (start)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1626 : string_char_to_byte (string, start));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1627 id = get_composition_id (start, start_byte, end - start, prop, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1628 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1629
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1630 if (id >= 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1631 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1632 Lisp_Object components, relative_p, mod_func;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1633 enum composition_method method = COMPOSITION_METHOD (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1634 int width = composition_table[id]->width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1635
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1636 components = Fcopy_sequence (COMPOSITION_COMPONENTS (prop));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1637 relative_p = (method == COMPOSITION_WITH_RULE_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1638 ? Qnil : Qt);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1639 mod_func = COMPOSITION_MODIFICATION_FUNC (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1640 tail = Fcons (components,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1641 Fcons (relative_p,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1642 Fcons (mod_func,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1643 Fcons (make_number (width), Qnil))));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1644 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1645 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1646 tail = Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1647
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1648 return Fcons (make_number (start), Fcons (make_number (end), tail));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1649 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1650
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1651
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1652 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1653 syms_of_composite ()
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1654 {
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1655 int i;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1656
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1657 Qcomposition = intern ("composition");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1658 staticpro (&Qcomposition);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1659
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1660 /* Make a hash table for static composition. */
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1661 {
28472
bae9218986ac * composite.c (run_composite_function): Use NILP when checking for nil.
Ken Raeburn <raeburn@raeburn.org>
parents: 26848
diff changeset
1662 Lisp_Object args[6];
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1663 extern Lisp_Object QCsize;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
1664
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1665 args[0] = QCtest;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1666 args[1] = Qequal;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1667 args[2] = QCweakness;
53316
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
1668 /* We used to make the hash table weak so that unreferenced
92028
462b9983854e Fix comment typo.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
1669 compositions can be garbage-collected. But, usually once
53316
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
1670 created compositions are repeatedly used in an Emacs session,
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
1671 and thus it's not worth to save memory in such a way. So, we
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
1672 make the table not weak. */
53221
94ae4d74b7e0 (syms_of_composite): Don't make the compostion hash table week.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
1673 args[3] = Qnil;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1674 args[4] = QCsize;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1675 args[5] = make_number (311);
28472
bae9218986ac * composite.c (run_composite_function): Use NILP when checking for nil.
Ken Raeburn <raeburn@raeburn.org>
parents: 26848
diff changeset
1676 composition_hash_table = Fmake_hash_table (6, args);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1677 staticpro (&composition_hash_table);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1678 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1679
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1680 /* Make a hash table for glyph-string. */
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1681 {
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1682 Lisp_Object args[6];
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1683 extern Lisp_Object QCsize;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1684
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1685 args[0] = QCtest;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1686 args[1] = Qequal;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1687 args[2] = QCweakness;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1688 args[3] = Qnil;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1689 args[4] = QCsize;
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1690 args[5] = make_number (311);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1691 gstring_hash_table = Fmake_hash_table (6, args);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1692 staticpro (&gstring_hash_table);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1693 }
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1694
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1695 staticpro (&gstring_work_headers);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1696 gstring_work_headers = Fmake_vector (make_number (8), Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1697 for (i = 0; i < 8; i++)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1698 ASET (gstring_work_headers, i, Fmake_vector (make_number (i + 2), Qnil));
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1699 staticpro (&gstring_work);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1700 gstring_work = Fmake_vector (make_number (10), Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1701
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1702 /* Text property `composition' should be nonsticky by default. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1703 Vtext_property_default_nonsticky
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1704 = Fcons (Fcons (Qcomposition, Qt), Vtext_property_default_nonsticky);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1705
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1706 DEFVAR_LISP ("compose-chars-after-function", &Vcompose_chars_after_function,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1707 doc: /* Function to adjust composition of buffer text.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1708
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1709 This function is called with three arguments: FROM, TO, and OBJECT.
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1710 FROM and TO specify the range of text whose composition should be
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1711 adjusted. OBJECT, if non-nil, is a string that contains the text.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1712
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1713 This function is called after a text with `composition' property is
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1714 inserted or deleted to keep `composition' property of buffer text
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1715 valid.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1716
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1717 The default value is the function `compose-chars-after'. */);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1718 Vcompose_chars_after_function = intern ("compose-chars-after");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1719
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1720 Qauto_composed = intern ("auto-composed");
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1721 staticpro (&Qauto_composed);
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
1722
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1723 Qauto_composition_function = intern ("auto-composition-function");
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1724 staticpro (&Qauto_composition_function);
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
1725
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1726 DEFVAR_LISP ("auto-composition-function", &Vauto_composition_function,
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1727 doc: /* Function to call to compose characters automatically.
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1728 This function is called from the display routine with four arguments:
91287
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
1729 FROM, TO, WINDOW, and STRING.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1730
91287
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
1731 If STRING is nil, the function must compose characters in the region
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
1732 between FROM and TO in the current buffer.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
1733
91287
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
1734 Otherwise, STRING is a string, and FROM and TO are indices into the
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
1735 string. In this case, the function must compose characters in the
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
1736 string. */);
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
1737 Vauto_composition_function = Qnil;
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
1738
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1739 DEFVAR_LISP ("composition-function-table", &Vcomposition_function_table,
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1740 doc: /* Char-table of functions for automatic character composition.
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1741 For each character that has to be composed automatically with
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1742 preceding and/or following characters, this char-table contains
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1743 a function to call to compose that character.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1744
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1745 The element at index C in the table, if non-nil, is a list of
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1746 this form: ([PATTERN PREV-CHARS FUNC] ...)
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1747
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1748 PATTERN is a regular expression which C and the surrounding
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1749 characters must match.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1750
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1751 PREV-CHARS is a number of characters before C to check the
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1752 matching with PATTERN. If it is 0, PATTERN must match C and
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1753 the following characters. If it is 1, PATTERN must match a
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1754 character before C and the following characters.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1755
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1756 If PREV-CHARS is 0, PATTERN can be nil, which means that the
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1757 single character C should be composed.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1758
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1759 FUNC is a function to return a glyph-string representing a
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1760 composition of the characters that match PATTERN. It is
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1761 called with one argument GSTRING.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1762
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1763 GSTRING is a template of a glyph-string to return. It is already
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1764 filled with a proper header for the characters to compose, and
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1765 glyphs corresponding to those characters one by one. The
98369
690a23ccfcf9 (Fcomposition_get_gstring, Fcompose_region_internal, Fcompose_string_internal)
Eli Zaretskii <eliz@gnu.org>
parents: 98214
diff changeset
1766 function must return a new glyph-string with the same header as
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1767 GSTRING, or modify GSTRING itself and return it.
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1768
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1769 See also the documentation of `auto-composition-mode'. */);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1770 Vcomposition_function_table = Fmake_char_table (Qnil, Qnil);
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1771
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1772 defsubr (&Scompose_region_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1773 defsubr (&Scompose_string_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1774 defsubr (&Sfind_composition_internal);
97819
23390849e8b8 Include window.h, frame.h, dispextern.h font.h.
Kenichi Handa <handa@m17n.org>
parents: 96413
diff changeset
1775 defsubr (&Scomposition_get_gstring);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1776 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
1777
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
1778 /* arch-tag: 79cefaf8-ca48-4eed-97e5-d5afb290d272
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
1779 (do not change this comment) */