annotate lisp/composite.el @ 31234:1062e0ffbdad

*** empty log message ***
author Dave Love <fx@gnu.org>
date Mon, 28 Aug 2000 18:56:48 +0000
parents 5551289a9329
children 59edd748e69a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 ;;; composite.el --- Support character composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 ;; Licensed to the Free Software Foundation.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6 ;; Keywords: mule, multilingual, character composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; any later version.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;;; Code:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 (defconst reference-point-alist
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 '((tl . 0) (tc . 1) (tr . 2)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 (Bl . 3) (Bc . 4) (Br . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 (bl . 6) (bc . 7) (br . 8)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 (cl . 9) (cc . 10) (cr . 11)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 (top-left . 0) (top-center . 1) (top-right . 2)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 (base-left . 3) (base-center . 4) (base-right . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 (bottom-left . 6) (bottom-center . 7) (bottom-right . 8)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 (center-left . 9) (center-center . 10) (center-right . 11)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 ;; For backward compatibility...
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 (ml . 3) (mc . 10) (mr . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 (mid-left . 3) (mid-center . 10) (mid-right . 5))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 "Alist of symbols vs integer codes of glyph reference points.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 A glyph reference point symbol is to be used to specify a composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 rule in COMPONENTS argument to such functions as `compose-region' and
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 `make-composition'.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 Meanings of glyph reference point codes are as follows:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 0----1----2 <---- ascent 0:tl or top-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 | | 1:tc or top-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 | | 2:tr or top-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 | | 3:Bl or base-left 9:cl or center-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 9 10 11 <---- center 4:Bc or base-center 10:cc or center-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 | | 5:Br or base-right 11:cr or center-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 --3----4----5-- <-- baseline 6:bl or bottom-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 | | 7:bc or bottom-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 6----7----8 <---- descent 8:br or bottom-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 Glyph reference point symbols are to be used to specify composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 rule of the form \(GLOBAL-REF-POINT . NEW-REF-POINT), where
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 GLOBAL-REF-POINT is a reference point in the overall glyphs already
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 composed, and NEW-REF-POINT is a reference point in the new glyph to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 be added.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 For instance, if GLOBAL-REF-POINT is `br' (bottom-right) and
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 NEW-REF-POINT is `tl' (top-left), the overall glyph is updated as
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 follows (the point `*' corresponds to both reference points):
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 +-------+--+ <--- new ascent
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 | | |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 | global| |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 | glyph | |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 -- | | |-- <--- baseline \(doesn't change)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 +----+--*--+
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 | | new |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 | |glyph|
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 +----+-----+ <--- new descent
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 ")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78 ;; Encode composition rule RULE into an integer value. RULE is a cons
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 ;; of global and new reference point symbols.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 ;; This must be compatible with C macro COMPOSITION_ENCODE_RULE
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 ;; defined in composite.h.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 (defun encode-composition-rule (rule)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 (if (and (integerp rule) (< rule 144))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 ;; Already encoded.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 rule
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 (or (consp rule)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 (error "Invalid composition rule: %S" rule))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 (let ((gref (car rule))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 (nref (cdr rule)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 (or (integerp gref)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 (setq gref (cdr (assq gref reference-point-alist))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 (or (integerp nref)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 (setq nref (cdr (assq nref reference-point-alist))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 (or (and (>= gref 0) (< gref 12) (>= nref 0) (< nref 12))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 (error "Invalid composition rule: %S" rule))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 (+ (* gref 12) nref))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 ;; Decode encoded composition rule RULE-CODE. The value is a cons of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 ;; global and new reference point symbols.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 ;; This must be compatible with C macro COMPOSITION_DECODE_RULE
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 ;; defined in composite.h.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 (defun decode-composition-rule (rule-code)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 (or (and (natnump rule-code) (< rule-code 144))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 (error "Invalid encoded composition rule: %S" rule-code))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 (let ((gref (car (rassq (/ rule-code 12) reference-point-alist)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 (nref (car (rassq (% rule-code 12) reference-point-alist))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 (or (and gref (symbolp gref) nref (symbolp nref))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 (error "Invalid composition rule code: %S" rule-code))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 (cons gref nref)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 ;; Encode composition rules in composition components COMPONENTS. The
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 ;; value is a copy of COMPONENTS, where composition rules (cons of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 ;; global and new glyph reference point symbols) are replaced with
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 ;; encoded composition rules. Optional 2nd argument NOCOPY non-nil
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 ;; means don't make a copy but modify COMPONENTS directly.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 (defun encode-composition-components (components &optional nocopy)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 (or nocopy
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 (setq components (copy-sequence components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 (if (vectorp components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 (let ((len (length components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 (i 1))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 (while (< i len)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 (aset components i
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 (encode-composition-rule (aref components i)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 (setq i (+ i 2))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 (let ((tail (cdr components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 (while tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 (setcar tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 (encode-composition-rule (car tail)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 (setq tail (nthcdr 2 tail)))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 ;; Decode composition rule codes in composition components COMPONENTS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 ;; The value is a copy of COMPONENTS, where composition rule codes are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 ;; replaced with composition rules (cons of global and new glyph
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139 ;; reference point symbols). Optional 2nd argument NOCOPY non-nil
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140 ;; means don't make a copy but modify COMPONENTS directly.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 ;; It is assumed that COMPONENTS is a vector and is for rule-base
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142 ;; composition, thus (2N+1)th elements are rule codes.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 (defun decode-composition-components (components &optional nocopy)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 (or nocopy
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 (setq components (copy-sequence components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147 (let ((len (length components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 (i 1))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 (while (< i len)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150 (aset components i
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 (decode-composition-rule (aref components i)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 (setq i (+ i 2))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153 components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 (defun compose-region (start end &optional components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 "Compose characters in the current region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159 When called from a program, expects these four arguments.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 First two arguments START and END are positions (integers or markers)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 specifying the region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164 Optional 3rd argument COMPONENTS, if non-nil, is a character or a
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
165 sequence (vector, list, or string) of integers.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
166
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167 If it is a character, it is an alternate character to display instead
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 of the text in the region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170 If it is a string, the elements are alternate characters.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172 If it is a vector or list, it is a sequence of alternate characters and
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
173 composition rules, where (2N)th elements are characters and (2N+1)th
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
174 elements are composition rules to specify how to compose (2N+2)th
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175 elements with previously composed N glyphs.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
176
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177 A composition rule is a cons of global and new glyph reference point
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 symbols. See the documentation of `reference-point-alist' for more
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
180
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 Optional 4th argument MODIFICATION-FUNC is a function to call to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182 adjust the composition when it gets invalid because of a change of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
183 text in the composition."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184 (interactive "r")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185 (let ((modified-p (buffer-modified-p))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
186 (buffer-read-only nil))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187 (if (or (vectorp components) (listp components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
188 (setq components (encode-composition-components components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
189 (compose-region-internal start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
190 (set-buffer-modified-p modified-p)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
192 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193 (defun decompose-region (start end)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
194 "Decompose text in the current region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
195
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
196 When called from a program, expects two arguments,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
197 positions (integers or markers) specifying the region."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198 (interactive "r")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
199 (let ((modified-p (buffer-modified-p))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200 (buffer-read-only nil))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
201 (remove-text-properties start end '(composition nil))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
202 (set-buffer-modified-p modified-p)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
203
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
204 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205 (defun compose-string (string &optional start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 "Compose characters in string STRING.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
207
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208 The return value is STRING where `composition' property is put on all
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 the characters in it.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
210
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211 Optional 2nd and 3rd arguments START and END specify the range of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212 STRING to be composed. They defaults to the beginning and the end of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213 STRING respectively.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 Optional 4th argument COMPONENTS, if non-nil, is a character or a
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
216 sequence (vector, list, or string) of integers. See the function
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
217 `compose-region' for more detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
218
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
219 Optional 5th argument MODIFICATION-FUNC is a function to call to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
220 adjust the composition when it gets invalid because of a change of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
221 text in the composition."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
222 (if (or (vectorp components) (listp components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
223 (setq components (encode-composition-components components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
224 (or start (setq start 0))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
225 (or end (setq end (length string)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
226 (compose-string-internal string start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
227 string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
228
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
229 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
230 (defun decompose-string (string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
231 "Return STRING where `composition' property is removed."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
232 (remove-text-properties 0 (length string) '(composition nil) string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233 string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236 (defun compose-chars (&rest args)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237 "Return a string from arguments in which all characters are composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
238 For relative composition, arguments are characters.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239 For rule-based composition, Mth \(where M is odd) arguments are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
240 characters, and Nth \(where N is even) arguments are composition rules.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
241 A composition rule is a cons of glyph reference points of the form
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
242 \(GLOBAL-REF-POINT . NEW-REF-POINT). See the documentation of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
243 `reference-point-alist' for more detail."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
244 (let (str components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245 (if (consp (car (cdr args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
246 ;; Rule-base composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
247 (let ((len (length args))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 (tail (encode-composition-components args 'nocopy)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250 (while tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 (setq str (cons (car tail) str))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
252 (setq tail (nthcdr 2 tail)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253 (setq str (concat (nreverse str))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
254 components args))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255 ;; Relative composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 (setq str (concat args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257 (compose-string-internal str 0 (length str) components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260 (defun find-composition (pos &optional limit string detail-p)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 "Return information about a composition at or nearest to buffer position POS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263 If the character at POS has `composition' property, the value is a list
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 of FROM, TO, and VALID-P.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 FROM and TO specify the range of text that has the same `composition'
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 property, VALID-P is non-nil if and only if this composition is valid.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269 If there's no composition at POS, and the optional 2nd argument LIMIT
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 is non-nil, search for a composition toward LIMIT.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 If no composition is found, return nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 Optional 3rd argument STRING, if non-nil, is a string to look for a
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 composition in; nil means the current buffer.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 If a valid composition is found and the optional 4th argument DETAIL-P
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
278 is non-nil, the return value is a list of FROM, TO, COMPONENTS,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
279 RELATIVE-P, MOD-FUNC, and WIDTH.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
280
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281 COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283 RELATIVE-P is t if the composition method is relative, else nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
284
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285 If RELATIVE-P is t, COMPONENTS is a vector of characters to be
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
286 composed. If RELATIVE-P is nil, COMPONENTS is a vector of characters
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
287 and composition rules as described in `compose-region'.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 MOD-FUNC is a modification function of the composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291 WIDTH is a number of columns the composition occupies on the screen."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 (let ((result (find-composition-internal pos limit string detail-p)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 (if (and detail-p result (nth 2 result) (not (nth 3 result)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294 ;; This is a valid rule-base composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 (decode-composition-components (nth 2 result) 'nocopy))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 result))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299 ;; A char-table of functions to call for compositions.
29551
0941692cc11e (composition-function-table): Move the `put'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29521
diff changeset
300 ;;;###autoload
0941692cc11e (composition-function-table): Move the `put'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29521
diff changeset
301 (put 'composition-function-table 'char-table-extra-slots 0)
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 (defvar composition-function-table
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305 (make-char-table 'composition-function-table)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
306 "Char table of patterns and functions to make a composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
307
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308 Each element is nil or an alist of PATTERNs vs FUNCs, where PATTERNs
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 are regular expressions and FUNCs are functions. FUNC is responsible
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 for composing text matching the corresponding PATTERN. FUNC is called
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311 with three arguments FROM, TO, and PATTERN. See the function
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 `compose-chars-after' for more detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314 This table is looked up by the first character of a composition when
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 the composition gets invalid after a change in a buffer.")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 (defun compose-chars-after (pos &optional limit)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 "Compose characters in current buffer after position POS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 It looks up the char-table `composition-function-table' (which see) by
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322 a character after POS. If non-nil value is found, the format of the
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
323 value should be an alist of PATTERNs vs FUNCs, where PATTERNs are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324 regular expressions and FUNCs are functions. If the text after POS
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
325 matches one of PATTERNs, call the corresponding FUNC with three
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 arguments POS, TO, and PATTERN, where TO is the end position of text
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
327 matching PATTERN, and return what FUNC returns. Otherwise, return
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
328 nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
330 FUNC is responsible for composing the text properly. The return value
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 is:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332 nil -- if no characters were composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
333 CHARS (integer) -- if CHARS characters were composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
335 Optional 2nd arg LIMIT, if non-nil, limits the matching of text.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
336
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337 This function is the default value of `compose-chars-after-function'."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 (let ((tail (aref composition-function-table (char-after pos)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 pattern func result)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 (when tail
30485
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
341 (save-match-data
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
342 (save-excursion
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
343 (while (and tail (not func))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
344 (setq pattern (car (car tail))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
345 func (cdr (car tail)))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
346 (goto-char pos)
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
347 (if (if limit
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
348 (and (re-search-forward pattern limit t)
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
349 (= (match-beginning 0) pos))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
350 (looking-at pattern))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
351 (setq result (funcall func pos (match-end 0) pattern nil))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
352 (setq func nil tail (cdr tail)))))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
353 result))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
354
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
356 (defun compose-last-chars (args)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
357 "Compose last characters.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
358 The argument is a parameterized event of the form (compose-last-chars N),
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
359 where N is the number of characters before point to compose.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
360 This function is intended to be used from input methods.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
361 The global keymap binds special event `compose-last-chars' to this
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
362 function. Input method may generate an event (compose-last-chars N)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363 after a sequence character events."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364 (interactive "e")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 (let ((chars (nth 1 args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 (if (and (numberp chars)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
367 (>= (- (point) (point-min)) chars))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368 (compose-chars-after (- (point) chars) (point)))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
369
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 ;;;###autoload(global-set-key [compose-last-chars] 'compose-last-chars)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
371
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
372
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 ;;; The following codes are only for backward compatibility with Emacs
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 ;;; 20.4 and the earlier.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
376 ;;;###autoload
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377 (defun decompose-composite-char (char &optional type with-composition-rule)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 "Convert CHAR to string.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 This is only for backward compatibility with Emacs 20.4 and the earlier.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381 If optional 2nd arg TYPE is non-nil, it is `string', `list', or
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
382 `vector'. In this case, CHAR is converted string, list of CHAR, or
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
383 vector of CHAR respectively."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 (cond ((or (null type) (eq type 'string)) (char-to-string char))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385 ((eq type 'list) (list char))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 (t (vector char))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387
29521
4ad26302d559 (decompose-composite-char): Declare it as obsolete.
Kenichi Handa <handa@m17n.org>
parents: 26880
diff changeset
388 (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
389
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391 ;;; composite.el ends here