Mercurial > emacs
annotate lisp/composite.el @ 97718:bb0e27c55c2e
Typo.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 26 Aug 2008 03:05:04 +0000 |
parents | 3dff73218ec3 |
children | f5f400126c23 |
rev | line source |
---|---|
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37232
diff
changeset
|
1 ;;; composite.el --- support character composition |
26880 | 2 |
79721 | 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
4 ;; 2008 | |
67658 | 5 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
6 ;; Registration Number H14PRO021 | |
26880 | 7 |
8 ;; Keywords: mule, multilingual, character composition | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92026
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
26880 | 13 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92026
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92026
diff
changeset
|
15 ;; (at your option) any later version. |
26880 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92026
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
26880 | 24 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37232
diff
changeset
|
25 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37232
diff
changeset
|
26 |
26880 | 27 ;;; Code: |
28 | |
29 (defconst reference-point-alist | |
30 '((tl . 0) (tc . 1) (tr . 2) | |
31 (Bl . 3) (Bc . 4) (Br . 5) | |
32 (bl . 6) (bc . 7) (br . 8) | |
33 (cl . 9) (cc . 10) (cr . 11) | |
34 (top-left . 0) (top-center . 1) (top-right . 2) | |
35 (base-left . 3) (base-center . 4) (base-right . 5) | |
36 (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) | |
37 (center-left . 9) (center-center . 10) (center-right . 11) | |
38 ;; For backward compatibility... | |
39 (ml . 3) (mc . 10) (mr . 5) | |
40 (mid-left . 3) (mid-center . 10) (mid-right . 5)) | |
41 "Alist of symbols vs integer codes of glyph reference points. | |
42 A glyph reference point symbol is to be used to specify a composition | |
89497 | 43 rule in COMPONENTS argument to such functions as `compose-region'. |
26880 | 44 |
45 Meanings of glyph reference point codes are as follows: | |
46 | |
47 0----1----2 <---- ascent 0:tl or top-left | |
48 | | 1:tc or top-center | |
49 | | 2:tr or top-right | |
50 | | 3:Bl or base-left 9:cl or center-left | |
51 9 10 11 <---- center 4:Bc or base-center 10:cc or center-center | |
52 | | 5:Br or base-right 11:cr or center-right | |
53 --3----4----5-- <-- baseline 6:bl or bottom-left | |
54 | | 7:bc or bottom-center | |
55 6----7----8 <---- descent 8:br or bottom-right | |
56 | |
57 Glyph reference point symbols are to be used to specify composition | |
58 rule of the form \(GLOBAL-REF-POINT . NEW-REF-POINT), where | |
59 GLOBAL-REF-POINT is a reference point in the overall glyphs already | |
60 composed, and NEW-REF-POINT is a reference point in the new glyph to | |
61 be added. | |
62 | |
63 For instance, if GLOBAL-REF-POINT is `br' (bottom-right) and | |
37232
cebd635be09b
(reference-point-alist): Doc fix.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
35075
diff
changeset
|
64 NEW-REF-POINT is `tc' (top-center), the overall glyph is updated as |
26880 | 65 follows (the point `*' corresponds to both reference points): |
66 | |
67 +-------+--+ <--- new ascent | |
68 | | | | |
69 | global| | | |
70 | glyph | | | |
71 -- | | |-- <--- baseline \(doesn't change) | |
72 +----+--*--+ | |
73 | | new | | |
74 | |glyph| | |
75 +----+-----+ <--- new descent | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
76 |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
77 A composition rule may have the form \(GLOBAL-REF-POINT |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
78 NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specifies how much |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
79 to shift NEW-REF-POINT from GLOBAL-REF-POINT. In this case, XOFF |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
80 and YOFF are integers in the range -100..100 representing the |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
81 shifting percentage against the font size.") |
26880 | 82 |
83 | |
56985
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
84 ;;;###autoload |
26880 | 85 (defun encode-composition-rule (rule) |
56985
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
86 "Encode composition rule RULE into an integer value. |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
87 RULE is a cons of global and new reference point symbols |
64530
87bf9c446836
(compose-string, encode-composition-rule, compose-last-chars):
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
88 \(see `reference-point-alist')." |
56985
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
89 |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
90 ;; This must be compatible with C macro COMPOSITION_ENCODE_RULE |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
91 ;; defined in composite.h. |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
92 |
26880 | 93 (if (and (integerp rule) (< rule 144)) |
94 ;; Already encoded. | |
95 rule | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
96 (if (consp rule) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
97 (let ((gref (car rule)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
98 (nref (cdr rule)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
99 xoff yoff) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
100 (if (consp nref) ; (GREF NREF XOFF YOFF) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
101 (progn |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
102 (setq xoff (nth 1 nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
103 yoff (nth 2 nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
104 nref (car nref)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
105 (or (and (>= xoff -100) (<= xoff 100) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
106 (>= yoff -100) (<= yoff 100)) |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
107 (error "Invalid composition rule: %s" rule)) |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
108 (setq xoff (+ xoff 128) yoff (+ yoff 128))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
109 ;; (GREF . NREF) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
110 (setq xoff 0 yoff 0)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
111 (or (integerp gref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
112 (setq gref (cdr (assq gref reference-point-alist)))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
113 (or (integerp nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
114 (setq nref (cdr (assq nref reference-point-alist)))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
115 (or (and (>= gref 0) (< gref 12) (>= nref 0) (< nref 12)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
116 (error "Invalid composition rule: %S" rule)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
117 (logior (lsh xoff 16) (lsh yoff 8) (+ (* gref 12) nref))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
118 (error "Invalid composition rule: %S" rule)))) |
26880 | 119 |
120 ;; Decode encoded composition rule RULE-CODE. The value is a cons of | |
121 ;; global and new reference point symbols. | |
122 ;; This must be compatible with C macro COMPOSITION_DECODE_RULE | |
123 ;; defined in composite.h. | |
124 | |
125 (defun decode-composition-rule (rule-code) | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
126 (or (and (natnump rule-code) (< rule-code #x1000000)) |
26880 | 127 (error "Invalid encoded composition rule: %S" rule-code)) |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
128 (let ((xoff (lsh rule-code -16)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
129 (yoff (logand (lsh rule-code -8) #xFF)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
130 gref nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
131 (setq rule-code (logand rule-code #xFF) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
132 gref (car (rassq (/ rule-code 12) reference-point-alist)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
133 nref (car (rassq (% rule-code 12) reference-point-alist))) |
26880 | 134 (or (and gref (symbolp gref) nref (symbolp nref)) |
135 (error "Invalid composition rule code: %S" rule-code)) | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
136 (if (and (= xoff 0) (= yoff 0)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
137 (cons gref nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
138 (setq xoff (- xoff 128) yoff (- yoff 128)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
139 (list gref xoff yoff nref)))) |
26880 | 140 |
141 ;; Encode composition rules in composition components COMPONENTS. The | |
142 ;; value is a copy of COMPONENTS, where composition rules (cons of | |
143 ;; global and new glyph reference point symbols) are replaced with | |
144 ;; encoded composition rules. Optional 2nd argument NOCOPY non-nil | |
145 ;; means don't make a copy but modify COMPONENTS directly. | |
146 | |
147 (defun encode-composition-components (components &optional nocopy) | |
148 (or nocopy | |
149 (setq components (copy-sequence components))) | |
150 (if (vectorp components) | |
151 (let ((len (length components)) | |
152 (i 1)) | |
153 (while (< i len) | |
154 (aset components i | |
155 (encode-composition-rule (aref components i))) | |
156 (setq i (+ i 2)))) | |
157 (let ((tail (cdr components))) | |
158 (while tail | |
159 (setcar tail | |
160 (encode-composition-rule (car tail))) | |
161 (setq tail (nthcdr 2 tail))))) | |
162 components) | |
163 | |
164 ;; Decode composition rule codes in composition components COMPONENTS. | |
165 ;; The value is a copy of COMPONENTS, where composition rule codes are | |
166 ;; replaced with composition rules (cons of global and new glyph | |
167 ;; reference point symbols). Optional 2nd argument NOCOPY non-nil | |
168 ;; means don't make a copy but modify COMPONENTS directly. | |
169 ;; It is assumed that COMPONENTS is a vector and is for rule-base | |
170 ;; composition, thus (2N+1)th elements are rule codes. | |
171 | |
172 (defun decode-composition-components (components &optional nocopy) | |
173 (or nocopy | |
174 (setq components (copy-sequence components))) | |
175 (let ((len (length components)) | |
176 (i 1)) | |
177 (while (< i len) | |
178 (aset components i | |
179 (decode-composition-rule (aref components i))) | |
180 (setq i (+ i 2)))) | |
181 components) | |
182 | |
183 (defun compose-region (start end &optional components modification-func) | |
184 "Compose characters in the current region. | |
185 | |
46963 | 186 Characters are composed relatively, i.e. composed by overstricking or |
187 stacking depending on ascent, descent and other properties. | |
188 | |
26880 | 189 When called from a program, expects these four arguments. |
190 | |
191 First two arguments START and END are positions (integers or markers) | |
192 specifying the region. | |
193 | |
89497 | 194 Optional 3rd argument COMPONENTS, if non-nil, is a character, a string |
195 or a vector or list of integers and rules. | |
26880 | 196 |
197 If it is a character, it is an alternate character to display instead | |
198 of the text in the region. | |
199 | |
96418
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
200 If it is a string, the elements are alternate characters. In |
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
201 this case, TAB element has a special meaning. If the first |
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
202 characer is TAB, the glyphs are displayed with left padding space |
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
203 so that no pixel overlaps with the previous column. If the last |
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
204 character is TAB, the glyphs are displayed with rigth padding |
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
205 space so that no pixel overlaps with the following column. |
26880 | 206 |
207 If it is a vector or list, it is a sequence of alternate characters and | |
208 composition rules, where (2N)th elements are characters and (2N+1)th | |
209 elements are composition rules to specify how to compose (2N+2)th | |
210 elements with previously composed N glyphs. | |
211 | |
212 A composition rule is a cons of global and new glyph reference point | |
213 symbols. See the documentation of `reference-point-alist' for more | |
214 detail. | |
215 | |
216 Optional 4th argument MODIFICATION-FUNC is a function to call to | |
217 adjust the composition when it gets invalid because of a change of | |
218 text in the composition." | |
219 (interactive "r") | |
220 (let ((modified-p (buffer-modified-p)) | |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
221 (inhibit-read-only t)) |
26880 | 222 (if (or (vectorp components) (listp components)) |
223 (setq components (encode-composition-components components))) | |
224 (compose-region-internal start end components modification-func) | |
54433
a5520bf073bb
(compose-region): Use restore-buffer-modified-p.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
225 (restore-buffer-modified-p modified-p))) |
26880 | 226 |
227 (defun decompose-region (start end) | |
228 "Decompose text in the current region. | |
229 | |
230 When called from a program, expects two arguments, | |
231 positions (integers or markers) specifying the region." | |
232 (interactive "r") | |
233 (let ((modified-p (buffer-modified-p)) | |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
234 (inhibit-read-only t)) |
26880 | 235 (remove-text-properties start end '(composition nil)) |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
236 (restore-buffer-modified-p modified-p))) |
26880 | 237 |
238 (defun compose-string (string &optional start end components modification-func) | |
239 "Compose characters in string STRING. | |
240 | |
88808 | 241 The return value is STRING with the `composition' property put on all |
26880 | 242 the characters in it. |
243 | |
244 Optional 2nd and 3rd arguments START and END specify the range of | |
64530
87bf9c446836
(compose-string, encode-composition-rule, compose-last-chars):
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
245 STRING to be composed. They default to the beginning and the end of |
26880 | 246 STRING respectively. |
247 | |
248 Optional 4th argument COMPONENTS, if non-nil, is a character or a | |
249 sequence (vector, list, or string) of integers. See the function | |
250 `compose-region' for more detail. | |
251 | |
252 Optional 5th argument MODIFICATION-FUNC is a function to call to | |
253 adjust the composition when it gets invalid because of a change of | |
254 text in the composition." | |
255 (if (or (vectorp components) (listp components)) | |
256 (setq components (encode-composition-components components))) | |
257 (or start (setq start 0)) | |
258 (or end (setq end (length string))) | |
259 (compose-string-internal string start end components modification-func) | |
260 string) | |
261 | |
262 (defun decompose-string (string) | |
263 "Return STRING where `composition' property is removed." | |
264 (remove-text-properties 0 (length string) '(composition nil) string) | |
265 string) | |
266 | |
267 (defun compose-chars (&rest args) | |
268 "Return a string from arguments in which all characters are composed. | |
269 For relative composition, arguments are characters. | |
270 For rule-based composition, Mth \(where M is odd) arguments are | |
271 characters, and Nth \(where N is even) arguments are composition rules. | |
272 A composition rule is a cons of glyph reference points of the form | |
273 \(GLOBAL-REF-POINT . NEW-REF-POINT). See the documentation of | |
274 `reference-point-alist' for more detail." | |
275 (let (str components) | |
276 (if (consp (car (cdr args))) | |
277 ;; Rule-base composition. | |
278 (let ((len (length args)) | |
279 (tail (encode-composition-components args 'nocopy))) | |
280 | |
281 (while tail | |
282 (setq str (cons (car tail) str)) | |
283 (setq tail (nthcdr 2 tail))) | |
284 (setq str (concat (nreverse str)) | |
285 components args)) | |
286 ;; Relative composition. | |
287 (setq str (concat args))) | |
288 (compose-string-internal str 0 (length str) components))) | |
289 | |
290 (defun find-composition (pos &optional limit string detail-p) | |
291 "Return information about a composition at or nearest to buffer position POS. | |
292 | |
293 If the character at POS has `composition' property, the value is a list | |
294 of FROM, TO, and VALID-P. | |
295 | |
296 FROM and TO specify the range of text that has the same `composition' | |
297 property, VALID-P is non-nil if and only if this composition is valid. | |
298 | |
299 If there's no composition at POS, and the optional 2nd argument LIMIT | |
300 is non-nil, search for a composition toward LIMIT. | |
301 | |
302 If no composition is found, return nil. | |
303 | |
304 Optional 3rd argument STRING, if non-nil, is a string to look for a | |
305 composition in; nil means the current buffer. | |
306 | |
307 If a valid composition is found and the optional 4th argument DETAIL-P | |
308 is non-nil, the return value is a list of FROM, TO, COMPONENTS, | |
309 RELATIVE-P, MOD-FUNC, and WIDTH. | |
310 | |
311 COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P. | |
312 | |
313 RELATIVE-P is t if the composition method is relative, else nil. | |
314 | |
315 If RELATIVE-P is t, COMPONENTS is a vector of characters to be | |
316 composed. If RELATIVE-P is nil, COMPONENTS is a vector of characters | |
317 and composition rules as described in `compose-region'. | |
318 | |
319 MOD-FUNC is a modification function of the composition. | |
320 | |
321 WIDTH is a number of columns the composition occupies on the screen." | |
322 (let ((result (find-composition-internal pos limit string detail-p))) | |
323 (if (and detail-p result (nth 2 result) (not (nth 3 result))) | |
324 ;; This is a valid rule-base composition. | |
325 (decode-composition-components (nth 2 result) 'nocopy)) | |
326 result)) | |
327 | |
328 | |
33244
59edd748e69a
(composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents:
30485
diff
changeset
|
329 (defun compose-chars-after (pos &optional limit object) |
26880 | 330 "Compose characters in current buffer after position POS. |
331 | |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
332 It looks up the char-table `composition-function-table' (which |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
333 see) by a character at POS, and compose characters after POS |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
334 according to the contents of `composition-function-table'. |
26880 | 335 |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
336 Optional 2nd arg LIMIT, if non-nil, limits characters to compose. |
26880 | 337 |
33244
59edd748e69a
(composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents:
30485
diff
changeset
|
338 Optional 3rd arg OBJECT, if non-nil, is a string that contains the |
89497 | 339 text to compose. In that case, POS and LIMIT index into the string. |
33244
59edd748e69a
(composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents:
30485
diff
changeset
|
340 |
26880 | 341 This function is the default value of `compose-chars-after-function'." |
342 (let ((tail (aref composition-function-table (char-after pos))) | |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
343 (font-obj (and (display-multi-font-p) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
344 (and (not (stringp object)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
345 (font-at pos (selected-window))))) |
26880 | 346 pattern func result) |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
347 (or limit |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
348 (setq limit (if (stringp object) (length object) (point-max)))) |
94955
e22dd2392947
(compose-chars-after): Assume that WINDOW is always non-nil.
Kenichi Handa <handa@m17n.org>
parents:
94734
diff
changeset
|
349 (when (and font-obj tail) |
30485
5551289a9329
(compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents:
29551
diff
changeset
|
350 (save-match-data |
5551289a9329
(compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents:
29551
diff
changeset
|
351 (save-excursion |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
352 (while tail |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
353 (if (functionp (car tail)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
354 (setq pattern nil func (car tail)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
355 (setq pattern (car (car tail)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
356 func (cdr (car tail)))) |
30485
5551289a9329
(compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents:
29551
diff
changeset
|
357 (goto-char pos) |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
358 (if pattern |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
359 (if (and (if (stringp object) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
360 (eq (string-match pattern object) 0) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
361 (looking-at pattern)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
362 (<= (match-end 0) limit)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
363 (setq result |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
364 (funcall func pos (match-end 0) font-obj object))) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
365 (setq result (funcall func pos limit font-obj object))) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
366 (if result (setq tail nil)))))) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
367 result)) |
26880 | 368 |
369 (defun compose-last-chars (args) | |
370 "Compose last characters. | |
35075
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
371 The argument is a parameterized event of the form |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
372 \(compose-last-chars N COMPONENTS), |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
373 where N is the number of characters before point to compose, |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
374 COMPONENTS, if non-nil, is the same as the argument to `compose-region' |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
375 \(which see). If it is nil, `compose-chars-after' is called, |
64530
87bf9c446836
(compose-string, encode-composition-rule, compose-last-chars):
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
376 and that function finds a proper rule to compose the target characters. |
26880 | 377 This function is intended to be used from input methods. |
378 The global keymap binds special event `compose-last-chars' to this | |
35075
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
379 function. Input method may generate an event (compose-last-chars N COMPONENTS) |
64530
87bf9c446836
(compose-string, encode-composition-rule, compose-last-chars):
Juanma Barranquero <lekktu@gmail.com>
parents:
64091
diff
changeset
|
380 after a sequence of character events." |
26880 | 381 (interactive "e") |
382 (let ((chars (nth 1 args))) | |
383 (if (and (numberp chars) | |
384 (>= (- (point) (point-min)) chars)) | |
35075
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
385 (if (nth 2 args) |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
386 (compose-region (- (point) chars) (point) (nth 2 args)) |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
387 (compose-chars-after (- (point) chars) (point)))))) |
26880 | 388 |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
389 (global-set-key [compose-last-chars] 'compose-last-chars) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
390 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
391 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
392 ;;; Automatic character composition. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
393 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
394 (defvar composition-function-table |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
395 (make-char-table nil) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
396 "Char table of functions for automatic character composition. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
397 For each character that has to be composed automatically with |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
398 preceding and/or following characters, this char table contains |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
399 a function to call to compose that character. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
400 |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
401 An element, if non-nil, is FUNC or an alist of PATTERNs vs FUNCs, |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
402 where PATTERNs are regular expressions and FUNCs are functions. |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
403 If the element is FUNC, FUNC itself determines the region to |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
404 compose. |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
405 |
91861
d42d584a8a30
(composition-function-table): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
91327
diff
changeset
|
406 Each function is called with 4 arguments, FROM, TO, FONT-OBJECT, |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
407 and STRING. |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
408 |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
409 If STRING is nil, FROM and TO are positions specifying the region |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
410 matching with PATTERN in the current buffer, and the function has |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
411 to compose character in that region (possibly with characters |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
412 preceding FROM). FONT-OBJECT may be nil if not |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
413 available (e.g. for the case of terminal). The return value of |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
414 the function is the end position where characters are composed, |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
415 or nil if no composition is made. |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
416 |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
417 Otherwise, STRING is a string, and FROM and TO are indices into |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
418 the string. In this case, the function has to compose a |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
419 character in the string. The others are the same as above. |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
420 |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
421 See also the documentation of `auto-composition-mode'.") |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
422 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
423 ;; Copied from font-lock.el. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
424 (eval-when-compile |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
425 ;; Borrowed from lazy-lock.el. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
426 ;; We use this to preserve or protect things when modifying text properties. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
427 (defmacro save-buffer-state (varlist &rest body) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
428 "Bind variables according to VARLIST and eval BODY restoring buffer state." |
89307 | 429 `(let* ,(append varlist |
430 '((modified (buffer-modified-p)) (buffer-undo-list t) | |
431 (inhibit-read-only t) (inhibit-point-motion-hooks t) | |
432 (inhibit-modification-hooks t) | |
433 deactivate-mark buffer-file-name buffer-file-truename)) | |
434 ,@body | |
435 (unless modified | |
436 (restore-buffer-modified-p nil)))) | |
89497 | 437 ;; Fixme: This makes bootstrapping fail with this error. |
89307 | 438 ;; Symbol's function definition is void: eval-defun |
439 ;;(def-edebug-spec save-buffer-state let) | |
440 ) | |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
441 |
89651
65f1f8091f15
(auto-compose-chars): Don't do unnecessary save-exclusion and
Kenichi Handa <handa@m17n.org>
parents:
89608
diff
changeset
|
442 (put 'save-buffer-state 'lisp-indent-function 1) |
65f1f8091f15
(auto-compose-chars): Don't do unnecessary save-exclusion and
Kenichi Handa <handa@m17n.org>
parents:
89608
diff
changeset
|
443 |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
444 (defsubst terminal-composition-base-character-p (ch) |
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
445 (not (memq (get-char-code-property ch 'general-category) |
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
446 '(Mn Mc Me Zs Zl Zp Cc Cf Cs)))) |
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
447 |
91296
391d41e86eda
(terminal-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
91276
diff
changeset
|
448 (defun terminal-composition-function (from to font-object string) |
90637
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
449 "General composition function used on terminal. |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
450 Non-spacing characters are composed with the preceding spacing |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
451 character. All non-spacing characters has this function in |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
452 `terminal-composition-function-table'." |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
453 (let ((pos from)) |
90637
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
454 (if string |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
455 (progn |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
456 (while (and (< pos to) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
457 (= (aref char-width-table (aref string pos)) 0)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
458 (setq pos (1+ pos))) |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
459 (if (and (> from 0) |
96324
f03cdab98409
(terminal-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
96301
diff
changeset
|
460 (terminal-composition-base-character-p |
f03cdab98409
(terminal-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
96301
diff
changeset
|
461 (aref string (1- from)))) |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
462 (compose-string string (1- from) pos) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
463 (compose-string string from pos |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
464 (concat " " (buffer-substring from pos))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
465 (while (and (< pos to) |
90637
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
466 (= (aref char-width-table (char-after pos)) 0)) |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
467 (setq pos (1+ pos))) |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
468 (if (and (> from (point-min)) |
96324
f03cdab98409
(terminal-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
96301
diff
changeset
|
469 (terminal-composition-base-character-p (char-after (1- from)))) |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
470 (compose-region (1- from) pos) |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
471 (compose-region from pos |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
472 (concat " " (buffer-substring from pos))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
473 pos)) |
90637
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
474 |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
475 (defvar terminal-composition-function-table |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
476 (let ((table (make-char-table nil))) |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
477 (map-char-table |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
478 #'(lambda (key val) |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
479 (if (= val 0) (set-char-table-range table key |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
480 'terminal-composition-function))) |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
481 char-width-table) |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
482 table) |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
483 "Char table of functions for automatic character composition on terminal. |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
484 This is like `composition-function-table' but used when Emacs is running |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
485 on a terminal.") |
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
486 |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
487 (defun auto-compose-chars (from to window string) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
488 "Compose characters in the region between FROM and TO. |
91152
6a5d0cc191af
(auto-compose-chars): Argument font-object changed
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
489 WINDOW is a window displaying the current buffer. |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
490 If STRING is non-nil, it is a string, and FROM and TO are indices |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
491 into the string. In that case, compose characters in the string. |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
492 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
493 This function is the default value of `auto-composition-function' (which see)." |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
494 (save-buffer-state nil |
89659
91f056b94e70
(auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89651
diff
changeset
|
495 (save-excursion |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
496 (save-restriction |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
497 (save-match-data |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
498 (let ((table (if (display-graphic-p) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
499 composition-function-table |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
500 terminal-composition-function-table)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
501 (start from)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
502 (setq to (or (text-property-any (1+ from) to 'auto-composed t |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
503 string) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
504 to)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
505 (if string |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
506 (while (< from to) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
507 (let* ((ch (aref string from)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
508 (elt (aref table ch)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
509 font-obj newpos) |
94955
e22dd2392947
(compose-chars-after): Assume that WINDOW is always non-nil.
Kenichi Handa <handa@m17n.org>
parents:
94734
diff
changeset
|
510 (when (and elt |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
511 (or (not (display-graphic-p)) |
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
512 (setq font-obj (font-at from window string)))) |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
513 (if (functionp elt) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
514 (setq newpos (funcall elt from to font-obj string)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
515 (while (and elt |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
516 (or (not (eq (string-match (caar elt) string |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
517 from) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
518 from)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
519 (not (setq newpos |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
520 (funcall (cdar elt) from |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
521 (match-end 0) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
522 font-obj string))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
523 (setq elt (cdr elt))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
524 (if (and newpos (> newpos from)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
525 (setq from newpos) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
526 (setq from (1+ from))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
527 (narrow-to-region from to) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
528 (while (< from to) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
529 (let* ((ch (char-after from)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
530 (elt (aref table ch)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
531 func pattern font-obj newpos) |
94955
e22dd2392947
(compose-chars-after): Assume that WINDOW is always non-nil.
Kenichi Handa <handa@m17n.org>
parents:
94734
diff
changeset
|
532 (when (and elt |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
533 (or (not (display-graphic-p)) |
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
534 (setq font-obj (font-at from window)))) |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
535 (if (functionp elt) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
536 (setq newpos (funcall elt from to font-obj nil)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
537 (goto-char from) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
538 (while (and elt |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
539 (or (not (looking-at (caar elt))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
540 (not (setq newpos |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
541 (funcall (cdar elt) from |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
542 (match-end 0) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
543 font-obj nil))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
544 (setq elt (cdr elt))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
545 (if (and newpos (> newpos from)) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
546 (setq from newpos) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
547 (setq from (1+ from)))))) |
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
548 (put-text-property start to 'auto-composed t string))))))) |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
549 |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
550 (make-variable-buffer-local 'auto-composition-function) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
551 |
90307
a2899387f787
(auto-composition-mode): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
90306
diff
changeset
|
552 ;;;###autoload |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
553 (define-minor-mode auto-composition-mode |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
554 "Toggle Auto Composition mode. |
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
555 With ARG, turn Auto Composition mode off if and only if ARG is a non-positive |
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
556 number; if ARG is nil, toggle Auto Composition mode; anything else turns Auto |
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
557 Composition on. |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
558 |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
559 When Auto Composition is enabled, text characters are automatically composed |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
560 by functions registered in `composition-function-table' (which see). |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
561 |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
562 You can use `global-auto-composition-mode' to turn on |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
563 Auto Composition mode in all buffers (this is the default)." |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
564 nil nil nil |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
565 (if noninteractive |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
566 (setq auto-composition-mode nil)) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
567 (cond (auto-composition-mode |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
568 (add-hook 'after-change-functions 'auto-composition-after-change nil t) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
569 (setq auto-composition-function 'auto-compose-chars)) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
570 (t |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
571 (remove-hook 'after-change-functions 'auto-composition-after-change t) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
572 (setq auto-composition-function nil))) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
573 (save-buffer-state nil |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
574 (save-restriction |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
575 (widen) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
576 (remove-text-properties (point-min) (point-max) '(auto-composed nil)) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
577 (decompose-region (point-min) (point-max))))) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
578 |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
579 (defun auto-composition-after-change (start end old-len) |
90315
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
580 (save-buffer-state nil |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
581 (if (< start (point-min)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
582 (setq start (point-min))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
583 (if (> end (point-max)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
584 (setq end (point-max))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
585 (when (and auto-composition-mode (not memory-full)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
586 (let (func1 func2) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
587 (when (and (> start (point-min)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
588 (setq func2 (aref composition-function-table |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
589 (char-after (1- start)))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
590 (or (= start (point-max)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
591 (not (setq func1 (aref composition-function-table |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
592 (char-after start)))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
593 (eq func1 func2))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
594 (setq start (1- start) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
595 func1 func2) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
596 (while (eq func1 func2) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
597 (if (> start (point-min)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
598 (setq start (1- start) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
599 func2 (aref composition-function-table |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
600 (char-after start))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
601 (setq func2 nil)))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
602 (when (and (< end (point-max)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
603 (setq func2 (aref composition-function-table |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
604 (char-after end))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
605 (or (= end (point-min)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
606 (not (setq func1 (aref composition-function-table |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
607 (char-after (1- end))))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
608 (eq func1 func2))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
609 (setq end (1+ end) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
610 func1 func2) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
611 (while (eq func1 func2) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
612 (if (< end (point-max)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
613 (setq func2 (aref composition-function-table |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
614 (char-after end)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
615 end (1+ end)) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
616 (setq func2 nil)))) |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
617 (if (< start end) |
90612
e3f4e9ea5df6
(auto-composition-after-change): Remove
Kenichi Handa <handa@m17n.org>
parents:
90543
diff
changeset
|
618 (remove-text-properties start end '(auto-composed nil))))))) |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
619 |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
620 (defun turn-on-auto-composition-if-enabled () |
90315
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
621 (if enable-multibyte-characters |
7ddbac913d1a
(auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents:
90307
diff
changeset
|
622 (auto-composition-mode 1))) |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
623 |
90307
a2899387f787
(auto-composition-mode): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
90306
diff
changeset
|
624 ;;;###autoload |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
625 (define-global-minor-mode global-auto-composition-mode |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
626 auto-composition-mode turn-on-auto-composition-if-enabled |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
627 :extra-args (dummy) |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
628 :initialize 'custom-initialize-safe-default |
90627
f13e98b07b9c
(global-auto-composition-mode): Make the initial
Kenichi Handa <handa@m17n.org>
parents:
90612
diff
changeset
|
629 :init-value (not noninteractive) |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
630 :group 'auto-composition |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
631 :version "23.1") |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
632 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
633 (defun toggle-auto-composition (&optional arg) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
634 "Change whether automatic character composition is enabled in this buffer. |
94734
6fbc8341e153
(toggle-auto-composition): Don't use `iff' in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
94678
diff
changeset
|
635 With arg, enable it if and only if arg is positive." |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
636 (interactive "P") |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
637 (let ((enable (if (null arg) (not auto-composition-function) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
638 (> (prefix-numeric-value arg) 0)))) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
639 (if enable |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
640 (kill-local-variable 'auto-composition-function) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
641 (make-local-variable 'auto-composition-function) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
642 (setq auto-composition-function nil) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
643 (save-buffer-state nil |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
644 (save-restriction |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
645 (widen) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
646 (decompose-region (point-min) (point-max))))) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
647 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
648 (save-buffer-state nil |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
649 (save-restriction |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
650 (widen) |
90612
e3f4e9ea5df6
(auto-composition-after-change): Remove
Kenichi Handa <handa@m17n.org>
parents:
90543
diff
changeset
|
651 (remove-text-properties (point-min) (point-max) |
e3f4e9ea5df6
(auto-composition-after-change): Remove
Kenichi Handa <handa@m17n.org>
parents:
90543
diff
changeset
|
652 '(auto-composed nil)))))) |
89528
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
653 |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
654 (defun auto-compose-region (from to) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
655 "Force automatic character composition on the region FROM and TO." |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
656 (save-excursion |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
657 (if (get-text-property from 'auto-composed) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
658 (setq from (next-single-property-change from 'auto-composed nil to))) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
659 (goto-char from) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
660 (let ((modified-p (buffer-modified-p)) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
661 (inhibit-read-only '(composition auto-composed)) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
662 (stop (next-single-property-change (point) 'auto-composed nil to))) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
663 (while (< (point) to) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
664 (if (= (point) stop) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
665 (progn |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
666 (goto-char (next-single-property-change (point) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
667 'auto-composed nil to)) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
668 (setq stop (next-single-property-change (point) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
669 'auto-composed nil to))) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
670 (let ((func (aref composition-function-table (following-char))) |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
671 (font-obj (and (display-multi-font-p) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
672 (font-at (point) (selected-window)))) |
89528
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
673 (pos (point))) |
94955
e22dd2392947
(compose-chars-after): Assume that WINDOW is always non-nil.
Kenichi Handa <handa@m17n.org>
parents:
94734
diff
changeset
|
674 (if (and (functionp func) font-obj) |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
675 (goto-char (funcall func (point) to font-obj nil))) |
89528
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
676 (if (<= (point) pos) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
677 (forward-char 1))))) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
678 (put-text-property from to 'auto-composed t) |
c75e3c6b608a
(auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents:
89497
diff
changeset
|
679 (set-buffer-modified-p modified-p)))) |
26880 | 680 |
681 | |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
682 ;; The following codes are only for backward compatibility with Emacs |
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
683 ;; 20.4 and earlier. |
26880 | 684 |
685 (defun decompose-composite-char (char &optional type with-composition-rule) | |
686 "Convert CHAR to string. | |
687 | |
688 If optional 2nd arg TYPE is non-nil, it is `string', `list', or | |
49512
6a0305153436
(decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
46963
diff
changeset
|
689 `vector'. In this case, CHAR is converted to string, list of CHAR, or |
6a0305153436
(decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
46963
diff
changeset
|
690 vector of CHAR respectively. |
6a0305153436
(decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
46963
diff
changeset
|
691 Optional 3rd arg WITH-COMPOSITION-RULE is ignored." |
26880 | 692 (cond ((or (null type) (eq type 'string)) (char-to-string char)) |
693 ((eq type 'list) (list char)) | |
694 (t (vector char)))) | |
695 | |
29521
4ad26302d559
(decompose-composite-char): Declare it as obsolete.
Kenichi Handa <handa@m17n.org>
parents:
26880
diff
changeset
|
696 (make-obsolete 'decompose-composite-char 'char-to-string "21.1") |
4ad26302d559
(decompose-composite-char): Declare it as obsolete.
Kenichi Handa <handa@m17n.org>
parents:
26880
diff
changeset
|
697 |
26880 | 698 |
52401 | 699 |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
700 ;; arch-tag: ee703d77-1723-45d4-a31f-e9f0f867aa33 |
26880 | 701 ;;; composite.el ends here |