Mercurial > emacs
annotate lisp/composite.el @ 109716:df8e0cd18128
Merge changes from emacs-23 branch
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 08 Aug 2010 17:12:29 -0400 |
parents | f7d37c2787ad |
children | 280c8ae2476d |
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, |
106815 | 4 ;; 2008, 2009, 2010 |
67658 | 5 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
6 ;; Registration Number H14PRO021 | |
26880 | 7 |
101080
af243a06900c
Comment (add an author based on ack.texi).
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
8 ;; Author: Kenichi HANDA <handa@etl.go.jp> |
af243a06900c
Comment (add an author based on ack.texi).
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
9 ;; (according to ack.texi) |
26880 | 10 ;; Keywords: mule, multilingual, character composition |
11 | |
12 ;; This file is part of GNU Emacs. | |
13 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
92026
diff
changeset
|
14 ;; GNU Emacs is free software: you can redistribute it and/or modify |
26880 | 15 ;; 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
|
16 ;; 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
|
17 ;; (at your option) any later version. |
26880 | 18 |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; 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
|
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
26880 | 26 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37232
diff
changeset
|
27 ;;; Commentary: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37232
diff
changeset
|
28 |
26880 | 29 ;;; Code: |
30 | |
108705
f7d37c2787ad
* composite.el: Require cl when compiling; fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
108686
diff
changeset
|
31 (eval-when-compile (require 'cl)) |
f7d37c2787ad
* composite.el: Require cl when compiling; fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
108686
diff
changeset
|
32 |
26880 | 33 (defconst reference-point-alist |
34 '((tl . 0) (tc . 1) (tr . 2) | |
35 (Bl . 3) (Bc . 4) (Br . 5) | |
36 (bl . 6) (bc . 7) (br . 8) | |
37 (cl . 9) (cc . 10) (cr . 11) | |
38 (top-left . 0) (top-center . 1) (top-right . 2) | |
39 (base-left . 3) (base-center . 4) (base-right . 5) | |
40 (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) | |
41 (center-left . 9) (center-center . 10) (center-right . 11) | |
42 ;; For backward compatibility... | |
43 (ml . 3) (mc . 10) (mr . 5) | |
44 (mid-left . 3) (mid-center . 10) (mid-right . 5)) | |
45 "Alist of symbols vs integer codes of glyph reference points. | |
46 A glyph reference point symbol is to be used to specify a composition | |
89497 | 47 rule in COMPONENTS argument to such functions as `compose-region'. |
26880 | 48 |
108174
2c1e291a5e1c
Fix typos in doc strings of composite.el.
Eli Zaretskii <eliz@gnu.org>
parents:
108106
diff
changeset
|
49 The meaning of glyph reference point codes is as follows: |
26880 | 50 |
51 0----1----2 <---- ascent 0:tl or top-left | |
52 | | 1:tc or top-center | |
53 | | 2:tr or top-right | |
54 | | 3:Bl or base-left 9:cl or center-left | |
55 9 10 11 <---- center 4:Bc or base-center 10:cc or center-center | |
56 | | 5:Br or base-right 11:cr or center-right | |
57 --3----4----5-- <-- baseline 6:bl or bottom-left | |
58 | | 7:bc or bottom-center | |
59 6----7----8 <---- descent 8:br or bottom-right | |
60 | |
61 Glyph reference point symbols are to be used to specify composition | |
62 rule of the form \(GLOBAL-REF-POINT . NEW-REF-POINT), where | |
63 GLOBAL-REF-POINT is a reference point in the overall glyphs already | |
64 composed, and NEW-REF-POINT is a reference point in the new glyph to | |
65 be added. | |
66 | |
67 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
|
68 NEW-REF-POINT is `tc' (top-center), the overall glyph is updated as |
26880 | 69 follows (the point `*' corresponds to both reference points): |
70 | |
71 +-------+--+ <--- new ascent | |
72 | | | | |
73 | global| | | |
74 | glyph | | | |
75 -- | | |-- <--- baseline \(doesn't change) | |
76 +----+--*--+ | |
77 | | new | | |
78 | |glyph| | |
79 +----+-----+ <--- new descent | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
80 |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
81 A composition rule may have the form \(GLOBAL-REF-POINT |
108705
f7d37c2787ad
* composite.el: Require cl when compiling; fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
108686
diff
changeset
|
82 NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specify how much |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
83 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
|
84 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
|
85 shifting percentage against the font size.") |
26880 | 86 |
87 | |
56985
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
88 ;;;###autoload |
26880 | 89 (defun encode-composition-rule (rule) |
56985
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
90 "Encode composition rule RULE into an integer value. |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
91 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
|
92 \(see `reference-point-alist')." |
56985
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
93 |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
94 ;; 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
|
95 ;; defined in composite.h. |
5eac7cd6d213
(encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents:
54433
diff
changeset
|
96 |
26880 | 97 (if (and (integerp rule) (< rule 144)) |
98 ;; Already encoded. | |
99 rule | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
100 (if (consp rule) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
101 (let ((gref (car rule)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
102 (nref (cdr rule)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
103 xoff yoff) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
104 (if (consp nref) ; (GREF NREF XOFF YOFF) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
105 (progn |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
106 (setq xoff (nth 1 nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
107 yoff (nth 2 nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
108 nref (car nref)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
109 (or (and (>= xoff -100) (<= xoff 100) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
110 (>= yoff -100) (<= yoff 100)) |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
111 (error "Invalid composition rule: %s" rule)) |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
112 (setq xoff (+ xoff 128) yoff (+ yoff 128))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
113 ;; (GREF . NREF) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
114 (setq xoff 0 yoff 0)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
115 (or (integerp gref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
116 (setq gref (cdr (assq gref reference-point-alist)))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
117 (or (integerp nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
118 (setq nref (cdr (assq nref reference-point-alist)))) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
119 (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
|
120 (error "Invalid composition rule: %S" rule)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
121 (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
|
122 (error "Invalid composition rule: %S" rule)))) |
26880 | 123 |
124 ;; Decode encoded composition rule RULE-CODE. The value is a cons of | |
125 ;; global and new reference point symbols. | |
126 ;; This must be compatible with C macro COMPOSITION_DECODE_RULE | |
127 ;; defined in composite.h. | |
128 | |
129 (defun decode-composition-rule (rule-code) | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
130 (or (and (natnump rule-code) (< rule-code #x1000000)) |
26880 | 131 (error "Invalid encoded composition rule: %S" rule-code)) |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
132 (let ((xoff (lsh rule-code -16)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
133 (yoff (logand (lsh rule-code -8) #xFF)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
134 gref nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
135 (setq rule-code (logand rule-code #xFF) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
136 gref (car (rassq (/ rule-code 12) reference-point-alist)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
137 nref (car (rassq (% rule-code 12) reference-point-alist))) |
26880 | 138 (or (and gref (symbolp gref) nref (symbolp nref)) |
139 (error "Invalid composition rule code: %S" rule-code)) | |
89722
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
140 (if (and (= xoff 0) (= yoff 0)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
141 (cons gref nref) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
142 (setq xoff (- xoff 128) yoff (- yoff 128)) |
eee9d99444cc
(reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents:
89664
diff
changeset
|
143 (list gref xoff yoff nref)))) |
26880 | 144 |
145 ;; Encode composition rules in composition components COMPONENTS. The | |
146 ;; value is a copy of COMPONENTS, where composition rules (cons of | |
147 ;; global and new glyph reference point symbols) are replaced with | |
148 ;; encoded composition rules. Optional 2nd argument NOCOPY non-nil | |
149 ;; means don't make a copy but modify COMPONENTS directly. | |
150 | |
151 (defun encode-composition-components (components &optional nocopy) | |
152 (or nocopy | |
153 (setq components (copy-sequence components))) | |
154 (if (vectorp components) | |
155 (let ((len (length components)) | |
156 (i 1)) | |
157 (while (< i len) | |
158 (aset components i | |
159 (encode-composition-rule (aref components i))) | |
160 (setq i (+ i 2)))) | |
161 (let ((tail (cdr components))) | |
162 (while tail | |
163 (setcar tail | |
164 (encode-composition-rule (car tail))) | |
165 (setq tail (nthcdr 2 tail))))) | |
166 components) | |
167 | |
168 ;; Decode composition rule codes in composition components COMPONENTS. | |
169 ;; The value is a copy of COMPONENTS, where composition rule codes are | |
170 ;; replaced with composition rules (cons of global and new glyph | |
171 ;; reference point symbols). Optional 2nd argument NOCOPY non-nil | |
172 ;; means don't make a copy but modify COMPONENTS directly. | |
173 ;; It is assumed that COMPONENTS is a vector and is for rule-base | |
174 ;; composition, thus (2N+1)th elements are rule codes. | |
175 | |
176 (defun decode-composition-components (components &optional nocopy) | |
177 (or nocopy | |
178 (setq components (copy-sequence components))) | |
179 (let ((len (length components)) | |
180 (i 1)) | |
181 (while (< i len) | |
182 (aset components i | |
183 (decode-composition-rule (aref components i))) | |
184 (setq i (+ i 2)))) | |
185 components) | |
186 | |
187 (defun compose-region (start end &optional components modification-func) | |
188 "Compose characters in the current region. | |
189 | |
103436
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
190 Characters are composed relatively, i.e. composed by overstriking |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
191 or stacking depending on ascent, descent and other metrics of |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
192 glyphs. |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
193 |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
194 For instance, if the region has three characters \"XYZ\", X is |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
195 regarded as BASE glyph, and Y is displayed: |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
196 (1) above BASE if Y's descent value is not positive |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
197 (2) below BASE if Y's ascent value is not positive |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
198 (3) on BASE (i.e. at the BASE position) otherwise |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
199 and Z is displayed with the same rule while regarding the whole |
850fd8c37942
(compose-region): Improve the docstring.
Kenichi Handa <handa@m17n.org>
parents:
103367
diff
changeset
|
200 XY glyphs as BASE. |
46963 | 201 |
26880 | 202 When called from a program, expects these four arguments. |
203 | |
204 First two arguments START and END are positions (integers or markers) | |
205 specifying the region. | |
206 | |
89497 | 207 Optional 3rd argument COMPONENTS, if non-nil, is a character, a string |
208 or a vector or list of integers and rules. | |
26880 | 209 |
210 If it is a character, it is an alternate character to display instead | |
211 of the text in the region. | |
212 | |
96418
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
213 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
|
214 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
|
215 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
|
216 so that no pixel overlaps with the previous column. If the last |
108174
2c1e291a5e1c
Fix typos in doc strings of composite.el.
Eli Zaretskii <eliz@gnu.org>
parents:
108106
diff
changeset
|
217 character is TAB, the glyphs are displayed with right padding |
96418
3dff73218ec3
(compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents:
96324
diff
changeset
|
218 space so that no pixel overlaps with the following column. |
26880 | 219 |
220 If it is a vector or list, it is a sequence of alternate characters and | |
221 composition rules, where (2N)th elements are characters and (2N+1)th | |
222 elements are composition rules to specify how to compose (2N+2)th | |
223 elements with previously composed N glyphs. | |
224 | |
225 A composition rule is a cons of global and new glyph reference point | |
226 symbols. See the documentation of `reference-point-alist' for more | |
108174
2c1e291a5e1c
Fix typos in doc strings of composite.el.
Eli Zaretskii <eliz@gnu.org>
parents:
108106
diff
changeset
|
227 details. |
26880 | 228 |
229 Optional 4th argument MODIFICATION-FUNC is a function to call to | |
230 adjust the composition when it gets invalid because of a change of | |
231 text in the composition." | |
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 (if (or (vectorp components) (listp components)) |
236 (setq components (encode-composition-components components))) | |
237 (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
|
238 (restore-buffer-modified-p modified-p))) |
26880 | 239 |
240 (defun decompose-region (start end) | |
241 "Decompose text in the current region. | |
242 | |
243 When called from a program, expects two arguments, | |
244 positions (integers or markers) specifying the region." | |
245 (interactive "r") | |
246 (let ((modified-p (buffer-modified-p)) | |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
247 (inhibit-read-only t)) |
26880 | 248 (remove-text-properties start end '(composition nil)) |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
249 (restore-buffer-modified-p modified-p))) |
26880 | 250 |
251 (defun compose-string (string &optional start end components modification-func) | |
252 "Compose characters in string STRING. | |
253 | |
88808 | 254 The return value is STRING with the `composition' property put on all |
26880 | 255 the characters in it. |
256 | |
257 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
|
258 STRING to be composed. They default to the beginning and the end of |
26880 | 259 STRING respectively. |
260 | |
261 Optional 4th argument COMPONENTS, if non-nil, is a character or a | |
262 sequence (vector, list, or string) of integers. See the function | |
263 `compose-region' for more detail. | |
264 | |
265 Optional 5th argument MODIFICATION-FUNC is a function to call to | |
266 adjust the composition when it gets invalid because of a change of | |
267 text in the composition." | |
268 (if (or (vectorp components) (listp components)) | |
269 (setq components (encode-composition-components components))) | |
270 (or start (setq start 0)) | |
271 (or end (setq end (length string))) | |
272 (compose-string-internal string start end components modification-func) | |
273 string) | |
274 | |
275 (defun decompose-string (string) | |
276 "Return STRING where `composition' property is removed." | |
277 (remove-text-properties 0 (length string) '(composition nil) string) | |
278 string) | |
279 | |
280 (defun compose-chars (&rest args) | |
281 "Return a string from arguments in which all characters are composed. | |
282 For relative composition, arguments are characters. | |
283 For rule-based composition, Mth \(where M is odd) arguments are | |
284 characters, and Nth \(where N is even) arguments are composition rules. | |
285 A composition rule is a cons of glyph reference points of the form | |
286 \(GLOBAL-REF-POINT . NEW-REF-POINT). See the documentation of | |
287 `reference-point-alist' for more detail." | |
288 (let (str components) | |
289 (if (consp (car (cdr args))) | |
290 ;; Rule-base composition. | |
291 (let ((len (length args)) | |
292 (tail (encode-composition-components args 'nocopy))) | |
293 | |
294 (while tail | |
295 (setq str (cons (car tail) str)) | |
296 (setq tail (nthcdr 2 tail))) | |
297 (setq str (concat (nreverse str)) | |
298 components args)) | |
299 ;; Relative composition. | |
300 (setq str (concat args))) | |
301 (compose-string-internal str 0 (length str) components))) | |
302 | |
303 (defun find-composition (pos &optional limit string detail-p) | |
108106
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
304 "Return information about a composition at or near buffer position POS. |
26880 | 305 |
306 If the character at POS has `composition' property, the value is a list | |
108106
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
307 \(FROM TO VALID-P). |
26880 | 308 |
309 FROM and TO specify the range of text that has the same `composition' | |
97985
26069577e76b
(find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents:
97836
diff
changeset
|
310 property, VALID-P is t if this composition is valid, and nil if not. |
26880 | 311 |
312 If there's no composition at POS, and the optional 2nd argument LIMIT | |
108106
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
313 is non-nil, search for a composition toward the position given by LIMIT. |
26880 | 314 |
315 If no composition is found, return nil. | |
316 | |
317 Optional 3rd argument STRING, if non-nil, is a string to look for a | |
318 composition in; nil means the current buffer. | |
319 | |
320 If a valid composition is found and the optional 4th argument DETAIL-P | |
108106
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
321 is non-nil, the return value is a list of the form |
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
322 |
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
323 (FROM TO COMPONENTS RELATIVE-P MOD-FUNC WIDTH) |
26880 | 324 |
325 COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P. | |
326 | |
327 RELATIVE-P is t if the composition method is relative, else nil. | |
328 | |
329 If RELATIVE-P is t, COMPONENTS is a vector of characters to be | |
330 composed. If RELATIVE-P is nil, COMPONENTS is a vector of characters | |
331 and composition rules as described in `compose-region'. | |
332 | |
333 MOD-FUNC is a modification function of the composition. | |
334 | |
97985
26069577e76b
(find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents:
97836
diff
changeset
|
335 WIDTH is a number of columns the composition occupies on the screen. |
26069577e76b
(find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents:
97836
diff
changeset
|
336 |
108203
877cada981cc
composite.el (find-composition): Fix a typo in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
108174
diff
changeset
|
337 When Automatic Composition mode is on, this function also finds a |
97985
26069577e76b
(find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents:
97836
diff
changeset
|
338 chunk of text that is automatically composed. If such a chunk is |
26069577e76b
(find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents:
97836
diff
changeset
|
339 found closer to POS than the position that has `composition' |
108106
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
340 property, the value is a list of FROM, TO, and a glyph-string |
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
341 that specifies how the chunk is to be composed. See the function |
823c35a2846d
composite.el (find-composition): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
106822
diff
changeset
|
342 `composition-get-gstring' for the format of the glyph-string." |
26880 | 343 (let ((result (find-composition-internal pos limit string detail-p))) |
97985
26069577e76b
(find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents:
97836
diff
changeset
|
344 (if (and detail-p (> (length result) 3) (nth 2 result) (not (nth 3 result))) |
26880 | 345 ;; This is a valid rule-base composition. |
346 (decode-composition-components (nth 2 result) 'nocopy)) | |
347 result)) | |
348 | |
349 | |
33244
59edd748e69a
(composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents:
30485
diff
changeset
|
350 (defun compose-chars-after (pos &optional limit object) |
26880 | 351 "Compose characters in current buffer after position POS. |
352 | |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
353 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
|
354 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
|
355 according to the contents of `composition-function-table'. |
26880 | 356 |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
357 Optional 2nd arg LIMIT, if non-nil, limits characters to compose. |
26880 | 358 |
33244
59edd748e69a
(composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents:
30485
diff
changeset
|
359 Optional 3rd arg OBJECT, if non-nil, is a string that contains the |
89497 | 360 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
|
361 |
26880 | 362 This function is the default value of `compose-chars-after-function'." |
363 (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
|
364 (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
|
365 (and (not (stringp object)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
366 (font-at pos (selected-window))))) |
26880 | 367 pattern func result) |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
368 (or limit |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
369 (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
|
370 (when (and font-obj tail) |
30485
5551289a9329
(compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents:
29551
diff
changeset
|
371 (save-match-data |
5551289a9329
(compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents:
29551
diff
changeset
|
372 (save-excursion |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
373 (while tail |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
374 (if (functionp (car tail)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
375 (setq pattern nil func (car tail)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
376 (setq pattern (car (car tail)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
377 func (cdr (car tail)))) |
30485
5551289a9329
(compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents:
29551
diff
changeset
|
378 (goto-char pos) |
92000
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
379 (if pattern |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
380 (if (and (if (stringp object) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
381 (eq (string-match pattern object) 0) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
382 (looking-at pattern)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
383 (<= (match-end 0) limit)) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
384 (setq result |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
385 (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
|
386 (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
|
387 (if result (setq tail nil)))))) |
501d20267e59
(compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents:
91861
diff
changeset
|
388 result)) |
26880 | 389 |
390 (defun compose-last-chars (args) | |
391 "Compose last characters. | |
35075
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
392 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
|
393 \(compose-last-chars N COMPONENTS), |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
394 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
|
395 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
|
396 \(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
|
397 and that function finds a proper rule to compose the target characters. |
26880 | 398 This function is intended to be used from input methods. |
399 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
|
400 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
|
401 after a sequence of character events." |
26880 | 402 (interactive "e") |
403 (let ((chars (nth 1 args))) | |
404 (if (and (numberp chars) | |
405 (>= (- (point) (point-min)) chars)) | |
35075
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
406 (if (nth 2 args) |
f49c90fa95d7
(compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents:
33244
diff
changeset
|
407 (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
|
408 (compose-chars-after (- (point) chars) (point)))))) |
26880 | 409 |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
410 (global-set-key [compose-last-chars] 'compose-last-chars) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
411 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
412 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
413 ;;; Automatic character composition. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
414 |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
415 ;; Copied from font-lock.el. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
416 (eval-when-compile |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
417 ;; Borrowed from lazy-lock.el. |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
418 ;; 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
|
419 (defmacro save-buffer-state (varlist &rest body) |
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
420 "Bind variables according to VARLIST and eval BODY restoring buffer state." |
89307 | 421 `(let* ,(append varlist |
422 '((modified (buffer-modified-p)) (buffer-undo-list t) | |
423 (inhibit-read-only t) (inhibit-point-motion-hooks t) | |
424 (inhibit-modification-hooks t) | |
425 deactivate-mark buffer-file-name buffer-file-truename)) | |
426 ,@body | |
427 (unless modified | |
428 (restore-buffer-modified-p nil)))) | |
89497 | 429 ;; Fixme: This makes bootstrapping fail with this error. |
89307 | 430 ;; Symbol's function definition is void: eval-defun |
431 ;;(def-edebug-spec save-buffer-state let) | |
432 ) | |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
433 |
89651
65f1f8091f15
(auto-compose-chars): Don't do unnecessary save-exclusion and
Kenichi Handa <handa@m17n.org>
parents:
89608
diff
changeset
|
434 (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
|
435 |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
436 ;; These macros must match with C macros LGSTRING_XXX and LGLYPH_XXX in font.h |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
437 (defsubst lgstring-header (gstring) (aref gstring 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
438 (defsubst lgstring-set-header (gstring header) (aset gstring 0 header)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
439 (defsubst lgstring-font (gstring) (aref (lgstring-header gstring) 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
440 (defsubst lgstring-char (gstring i) (aref (lgstring-header gstring) (1+ i))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
441 (defsubst lgstring-char-len (gstring) (1- (length (lgstring-header gstring)))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
442 (defsubst lgstring-shaped-p (gstring) (aref gstring 1)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
443 (defsubst lgstring-set-id (gstring id) (aset gstring 1 id)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
444 (defsubst lgstring-glyph (gstring i) (aref gstring (+ i 2))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
445 (defsubst lgstring-glyph-len (gstring) (- (length gstring) 2)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
446 (defsubst lgstring-set-glyph (gstring i glyph) (aset gstring (+ i 2) glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
447 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
448 (defsubst lglyph-from (glyph) (aref glyph 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
449 (defsubst lglyph-to (glyph) (aref glyph 1)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
450 (defsubst lglyph-char (glyph) (aref glyph 2)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
451 (defsubst lglyph-code (glyph) (aref glyph 3)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
452 (defsubst lglyph-width (glyph) (aref glyph 4)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
453 (defsubst lglyph-lbearing (glyph) (aref glyph 5)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
454 (defsubst lglyph-rbearing (glyph) (aref glyph 6)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
455 (defsubst lglyph-ascent (glyph) (aref glyph 7)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
456 (defsubst lglyph-descent (glyph) (aref glyph 8)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
457 (defsubst lglyph-adjustment (glyph) (aref glyph 9)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
458 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
459 (defsubst lglyph-set-from-to (glyph from to) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
460 (progn (aset glyph 0 from) (aset glyph 1 to))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
461 (defsubst lglyph-set-char (glyph char) (aset glyph 2 char)) |
100788
79c848cc0c06
(lglyph-set-code): New function.
Kenichi Handa <handa@m17n.org>
parents:
98122
diff
changeset
|
462 (defsubst lglyph-set-code (glyph code) (aset glyph 3 code)) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
463 (defsubst lglyph-set-width (glyph width) (aset glyph 4 width)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
464 (defsubst lglyph-set-adjustment (glyph &optional xoff yoff wadjust) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
465 (aset glyph 9 (vector (or xoff 0) (or yoff 0) (or wadjust 0)))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
466 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
467 (defsubst lglyph-copy (glyph) (copy-sequence glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
468 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
469 (defun lgstring-insert-glyph (gstring idx glyph) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
470 (let ((nglyphs (lgstring-glyph-len gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
471 (i idx) g) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
472 (while (and (< i nglyphs) (setq g (lgstring-glyph gstring i))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
473 (setq i (1+ i))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
474 (if (= i nglyphs) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
475 (setq gstring (vconcat gstring (vector glyph))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
476 (if (< (1+ i) nglyphs) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
477 (lgstring-set-glyph gstring (1+ i) nil))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
478 (while (> i idx) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
479 (lgstring-set-glyph gstring i (lgstring-glyph gstring (1- i))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
480 (setq i (1- i))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
481 (lgstring-set-glyph gstring i glyph) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
482 gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
483 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
484 (defun compose-glyph-string (gstring from to) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
485 (let ((glyph (lgstring-glyph gstring from)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
486 from-pos to-pos |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
487 ascent descent lbearing rbearing) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
488 (setq from-pos (lglyph-from glyph) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
489 to-pos (lglyph-to (lgstring-glyph gstring (1- to)))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
490 (lglyph-set-from-to glyph from-pos to-pos) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
491 (setq from (1+ from)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
492 (while (and (< from to) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
493 (setq glyph (lgstring-glyph gstring from))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
494 (lglyph-set-from-to glyph from-pos to-pos) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
495 (let ((xoff (if (<= (lglyph-rbearing glyph) 0) 0 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
496 (- (lglyph-width glyph))))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
497 (lglyph-set-adjustment glyph xoff 0 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
498 (setq from (1+ from))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
499 gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
500 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
501 (defun compose-glyph-string-relative (gstring from to &optional gap) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
502 (let ((font-object (lgstring-font gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
503 (glyph (lgstring-glyph gstring from)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
504 from-pos to-pos |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
505 ascent descent lbearing rbearing) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
506 (if gap |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
507 (setq gap (floor (* (font-get font-object :size) gap))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
508 (setq gap 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
509 (setq from-pos (lglyph-from glyph) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
510 to-pos (lglyph-to (lgstring-glyph gstring (1- to))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
511 ascent (lglyph-ascent glyph) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
512 descent (lglyph-descent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
513 (lglyph-set-from-to glyph from-pos to-pos) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
514 (setq from (1+ from)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
515 (while (< from to) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
516 (setq glyph (lgstring-glyph gstring from)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
517 (lglyph-set-from-to glyph from-pos to-pos) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
518 (let ((this-ascent (lglyph-ascent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
519 (this-descent (lglyph-descent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
520 xoff yoff wadjust) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
521 (setq xoff (if (<= (lglyph-rbearing glyph) 0) 0 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
522 (- (lglyph-width glyph)))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
523 (if (> this-ascent 0) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
524 (if (< this-descent 0) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
525 (setq yoff (- 0 ascent gap this-descent) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
526 ascent (+ ascent gap this-ascent this-descent)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
527 (setq yoff 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
528 (setq yoff (+ descent gap this-ascent) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
529 descent (+ descent gap this-ascent this-descent))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
530 (if (or (/= xoff 0) (/= yoff 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
531 (lglyph-set-adjustment glyph xoff yoff 0))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
532 (setq from (1+ from))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
533 gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
534 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
535 (defun compose-gstring-for-graphic (gstring) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
536 "Compose glyph-string GSTRING for graphic display. |
108686
50557bcb79ad
composite.el: Register compose-gstring-for-graphic in composition-function-table only for combining characters (Mn, Mc, Me).
Kenichi Handa <handa@etlken>
parents:
108241
diff
changeset
|
537 Combining characters are composed with the preceding base |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
538 character. If the preceding character is not a base character, |
108686
50557bcb79ad
composite.el: Register compose-gstring-for-graphic in composition-function-table only for combining characters (Mn, Mc, Me).
Kenichi Handa <handa@etlken>
parents:
108241
diff
changeset
|
539 each combining character is composed as a spacing character by |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
540 a padding space before and/or after the character. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
541 |
108705
f7d37c2787ad
* composite.el: Require cl when compiling; fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
108686
diff
changeset
|
542 All non-spacing characters have this function in |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
543 `composition-function-table' unless overwritten." |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
544 (let* ((header (lgstring-header gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
545 (nchars (lgstring-char-len gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
546 (nglyphs (lgstring-glyph-len gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
547 (glyph (lgstring-glyph gstring 0))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
548 (cond |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
549 ;; A non-spacing character not following a proper base character. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
550 ((= nchars 1) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
551 (let ((lbearing (lglyph-lbearing glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
552 (rbearing (lglyph-rbearing glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
553 (width (lglyph-width glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
554 xoff wadjust) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
555 (if (< lbearing 0) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
556 (setq xoff (- lbearing)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
557 (setq xoff 0 lbearing 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
558 (if (< rbearing width) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
559 (setq rbearing width)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
560 (lglyph-set-adjustment glyph xoff 0 (- rbearing lbearing)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
561 gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
562 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
563 ;; This sequence doesn't start with a proper base character. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
564 ((memq (get-char-code-property (lgstring-char gstring 0) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
565 'general-category) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
566 '(Mn Mc Me Zs Zl Zp Cc Cf Cs)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
567 nil) |
96301
66839d3799fe
(terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents:
94955
diff
changeset
|
568 |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
569 ;; A base character and the following non-spacing characters. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
570 (t |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
571 (let ((gstr (font-shape-gstring gstring))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
572 (if (and gstr |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
573 (> (lglyph-to (lgstring-glyph gstr 0)) 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
574 gstr |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
575 ;; The shaper of the font couldn't shape the gstring. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
576 ;; Shape them according to canonical-combining-class. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
577 (lgstring-set-id gstring nil) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
578 (let* ((width (lglyph-width glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
579 (ascent (lglyph-ascent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
580 (descent (lglyph-descent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
581 (rbearing (lglyph-rbearing glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
582 (lbearing (lglyph-lbearing glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
583 (center (/ (+ lbearing rbearing) 2)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
584 (gap (round (* (font-get (lgstring-font gstring) :size) 0.1))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
585 xoff yoff) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
586 (dotimes (i nchars) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
587 (setq glyph (lgstring-glyph gstring i)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
588 (when (> i 0) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
589 (let* ((class (get-char-code-property |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
590 (lglyph-char glyph) 'canonical-combining-class)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
591 (lb (lglyph-lbearing glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
592 (rb (lglyph-rbearing glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
593 (as (lglyph-ascent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
594 (de (lglyph-descent glyph)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
595 (ce (/ (+ lb rb) 2)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
596 xoff yoff) |
98122
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
597 (when (and class (>= class 200) (<= class 240)) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
598 (setq xoff 0 yoff 0) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
599 (cond |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
600 ((= class 200) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
601 (setq xoff (- lbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
602 yoff (if (> as 0) 0 (+ descent as)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
603 ((= class 202) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
604 (if (> as 0) (setq as 0)) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
605 (setq xoff (- center ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
606 yoff (if (> as 0) 0 (+ descent as)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
607 ((= class 204) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
608 (if (> as 0) (setq as 0)) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
609 (setq xoff (- rbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
610 yoff (if (> as 0) 0 (+ descent as)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
611 ((= class 208) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
612 (setq xoff (- lbearing rb))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
613 ((= class 210) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
614 (setq xoff (- rbearing lb))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
615 ((= class 212) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
616 (setq xoff (- lbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
617 yoff (if (>= de 0) 0 (- (- ascent) de)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
618 ((= class 214) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
619 (setq xoff (- center ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
620 yoff (if (>= de 0) 0 (- (- ascent) de)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
621 ((= class 216) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
622 (setq xoff (- rbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
623 yoff (if (>= de 0) 0 (- (- ascent) de)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
624 ((= class 218) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
625 (setq xoff (- lbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
626 yoff (if (> as 0) 0 (+ descent as gap)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
627 ((= class 220) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
628 (setq xoff (- center ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
629 yoff (if (> as 0) 0 (+ descent as gap)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
630 ((= class 222) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
631 (setq xoff (- rbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
632 yoff (if (> as 0) 0 (+ descent as gap)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
633 ((= class 224) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
634 (setq xoff (- lbearing rb))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
635 ((= class 226) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
636 (setq xoff (- rbearing lb))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
637 ((= class 228) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
638 (setq xoff (- lbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
639 yoff (if (>= de 0) 0 (- (- ascent) de gap)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
640 ((= class 230) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
641 (setq xoff (- center ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
642 yoff (if (>= de 0) 0 (- (- ascent) de gap)))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
643 ((= class 232) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
644 (setq xoff (- rbearing ce) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
645 yoff (if (>= de 0) 0 (- (+ ascent de) gap))))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
646 (lglyph-set-adjustment glyph (- xoff width) yoff) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
647 (setq lb (+ lb xoff) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
648 rb (+ lb xoff) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
649 as (- as yoff) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
650 de (+ de yoff))) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
651 (if (< ascent as) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
652 (setq ascent as)) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
653 (if (< descent de) |
e3d5c2e9ec89
(compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
98069
diff
changeset
|
654 (setq descent de)))))) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
655 (let ((i 0)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
656 (while (and (< i nglyphs) (setq glyph (lgstring-glyph gstring i))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
657 (lglyph-set-from-to glyph 0 (1- nchars)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
658 (setq i (1+ i)))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
659 gstring)))))) |
90637
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
660 |
105965
3f64b8380468
* textmodes/ispell.el (ispell-skip-region-alist):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104990
diff
changeset
|
661 (let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic] |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
662 [nil 0 compose-gstring-for-graphic]))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
663 (map-char-table |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
664 #'(lambda (key val) |
108686
50557bcb79ad
composite.el: Register compose-gstring-for-graphic in composition-function-table only for combining characters (Mn, Mc, Me).
Kenichi Handa <handa@etlken>
parents:
108241
diff
changeset
|
665 (if (memq val '(Mn Mc Me)) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
666 (set-char-table-range composition-function-table key elt))) |
108686
50557bcb79ad
composite.el: Register compose-gstring-for-graphic in composition-function-table only for combining characters (Mn, Mc, Me).
Kenichi Handa <handa@etlken>
parents:
108241
diff
changeset
|
667 unicode-category-table)) |
90637
042336f13176
(terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents:
90627
diff
changeset
|
668 |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
669 (defun compose-gstring-for-terminal (gstring) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
670 "Compose glyph string GSTRING for terminal display. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
671 Non-spacing characters are composed with the preceding base |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
672 character. If the preceding character is not a base character, |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
673 each non-spacing character is composed as a spacing character by |
108705
f7d37c2787ad
* composite.el: Require cl when compiling; fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
108686
diff
changeset
|
674 prepending a space before it." |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
675 (let* ((header (lgstring-header gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
676 (nchars (lgstring-char-len gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
677 (nglyphs (lgstring-glyph-len gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
678 (i 0) |
101780
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
679 (coding (lgstring-font gstring)) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
680 glyph) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
681 (while (and (< i nglyphs) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
682 (setq glyph (lgstring-glyph gstring i))) |
101780
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
683 (if (not (char-charset (lglyph-char glyph) coding)) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
684 (progn |
101780
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
685 ;; As the terminal doesn't support this glyph, return a |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
686 ;; gstring in which each glyph is its own graphme-cluster |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
687 ;; of width 1.. |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
688 (setq i 0) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
689 (while (and (< i nglyphs) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
690 (setq glyph (lgstring-glyph gstring i))) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
691 (if (< (lglyph-width glyph) 1) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
692 (lglyph-set-width glyph 1)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
693 (lglyph-set-from-to glyph i i) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
694 (setq i (1+ i)))) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
695 (if (= (lglyph-width glyph) 0) |
103367
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
696 (if (eq (get-char-code-property (lglyph-char glyph) |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
697 'general-category) |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
698 'Cf) |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
699 (progn |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
700 ;; Compose by replacing with a space. |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
701 (lglyph-set-char glyph 32) |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
702 (lglyph-set-width glyph 1) |
8fb6a5d3b48d
(compose-gstring-for-terminal): For zero-width
Kenichi Handa <handa@m17n.org>
parents:
102727
diff
changeset
|
703 (setq i (1+ i))) |
101780
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
704 ;; Compose by prepending a space. |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
705 (setq gstring (lgstring-insert-glyph gstring i |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
706 (lglyph-copy glyph)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
707 nglyphs (lgstring-glyph-len gstring)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
708 (setq glyph (lgstring-glyph gstring i)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
709 (lglyph-set-char glyph 32) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
710 (lglyph-set-width glyph 1) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
711 (setq i (+ 2))) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
712 (let ((from (lglyph-from glyph)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
713 (to (lglyph-to glyph)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
714 (j (1+ i))) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
715 (while (and (< j nglyphs) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
716 (setq glyph (lgstring-glyph gstring j)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
717 (char-charset (lglyph-char glyph) coding) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
718 (= (lglyph-width glyph) 0)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
719 (setq to (lglyph-to glyph) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
720 j (1+ j))) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
721 (while (< i j) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
722 (setq glyph (lgstring-glyph gstring i)) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
723 (lglyph-set-from-to glyph from to) |
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
724 (setq i (1+ i))))))) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
725 gstring)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
726 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
727 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
728 (defun auto-compose-chars (func from to font-object string) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
729 "Compose the characters at FROM by FUNC. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
730 FUNC is called with one argument GSTRING which is built for characters |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
731 in the region FROM (inclusive) and TO (exclusive). |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
732 |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
733 If the character are composed on a graphic display, FONT-OBJECT |
102727
519b650e6d27
* composite.el (auto-compose-chars): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
102203
diff
changeset
|
734 is a font to use. Otherwise, FONT-OBJECT is nil, and the function |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
735 `compose-gstring-for-terminal' is used instead of FUNC. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
736 |
91276
1d8d51129d26
(composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents:
91227
diff
changeset
|
737 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
|
738 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
|
739 |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
740 The value is a gstring containing information for shaping the characters. |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
741 |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
742 This function is the default value of `auto-composition-function' (which see)." |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
743 (let ((gstring (composition-get-gstring from to font-object string))) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
744 (if (lgstring-shaped-p gstring) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
745 gstring |
101780
4c5660c5102c
(compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents:
101080
diff
changeset
|
746 (or (fontp font-object 'font-object) |
97836
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
747 (setq func 'compose-gstring-for-terminal)) |
f5f400126c23
(composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents:
96418
diff
changeset
|
748 (funcall func gstring)))) |
89290
adbc95471ef8
Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents:
88808
diff
changeset
|
749 |
106812
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
750 (put 'auto-composition-mode 'permanent-local t) |
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
751 |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
752 (make-variable-buffer-local 'auto-composition-function) |
106812
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
753 (setq-default auto-composition-function 'auto-compose-chars) |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
754 |
90307
a2899387f787
(auto-composition-mode): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
90306
diff
changeset
|
755 ;;;###autoload |
108220
0b37f86b040e
Use define-minor-mode where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
108203
diff
changeset
|
756 (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
|
757 "Toggle Auto Composition mode. |
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
758 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
|
759 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
|
760 Composition on. |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
761 |
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
762 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
|
763 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
|
764 |
92026
4ad14ee0d40a
(encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents:
92000
diff
changeset
|
765 You can use `global-auto-composition-mode' to turn on |
108220
0b37f86b040e
Use define-minor-mode where applicable.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
108203
diff
changeset
|
766 Auto Composition mode in all buffers (this is the default).") |
90306
696f125c3c6a
(auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents:
90261
diff
changeset
|
767 |
90307
a2899387f787
(auto-composition-mode): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
90306
diff
changeset
|
768 ;;;###autoload |
108241
731a16c5bb20
Use define-minor-mode for less obvious cases.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
108220
diff
changeset
|
769 (define-minor-mode global-auto-composition-mode |
106812
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
770 "Toggle Auto-Composition mode in every possible buffer. |
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
771 With prefix arg, turn Global-Auto-Composition mode on if and only if arg |
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
772 is positive. |
23c562723a8d
Make auto-composition work on all buffers even if they are fundamental mode.
Kenichi Handa <handa@m17n.org>
parents:
105965
diff
changeset
|
773 See `auto-composition-mode' for more information on Auto-Composition mode." |
108241
731a16c5bb20
Use define-minor-mode for less obvious cases.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
108220
diff
changeset
|
774 :variable (default-value 'auto-composition-mode)) |
731a16c5bb20
Use define-minor-mode for less obvious cases.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
108220
diff
changeset
|
775 |
102203
fa34dcb3d716
(auto-composition-mode): Don't add a hook to
Kenichi Handa <handa@m17n.org>
parents:
101960
diff
changeset
|
776 (defalias 'toggle-auto-composition 'auto-composition-mode) |
26880 | 777 |
778 | |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
779 ;; 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
|
780 ;; 20.4 and earlier. |
26880 | 781 |
782 (defun decompose-composite-char (char &optional type with-composition-rule) | |
783 "Convert CHAR to string. | |
784 | |
785 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
|
786 `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
|
787 vector of CHAR respectively. |
6a0305153436
(decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
46963
diff
changeset
|
788 Optional 3rd arg WITH-COMPOSITION-RULE is ignored." |
26880 | 789 (cond ((or (null type) (eq type 'string)) (char-to-string char)) |
790 ((eq type 'list) (list char)) | |
791 (t (vector char)))) | |
792 | |
29521
4ad26302d559
(decompose-composite-char): Declare it as obsolete.
Kenichi Handa <handa@m17n.org>
parents:
26880
diff
changeset
|
793 (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
|
794 |
26880 | 795 |
52401 | 796 |
81073
12cb550b10e4
(compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
797 ;; arch-tag: ee703d77-1723-45d4-a31f-e9f0f867aa33 |
26880 | 798 ;;; composite.el ends here |