annotate src/composite.c @ 95059:4ce13b37e978

menu-bar-select-buffer: Reinsert it as msb.el use it.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Sat, 17 May 2008 14:33:48 +0000
parents 8971ddf55736
children b38a7de9af46
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* Composite sequence support.
68651
3bd95f4f2941 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 67658
diff changeset
2 Copyright (C) 2001, 2002, 2003, 2004, 2005,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78313
diff changeset
3 2006, 2007, 2008 Free Software Foundation, Inc.
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78313
diff changeset
4 Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
67658
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 65487
diff changeset
5 National Institute of Advanced Industrial Science and Technology (AIST)
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 65487
diff changeset
6 Registration Number H14PRO021
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
7 Copyright (C) 2003, 2006
88366
97f11940f06a Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41001
diff changeset
8 National Institute of Advanced Industrial Science and Technology (AIST)
97f11940f06a Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41001
diff changeset
9 Registration Number H13PRO009
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 This file is part of GNU Emacs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94922
diff changeset
13 GNU Emacs is free software: you can redistribute it and/or modify
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94922
diff changeset
15 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94922
diff changeset
16 (at your option) any later version.
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 GNU Emacs is distributed in the hope that it will be useful,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 but WITHOUT ANY WARRANTY; without even the implied warranty of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 GNU General Public License for more details.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94922
diff changeset
24 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 #include <config.h>
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 #include "lisp.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include "buffer.h"
88366
97f11940f06a Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents: 41001
diff changeset
29 #include "character.h"
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "intervals.h"
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 /* Emacs uses special text property `composition' to support character
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 composition. A sequence of characters that have the same (i.e. eq)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 `composition' property value is treated as a single composite
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 sequence (we call it just `composition' here after). Characters in
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 a composition are all composed somehow on the screen.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 The property value has this form when the composition is made:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 ((LENGTH . COMPONENTS) . MODIFICATION-FUNC)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 then turns to this form:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (COMPOSITION-ID . (LENGTH COMPONENTS-VEC . MODIFICATION-FUNC))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 when the composition is registered in composition_hash_table and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 composition_table. These rather peculiar structures were designed
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 to make it easy to distinguish them quickly (we can do that by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 checking only the first element) and to extract LENGTH (from the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 former form) and COMPOSITION-ID (from the latter form).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 We register a composition when it is displayed, or when the width
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 is required (for instance, to calculate columns).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 LENGTH -- Length of the composition. This information is used to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 check the validity of the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 COMPONENTS -- Character, string, vector, list, or nil.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 If it is nil, characters in the text are composed relatively
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 according to their metrics in font glyphs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 If it is a character or a string, the character or characters
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 in the string are composed relatively.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 If it is a vector or list of integers, the element is a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 character or an encoded composition rule. The characters are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 composed according to the rules. (2N)th elements are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 characters to be composed and (2N+1)th elements are
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 composition rules to tell how to compose (2N+2)th element with
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 the previously composed 2N glyphs.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 COMPONENTS-VEC -- Vector of integers. In relative composition, the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 elements are characters to be composed. In rule-base
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 composition, the elements are characters or encoded
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 composition rules.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 MODIFICATION-FUNC -- If non nil, it is a function to call when the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 composition gets invalid after a modification in a buffer. If
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 it is nil, a function in `composition-function-table' of the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77 first character in the sequence is called.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 COMPOSITION-ID --Identification number of the composition. It is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 used as an index to composition_table for the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 When Emacs has to display a composition or has to know its
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 displaying width, the function get_composition_id is called. It
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 returns COMPOSITION-ID so that the caller can access the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 information about the composition through composition_table. If a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 COMPOSITION-ID has not yet been assigned to the composition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 get_composition_id checks the validity of `composition' property,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 and, if valid, assigns a new ID, registers the information in
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 composition_hash_table and composition_table, and changes the form
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 of the property value. If the property is invalid, return -1
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 without changing the property value.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 We use two tables to keep information about composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 composition_hash_table and composition_table.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 The former is a hash table in which keys are COMPONENTS-VECs and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 values are the corresponding COMPOSITION-IDs. This hash table is
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
98 weak, but as each key (COMPONENTS-VEC) is also kept as a value of the
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 `composition' property, it won't be collected as garbage until all
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
100 bits of text that have the same COMPONENTS-VEC are deleted.
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 The latter is a table of pointers to `struct composition' indexed
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
103 by COMPOSITION-ID. This structure keeps the other information (see
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 composite.h).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 In general, a text property holds information about individual
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 characters. But, a `composition' property holds information about
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
108 a sequence of characters (in this sense, it is like the `intangible'
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 property). That means that we should not share the property value
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
110 in adjacent compositions -- we can't distinguish them if they have the
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 same property. So, after any changes, we call
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 `update_compositions' and change a property of one of adjacent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 compositions to a copy of it. This function also runs a proper
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 composition modification function to make a composition that gets
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 invalid by the change valid again.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
117 As the value of the `composition' property holds information about a
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 specific range of text, the value gets invalid if we change the
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
119 text in the range. We treat the `composition' property as always
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 rear-nonsticky (currently by setting default-text-properties to
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 (rear-nonsticky (composition))) and we never make properties of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 adjacent compositions identical. Thus, any such changes make the
49136
6a4a30f1c2cb (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 48318
diff changeset
123 range just shorter. So, we can check the validity of the `composition'
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 property by comparing LENGTH information with the actual length of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 the composition.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 Lisp_Object Qcomposition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 /* Table of pointers to the structure `composition' indexed by
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 COMPOSITION-ID. This structure is for storing information about
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 each composition except for COMPONENTS-VEC. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135 struct composition **composition_table;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 /* The current size of `composition_table'. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 static int composition_table_size;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140 /* Number of compositions currently made. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 int n_compositions;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143 /* Hash table for compositions. The key is COMPONENTS-VEC of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 `composition' property. The value is the corresponding
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 COMPOSITION-ID. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 Lisp_Object composition_hash_table;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 /* Function to call to adjust composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 Lisp_Object Vcompose_chars_after_function;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
151 Lisp_Object Qauto_composed;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
152 Lisp_Object Vauto_composition_function;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
153 Lisp_Object Qauto_composition_function;
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
154
89546
c380df3cc4df (Fremove_list_of_text_properties): Declare.
Dave Love <fx@gnu.org>
parents: 89509
diff changeset
155 EXFUN (Fremove_list_of_text_properties, 4);
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
156
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 /* Temporary variable used in macros COMPOSITION_XXX. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 Lisp_Object composition_temp;
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
159
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 /* Return COMPOSITION-ID of a composition at buffer position
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 CHARPOS/BYTEPOS and length NCHARS. The `composition' property of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 the sequence is PROP. STRING, if non-nil, is a string that
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164 contains the composition instead of the current buffer.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
165
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
166 If the composition is invalid, return -1. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 int
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169 get_composition_id (charpos, bytepos, nchars, prop, string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170 int charpos, bytepos, nchars;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171 Lisp_Object prop, string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
173 Lisp_Object id, length, components, key, *key_contents;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
174 int glyph_len;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175 struct Lisp_Hash_Table *hash_table = XHASH_TABLE (composition_hash_table);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
176 int hash_index;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177 unsigned hash_code;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 struct composition *cmp;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 int i, ch;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
180
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 /* PROP should be
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182 Form-A: ((LENGTH . COMPONENTS) . MODIFICATION-FUNC)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
183 or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184 Form-B: (COMPOSITION-ID . (LENGTH COMPONENTS-VEC . MODIFICATION-FUNC))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185 */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
186 if (nchars == 0 || !CONSP (prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
188
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
189 id = XCAR (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
190 if (INTEGERP (id))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
192 /* PROP should be Form-B. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193 if (XINT (id) < 0 || XINT (id) >= n_compositions)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
194 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
195 return XINT (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
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198 /* PROP should be Form-A.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
199 Thus, ID should be (LENGTH . COMPONENTS). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200 if (!CONSP (id))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
201 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
202 length = XCAR (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
203 if (!INTEGERP (length) || XINT (length) != nchars)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
204 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 components = XCDR (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
207
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208 /* Check if the same composition has already been registered or not
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 by consulting composition_hash_table. The key for this table is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
210 COMPONENTS (converted to a vector COMPONENTS-VEC) or, if it is
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211 nil, vector of characters in the composition range. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212 if (INTEGERP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213 key = Fmake_vector (make_number (1), components);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214 else if (STRINGP (components) || CONSP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 key = Fvconcat (1, &components);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
216 else if (VECTORP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
217 key = components;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
218 else if (NILP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
219 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
220 key = Fmake_vector (make_number (nchars), Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
221 if (STRINGP (string))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
222 for (i = 0; i < nchars; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
223 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
224 FETCH_STRING_CHAR_ADVANCE (ch, string, charpos, bytepos);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
225 XVECTOR (key)->contents[i] = make_number (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
226 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
227 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
228 for (i = 0; i < nchars; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
229 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
230 FETCH_CHAR_ADVANCE (ch, charpos, bytepos);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
231 XVECTOR (key)->contents[i] = make_number (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
232 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237 hash_index = hash_lookup (hash_table, key, &hash_code);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
238 if (hash_index >= 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
240 /* We have already registered the same composition. Change PROP
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
241 from Form-A above to Form-B while replacing COMPONENTS with
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
242 COMPONENTS-VEC stored in the hash table. We can directly
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
243 modify the cons cell of PROP because it is not shared. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
244 key = HASH_KEY (hash_table, hash_index);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245 id = HASH_VALUE (hash_table, hash_index);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
246 XSETCAR (prop, id);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
247 XSETCDR (prop, Fcons (make_number (nchars), Fcons (key, XCDR (prop))));
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 return XINT (id);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 /* This composition is a new one. We must register it. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
252
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253 /* Check if we have sufficient memory to store this information. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
254 if (composition_table_size == 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 composition_table_size = 256;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257 composition_table
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258 = (struct composition **) xmalloc (sizeof (composition_table[0])
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 * composition_table_size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 else if (composition_table_size <= n_compositions)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263 composition_table_size += 256;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 composition_table
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265 = (struct composition **) xrealloc (composition_table,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 sizeof (composition_table[0])
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 * composition_table_size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 key_contents = XVECTOR (key)->contents;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 /* Check if the contents of COMPONENTS are valid if COMPONENTS is a
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 vector or a list. It should be a sequence of:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 char1 rule1 char2 rule2 char3 ... ruleN charN+1 */
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
275
94922
181a3677061e Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92028
diff changeset
276 if (VECTORP (components)
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
277 && ASIZE (components) >= 2
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
278 && VECTORP (AREF (components, 0)))
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
279 {
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
280 /* COMPONENTS is a glyph-string. */
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
281 int len = ASIZE (key);
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
282
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
283 for (i = 1; i < len; i++)
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
284 if (! VECTORP (AREF (key, i)))
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
285 goto invalid_composition;
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
286 }
94922
181a3677061e Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92028
diff changeset
287 else if (VECTORP (components) || CONSP (components))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 int len = XVECTOR (key)->size;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 /* The number of elements should be odd. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 if ((len % 2) == 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 /* All elements should be integers (character or encoded
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 composition rule). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 for (i = 0; i < len; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 if (!INTEGERP (key_contents[i]))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299 goto invalid_composition;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 /* Change PROP from Form-A above to Form-B. We can directly modify
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 the cons cell of PROP because it is not shared. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305 XSETFASTINT (id, n_compositions);
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
306 XSETCAR (prop, id);
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
307 XSETCDR (prop, Fcons (make_number (nchars), Fcons (key, XCDR (prop))));
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 /* Register the composition in composition_hash_table. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 hash_index = hash_put (hash_table, key, id, hash_code);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 /* Register the composition in composition_table. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313 cmp = (struct composition *) xmalloc (sizeof (struct composition));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 cmp->method = (NILP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316 ? COMPOSITION_RELATIVE
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 : ((INTEGERP (components) || STRINGP (components))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 ? COMPOSITION_WITH_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 : COMPOSITION_WITH_RULE_ALTCHARS));
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
320 if (cmp->method == COMPOSITION_WITH_RULE_ALTCHARS
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
321 && VECTORP (components)
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
322 && ! INTEGERP (AREF (components, 0)))
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
323 cmp->method = COMPOSITION_WITH_GLYPH_STRING;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324 cmp->hash_index = hash_index;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
325 glyph_len = (cmp->method == COMPOSITION_WITH_RULE_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 ? (XVECTOR (key)->size + 1) / 2
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
327 : XVECTOR (key)->size);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
328 cmp->glyph_len = glyph_len;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329 cmp->offsets = (short *) xmalloc (sizeof (short) * glyph_len * 2);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
330 cmp->font = NULL;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331
94922
181a3677061e Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92028
diff changeset
332 /* Calculate the width of overall glyphs of the composition. */
90405
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
333 if (cmp->method == COMPOSITION_WITH_GLYPH_STRING)
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
334 {
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
335 cmp->width = 1; /* Should be fixed later. */
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
336 cmp->glyph_len--;
3dc2ea167caf (get_composition_id) [USE_FONT_BACKEND]: If
Kenichi Handa <handa@m17n.org>
parents: 90294
diff changeset
337 }
94922
181a3677061e Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents: 92028
diff changeset
338 else if (cmp->method != COMPOSITION_WITH_RULE_ALTCHARS)
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 /* Relative composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
341 cmp->width = 0;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
342 for (i = 0; i < glyph_len; i++)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
343 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
344 int this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
345 ch = XINT (key_contents[i]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
346 this_width = CHAR_WIDTH (ch);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
347 if (cmp->width < this_width)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
348 cmp->width = this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
349 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
351 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
352 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
353 /* Rule-base composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
354 float leftmost = 0.0, rightmost;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
356 ch = XINT (key_contents[0]);
90618
b7ce72709298 (get_composition_id): Pay attention to TAB
Kenichi Handa <handa@m17n.org>
parents: 90405
diff changeset
357 rightmost = ch != '\t' ? CHAR_WIDTH (ch) : 1;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
358
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
359 for (i = 1; i < glyph_len; i += 2)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
360 {
89726
2660b0974edb (get_composition_id): Handle xoff and yoff in a
Kenichi Handa <handa@m17n.org>
parents: 89706
diff changeset
361 int rule, gref, nref, xoff, yoff;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
362 int this_width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363 float this_left;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 rule = XINT (key_contents[i]);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 ch = XINT (key_contents[i + 1]);
90618
b7ce72709298 (get_composition_id): Pay attention to TAB
Kenichi Handa <handa@m17n.org>
parents: 90405
diff changeset
367 this_width = ch != '\t' ? CHAR_WIDTH (ch) : 1;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
369 /* A composition rule is specified by an integer value
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 that encodes global and new reference points (GREF and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
371 NREF). GREF and NREF are specified by numbers as
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
372 below:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 0---1---2 -- ascent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
376 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377 9--10--11 -- center
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 ---3---4---5--- baseline
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380 | |
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381 6---7---8 -- descent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
382 */
89726
2660b0974edb (get_composition_id): Handle xoff and yoff in a
Kenichi Handa <handa@m17n.org>
parents: 89706
diff changeset
383 COMPOSITION_DECODE_RULE (rule, gref, nref, xoff, yoff);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 this_left = (leftmost
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385 + (gref % 3) * (rightmost - leftmost) / 2.0
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 - (nref % 3) * this_width / 2.0);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
388 if (this_left < leftmost)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
389 leftmost = this_left;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390 if (this_left + this_width > rightmost)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391 rightmost = this_left + this_width;
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 cmp->width = rightmost - leftmost;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395 if (cmp->width < (rightmost - leftmost))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
396 /* To get a ceiling integer value. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397 cmp->width++;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
398 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
399
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
400 composition_table[n_compositions] = cmp;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
401
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402 return n_compositions++;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
403
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404 invalid_composition:
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
405 /* Would it be better to remove this `composition' property? */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
406 return -1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
409
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
410 /* Find a composition at or nearest to position POS of OBJECT (buffer
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
411 or string).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
413 OBJECT defaults to the current buffer. If there's a composition at
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
414 POS, set *START and *END to the start and end of the sequence,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 *PROP to the `composition' property, and return 1.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
416
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417 If there's no composition at POS and LIMIT is negative, return 0.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 Otherwise, search for a composition forward (LIMIT > POS) or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420 backward (LIMIT < POS). In this case, LIMIT bounds the search.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422 If a composition is found, set *START, *END, and *PROP as above,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
423 and return 1, else return 0.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
424
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
425 This doesn't check the validity of composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
426
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
427 int
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
428 find_composition (pos, limit, start, end, prop, object)
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
429 int pos, limit;
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
430 EMACS_INT *start, *end;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
431 Lisp_Object *prop, object;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
433 Lisp_Object val;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
434
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
435 if (get_property_and_range (pos, Qcomposition, prop, start, end, object))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
436 return 1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
437
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
438 if (limit < 0 || limit == pos)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
439 return 0;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
440
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
441 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
442 {
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
443 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
444 object, make_number (limit));
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
445 pos = XINT (val);
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
446 if (pos == limit)
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
447 return 0;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
448 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449 else /* search backward */
34933
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
450 {
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
451 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
452 object))
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
453 return 1;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
454 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
455 object, make_number (limit));
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
456 pos = XINT (val);
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
457 if (pos == limit)
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
458 return 0;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
459 pos--;
414310d24f52 (find_composition): Fix a code for searching a composition backward.
Kenichi Handa <handa@m17n.org>
parents: 34241
diff changeset
460 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
461 get_property_and_range (pos, Qcomposition, prop, start, end, object);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
462 return 1;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
463 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
464
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
465 /* Run a proper function to adjust the composition sitting between
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
466 FROM and TO with property PROP. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
467
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
468 static void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
469 run_composition_function (from, to, prop)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
470 int from, to;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
471 Lisp_Object prop;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
472 {
34958
e3133339e30c (run_composition_function): Remove unused variable
Eli Zaretskii <eliz@gnu.org>
parents: 34933
diff changeset
473 Lisp_Object func;
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
474 EMACS_INT start, end;
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 func = COMPOSITION_MODIFICATION_FUNC (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
477 /* If an invalid composition precedes or follows, try to make them
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
478 valid too. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
479 if (from > BEGV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
480 && find_composition (from - 1, -1, &start, &end, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
481 && !COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
482 from = start;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
483 if (to < ZV
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484 && find_composition (to, -1, &start, &end, &prop, Qnil)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 && !COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486 to = end;
46940
545e543e82d5 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46938
diff changeset
487 if (!NILP (Ffboundp (func)))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
488 call2 (func, make_number (from), make_number (to));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
489 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
490
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
491 /* Make invalid compositions adjacent to or inside FROM and TO valid.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
492 CHECK_MASK is bitwise `or' of mask bits defined by macros
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
493 CHECK_XXX (see the comment in composite.h).
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
494
89361
1dd4e6b8509a (syms_of_composite): Make composition_hash_table
Dave Love <fx@gnu.org>
parents: 89340
diff changeset
495 It also resets the text-property `auto-composed' to a proper region
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
496 so that automatic character composition works correctly later while
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
497 displaying the region.
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89361
diff changeset
498
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
499 This function is called when a buffer text is changed. If the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
500 change is deletion, FROM == TO. Otherwise, FROM < TO. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
502 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
503 update_compositions (from, to, check_mask)
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
504 EMACS_INT from, to;
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
505 int check_mask;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506 {
34958
e3133339e30c (run_composition_function): Remove unused variable
Eli Zaretskii <eliz@gnu.org>
parents: 34933
diff changeset
507 Lisp_Object prop;
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
508 EMACS_INT start, end;
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
509 /* The beginning and end of the region to set the property
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
510 `auto-composed' to nil. */
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
511 EMACS_INT min_pos = from, max_pos = to;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
512
39046
a61b3d907098 (update_compositions): Do nothing if
Gerd Moellmann <gerd@gnu.org>
parents: 38116
diff changeset
513 if (inhibit_modification_hooks)
a61b3d907098 (update_compositions): Do nothing if
Gerd Moellmann <gerd@gnu.org>
parents: 38116
diff changeset
514 return;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
515
28581
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
516 /* 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
517 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
518 return;
151b7ae3b21f (update_compositions): If FROM and TO is not in a
Kenichi Handa <handa@m17n.org>
parents: 28472
diff changeset
519
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 if (check_mask & CHECK_HEAD)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
522 /* FROM should be at composition boundary. But, insertion or
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
523 deletion will make two compositions adjacent and
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
524 indistinguishable when they have same (eq) property. To
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 avoid it, in such a case, we change the property of the
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
526 latter to the copy of it. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
527 if (from > BEGV
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
528 && find_composition (from - 1, -1, &start, &end, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
529 && COMPOSITION_VALID_P (start, end, prop))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
530 {
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
531 min_pos = start;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
532 if (end > to)
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
533 max_pos = end;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
534 if (from < end)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
535 Fput_text_property (make_number (from), make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
536 Qcomposition,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
537 Fcons (XCAR (prop), XCDR (prop)), Qnil);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
538 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
539 from = end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
540 }
37242
029c8c1b451d (update_compositions) <check_mask & CHECK_HEAD>: Fix
Dave Love <fx@gnu.org>
parents: 34958
diff changeset
541 else if (from < ZV
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
542 && find_composition (from, -1, &start, &from, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
543 && COMPOSITION_VALID_P (start, from, prop))
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
544 {
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
545 if (from > to)
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
546 max_pos = from;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
547 run_composition_function (start, from, prop);
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
548 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
550
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551 if (check_mask & CHECK_INSIDE)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553 /* In this case, we are sure that (check & CHECK_TAIL) is also
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 nonzero. Thus, here we should check only compositions before
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 (to - 1). */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 while (from < to - 1
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557 && find_composition (from, to, &start, &from, &prop, Qnil)
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
558 && COMPOSITION_VALID_P (start, from, prop)
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
559 && from < to - 1)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
560 run_composition_function (start, from, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
561 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
562
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
563 if (check_mask & CHECK_TAIL)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
565 if (from < to
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
566 && find_composition (to - 1, -1, &start, &end, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
567 && COMPOSITION_VALID_P (start, end, prop))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
568 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
569 /* TO should be also at composition boundary. But,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
570 insertion or deletion will make two compositions adjacent
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
571 and indistinguishable when they have same (eq) property.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
572 To avoid it, in such a case, we change the property of
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
573 the former to the copy of it. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
574 if (to < end)
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
575 {
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
576 Fput_text_property (make_number (start), make_number (to),
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
577 Qcomposition,
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
578 Fcons (XCAR (prop), XCDR (prop)), Qnil);
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
579 max_pos = end;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
580 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
581 run_composition_function (start, end, prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
582 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
583 else if (to < ZV
78011
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
584 && find_composition (to, -1, &start, &end, &prop, Qnil)
f6d5dccc38c9 (update_compositions): Check validity of compositions.
Chong Yidong <cyd@stupidchicken.com>
parents: 75348
diff changeset
585 && COMPOSITION_VALID_P (start, end, prop))
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
586 {
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
587 run_composition_function (start, end, prop);
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
588 max_pos = end;
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
589 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
590 }
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
591 if (min_pos < max_pos)
89633
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
592 {
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
593 int count = SPECPDL_INDEX ();
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
594
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
595 specbind (Qinhibit_read_only, Qt);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
596 specbind (Qinhibit_modification_hooks, Qt);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
597 specbind (Qinhibit_point_motion_hooks, Qt);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
598 Fremove_list_of_text_properties (make_number (min_pos),
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
599 make_number (max_pos),
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
600 Fcons (Qauto_composed, Qnil), Qnil);
40b05b530518 (update_compositions): Bind inhibit-read-only, etc
Kenichi Handa <handa@m17n.org>
parents: 89546
diff changeset
601 unbind_to (count, Qnil);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
602 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
603 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
604
30022
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
605
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
606 /* 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
607 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
608 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
609
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
610 void
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
611 make_composition_value_copy (list)
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
612 Lisp_Object list;
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
613 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
614 Lisp_Object plist, val;
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
615
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
616 for (; CONSP (list); list = XCDR (list))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
617 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
618 plist = XCAR (XCDR (XCDR (XCAR (list))));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
619 while (CONSP (plist) && CONSP (XCDR (plist)))
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
620 {
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
621 if (EQ (XCAR (plist), Qcomposition)
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
622 && (val = XCAR (XCDR (plist)), CONSP (val)))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39046
diff changeset
623 XSETCAR (XCDR (plist), Fcons (XCAR (val), XCDR (val)));
30022
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
624 plist = XCDR (XCDR (plist));
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
625 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
626 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
627 }
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
628
6a52904a743b (make_composition_value_copy): New function.
Kenichi Handa <handa@m17n.org>
parents: 28581
diff changeset
629
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
630 /* Make text in the region between START and END a composition that
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
631 has COMPONENTS and MODIFICATION-FUNC.
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
632
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
633 If STRING is non-nil, then operate on characters contained between
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
634 indices START and END in STRING. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
635
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
636 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
637 compose_text (start, end, components, modification_func, string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
638 int start, end;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
639 Lisp_Object components, modification_func, string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
640 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
641 Lisp_Object prop;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
642
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
643 prop = Fcons (Fcons (make_number (end - start), components),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
644 modification_func);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
645 Fput_text_property (make_number (start), make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
646 Qcomposition, prop, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
647 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
648
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
649 /* Emacs Lisp APIs. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
650
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
651 DEFUN ("compose-region-internal", Fcompose_region_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
652 Scompose_region_internal, 2, 4, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
653 doc: /* Internal use only.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
654
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
655 Compose text in the region between START and END.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
656 Optional 3rd and 4th arguments are COMPONENTS and MODIFICATION-FUNC
47275
49ac77cddafb (Fcompose_region_internal, Fcompose_string_internal): Fix spacing.
Juanma Barranquero <lekktu@gmail.com>
parents: 46940
diff changeset
657 for the composition. See `compose-region' for more detail. */)
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
658 (start, end, components, modification_func)
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
659 Lisp_Object start, end, components, modification_func;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
660 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
661 validate_region (&start, &end);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
662 if (!NILP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
663 && !INTEGERP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
664 && !CONSP (components)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
665 && !STRINGP (components))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
666 CHECK_VECTOR (components);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
667
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
668 compose_text (XINT (start), XINT (end), components, modification_func, Qnil);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
669 return Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
670 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
671
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
672 DEFUN ("compose-string-internal", Fcompose_string_internal,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
673 Scompose_string_internal, 3, 5, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
674 doc: /* Internal use only.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
675
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
676 Compose text between indices START and END of STRING.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
677 Optional 4th and 5th arguments are COMPONENTS and MODIFICATION-FUNC
47275
49ac77cddafb (Fcompose_region_internal, Fcompose_string_internal): Fix spacing.
Juanma Barranquero <lekktu@gmail.com>
parents: 46940
diff changeset
678 for the composition. See `compose-string' for more detail. */)
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
679 (string, start, end, components, modification_func)
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
680 Lisp_Object string, start, end, components, modification_func;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
681 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
682 CHECK_STRING (string);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
683 CHECK_NUMBER (start);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
684 CHECK_NUMBER (end);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
685
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
686 if (XINT (start) < 0 ||
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
687 XINT (start) > XINT (end)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
688 || XINT (end) > SCHARS (string))
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
689 args_out_of_range (start, end);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
690
64574
5c90d9a42573 (Fcompose_region_internal, Fcompose_string_internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 64084
diff changeset
691 compose_text (XINT (start), XINT (end), components, modification_func, string);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
692 return string;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
693 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
694
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
695 DEFUN ("find-composition-internal", Ffind_composition_internal,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
696 Sfind_composition_internal, 4, 4, 0,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
697 doc: /* Internal use only.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
698
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
699 Return information about composition at or nearest to position POS.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
700 See `find-composition' for more detail. */)
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
701 (pos, limit, string, detail_p)
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
702 Lisp_Object pos, limit, string, detail_p;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
703 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
704 Lisp_Object prop, tail;
89509
3c9d2f9bf6bb (find_composition, run_composition_function)
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
705 EMACS_INT start, end;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
706 int id;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
707
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
708 CHECK_NUMBER_COERCE_MARKER (pos);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
709 start = XINT (pos);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
710 if (!NILP (limit))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
711 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
712 CHECK_NUMBER_COERCE_MARKER (limit);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
713 end = XINT (limit);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
714 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
715 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
716 end = -1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
717
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
718 if (!NILP (string))
38097
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
719 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
720 CHECK_STRING (string);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46293
diff changeset
721 if (XINT (pos) < 0 || XINT (pos) > SCHARS (string))
38097
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
722 args_out_of_range (string, pos);
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
723 }
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
724 else
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
725 {
38116
a85b9df3dffb (Ffind_composition_internal): Accept ZV
Gerd Moellmann <gerd@gnu.org>
parents: 38098
diff changeset
726 if (XINT (pos) < BEGV || XINT (pos) > ZV)
38097
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
727 args_out_of_range (Fcurrent_buffer (), pos);
8757fe98656e (Ffind_composition_internal): Check POS
Gerd Moellmann <gerd@gnu.org>
parents: 37242
diff changeset
728 }
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
729
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
730 if (!find_composition (start, end, &start, &end, &prop, string))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
731 return Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
732 if (!COMPOSITION_VALID_P (start, end, prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
733 return Fcons (make_number (start), Fcons (make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
734 Fcons (Qnil, Qnil)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
735 if (NILP (detail_p))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
736 return Fcons (make_number (start), Fcons (make_number (end),
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
737 Fcons (Qt, Qnil)));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
738
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
739 if (COMPOSITION_REGISTERD_P (prop))
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
740 id = COMPOSITION_ID (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
741 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
742 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
743 int start_byte = (NILP (string)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
744 ? CHAR_TO_BYTE (start)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
745 : string_char_to_byte (string, start));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
746 id = get_composition_id (start, start_byte, end - start, prop, string);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
747 }
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 (id >= 0)
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
750 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
751 Lisp_Object components, relative_p, mod_func;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
752 enum composition_method method = COMPOSITION_METHOD (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
753 int width = composition_table[id]->width;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
754
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
755 components = Fcopy_sequence (COMPOSITION_COMPONENTS (prop));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
756 relative_p = (method == COMPOSITION_WITH_RULE_ALTCHARS
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
757 ? Qnil : Qt);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
758 mod_func = COMPOSITION_MODIFICATION_FUNC (prop);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
759 tail = Fcons (components,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
760 Fcons (relative_p,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
761 Fcons (mod_func,
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
762 Fcons (make_number (width), Qnil))));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
763 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
764 else
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
765 tail = Qnil;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
766
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
767 return Fcons (make_number (start), Fcons (make_number (end), tail));
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
768 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
769
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
770
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
771 void
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
772 syms_of_composite ()
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
773 {
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
774 Qcomposition = intern ("composition");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
775 staticpro (&Qcomposition);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
776
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
777 /* Make a hash table for composition. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
778 {
28472
bae9218986ac * composite.c (run_composite_function): Use NILP when checking for nil.
Ken Raeburn <raeburn@raeburn.org>
parents: 26848
diff changeset
779 Lisp_Object args[6];
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
780 extern Lisp_Object QCsize;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49136
diff changeset
781
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
782 args[0] = QCtest;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
783 args[1] = Qequal;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
784 args[2] = QCweakness;
53316
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
785 /* We used to make the hash table weak so that unreferenced
92028
462b9983854e Fix comment typo.
Glenn Morris <rgm@gnu.org>
parents: 91327
diff changeset
786 compositions can be garbage-collected. But, usually once
53316
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
787 created compositions are repeatedly used in an Emacs session,
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
788 and thus it's not worth to save memory in such a way. So, we
0c88991a93ee *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53221
diff changeset
789 make the table not weak. */
53221
94ae4d74b7e0 (syms_of_composite): Don't make the compostion hash table week.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
790 args[3] = Qnil;
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
791 args[4] = QCsize;
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
792 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
793 composition_hash_table = Fmake_hash_table (6, args);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
794 staticpro (&composition_hash_table);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
795 }
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
796
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
797 /* Text property `composition' should be nonsticky by default. */
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
798 Vtext_property_default_nonsticky
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
799 = Fcons (Fcons (Qcomposition, Qt), Vtext_property_default_nonsticky);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
800
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
801 DEFVAR_LISP ("compose-chars-after-function", &Vcompose_chars_after_function,
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
802 doc: /* Function to adjust composition of buffer text.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
803
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
804 The function is called with three arguments FROM, TO, and OBJECT.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
805 FROM and TO specify the range of text of which composition should be
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
806 adjusted. OBJECT, if non-nil, is a string that contains the text.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
807
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
808 This function is called after a text with `composition' property is
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
809 inserted or deleted to keep `composition' property of buffer text
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
810 valid.
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
811
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
812 The default value is the function `compose-chars-after'. */);
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
813 Vcompose_chars_after_function = intern ("compose-chars-after");
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
814
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
815 Qauto_composed = intern ("auto-composed");
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
816 staticpro (&Qauto_composed);
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
817
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
818 Qauto_composition_function = intern ("auto-composition-function");
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
819 staticpro (&Qauto_composition_function);
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
820
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
821 DEFVAR_LISP ("auto-composition-function", &Vauto_composition_function,
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
822 doc: /* Function to call to compose characters automatically.
91287
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
823 The function is called from the display routine with four arguments,
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
824 FROM, TO, WINDOW, and STRING.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
825
91287
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
826 If STRING is nil, the function must compose characters in the region
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
827 between FROM and TO in the current buffer.
41001
a17c8b15ef1b Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 40656
diff changeset
828
91287
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
829 Otherwise, STRING is a string, and FROM and TO are indices into the
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
830 string. In this case, the function must compose characters in the
ac1b29b04053 (syms_of_composite): Fix docstring of
Kenichi Handa <handa@m17n.org>
parents: 91132
diff changeset
831 string. */);
89283
6ed290fbc678 (Vcomposition_function_table,
Kenichi Handa <handa@m17n.org>
parents: 88929
diff changeset
832 Vauto_composition_function = Qnil;
33240
aaa42106f0da (Vcomposition_function_table): New variable.
Kenichi Handa <handa@m17n.org>
parents: 30171
diff changeset
833
26848
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
834 defsubr (&Scompose_region_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
835 defsubr (&Scompose_string_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
836 defsubr (&Sfind_composition_internal);
d502b027b817 New file
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
837 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
838
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
839 /* arch-tag: 79cefaf8-ca48-4eed-97e5-d5afb290d272
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
840 (do not change this comment) */