annotate src/composite.c @ 35623:d88382df7b52

(cvs-mode-revert-buffer): Doc fix.
author Dave Love <fx@gnu.org>
date Fri, 26 Jan 2001 20:46:42 +0000
parents e3133339e30c
children 029c8c1b451d
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.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2 Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 Licensed to the Free Software Foundation.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 any later version.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 GNU General Public License for more details.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 Boston, MA 02111-1307, USA. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 #include <config.h>
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 #include "lisp.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 #include "buffer.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 #include "charset.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 #include "intervals.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 /* Emacs uses special text property `composition' to support character
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 composition. A sequence of characters that have the same (i.e. eq)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 `composition' property value is treated as a single composite
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 sequence (we call it just `composition' here after). Characters in
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 a composition are all composed somehow on the screen.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 The property value has this form when the composition is made:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 ((LENGTH . COMPONENTS) . MODIFICATION-FUNC)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 then turns to this form:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (COMPOSITION-ID . (LENGTH COMPONENTS-VEC . MODIFICATION-FUNC))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 when the composition is registered in composition_hash_table and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 composition_table. These rather peculiar structures were designed
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 to make it easy to distinguish them quickly (we can do that by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 checking only the first element) and to extract LENGTH (from the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 former form) and COMPOSITION-ID (from the latter form).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 We register a composition when it is displayed, or when the width
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 is required (for instance, to calculate columns).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 LENGTH -- Length of the composition. This information is used to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 check the validity of the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 COMPONENTS -- Character, string, vector, list, or nil.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 If it is nil, characters in the text are composed relatively
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 according to their metrics in font glyphs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 If it is a character or a string, the character or characters
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 in the string are composed relatively.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 If it is a vector or list of integers, the element is a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 character or an encoded composition rule. The characters are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 composed according to the rules. (2N)th elements are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 characters to be composed and (2N+1)th elements are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 composition rules to tell how to compose (2N+2)th element with
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 the previously composed 2N glyphs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 COMPONENTS-VEC -- Vector of integers. In relative composition, the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 elements are characters to be composed. In rule-base
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 composition, the elements are characters or encoded
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 composition rules.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 MODIFICATION-FUNC -- If non nil, it is a function to call when the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 composition gets invalid after a modification in a buffer. If
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 it is nil, a function in `composition-function-table' of the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 first character in the sequence is called.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 COMPOSITION-ID --Identification number of the composition. It is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 used as an index to composition_table for the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78 When Emacs has to display a composition or has to know its
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 displaying width, the function get_composition_id is called. It
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 returns COMPOSITION-ID so that the caller can access the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 information about the composition through composition_table. If a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 COMPOSITION-ID has not yet been assigned to the composition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 get_composition_id checks the validity of `composition' property,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 and, if valid, assigns a new ID, registers the information in
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 composition_hash_table and composition_table, and changes the form
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 of the property value. If the property is invalid, return -1
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 without changing the property value.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 We use two tables to keep information about composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 composition_hash_table and composition_table.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 The former is a hash table in which keys are COMPONENTS-VECs and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 values are the corresponding COMPOSITION-IDs. This hash table is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 weak, but as each key (COMPONENTS-VEC) is also kept as a value of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 `composition' property, it won't be collected as garbage until all
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 text that have the same COMPONENTS-VEC are deleted.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 The latter is a table of pointers to `struct composition' indexed
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 by COMPOSITION-ID. This structure keep the other information (see
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 composite.h).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 In general, a text property holds information about individual
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 characters. But, a `composition' property holds information about
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 a sequence of characters (in this sense, it is like `intangible'
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 property). That means that we should not share the property value
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 in adjacent compositions we can't distinguish them if they have the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 same property. So, after any changes, we call
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 `update_compositions' and change a property of one of adjacent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 compositions to a copy of it. This function also runs a proper
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 composition modification function to make a composition that gets
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 invalid by the change valid again.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 As a value of `composition' property holds information about a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 specific range of text, the value gets invalid if we change the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 text in the range. We treat `composition' property always
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 rear-nonsticky (currently by setting default-text-properties to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 (rear-nonsticky (composition))) and we never make properties of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 adjacent compositions identical. Thus, any such changes make the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 range just shorter. So, we can check the validity of `composition'
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 property by comparing LENGTH information with the actual length of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 Lisp_Object Qcomposition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 /* Table of pointers to the structure `composition' indexed by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 COMPOSITION-ID. This structure is for storing information about
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 each composition except for COMPONENTS-VEC. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 struct composition **composition_table;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 /* The current size of `composition_table'. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 static int composition_table_size;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 /* Number of compositions currently made. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 int n_compositions;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139 /* Hash table for compositions. The key is COMPONENTS-VEC of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140 `composition' property. The value is the corresponding
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 COMPOSITION-ID. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142 Lisp_Object composition_hash_table;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 /* Function to call to adjust composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 Lisp_Object Vcompose_chars_after_function;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
147 /* Char-table of patterns and functions to make a composition. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
148 Lisp_Object Vcomposition_function_table;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
149 Lisp_Object Qcomposition_function_table;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
150
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 /* Temporary variable used in macros COMPOSITION_XXX. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 Lisp_Object composition_temp;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 /* Return how many columns C will occupy on the screen. It always
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155 returns 1 for control characters and 8-bit characters because those
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 are just ignored in a composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 #define CHAR_WIDTH(c) \
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 (SINGLE_BYTE_CHAR_P (c) ? 1 : CHARSET_WIDTH (CHAR_CHARSET (c)))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160 /* The following macros for hash table are copied from fns.c. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 /* Value is the key part of entry IDX in hash table H. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 #define HASH_KEY(H, IDX) AREF ((H)->key_and_value, 2 * (IDX))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 /* Value is the value part of entry IDX in hash table H. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164 #define HASH_VALUE(H, IDX) AREF ((H)->key_and_value, 2 * (IDX) + 1)
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);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 XCAR (prop) = id;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
252 XCDR (prop) = Fcons (make_number (nchars), Fcons (key, XCDR (prop)));
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. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257
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 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
280 if (VECTORP (components) || CONSP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282 int len = XVECTOR (key)->size;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
284 /* The number of elements should be odd. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285 if ((len % 2) == 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
286 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
287 /* All elements should be integers (character or encoded
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288 composition rule). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 for (i = 0; i < len; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 if (!INTEGERP (key_contents[i]))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 /* Change PROP from Form-A above to Form-B. We can directly modify
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297 the cons cell of PROP because it is not shared. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 XSETFASTINT (id, n_compositions);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299 XCAR (prop) = id;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300 XCDR (prop) = Fcons (make_number (nchars), Fcons (key, XCDR (prop)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302 /* Register the composition in composition_hash_table. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 hash_index = hash_put (hash_table, key, id, hash_code);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305 /* Register the composition in composition_table. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
306 cmp = (struct composition *) xmalloc (sizeof (struct composition));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
307
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308 cmp->method = (NILP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 ? COMPOSITION_RELATIVE
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 : ((INTEGERP (components) || STRINGP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311 ? COMPOSITION_WITH_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 : COMPOSITION_WITH_RULE_ALTCHARS));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313 cmp->hash_index = hash_index;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314 glyph_len = (cmp->method == COMPOSITION_WITH_RULE_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 ? (XVECTOR (key)->size + 1) / 2
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316 : XVECTOR (key)->size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 cmp->glyph_len = glyph_len;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 cmp->offsets = (short *) xmalloc (sizeof (short) * glyph_len * 2);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 cmp->font = NULL;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 /* Calculate the width of overall glyphs of the composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322 if (cmp->method != COMPOSITION_WITH_RULE_ALTCHARS)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
323 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324 /* Relative composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
325 cmp->width = 0;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 for (i = 0; i < glyph_len; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
327 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
328 int this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329 ch = XINT (key_contents[i]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
330 this_width = CHAR_WIDTH (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 if (cmp->width < this_width)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332 cmp->width = this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
333 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
335 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
336 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337 /* Rule-base composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 float leftmost = 0.0, rightmost;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 ch = XINT (key_contents[0]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
341 rightmost = CHAR_WIDTH (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
342
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
343 for (i = 1; i < glyph_len; i += 2)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
344 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
345 int rule, gref, nref;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
346 int this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
347 float this_left;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
348
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
349 rule = XINT (key_contents[i]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350 ch = XINT (key_contents[i + 1]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
351 this_width = CHAR_WIDTH (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
352
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
353 /* A composition rule is specified by an integer value
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
354 that encodes global and new reference points (GREF and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355 NREF). GREF and NREF are specified by numbers as
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
356 below:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
357 0---1---2 -- ascent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
358 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
359 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
360 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
361 9--10--11 -- center
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
362 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363 ---3---4---5--- baseline
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 6---7---8 -- descent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
367 COMPOSITION_DECODE_RULE (rule, gref, nref);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368 this_left = (leftmost
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
369 + (gref % 3) * (rightmost - leftmost) / 2.0
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 - (nref % 3) * this_width / 2.0);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
371
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
372 if (this_left < leftmost)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 leftmost = this_left;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 if (this_left + this_width > rightmost)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375 rightmost = this_left + this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
376 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 cmp->width = rightmost - leftmost;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 if (cmp->width < (rightmost - leftmost))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380 /* To get a ceiling integer value. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381 cmp->width++;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
382 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
383
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 composition_table[n_compositions] = cmp;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 return n_compositions++;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
388 invalid_composition:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
389 /* Would it be better to remove this `composition' property? */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390 return -1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
392
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
393
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
394 /* Find a composition at or nearest to position POS of OBJECT (buffer
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395 or string).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
396
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397 OBJECT defaults to the current buffer. If there's a composition at
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
398 POS, set *START and *END to the start and end of the sequence,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
399 *PROP to the `composition' property, and return 1.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
400
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
401 If there's no composition at POS and LIMIT is negative, return 0.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
403 Otherwise, search for a composition forward (LIMIT > POS) or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404 backward (LIMIT < POS). In this case, LIMIT bounds the search.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
405
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
406 If a composition is found, set *START, *END, and *PROP as above,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407 and return 1, else return 0.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
409 This doesn't check the validity of composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
410
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
411 int
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412 find_composition (pos, limit, start, end, prop, object)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
413 int pos, limit, *start, *end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
414 Lisp_Object *prop, object;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
416 Lisp_Object val;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418 if (get_property_and_range (pos, Qcomposition, prop, start, end, object))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 return 1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421 if (limit < 0 || limit == pos)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422 return 0;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
423
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
424 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
425 {
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
426 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
427 object, make_number (limit));
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
428 pos = XINT (val);
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
429 if (pos == limit)
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
430 return 0;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
431 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432 else /* search backward */
34933
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
433 {
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
434 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
435 object))
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
436 return 1;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
437 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
438 object, make_number (limit));
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
439 pos = XINT (val);
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
440 if (pos == limit)
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
441 return 0;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
442 pos--;
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 get_property_and_range (pos, Qcomposition, prop, start, end, object);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
445 return 1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
446 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
447
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
448 /* Run a proper function to adjust the composition sitting between
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449 FROM and TO with property PROP. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
450
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
451 static void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
452 run_composition_function (from, to, prop)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
453 int from, to;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
454 Lisp_Object prop;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
455 {
34958
e3133339e30c (run_composition_function): Remove unused variable
Eli Zaretskii <eliz@gnu.org>
parents: 34933
diff changeset
456 Lisp_Object func;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
457 int start, end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
458
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
459 func = COMPOSITION_MODIFICATION_FUNC (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
460 /* If an invalid composition precedes or follows, try to make them
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
461 valid too. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
462 if (from > BEGV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
463 && find_composition (from - 1, -1, &start, &end, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
464 && !COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
465 from = start;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
466 if (to < ZV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
467 && find_composition (to, -1, &start, &end, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
468 && !COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
469 to = end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
470 if (!NILP (func))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
471 call2 (func, make_number (from), make_number (to));
28472
bae9218986ac * composite.c (run_composite_function): Use NILP when checking for nil.
Ken Raeburn <raeburn@raeburn.org>
parents: 26848
diff changeset
472 else if (!NILP (Ffboundp (Vcompose_chars_after_function)))
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
473 call3 (Vcompose_chars_after_function,
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
474 make_number (from), make_number (to), Qnil);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
475 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
476
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
477 /* Make invalid compositions adjacent to or inside FROM and TO valid.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
478 CHECK_MASK is bitwise `or' of mask bits defined by macros
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
479 CHECK_XXX (see the comment in composite.h).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
480
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
481 This function is called when a buffer text is changed. If the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
482 change is deletion, FROM == TO. Otherwise, FROM < TO. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
483
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 update_compositions (from, to, check_mask)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486 int from, to;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
487 {
34958
e3133339e30c (run_composition_function): Remove unused variable
Eli Zaretskii <eliz@gnu.org>
parents: 34933
diff changeset
488 Lisp_Object prop;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
489 int start, end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
490
28581
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
491 /* 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
492 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
493 return;
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
494
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
495 if (check_mask & CHECK_HEAD)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
496 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
497 /* FROM should be at composition boundary. But, insertion or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
498 deletion will make two compositions adjacent and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
499 indistinguishable when they have same (eq) property. To
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
500 avoid it, in such a case, we change the property of the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501 latter to the copy of it. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
502 if (from > BEGV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
503 && find_composition (from - 1, -1, &start, &end, &prop, Qnil))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
504 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505 if (from < end)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506 Fput_text_property (make_number (from), make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507 Qcomposition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
508 Fcons (XCAR (prop), XCDR (prop)), Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
509 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
510 from = end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
511 }
34241
f52846f4d5bd (update_compositions): Fix typo (use the correct variable).
Kenichi Handa <handa@m17n.org>
parents: 33240
diff changeset
512 else if (from < to
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
513 && find_composition (from, -1, &start, &from, &prop, Qnil))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
514 run_composition_function (start, from, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 if (check_mask & CHECK_INSIDE)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 /* In this case, we are sure that (check & CHECK_TAIL) is also
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 nonzero. Thus, here we should check only compositions before
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 (to - 1). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
522 while (from < to - 1
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
523 && find_composition (from, to, &start, &from, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
524 && from < to - 1)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 run_composition_function (start, from, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
526 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
527
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
528 if (check_mask & CHECK_TAIL)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
529 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
530 if (from < to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
531 && find_composition (to - 1, -1, &start, &end, &prop, Qnil))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
532 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
533 /* TO should be also at composition boundary. But,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
534 insertion or deletion will make two compositions adjacent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
535 and indistinguishable when they have same (eq) property.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
536 To avoid it, in such a case, we change the property of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
537 the former to the copy of it. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
538 if (to < end)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
539 Fput_text_property (make_number (start), make_number (to),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
540 Qcomposition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
541 Fcons (XCAR (prop), XCDR (prop)), Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
542 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
543 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
544 else if (to < ZV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
545 && find_composition (to, -1, &start, &end, &prop, Qnil))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
546 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549
30022
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
550
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
551 /* 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
552 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
553 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
554
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
555 void
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
556 make_composition_value_copy (list)
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
557 Lisp_Object list;
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
558 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
559 Lisp_Object plist, val;
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
560
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
561 for (; CONSP (list); list = XCDR (list))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
562 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
563 plist = XCAR (XCDR (XCDR (XCAR (list))));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
564 while (CONSP (plist) && CONSP (XCDR (plist)))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
565 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
566 if (EQ (XCAR (plist), Qcomposition)
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
567 && (val = XCAR (XCDR (plist)), CONSP (val)))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
568 XCAR (XCDR (plist)) = Fcons (XCAR (val), XCDR (val));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
569 plist = XCDR (XCDR (plist));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
570 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
571 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
572 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
573
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
574
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
575 /* Make text in the region between START and END a composition that
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
576 has COMPONENTS and MODIFICATION-FUNC.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
577
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
578 If STRING is non-nil, then operate on characters contained between
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
579 indices START and END in STRING. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
580
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
581 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
582 compose_text (start, end, components, modification_func, string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
583 int start, end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
584 Lisp_Object components, modification_func, string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
585 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
586 Lisp_Object prop;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
587
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
588 prop = Fcons (Fcons (make_number (end - start), components),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
589 modification_func);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
590 Fput_text_property (make_number (start), make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
591 Qcomposition, prop, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
592 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
593
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
594 /* Compose sequences of characters in the region between START and END
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
595 by functions registered in Vcomposition_function_table. If STRING
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
596 is non-nil, operate on characters contained between indices START
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
597 and END in STRING. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
598
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
599 void
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
600 compose_chars_in_text (start, end, string)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
601 int start, end;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
602 Lisp_Object string;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
603 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
604 int count;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
605 struct gcpro gcpro1;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
606 Lisp_Object tail, elt, val, to;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
607 /* Set to nonzero if we don't have to compose ASCII characters. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
608 int skip_ascii;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
609 int i, len, stop, c;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
610 unsigned char *ptr, *pend;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
611
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
612 if (! CHAR_TABLE_P (Vcomposition_function_table))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
613 return;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
614
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
615 if (STRINGP (string))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
616 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
617 count = specpdl_ptr - specpdl;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
618 GCPRO1 (string);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
619 stop = end;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
620 ptr = XSTRING (string)->data + string_char_to_byte (string, start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
621 pend = ptr + STRING_BYTES (XSTRING (string));
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
622 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
623 else
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
624 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
625 record_unwind_protect (save_excursion_restore, save_excursion_save ());
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
626 TEMP_SET_PT (start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
627 stop = (start < GPT && GPT < end ? GPT : end);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
628 ptr = CHAR_POS_ADDR (start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
629 pend = CHAR_POS_ADDR (end);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
630 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
631
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
632 /* Preserve the match data. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
633 record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
634
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
635 /* If none of ASCII characters have composition functions, we can
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
636 skip them quickly. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
637 for (i = 0; i < 128; i++)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
638 if (!NILP (CHAR_TABLE_REF (Vcomposition_function_table, i)))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
639 break;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
640 skip_ascii = (i == 128);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
641
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
642
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
643 while (1)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
644 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
645 if (skip_ascii)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
646 while (start < stop && ASCII_BYTE_P (*ptr))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
647 start++, ptr++;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
648
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
649 if (start >= stop)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
650 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
651 if (stop == end || start >= end)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
652 break;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
653 stop = end;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
654 if (STRINGP (string))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
655 ptr = XSTRING (string)->data + string_char_to_byte (string, start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
656 else
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
657 ptr = CHAR_POS_ADDR (start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
658 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
659
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
660 c = STRING_CHAR_AND_LENGTH (ptr, pend - ptr, len);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
661 tail = CHAR_TABLE_REF (Vcomposition_function_table, c);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
662 while (CONSP (tail))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
663 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
664 elt = XCAR (tail);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
665 if (CONSP (elt)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
666 && STRINGP (XCAR (elt))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
667 && !NILP (Ffboundp (XCDR (elt))))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
668 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
669 if (STRINGP (string))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
670 val = Fstring_match (XCAR (elt), string, make_number (start));
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
671 else
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
672 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
673 val = Flooking_at (XCAR (elt));
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
674 if (!NILP (val))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
675 val = make_number (start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
676 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
677 if (INTEGERP (val) && XFASTINT (val) == start)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
678 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
679 to = Fmatch_end (make_number (0));
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
680 val = call4 (XCDR (elt), val, to, XCAR (elt), string);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
681 if (INTEGERP (val) && XINT (val) > 1)
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
682 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
683 start += XINT (val);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
684 if (STRINGP (string))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
685 ptr = XSTRING (string)->data + string_char_to_byte (string, start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
686 else
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
687 ptr = CHAR_POS_ADDR (start);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
688 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
689 else
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
690 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
691 start++;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
692 ptr += len;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
693 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
694 break;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
695 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
696 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
697 tail = XCDR (tail);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
698 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
699 if (!CONSP (tail))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
700 {
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
701 /* No composition done. Try the next character. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
702 start++;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
703 ptr += len;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
704 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
705 }
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
706
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
707 unbind_to (count, Qnil);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
708 if (STRINGP (string))
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
709 UNGCPRO;
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
710 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
711
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
712 /* Emacs Lisp APIs. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
713
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
714 DEFUN ("compose-region-internal", Fcompose_region_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
715 Scompose_region_internal, 2, 4, 0,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
716 "Internal use only.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
717 \n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
718 Compose text in the region between START and END.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
719 Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
720 for the composition. See `compose-region' for more detial.")
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
721 (start, end, components, mod_func)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
722 Lisp_Object start, end, components, mod_func;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
723 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
724 validate_region (&start, &end);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
725 if (!NILP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
726 && !INTEGERP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
727 && !CONSP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
728 && !STRINGP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
729 CHECK_VECTOR (components, 2);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
730
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
731 compose_text (XINT (start), XINT (end), components, mod_func, Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
732 return Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
733 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
734
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
735 DEFUN ("compose-string-internal", Fcompose_string_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
736 Scompose_string_internal, 3, 5, 0,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
737 "Internal use only.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
738 \n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
739 Compose text between indices START and END of STRING.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
740 Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
741 for the composition. See `compose-string' for more detial.")
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
742 (string, start, end, components, mod_func)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
743 Lisp_Object string, start, end, components, mod_func;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
744 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
745 CHECK_STRING (string, 0);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
746 CHECK_NUMBER (start, 1);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
747 CHECK_NUMBER (end, 2);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
748
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
749 if (XINT (start) < 0 ||
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
750 XINT (start) > XINT (end)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
751 || XINT (end) > XSTRING (string)->size)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
752 args_out_of_range (start, end);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
753
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
754 compose_text (XINT (start), XINT (end), components, mod_func, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
755 return string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
756 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
757
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
758 DEFUN ("find-composition-internal", Ffind_composition_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
759 Sfind_composition_internal, 4, 4, 0,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
760 "Internal use only.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
761 \n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762 Return information about composition at or nearest to position POS.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
763 See `find-composition' for more detail.")
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
764 (pos, limit, string, detail_p)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
765 Lisp_Object pos, limit, string, detail_p;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
766 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
767 Lisp_Object prop, tail;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
768 int start, end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
769 int id;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
770
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
771 CHECK_NUMBER_COERCE_MARKER (pos, 0);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
772 start = XINT (pos);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
773 if (!NILP (limit))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
774 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
775 CHECK_NUMBER_COERCE_MARKER (limit, 1);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
776 end = XINT (limit);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
777 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
778 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
779 end = -1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
780 if (!NILP (string))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
781 CHECK_STRING (string, 2);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
782
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
783 if (!find_composition (start, end, &start, &end, &prop, string))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
784 return Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
785 if (!COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
786 return Fcons (make_number (start), Fcons (make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
787 Fcons (Qnil, Qnil)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
788 if (NILP (detail_p))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
789 return Fcons (make_number (start), Fcons (make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
790 Fcons (Qt, Qnil)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
791
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
792 if (COMPOSITION_REGISTERD_P (prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
793 id = COMPOSITION_ID (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
795 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
796 int start_byte = (NILP (string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
797 ? CHAR_TO_BYTE (start)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
798 : string_char_to_byte (string, start));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
799 id = get_composition_id (start, start_byte, end - start, prop, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
800 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
801
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
802 if (id >= 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
803 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
804 Lisp_Object components, relative_p, mod_func;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
805 enum composition_method method = COMPOSITION_METHOD (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
806 int width = composition_table[id]->width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
807
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
808 components = Fcopy_sequence (COMPOSITION_COMPONENTS (prop));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
809 relative_p = (method == COMPOSITION_WITH_RULE_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
810 ? Qnil : Qt);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
811 mod_func = COMPOSITION_MODIFICATION_FUNC (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
812 tail = Fcons (components,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
813 Fcons (relative_p,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
814 Fcons (mod_func,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
815 Fcons (make_number (width), Qnil))));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
816 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
817 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
818 tail = Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
819
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
820 return Fcons (make_number (start), Fcons (make_number (end), tail));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
821 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
822
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
823
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
824 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
825 syms_of_composite ()
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
826 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
827 Qcomposition = intern ("composition");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
828 staticpro (&Qcomposition);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
829
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
830 /* Make a hash table for composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
831 {
28472
bae9218986ac * composite.c (run_composite_function): Use NILP when checking for nil.
Ken Raeburn <raeburn@raeburn.org>
parents: 26848
diff changeset
832 Lisp_Object args[6];
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
833 extern Lisp_Object QCsize;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
834
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
835 args[0] = QCtest;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
836 args[1] = Qequal;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
837 args[2] = QCweakness;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
838 args[3] = Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
839 args[4] = QCsize;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
840 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
841 composition_hash_table = Fmake_hash_table (6, args);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
842 staticpro (&composition_hash_table);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
843 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
844
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
845 /* Text property `composition' should be nonsticky by default. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
846 Vtext_property_default_nonsticky
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
847 = Fcons (Fcons (Qcomposition, Qt), Vtext_property_default_nonsticky);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
849 DEFVAR_LISP ("compose-chars-after-function", &Vcompose_chars_after_function,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
850 "Function to adjust composition of buffer text.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
851 \n\
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
852 The function is called with three arguments FROM, TO, and OBJECT.\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
853 FROM and TO specify the range of text of which composition should be\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
854 adjusted. OBJECT, if non-nil, is a string that contains the text.\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
855 \n\
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
856 This function is called after a text with `composition' property is\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
857 inserted or deleted to keep `composition' property of buffer text\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
858 valid.\n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
859 \n\
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
860 The default value is the function `compose-chars-after'.");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
861 Vcompose_chars_after_function = intern ("compose-chars-after");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
862
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
863 Qcomposition_function_table = intern ("composition-function-table");
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
864 staticpro (&Qcomposition_function_table);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
865
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
866 /* Intern this now in case it isn't already done.
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
867 Setting this variable twice is harmless.
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
868 But don't staticpro it here--that is done in alloc.c. */
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
869 Qchar_table_extra_slots = intern ("char-table-extra-slots");
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
870
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
871 Fput (Qcomposition_function_table, Qchar_table_extra_slots, make_number (0));
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
872
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
873 DEFVAR_LISP ("composition-function-table", &Vcomposition_function_table,
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
874 "Char table of patterns and functions to make a composition.\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
875 \n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
876 Each element is nil or an alist of PATTERNs vs FUNCs, where PATTERNs\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
877 are regular expressions and FUNCs are functions. FUNC is responsible\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
878 for composing text matching the corresponding PATTERN. FUNC is called\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
879 with three arguments FROM, TO, and PATTERN. See the function\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
880 `compose-chars-after' for more detail.\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
881 \n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
882 This table is looked up by the first character of a composition when\n\
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
883 the composition gets invalid after a change in a buffer.");
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
884 Vcomposition_function_table
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
885 = Fmake_char_table (Qcomposition_function_table, Qnil);
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
886
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
887 defsubr (&Scompose_region_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
888 defsubr (&Scompose_string_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
889 defsubr (&Sfind_composition_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
890 }