annotate lisp/composite.el @ 90269:0f622530c46c

(autoload-coding-system): Install the same function as in HEAD.
author Kenichi Handa <handa@m17n.org>
date Thu, 19 Jan 2006 07:16:47 +0000
parents 7beb78bc1f8e
children 696f125c3c6a
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
67658
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64530
diff changeset
3 ;; Copyright (C) 1999, 2000
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64530
diff changeset
4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
547f2b420666 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64530
diff changeset
5 ;; Registration Number H14PRO021
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 ;; Keywords: mule, multilingual, character composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 ;; any later version.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 56985
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 56985
diff changeset
24 ;; Boston, MA 02110-1301, USA.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37232
diff changeset
26 ;;; Commentary:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37232
diff changeset
27
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 ;;; Code:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 (defconst reference-point-alist
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 '((tl . 0) (tc . 1) (tr . 2)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 (Bl . 3) (Bc . 4) (Br . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 (bl . 6) (bc . 7) (br . 8)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 (cl . 9) (cc . 10) (cr . 11)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 (top-left . 0) (top-center . 1) (top-right . 2)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 (base-left . 3) (base-center . 4) (base-right . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (bottom-left . 6) (bottom-center . 7) (bottom-right . 8)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 (center-left . 9) (center-center . 10) (center-right . 11)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 ;; For backward compatibility...
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 (ml . 3) (mc . 10) (mr . 5)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (mid-left . 3) (mid-center . 10) (mid-right . 5))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 "Alist of symbols vs integer codes of glyph reference points.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 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
44 rule in COMPONENTS argument to such functions as `compose-region'.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 Meanings of glyph reference point codes are as follows:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 0----1----2 <---- ascent 0:tl or top-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 | | 1:tc or top-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 | | 2:tr or top-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 | | 3:Bl or base-left 9:cl or center-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 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
53 | | 5:Br or base-right 11:cr or center-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 --3----4----5-- <-- baseline 6:bl or bottom-left
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 | | 7:bc or bottom-center
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 6----7----8 <---- descent 8:br or bottom-right
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 Glyph reference point symbols are to be used to specify composition
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 rule of the form \(GLOBAL-REF-POINT . NEW-REF-POINT), where
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 GLOBAL-REF-POINT is a reference point in the overall glyphs already
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 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
62 be added.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 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
65 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
66 follows (the point `*' corresponds to both reference points):
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 +-------+--+ <--- new ascent
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 | | |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 | global| |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 | glyph | |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 -- | | |-- <--- baseline \(doesn't change)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 +----+--*--+
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 | | new |
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 | |glyph|
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 +----+-----+ <--- new descent
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
77
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
78 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
79 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
80 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
81 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
82 shifting percentage against the font size.")
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84
56985
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
85 ;;;###autoload
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 (defun encode-composition-rule (rule)
56985
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
87 "Encode composition rule RULE into an integer value.
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
88 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
89 \(see `reference-point-alist')."
56985
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
90
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
91 ;; 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
92 ;; defined in composite.h.
5eac7cd6d213 (encode-composition-rule): Add autoload cooky.
Kenichi Handa <handa@m17n.org>
parents: 54433
diff changeset
93
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 (if (and (integerp rule) (< rule 144))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 ;; Already encoded.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 rule
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
97 (if (consp rule)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
98 (let ((gref (car rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
99 (nref (cdr rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
100 xoff yoff)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
101 (if (consp nref) ; (GREF NREF XOFF YOFF)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
102 (progn
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
103 (setq xoff (nth 1 nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
104 yoff (nth 2 nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
105 nref (car nref))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
106 (or (and (>= xoff -100) (<= xoff 100)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
107 (>= yoff -100) (<= yoff 100))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
108 (error "Invalid compostion rule: %s" rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
109 (setq xoff (+ xoff 128) yoff (+ yoff 128)))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
110 ;; (GREF . NREF)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
111 (setq xoff 0 yoff 0))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
112 (or (integerp gref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
113 (setq gref (cdr (assq gref reference-point-alist))))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
114 (or (integerp nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
115 (setq nref (cdr (assq nref reference-point-alist))))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
116 (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
117 (error "Invalid composition rule: %S" rule))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
118 (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
119 (error "Invalid composition rule: %S" rule))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 ;; Decode encoded composition rule RULE-CODE. The value is a cons of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 ;; global and new reference point symbols.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 ;; This must be compatible with C macro COMPOSITION_DECODE_RULE
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 ;; defined in composite.h.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 (defun decode-composition-rule (rule-code)
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
127 (or (and (natnump rule-code) (< rule-code #x1000000))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 (error "Invalid encoded composition rule: %S" rule-code))
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
129 (let ((xoff (lsh rule-code -16))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
130 (yoff (logand (lsh rule-code -8) #xFF))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
131 gref nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
132 (setq rule-code (logand rule-code #xFF)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
133 gref (car (rassq (/ rule-code 12) reference-point-alist))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
134 nref (car (rassq (% rule-code 12) reference-point-alist)))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135 (or (and gref (symbolp gref) nref (symbolp nref))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 (error "Invalid composition rule code: %S" rule-code))
89722
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
137 (if (and (= xoff 0) (= yoff 0))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
138 (cons gref nref)
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
139 (setq xoff (- xoff 128) yoff (- yoff 128))
eee9d99444cc (reference-point-alist): Doc fixed.
Kenichi Handa <handa@m17n.org>
parents: 89664
diff changeset
140 (list gref xoff yoff nref))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
142 ;; Encode composition rules in composition components COMPONENTS. The
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
143 ;; value is a copy of COMPONENTS, where composition rules (cons of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 ;; global and new glyph reference point symbols) are replaced with
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 ;; encoded composition rules. Optional 2nd argument NOCOPY non-nil
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 ;; means don't make a copy but modify COMPONENTS directly.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
147
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 (defun encode-composition-components (components &optional nocopy)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 (or nocopy
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150 (setq components (copy-sequence components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 (if (vectorp components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
152 (let ((len (length components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153 (i 1))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 (while (< i len)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155 (aset components i
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 (encode-composition-rule (aref components i)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 (setq i (+ i 2))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 (let ((tail (cdr components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159 (while tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160 (setcar tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
161 (encode-composition-rule (car tail)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
162 (setq tail (nthcdr 2 tail)))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
163 components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
164
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
165 ;; Decode composition rule codes in composition components COMPONENTS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
166 ;; The value is a copy of COMPONENTS, where composition rule codes are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167 ;; replaced with composition rules (cons of global and new glyph
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
168 ;; reference point symbols). Optional 2nd argument NOCOPY non-nil
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
169 ;; means don't make a copy but modify COMPONENTS directly.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
170 ;; It is assumed that COMPONENTS is a vector and is for rule-base
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
171 ;; composition, thus (2N+1)th elements are rule codes.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
172
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
173 (defun decode-composition-components (components &optional nocopy)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
174 (or nocopy
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
175 (setq components (copy-sequence components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
176 (let ((len (length components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
177 (i 1))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 (while (< i len)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179 (aset components i
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
180 (decode-composition-rule (aref components i)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
181 (setq i (+ i 2))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
182 components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
183
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184 (defun compose-region (start end &optional components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185 "Compose characters in the current region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
186
46963
4427c4b0ed3c *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46513
diff changeset
187 Characters are composed relatively, i.e. composed by overstricking or
4427c4b0ed3c *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46513
diff changeset
188 stacking depending on ascent, descent and other properties.
4427c4b0ed3c *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 46513
diff changeset
189
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
190 When called from a program, expects these four arguments.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
192 First two arguments START and END are positions (integers or markers)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193 specifying the region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
194
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
195 Optional 3rd argument COMPONENTS, if non-nil, is a character, a string
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
196 or a vector or list of integers and rules.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
197
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198 If it is a character, it is an alternate character to display instead
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
199 of the text in the region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
201 If it is a string, the elements are alternate characters.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
202
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
203 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
204 composition rules, where (2N)th elements are characters and (2N+1)th
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205 elements are composition rules to specify how to compose (2N+2)th
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 elements with previously composed N glyphs.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
207
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
208 A composition rule is a cons of global and new glyph reference point
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
209 symbols. See the documentation of `reference-point-alist' for more
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
210 detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
211
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212 Optional 4th argument MODIFICATION-FUNC is a function to call to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213 adjust the composition when it gets invalid because of a change of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214 text in the composition."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 (interactive "r")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
216 (let ((modified-p (buffer-modified-p))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
217 (buffer-read-only nil))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
218 (if (or (vectorp components) (listp components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
219 (setq components (encode-composition-components components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
220 (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
221 (restore-buffer-modified-p modified-p)))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
222
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
223 (defun decompose-region (start end)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
224 "Decompose text in the current region.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
225
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
226 When called from a program, expects two arguments,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
227 positions (integers or markers) specifying the region."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
228 (interactive "r")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
229 (let ((modified-p (buffer-modified-p))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
230 (buffer-read-only nil))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
231 (remove-text-properties start end '(composition nil))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
232 (set-buffer-modified-p modified-p)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
233
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
234 (defun compose-string (string &optional start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
235 "Compose characters in string STRING.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
236
88808
8219830269aa (compose-string): Doc fix.
Dave Love <fx@gnu.org>
parents: 38414
diff changeset
237 The return value is STRING with the `composition' property put on all
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
238 the characters in it.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
239
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
240 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
241 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
242 STRING respectively.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
243
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
244 Optional 4th argument COMPONENTS, if non-nil, is a character or a
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
245 sequence (vector, list, or string) of integers. See the function
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
246 `compose-region' for more detail.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
247
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
248 Optional 5th argument MODIFICATION-FUNC is a function to call to
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
249 adjust the composition when it gets invalid because of a change of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
250 text in the composition."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
251 (if (or (vectorp components) (listp components))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
252 (setq components (encode-composition-components components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
253 (or start (setq start 0))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
254 (or end (setq end (length string)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
255 (compose-string-internal string start end components modification-func)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
256 string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
257
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
258 (defun decompose-string (string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
259 "Return STRING where `composition' property is removed."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
260 (remove-text-properties 0 (length string) '(composition nil) string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
261 string)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
262
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
263 (defun compose-chars (&rest args)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
264 "Return a string from arguments in which all characters are composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
265 For relative composition, arguments are characters.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
266 For rule-based composition, Mth \(where M is odd) arguments are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
267 characters, and Nth \(where N is even) arguments are composition rules.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
268 A composition rule is a cons of glyph reference points of the form
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
269 \(GLOBAL-REF-POINT . NEW-REF-POINT). See the documentation of
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
270 `reference-point-alist' for more detail."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
271 (let (str components)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
272 (if (consp (car (cdr args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
273 ;; Rule-base composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
274 (let ((len (length args))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
275 (tail (encode-composition-components args 'nocopy)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
276
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
277 (while tail
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
278 (setq str (cons (car tail) str))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
279 (setq tail (nthcdr 2 tail)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
280 (setq str (concat (nreverse str))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
281 components args))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
282 ;; Relative composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
283 (setq str (concat args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
284 (compose-string-internal str 0 (length str) components)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
285
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
286 (defun find-composition (pos &optional limit string detail-p)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
287 "Return information about a composition at or nearest to buffer position POS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 If the character at POS has `composition' property, the value is a list
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
290 of FROM, TO, and VALID-P.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
291
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
292 FROM and TO specify the range of text that has the same `composition'
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
293 property, VALID-P is non-nil if and only if this composition is valid.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
294
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
295 If there's no composition at POS, and the optional 2nd argument LIMIT
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
296 is non-nil, search for a composition toward LIMIT.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
297
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
298 If no composition is found, return nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
299
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
300 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
301 composition in; nil means the current buffer.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
302
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
303 If a valid composition is found and the optional 4th argument DETAIL-P
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
304 is non-nil, the return value is a list of FROM, TO, COMPONENTS,
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
305 RELATIVE-P, MOD-FUNC, and WIDTH.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
306
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
307 COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
309 RELATIVE-P is t if the composition method is relative, else nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311 If RELATIVE-P is t, COMPONENTS is a vector of characters to be
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 composed. If RELATIVE-P is nil, COMPONENTS is a vector of characters
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313 and composition rules as described in `compose-region'.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
315 MOD-FUNC is a modification function of the composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
316
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
317 WIDTH is a number of columns the composition occupies on the screen."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 (let ((result (find-composition-internal pos limit string detail-p)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
319 (if (and detail-p result (nth 2 result) (not (nth 3 result)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
320 ;; This is a valid rule-base composition.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
321 (decode-composition-components (nth 2 result) 'nocopy))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
322 result))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
323
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
324
33244
59edd748e69a (composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents: 30485
diff changeset
325 (defun compose-chars-after (pos &optional limit object)
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 "Compose characters in current buffer after position POS.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
327
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
328 It looks up the char-table `composition-function-table' (which see) by
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
329 a character after POS. If non-nil value is found, the format of the
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
330 value should be an alist of PATTERNs vs FUNCs, where PATTERNs are
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
331 regular expressions and FUNCs are functions. If the text after POS
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332 matches one of PATTERNs, call the corresponding FUNC with three
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
333 arguments POS, TO, and PATTERN, where TO is the end position of text
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334 matching PATTERN, and return what FUNC returns. Otherwise, return
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
335 nil.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
336
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337 FUNC is responsible for composing the text properly. The return value
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
338 is:
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 nil -- if no characters were composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
340 CHARS (integer) -- if CHARS characters were composed.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
341
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
342 Optional 2nd arg LIMIT, if non-nil, limits the matching of text.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
343
33244
59edd748e69a (composition-function-table): Variable declaration
Kenichi Handa <handa@m17n.org>
parents: 30485
diff changeset
344 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
345 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
346
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
347 This function is the default value of `compose-chars-after-function'."
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
348 (let ((tail (aref composition-function-table (char-after pos)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
349 pattern func result)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350 (when tail
30485
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
351 (save-match-data
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
352 (save-excursion
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49512
diff changeset
353 (while (and tail (not func))
30485
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
354 (setq pattern (car (car tail))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
355 func (cdr (car tail)))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
356 (goto-char pos)
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
357 (if (if limit
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
358 (and (re-search-forward pattern limit t)
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
359 (= (match-beginning 0) pos))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
360 (looking-at pattern))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
361 (setq result (funcall func pos (match-end 0) pattern nil))
5551289a9329 (compose-chars-after): Preserve match data.
Kenichi Handa <handa@m17n.org>
parents: 29551
diff changeset
362 (setq func nil tail (cdr tail)))))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363 result))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 (defun compose-last-chars (args)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 "Compose last characters.
35075
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
367 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
368 \(compose-last-chars N COMPONENTS),
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
369 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
370 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
371 \(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
372 and that function finds a proper rule to compose the target characters.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 This function is intended to be used from input methods.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 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
375 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
376 after a sequence of character events."
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377 (interactive "e")
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 (let ((chars (nth 1 args)))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 (if (and (numberp chars)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380 (>= (- (point) (point-min)) chars))
35075
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
381 (if (nth 2 args)
f49c90fa95d7 (compose-last-chars): New argument COMPONENTS. It
Kenichi Handa <handa@m17n.org>
parents: 33244
diff changeset
382 (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
383 (compose-chars-after (- (point) chars) (point))))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
385 (global-set-key [compose-last-chars] 'compose-last-chars)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
386
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
387
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
388 ;;; Automatic character composition.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
389
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
390 (defvar composition-function-table
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
391 (make-char-table nil)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
392 "Char table of functions for automatic character composition.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
393 For each character that has to be composed automatically with
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
394 preceding and/or following characters, this char table contains
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
395 a function to call to compose that character.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
396
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
397 Each function is called with two arguments, POS and STRING.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
398
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
399 If STRING is nil, POS is a position in the current buffer, and the
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
400 function has to compose a character at POS with surrounding characters
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
401 in the current buffer.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
402
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
403 Otherwise, STRING is a string, and POS is an index into the string. In
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
404 this case, the function has to compose a character at POS with
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
405 surrounding characters in the string.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
406
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
407 See also the command `toggle-auto-composition'.")
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
408
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
409 ;; Copied from font-lock.el.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
410 (eval-when-compile
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
411 ;; Borrowed from lazy-lock.el.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
412 ;; 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
413 (defmacro save-buffer-state (varlist &rest body)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
414 "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
415 `(let* ,(append varlist
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
416 '((modified (buffer-modified-p)) (buffer-undo-list t)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
417 (inhibit-read-only t) (inhibit-point-motion-hooks t)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
418 (inhibit-modification-hooks t)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
419 deactivate-mark buffer-file-name buffer-file-truename))
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
420 ,@body
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
421 (unless modified
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
422 (restore-buffer-modified-p nil))))
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
423 ;; Fixme: This makes bootstrapping fail with this error.
89307
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
424 ;; Symbol's function definition is void: eval-defun
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
425 ;;(def-edebug-spec save-buffer-state let)
2cf77d6e4261 Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89290
diff changeset
426 )
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
427
89651
65f1f8091f15 (auto-compose-chars): Don't do unnecessary save-exclusion and
Kenichi Handa <handa@m17n.org>
parents: 89608
diff changeset
428 (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
429
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
430 (defun auto-compose-chars (pos string)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
431 "Compose characters after the buffer position POS.
89497
76c9d23be7a1 Doc fixes.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
432 If STRING is non-nil, it is a string, and POS is an index into the string.
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
433 In that case, compose characters in the string.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
434
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
435 This function is the default value of `auto-composition-function' (which see)."
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
436 (save-buffer-state nil
89659
91f056b94e70 (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89651
diff changeset
437 (save-excursion
91f056b94e70 (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89651
diff changeset
438 (save-match-data
89907
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
439 (condition-case nil
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
440 (let ((start pos)
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
441 (limit (if string (length string) (point-max)))
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
442 ch func newpos)
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
443 (setq limit
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
444 (or (text-property-any pos limit 'auto-composed t string)
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
445 limit)
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
446 pos
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
447 (catch 'tag
89664
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
448 (if string
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
449 (while (< pos limit)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
450 (setq ch (aref string pos))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
451 (if (= ch ?\n)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
452 (throw 'tag (1+ pos)))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
453 (setq func (aref composition-function-table ch))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
454 (if (and (functionp func)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
455 (setq newpos (funcall func pos string))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
456 (> newpos pos))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
457 (setq pos newpos)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
458 (setq pos (1+ pos))))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
459 (while (< pos limit)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
460 (setq ch (char-after pos))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
461 (if (= ch ?\n)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
462 (throw 'tag (1+ pos)))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
463 (setq func (aref composition-function-table ch))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
464 (if (and (functionp func)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
465 (setq newpos (funcall func pos string))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
466 (> newpos pos))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
467 (setq pos newpos)
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
468 (setq pos (1+ pos)))))
5548dd3d1a7c (auto-compose-chars): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 89659
diff changeset
469 limit))
89907
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
470 (put-text-property start pos 'auto-composed t string))
df801f738c09 (auto-compose-chars): Execute the main code in
Kenichi Handa <handa@m17n.org>
parents: 89722
diff changeset
471 (error nil))))))
89290
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
472
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
473 (setq auto-composition-function 'auto-compose-chars)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
474
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
475 (defun toggle-auto-composition (&optional arg)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
476 "Change whether automatic character composition is enabled in this buffer.
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
477 With arg, enable it iff arg is positive."
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
478 (interactive "P")
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
479 (let ((enable (if (null arg) (not auto-composition-function)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
480 (> (prefix-numeric-value arg) 0))))
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
481 (if enable
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
482 (kill-local-variable 'auto-composition-function)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
483 (make-local-variable 'auto-composition-function)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
484 (setq auto-composition-function nil)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
485 (save-buffer-state nil
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
486 (save-restriction
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
487 (widen)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
488 (decompose-region (point-min) (point-max)))))
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
489
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
490 (save-buffer-state nil
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
491 (save-restriction
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
492 (widen)
adbc95471ef8 Remove all autoload cookies.
Kenichi Handa <handa@m17n.org>
parents: 88808
diff changeset
493 (put-text-property (point-min) (point-max) 'auto-composed nil)))))
89528
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
494
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
495 (defun auto-compose-region (from to)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
496 "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
497 (save-excursion
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
498 (if (get-text-property from 'auto-composed)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
499 (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
500 (goto-char from)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
501 (let ((modified-p (buffer-modified-p))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
502 (inhibit-read-only '(composition auto-composed))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
503 (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
504 (while (< (point) to)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
505 (if (= (point) stop)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
506 (progn
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
507 (goto-char (next-single-property-change (point)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
508 'auto-composed nil to))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
509 (setq stop (next-single-property-change (point)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
510 'auto-composed nil to)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
511 (let ((func (aref composition-function-table (following-char)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
512 (pos (point)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
513 (if (functionp func)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
514 (goto-char (funcall func (point) nil)))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
515 (if (<= (point) pos)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
516 (forward-char 1)))))
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
517 (put-text-property from to 'auto-composed t)
c75e3c6b608a (auto-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 89497
diff changeset
518 (set-buffer-modified-p modified-p))))
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 ;;; The following codes are only for backward compatibility with Emacs
46045
c74a601c84b3 (decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 38414
diff changeset
522 ;;; 20.4 and earlier.
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
523
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
524 (defun decompose-composite-char (char &optional type with-composition-rule)
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 "Convert CHAR to string.
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
526
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
527 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
528 `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
529 vector of CHAR respectively.
6a0305153436 (decompose-composite-char): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 46963
diff changeset
530 Optional 3rd arg WITH-COMPOSITION-RULE is ignored."
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
531 (cond ((or (null type) (eq type 'string)) (char-to-string char))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
532 ((eq type 'list) (list char))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
533 (t (vector char))))
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
534
29521
4ad26302d559 (decompose-composite-char): Declare it as obsolete.
Kenichi Handa <handa@m17n.org>
parents: 26880
diff changeset
535 (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
536
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
537
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
538
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
539 ;;; arch-tag: ee703d77-1723-45d4-a31f-e9f0f867aa33
26880
98564c5250e4 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
540 ;;; composite.el ends here