annotate lisp/composite.el @ 108861:ad09f2bfce51

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