annotate lisp/composite.el @ 101966:43952e9a02cd

(fast_looking_at): New function.
author Kenichi Handa <handa@m17n.org>
date Thu, 12 Feb 2009 06:01:23 +0000
parents 6f4559bfd1b6
children fa34dcb3d716
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
79721
73661ddc7ac7 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78299
diff changeset
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100788
diff changeset
4 ;; 2008, 2009
67658
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64530
diff changeset
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64530
diff changeset
6 ;; Registration Number H14PRO021
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; Keywords: mule, multilingual, character composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; GNU General Public License for more details.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
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
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 ;;; Code:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 (defconst reference-point-alist
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 '((tl . 0) (tc . 1) (tr . 2)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 (Bl . 3) (Bc . 4) (Br . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 (bl . 6) (bc . 7) (br . 8)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 (cl . 9) (cc . 10) (cr . 11)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 (top-left . 0) (top-center . 1) (top-right . 2)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (base-left . 3) (base-center . 4) (base-right . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 (bottom-left . 6) (bottom-center . 7) (bottom-right . 8)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 (center-left . 9) (center-center . 10) (center-right . 11)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 ;; For backward compatibility...
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (ml . 3) (mc . 10) (mr . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 (mid-left . 3) (mid-center . 10) (mid-right . 5))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 "Alist of symbols vs integer codes of glyph reference points.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 A glyph reference point symbol is to be used to specify a composition
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
45 rule in COMPONENTS argument to such functions as `compose-region'.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 Meanings of glyph reference point codes are as follows:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 0----1----2 <---- ascent 0:tl or top-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 | | 1:tc or top-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 | | 2:tr or top-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 | | 3:Bl or base-left 9:cl or center-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 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
54 | | 5:Br or base-right 11:cr or center-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 --3----4----5-- <-- baseline 6:bl or bottom-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 | | 7:bc or bottom-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 6----7----8 <---- descent 8:br or bottom-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 Glyph reference point symbols are to be used to specify composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 rule of the form \(GLOBAL-REF-POINT . NEW-REF-POINT), where
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 GLOBAL-REF-POINT is a reference point in the overall glyphs already
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 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
63 be added.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 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
66 NEW-REF-POINT is `tc' (top-center), the overall glyph is updated as
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 follows (the point `*' corresponds to both reference points):
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 +-------+--+ <--- new ascent
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 | | |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 | global| |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 | glyph | |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 -- | | |-- <--- baseline \(doesn't change)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 +----+--*--+
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 | | new |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 | |glyph|
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77 +----+-----+ <--- new descent
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
78
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
79 A composition rule may have the form \(GLOBAL-REF-POINT
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
80 NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specifies how much
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
81 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
82 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
83 shifting percentage against the font size.")
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85
56985
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
86 ;;;###autoload
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 (defun encode-composition-rule (rule)
56985
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
88 "Encode composition rule RULE into an integer value.
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
89 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
90 \(see `reference-point-alist')."
56985
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
91
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
92 ;; 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
93 ;; defined in composite.h.
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
94
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 (if (and (integerp rule) (< rule 144))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 ;; Already encoded.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 rule
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
98 (if (consp rule)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
99 (let ((gref (car rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
100 (nref (cdr rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
101 xoff yoff)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
102 (if (consp nref) ; (GREF NREF XOFF YOFF)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
103 (progn
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
104 (setq xoff (nth 1 nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
105 yoff (nth 2 nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
106 nref (car nref))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
107 (or (and (>= xoff -100) (<= xoff 100)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
108 (>= yoff -100) (<= yoff 100))
92026
4ad14ee0d40a (encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents: 92000
diff changeset
109 (error "Invalid composition rule: %s" rule))
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
110 (setq xoff (+ xoff 128) yoff (+ yoff 128)))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
111 ;; (GREF . NREF)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
112 (setq xoff 0 yoff 0))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
113 (or (integerp gref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
114 (setq gref (cdr (assq gref reference-point-alist))))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
115 (or (integerp nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
116 (setq nref (cdr (assq nref reference-point-alist))))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
117 (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
118 (error "Invalid composition rule: %S" rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
119 (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
120 (error "Invalid composition rule: %S" rule))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 ;; Decode encoded composition rule RULE-CODE. The value is a cons of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 ;; global and new reference point symbols.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 ;; This must be compatible with C macro COMPOSITION_DECODE_RULE
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 ;; defined in composite.h.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 (defun decode-composition-rule (rule-code)
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
128 (or (and (natnump rule-code) (< rule-code #x1000000))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 (error "Invalid encoded composition rule: %S" rule-code))
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
130 (let ((xoff (lsh rule-code -16))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
131 (yoff (logand (lsh rule-code -8) #xFF))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
132 gref nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
133 (setq rule-code (logand rule-code #xFF)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
134 gref (car (rassq (/ rule-code 12) reference-point-alist))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
135 nref (car (rassq (% rule-code 12) reference-point-alist)))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 (or (and gref (symbolp gref) nref (symbolp nref))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 (error "Invalid composition rule code: %S" rule-code))
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
138 (if (and (= xoff 0) (= yoff 0))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
139 (cons gref nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
140 (setq xoff (- xoff 128) yoff (- yoff 128))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
141 (list gref xoff yoff nref))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143 ;; Encode composition rules in composition components COMPONENTS. The
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 ;; value is a copy of COMPONENTS, where composition rules (cons of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 ;; global and new glyph reference point symbols) are replaced with
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 ;; encoded composition rules. Optional 2nd argument NOCOPY non-nil
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147 ;; means don't make a copy but modify COMPONENTS directly.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 (defun encode-composition-components (components &optional nocopy)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150 (or nocopy
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 (setq components (copy-sequence components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 (if (vectorp components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153 (let ((len (length components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 (i 1))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155 (while (< i len)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 (aset components i
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 (encode-composition-rule (aref components i)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 (setq i (+ i 2))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159 (let ((tail (cdr components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160 (while tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 (setcar tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 (encode-composition-rule (car tail)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 (setq tail (nthcdr 2 tail)))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164 components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
165
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
166 ;; Decode composition rule codes in composition components COMPONENTS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167 ;; The value is a copy of COMPONENTS, where composition rule codes are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 ;; replaced with composition rules (cons of global and new glyph
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169 ;; reference point symbols). Optional 2nd argument NOCOPY non-nil
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170 ;; means don't make a copy but modify COMPONENTS directly.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171 ;; It is assumed that COMPONENTS is a vector and is for rule-base
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172 ;; composition, thus (2N+1)th elements are rule codes.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
173
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
174 (defun decode-composition-components (components &optional nocopy)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175 (or nocopy
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
176 (setq components (copy-sequence components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177 (let ((len (length components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 (i 1))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 (while (< i len)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
180 (aset components i
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 (decode-composition-rule (aref components i)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182 (setq i (+ i 2))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
183 components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185 (defun compose-region (start end &optional components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
186 "Compose characters in the current region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187
46963
4427c4b0ed3c *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46513
diff changeset
188 Characters are composed relatively, i.e. composed by overstricking or
4427c4b0ed3c *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46513
diff changeset
189 stacking depending on ascent, descent and other properties.
4427c4b0ed3c *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46513
diff changeset
190
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191 When called from a program, expects these four arguments.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
192
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193 First two arguments START and END are positions (integers or markers)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
194 specifying the region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
195
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
196 Optional 3rd argument COMPONENTS, if non-nil, is a character, a string
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
197 or a vector or list of integers and rules.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
199 If it is a character, it is an alternate character to display instead
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200 of the text in the region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
201
96418
3dff73218ec3 (compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents: 96324
diff changeset
202 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
203 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
204 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
205 so that no pixel overlaps with the previous column. If the last
3dff73218ec3 (compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents: 96324
diff changeset
206 character is TAB, the glyphs are displayed with rigth padding
3dff73218ec3 (compose-region): Mention the special handling of TAB.
Kenichi Handa <handa@m17n.org>
parents: 96324
diff changeset
207 space so that no pixel overlaps with the following column.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 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
210 composition rules, where (2N)th elements are characters and (2N+1)th
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211 elements are composition rules to specify how to compose (2N+2)th
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212 elements with previously composed N glyphs.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214 A composition rule is a cons of global and new glyph reference point
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 symbols. See the documentation of `reference-point-alist' for more
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
216 detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
217
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
218 Optional 4th argument MODIFICATION-FUNC is a function to call to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
219 adjust the composition when it gets invalid because of a change of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
220 text in the composition."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
221 (interactive "r")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
222 (let ((modified-p (buffer-modified-p))
81073
12cb550b10e4 (compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
223 (inhibit-read-only t))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
224 (if (or (vectorp components) (listp components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
225 (setq components (encode-composition-components components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
226 (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
227 (restore-buffer-modified-p modified-p)))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
228
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
229 (defun decompose-region (start end)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
230 "Decompose text in the current region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
231
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
232 When called from a program, expects two arguments,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233 positions (integers or markers) specifying the region."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234 (interactive "r")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 (let ((modified-p (buffer-modified-p))
81073
12cb550b10e4 (compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
236 (inhibit-read-only t))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
237 (remove-text-properties start end '(composition nil))
81073
12cb550b10e4 (compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
238 (restore-buffer-modified-p modified-p)))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
240 (defun compose-string (string &optional start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
241 "Compose characters in string STRING.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
242
88808
8219830269aa (compose-string): Doc fix.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
243 The return value is STRING with the `composition' property put on all
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
244 the characters in it.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
246 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
247 STRING to be composed. They default to the beginning and the end of
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 STRING respectively.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250 Optional 4th argument COMPONENTS, if non-nil, is a character or a
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 sequence (vector, list, or string) of integers. See the function
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
252 `compose-region' for more detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
254 Optional 5th argument MODIFICATION-FUNC is a function to call to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255 adjust the composition when it gets invalid because of a change of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 text in the composition."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257 (if (or (vectorp components) (listp components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258 (setq components (encode-composition-components components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 (or start (setq start 0))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260 (or end (setq end (length string)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 (compose-string-internal string start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262 string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 (defun decompose-string (string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265 "Return STRING where `composition' property is removed."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 (remove-text-properties 0 (length string) '(composition nil) string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269 (defun compose-chars (&rest args)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 "Return a string from arguments in which all characters are composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271 For relative composition, arguments are characters.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 For rule-based composition, Mth \(where M is odd) arguments are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 characters, and Nth \(where N is even) arguments are composition rules.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 A composition rule is a cons of glyph reference points of the form
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 \(GLOBAL-REF-POINT . NEW-REF-POINT). See the documentation of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276 `reference-point-alist' for more detail."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 (let (str components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
278 (if (consp (car (cdr args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
279 ;; Rule-base composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
280 (let ((len (length args))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281 (tail (encode-composition-components args 'nocopy)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283 (while tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
284 (setq str (cons (car tail) str))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285 (setq tail (nthcdr 2 tail)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
286 (setq str (concat (nreverse str))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
287 components args))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288 ;; Relative composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 (setq str (concat args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290 (compose-string-internal str 0 (length str) components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 (defun find-composition (pos &optional limit string detail-p)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 "Return information about a composition at or nearest to buffer position POS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 If the character at POS has `composition' property, the value is a list
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 of FROM, TO, and VALID-P.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 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
299 property, VALID-P is t if this composition is valid, and nil if not.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
301 If there's no composition at POS, and the optional 2nd argument LIMIT
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302 is non-nil, search for a composition toward LIMIT.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 If no composition is found, return nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
306 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
307 composition in; nil means the current buffer.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 If a valid composition is found and the optional 4th argument DETAIL-P
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 is non-nil, the return value is a list of FROM, TO, COMPONENTS,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311 RELATIVE-P, MOD-FUNC, and WIDTH.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313 COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 RELATIVE-P is t if the composition method is relative, else nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 If RELATIVE-P is t, COMPONENTS is a vector of characters to be
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 composed. If RELATIVE-P is nil, COMPONENTS is a vector of characters
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 and composition rules as described in `compose-region'.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 MOD-FUNC is a modification function of the composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322
97985
26069577e76b (find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents: 97836
diff changeset
323 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
324
26069577e76b (find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents: 97836
diff changeset
325 When Automatic Compostion mode is on, this function also finds a
26069577e76b (find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents: 97836
diff changeset
326 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
327 found closer to POS than the position that has `composition'
26069577e76b (find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents: 97836
diff changeset
328 property, the value is a list of FROM, TO, and a glyph gstring
26069577e76b (find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents: 97836
diff changeset
329 the specify how the chunk is composed. See the function
26069577e76b (find-composition): Mention about the automatic
Kenichi Handa <handa@m17n.org>
parents: 97836
diff changeset
330 `composition-get-gstring' for the format of the glyph string."
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 (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
332 (if (and detail-p (> (length result) 3) (nth 2 result) (not (nth 3 result)))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
333 ;; This is a valid rule-base composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334 (decode-composition-components (nth 2 result) 'nocopy))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
335 result))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
336
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337
33244
59edd748e69a (composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents: 30485
diff changeset
338 (defun compose-chars-after (pos &optional limit object)
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 "Compose characters in current buffer after position POS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
341 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
342 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
343 according to the contents of `composition-function-table'.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
344
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
345 Optional 2nd arg LIMIT, if non-nil, limits characters to compose.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
346
33244
59edd748e69a (composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents: 30485
diff changeset
347 Optional 3rd arg OBJECT, if non-nil, is a string that contains the
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
348 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
349
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350 This function is the default value of `compose-chars-after-function'."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
351 (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
352 (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
353 (and (not (stringp object))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
354 (font-at pos (selected-window)))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355 pattern func result)
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
356 (or limit
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
357 (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
358 (when (and font-obj tail)
30485
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
359 (save-match-data
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
360 (save-excursion
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
361 (while tail
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
362 (if (functionp (car tail))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
363 (setq pattern nil func (car tail))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
364 (setq pattern (car (car tail))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
365 func (cdr (car tail))))
30485
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
366 (goto-char pos)
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
367 (if pattern
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
368 (if (and (if (stringp object)
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
369 (eq (string-match pattern object) 0)
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
370 (looking-at pattern))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
371 (<= (match-end 0) limit))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
372 (setq result
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
373 (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
374 (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
375 (if result (setq tail nil))))))
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
376 result))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 (defun compose-last-chars (args)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 "Compose last characters.
35075
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
380 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
381 \(compose-last-chars N COMPONENTS),
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
382 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
383 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
384 \(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
385 and that function finds a proper rule to compose the target characters.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 This function is intended to be used from input methods.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387 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
388 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
389 after a sequence of character events."
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390 (interactive "e")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391 (let ((chars (nth 1 args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
392 (if (and (numberp chars)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
393 (>= (- (point) (point-min)) chars))
35075
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
394 (if (nth 2 args)
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
395 (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
396 (compose-chars-after (- (point) chars) (point))))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
398 (global-set-key [compose-last-chars] 'compose-last-chars)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
399
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
400
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
401 ;;; Automatic character composition.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
402
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
403 ;; Copied from font-lock.el.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
404 (eval-when-compile
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
405 ;; Borrowed from lazy-lock.el.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
406 ;; 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
407 (defmacro save-buffer-state (varlist &rest body)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
408 "Bind variables according to VARLIST and eval BODY restoring buffer state."
89307
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
409 `(let* ,(append varlist
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
410 '((modified (buffer-modified-p)) (buffer-undo-list t)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
411 (inhibit-read-only t) (inhibit-point-motion-hooks t)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
412 (inhibit-modification-hooks t)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
413 deactivate-mark buffer-file-name buffer-file-truename))
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
414 ,@body
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
415 (unless modified
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
416 (restore-buffer-modified-p nil))))
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
417 ;; Fixme: This makes bootstrapping fail with this error.
89307
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
418 ;; Symbol's function definition is void: eval-defun
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
419 ;;(def-edebug-spec save-buffer-state let)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
420 )
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
421
89651
65f1f8091f15 (auto-compose-chars): Don't do unnecessary save-exclusion and
Kenichi Handa <handa@m17n.org>
parents: 89608
diff changeset
422 (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
423
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
424 ;; 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
425 (defsubst lgstring-header (gstring) (aref gstring 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
426 (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
427 (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
428 (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
429 (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
430 (defsubst lgstring-shaped-p (gstring) (aref gstring 1))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
431 (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
432 (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
433 (defsubst lgstring-glyph-len (gstring) (- (length gstring) 2))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
434 (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
435
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
436 (defsubst lglyph-from (glyph) (aref glyph 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
437 (defsubst lglyph-to (glyph) (aref glyph 1))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
438 (defsubst lglyph-char (glyph) (aref glyph 2))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
439 (defsubst lglyph-code (glyph) (aref glyph 3))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
440 (defsubst lglyph-width (glyph) (aref glyph 4))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
441 (defsubst lglyph-lbearing (glyph) (aref glyph 5))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
442 (defsubst lglyph-rbearing (glyph) (aref glyph 6))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
443 (defsubst lglyph-ascent (glyph) (aref glyph 7))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
444 (defsubst lglyph-descent (glyph) (aref glyph 8))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
445 (defsubst lglyph-adjustment (glyph) (aref glyph 9))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
446
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
447 (defsubst lglyph-set-from-to (glyph from to)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
448 (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
449 (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
450 (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
451 (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
452 (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
453 (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
454
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
455 (defsubst lglyph-copy (glyph) (copy-sequence glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
456
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
457 (defun lgstring-insert-glyph (gstring idx glyph)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
458 (let ((nglyphs (lgstring-glyph-len gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
459 (i idx) g)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
460 (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
461 (setq i (1+ i)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
462 (if (= i nglyphs)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
463 (setq gstring (vconcat gstring (vector glyph)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
464 (if (< (1+ i) nglyphs)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
465 (lgstring-set-glyph gstring (1+ i) nil)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
466 (while (> i idx)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
467 (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
468 (setq i (1- i)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
469 (lgstring-set-glyph gstring i glyph)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
470 gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
471
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
472 (defun compose-glyph-string (gstring from to)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
473 (let ((glyph (lgstring-glyph gstring from))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
474 from-pos to-pos
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
475 ascent descent lbearing rbearing)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
476 (setq from-pos (lglyph-from glyph)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
477 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
478 (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
479 (setq from (1+ from))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
480 (while (and (< from to)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
481 (setq glyph (lgstring-glyph gstring from)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
482 (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
483 (let ((xoff (if (<= (lglyph-rbearing glyph) 0) 0
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
484 (- (lglyph-width glyph)))))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
485 (lglyph-set-adjustment glyph xoff 0 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
486 (setq from (1+ from)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
487 gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
488
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
489 (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
490 (let ((font-object (lgstring-font gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
491 (glyph (lgstring-glyph gstring from))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
492 from-pos to-pos
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
493 ascent descent lbearing rbearing)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
494 (if gap
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
495 (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
496 (setq gap 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
497 (setq from-pos (lglyph-from glyph)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
498 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
499 ascent (lglyph-ascent glyph)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
500 descent (lglyph-descent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
501 (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
502 (setq from (1+ from))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
503 (while (< from to)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
504 (setq glyph (lgstring-glyph gstring from))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
505 (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
506 (let ((this-ascent (lglyph-ascent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
507 (this-descent (lglyph-descent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
508 xoff yoff wadjust)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
509 (setq xoff (if (<= (lglyph-rbearing glyph) 0) 0
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
510 (- (lglyph-width glyph))))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
511 (if (> this-ascent 0)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
512 (if (< this-descent 0)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
513 (setq yoff (- 0 ascent gap this-descent)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
514 ascent (+ ascent gap this-ascent this-descent))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
515 (setq yoff 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
516 (setq yoff (+ descent gap this-ascent)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
517 descent (+ descent gap this-ascent this-descent)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
518 (if (or (/= xoff 0) (/= yoff 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
519 (lglyph-set-adjustment glyph xoff yoff 0)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
520 (setq from (1+ from)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
521 gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
522
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
523 (defun compose-gstring-for-graphic (gstring)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
524 "Compose glyph-string GSTRING for graphic display.
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
525 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
526 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
527 each non-spacing character is composed as a spacing character by
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
528 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
529
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
530 All non-spacing characters has this function in
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
531 `composition-function-table' unless overwritten."
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
532 (let* ((header (lgstring-header gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
533 (nchars (lgstring-char-len gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
534 (nglyphs (lgstring-glyph-len gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
535 (glyph (lgstring-glyph gstring 0)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
536 (cond
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
537 ;; 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
538 ((= nchars 1)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
539 (let ((lbearing (lglyph-lbearing glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
540 (rbearing (lglyph-rbearing glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
541 (width (lglyph-width glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
542 xoff wadjust)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
543 (if (< lbearing 0)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
544 (setq xoff (- lbearing))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
545 (setq xoff 0 lbearing 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
546 (if (< rbearing width)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
547 (setq rbearing width))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
548 (lglyph-set-adjustment glyph xoff 0 (- rbearing lbearing))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
549 gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
550
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
551 ;; 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
552 ((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
553 'general-category)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
554 '(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
555 nil)
96301
66839d3799fe (terminal-composition-base-character-p): New
Kenichi Handa <handa@m17n.org>
parents: 94955
diff changeset
556
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
557 ;; 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
558 (t
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
559 (let ((gstr (font-shape-gstring gstring)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
560 (if (and gstr
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
561 (> (lglyph-to (lgstring-glyph gstr 0)) 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
562 gstr
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
563 ;; 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
564 ;; Shape them according to canonical-combining-class.
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
565 (lgstring-set-id gstring nil)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
566 (let* ((width (lglyph-width glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
567 (ascent (lglyph-ascent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
568 (descent (lglyph-descent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
569 (rbearing (lglyph-rbearing glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
570 (lbearing (lglyph-lbearing glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
571 (center (/ (+ lbearing rbearing) 2))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
572 (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
573 xoff yoff)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
574 (dotimes (i nchars)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
575 (setq glyph (lgstring-glyph gstring i))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
576 (when (> i 0)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
577 (let* ((class (get-char-code-property
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
578 (lglyph-char glyph) 'canonical-combining-class))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
579 (lb (lglyph-lbearing glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
580 (rb (lglyph-rbearing glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
581 (as (lglyph-ascent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
582 (de (lglyph-descent glyph))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
583 (ce (/ (+ lb rb) 2))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
584 xoff yoff)
98122
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
585 (when (and class (>= class 200) (<= class 240))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
586 (setq xoff 0 yoff 0)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
587 (cond
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
588 ((= class 200)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
589 (setq xoff (- lbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
590 yoff (if (> as 0) 0 (+ descent as))))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
591 ((= class 202)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
592 (if (> as 0) (setq as 0))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
593 (setq xoff (- center ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
594 yoff (if (> as 0) 0 (+ descent as))))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
595 ((= class 204)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
596 (if (> as 0) (setq as 0))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
597 (setq xoff (- rbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
598 yoff (if (> as 0) 0 (+ descent as))))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
599 ((= class 208)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
600 (setq xoff (- lbearing rb)))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
601 ((= class 210)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
602 (setq xoff (- rbearing lb)))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
603 ((= class 212)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
604 (setq xoff (- lbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
605 yoff (if (>= de 0) 0 (- (- ascent) de))))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
606 ((= class 214)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
607 (setq xoff (- center ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
608 yoff (if (>= de 0) 0 (- (- ascent) de))))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
609 ((= class 216)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
610 (setq xoff (- rbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
611 yoff (if (>= de 0) 0 (- (- ascent) de))))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
612 ((= class 218)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
613 (setq xoff (- lbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
614 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
615 ((= class 220)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
616 (setq xoff (- center ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
617 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
618 ((= class 222)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
619 (setq xoff (- rbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
620 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
621 ((= class 224)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
622 (setq xoff (- lbearing rb)))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
623 ((= class 226)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
624 (setq xoff (- rbearing lb)))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
625 ((= class 228)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
626 (setq xoff (- lbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
627 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
628 ((= class 230)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
629 (setq xoff (- center ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
630 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
631 ((= class 232)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
632 (setq xoff (- rbearing ce)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
633 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
634 (lglyph-set-adjustment glyph (- xoff width) yoff)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
635 (setq lb (+ lb xoff)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
636 rb (+ lb xoff)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
637 as (- as yoff)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
638 de (+ de yoff)))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
639 (if (< ascent as)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
640 (setq ascent as))
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
641 (if (< descent de)
e3d5c2e9ec89 (compose-gstring-for-graphic): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 98069
diff changeset
642 (setq descent de))))))
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
643 (let ((i 0))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
644 (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
645 (lglyph-set-from-to glyph 0 (1- nchars))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
646 (setq i (1+ i))))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
647 gstring))))))
90637
042336f13176 (terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents: 90627
diff changeset
648
101960
6f4559bfd1b6 Use "\\c." instead of "[[:alpha:]]" to match with
Kenichi Handa <handa@m17n.org>
parents: 101780
diff changeset
649 (let ((elt '(["\\c.\\c^+" 1 compose-gstring-for-graphic]
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
650 [nil 0 compose-gstring-for-graphic])))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
651 (map-char-table
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
652 #'(lambda (key val)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
653 (if (= val 0)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
654 (set-char-table-range composition-function-table key elt)))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
655 char-width-table))
90637
042336f13176 (terminal-composition-function): New function.
Kenichi Handa <handa@m17n.org>
parents: 90627
diff changeset
656
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
657 (defun compose-gstring-for-terminal (gstring)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
658 "Compose glyph string GSTRING for terminal display.
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
659 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
660 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
661 each non-spacing character is composed as a spacing character by
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
662 a prepending a space before it."
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
663 (let* ((header (lgstring-header gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
664 (nchars (lgstring-char-len gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
665 (nglyphs (lgstring-glyph-len gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
666 (i 0)
101780
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
667 (coding (lgstring-font gstring))
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
668 glyph)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
669 (while (and (< i nglyphs)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
670 (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
671 (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
672 (progn
101780
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
673 ;; 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
674 ;; 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
675 ;; of width 1..
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
676 (setq i 0)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
677 (while (and (< i nglyphs)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
678 (setq glyph (lgstring-glyph gstring i)))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
679 (if (< (lglyph-width glyph) 1)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
680 (lglyph-set-width glyph 1))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
681 (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
682 (setq i (1+ i))))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
683 (if (= (lglyph-width glyph) 0)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
684 (progn
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
685 ;; Compose by prepending a space.
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
686 (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
687 (lglyph-copy glyph))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
688 nglyphs (lgstring-glyph-len gstring))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
689 (setq glyph (lgstring-glyph gstring i))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
690 (lglyph-set-char glyph 32)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
691 (lglyph-set-width glyph 1)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
692 (setq i (+ 2)))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
693 (let ((from (lglyph-from glyph))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
694 (to (lglyph-to glyph))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
695 (j (1+ i)))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
696 (while (and (< j nglyphs)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
697 (setq glyph (lgstring-glyph gstring j))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
698 (char-charset (lglyph-char glyph) coding)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
699 (= (lglyph-width glyph) 0))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
700 (setq to (lglyph-to glyph)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
701 j (1+ j)))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
702 (while (< i j)
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
703 (setq glyph (lgstring-glyph gstring i))
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
704 (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
705 (setq i (1+ i)))))))
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
706 gstring))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
707
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
708
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
709 (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
710 "Compose the characters at FROM by FUNC.
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
711 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
712 in the region FROM (inclusive) and TO (exclusive).
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
713
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
714 If the character are composed on a graphic display, FONT-OBJECT
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
715 is a font to use.
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
716
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
717 Otherwise, FONT-OBJECT is nil, and the fucntion
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
718 `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
719
91276
1d8d51129d26 (composition-function-table): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 91227
diff changeset
720 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
721 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
722
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
723 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
724
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
725 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
726 (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
727 (if (lgstring-shaped-p gstring)
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
728 gstring
101780
4c5660c5102c (compose-gstring-for-terminal): If a character is
Kenichi Handa <handa@m17n.org>
parents: 101080
diff changeset
729 (or (fontp font-object 'font-object)
97836
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
730 (setq func 'compose-gstring-for-terminal))
f5f400126c23 (composition-function-table): Declaration moved to
Kenichi Handa <handa@m17n.org>
parents: 96418
diff changeset
731 (funcall func gstring))))
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
732
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
733 (make-variable-buffer-local 'auto-composition-function)
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
734
90307
a2899387f787 (auto-composition-mode): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 90306
diff changeset
735 ;;;###autoload
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
736 (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
737 "Toggle Auto Composition mode.
4ad14ee0d40a (encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents: 92000
diff changeset
738 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
739 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
740 Composition on.
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
741
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
742 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
743 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
744
92026
4ad14ee0d40a (encode-composition-rule): Fix typo in error message.
Glenn Morris <rgm@gnu.org>
parents: 92000
diff changeset
745 You can use `global-auto-composition-mode' to turn on
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
746 Auto Composition mode in all buffers (this is the default)."
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
747 nil nil nil
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
748 (if noninteractive
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
749 (setq auto-composition-mode nil))
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
750 (cond (auto-composition-mode
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
751 (add-hook 'after-change-functions 'auto-composition-after-change nil t)
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
752 (setq auto-composition-function 'auto-compose-chars))
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
753 (t
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
754 (remove-hook 'after-change-functions 'auto-composition-after-change t)
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
755 (setq auto-composition-function nil)))
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
756 (save-buffer-state nil
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
757 (save-restriction
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
758 (widen)
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
759 (remove-text-properties (point-min) (point-max) '(auto-composed nil))
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
760 (decompose-region (point-min) (point-max)))))
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 (defun auto-composition-after-change (start end old-len)
90315
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
763 (save-buffer-state nil
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
764 (if (< start (point-min))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
765 (setq start (point-min)))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
766 (if (> end (point-max))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
767 (setq end (point-max)))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
768 (when (and auto-composition-mode (not memory-full))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
769 (let (func1 func2)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
770 (when (and (> start (point-min))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
771 (setq func2 (aref composition-function-table
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
772 (char-after (1- start))))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
773 (or (= start (point-max))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
774 (not (setq func1 (aref composition-function-table
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
775 (char-after start))))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
776 (eq func1 func2)))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
777 (setq start (1- start)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
778 func1 func2)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
779 (while (eq func1 func2)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
780 (if (> start (point-min))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
781 (setq start (1- start)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
782 func2 (aref composition-function-table
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
783 (char-after start)))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
784 (setq func2 nil))))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
785 (when (and (< end (point-max))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
786 (setq func2 (aref composition-function-table
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
787 (char-after end)))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
788 (or (= end (point-min))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
789 (not (setq func1 (aref composition-function-table
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
790 (char-after (1- end)))))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
791 (eq func1 func2)))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
792 (setq end (1+ end)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
793 func1 func2)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
794 (while (eq func1 func2)
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
795 (if (< end (point-max))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
796 (setq func2 (aref composition-function-table
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
797 (char-after end))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
798 end (1+ end))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
799 (setq func2 nil))))
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
800 (if (< start end)
90612
e3f4e9ea5df6 (auto-composition-after-change): Remove
Kenichi Handa <handa@m17n.org>
parents: 90543
diff changeset
801 (remove-text-properties start end '(auto-composed nil)))))))
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
802
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
803 (defun turn-on-auto-composition-if-enabled ()
90315
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
804 (if enable-multibyte-characters
7ddbac913d1a (auto-composition-after-change): Use
Kenichi Handa <handa@m17n.org>
parents: 90307
diff changeset
805 (auto-composition-mode 1)))
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
806
90307
a2899387f787 (auto-composition-mode): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 90306
diff changeset
807 ;;;###autoload
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
808 (define-global-minor-mode global-auto-composition-mode
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
809 auto-composition-mode turn-on-auto-composition-if-enabled
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
810 :extra-args (dummy)
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
811 :initialize 'custom-initialize-safe-default
90627
f13e98b07b9c (global-auto-composition-mode): Make the initial
Kenichi Handa <handa@m17n.org>
parents: 90612
diff changeset
812 :init-value (not noninteractive)
90306
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
813 :group 'auto-composition
696f125c3c6a (auto-composition-function): Make it buffer local.
Kenichi Handa <handa@m17n.org>
parents: 90261
diff changeset
814 :version "23.1")
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
815
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
816 (defun toggle-auto-composition (&optional arg)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
817 "Change whether automatic character composition is enabled in this buffer.
94734
6fbc8341e153 (toggle-auto-composition): Don't use `iff' in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94678
diff changeset
818 With arg, enable it if and only if arg is positive."
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
819 (interactive "P")
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
820 (let ((enable (if (null arg) (not auto-composition-function)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
821 (> (prefix-numeric-value arg) 0))))
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
822 (if enable
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
823 (kill-local-variable 'auto-composition-function)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
824 (make-local-variable 'auto-composition-function)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
825 (setq auto-composition-function nil)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
826 (save-buffer-state nil
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
827 (save-restriction
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
828 (widen)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
829 (decompose-region (point-min) (point-max)))))
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
830
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
831 (save-buffer-state nil
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
832 (save-restriction
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
833 (widen)
90612
e3f4e9ea5df6 (auto-composition-after-change): Remove
Kenichi Handa <handa@m17n.org>
parents: 90543
diff changeset
834 (remove-text-properties (point-min) (point-max)
e3f4e9ea5df6 (auto-composition-after-change): Remove
Kenichi Handa <handa@m17n.org>
parents: 90543
diff changeset
835 '(auto-composed nil))))))
89528
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
836
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
837 (defun auto-compose-region (from to)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
838 "Force automatic character composition on the region FROM and TO."
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
839 (save-excursion
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
840 (if (get-text-property from 'auto-composed)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
841 (setq from (next-single-property-change from 'auto-composed nil to)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
842 (goto-char from)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
843 (let ((modified-p (buffer-modified-p))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
844 (inhibit-read-only '(composition auto-composed))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
845 (stop (next-single-property-change (point) 'auto-composed nil to)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
846 (while (< (point) to)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
847 (if (= (point) stop)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
848 (progn
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
849 (goto-char (next-single-property-change (point)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
850 'auto-composed nil to))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
851 (setq stop (next-single-property-change (point)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
852 'auto-composed nil to)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
853 (let ((func (aref composition-function-table (following-char)))
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
854 (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
855 (font-at (point) (selected-window))))
89528
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
856 (pos (point)))
94955
e22dd2392947 (compose-chars-after): Assume that WINDOW is always non-nil.
Kenichi Handa <handa@m17n.org>
parents: 94734
diff changeset
857 (if (and (functionp func) font-obj)
92000
501d20267e59 (compose-chars-after): Fix arguments for a function
Kenichi Handa <handa@m17n.org>
parents: 91861
diff changeset
858 (goto-char (funcall func (point) to font-obj nil)))
89528
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
859 (if (<= (point) pos)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
860 (forward-char 1)))))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
861 (put-text-property from to 'auto-composed t)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
862 (set-buffer-modified-p modified-p))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
863
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
864
81073
12cb550b10e4 (compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
865 ;; 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
866 ;; 20.4 and earlier.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
867
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
868 (defun decompose-composite-char (char &optional type with-composition-rule)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
869 "Convert CHAR to string.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
870
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
871 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
872 `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
873 vector of CHAR respectively.
6a0305153436 (decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 46963
diff changeset
874 Optional 3rd arg WITH-COMPOSITION-RULE is ignored."
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
875 (cond ((or (null type) (eq type 'string)) (char-to-string char))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
876 ((eq type 'list) (list char))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
877 (t (vector char))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
878
29521
4ad26302d559 (decompose-composite-char): Declare it as obsolete.
Kenichi Handa <handa@m17n.org>
parents: 26880
diff changeset
879 (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
880
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
881
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
882
81073
12cb550b10e4 (compose-region, decompose-region):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 75347
diff changeset
883 ;; arch-tag: ee703d77-1723-45d4-a31f-e9f0f867aa33
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
884 ;;; composite.el ends here