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 : ansi-color.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:32 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/ansi-color.el ;;; in Emacs version 23.1.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 "`ansi-color.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'ansi-colors nil "Translating SGR control sequences to faces.\nThis translation effectively colorizes strings and regions based upon\nSGR control sequences embedded in the text. SGR (Select Graphic\nRendition) control sequences are defined in section 3.8.117 of the\nECMA-48 standard (identical to ISO/IEC 6429), which is freely available\nas a PDF file <URL:http://www.ecma.ch/ecma1/STAND/ECMA-048.HTM>." :version "21.1" :group 'processes) #@717 Faces used for SGR control sequences determining a face. This vector holds the faces used for SGR control sequence parameters 0 to 7. Parameter Description Face used by default 0 default default 1 bold bold 2 faint default 3 italic italic 4 underlined underline 5 slowly blinking bold 6 rapidly blinking bold-italic 7 negative image modeline Note that the symbol `default' is special: It will not be combined with the current face. This vector is used by `ansi-color-make-color-map' to create a color map. This color map is stored in the variable `ansi-color-map'. (custom-declare-variable 'ansi-color-faces-vector '[default bold default italic underline bold bold-italic modeline] '(#$ . 1076) :type '(vector face face face face face face face face) :set 'ansi-color-map-update :initialize 'custom-initialize-default :group 'ansi-colors) #@482 Colors used for SGR control sequences determining a color. This vector holds the colors used for SGR control sequences parameters 30 to 37 (foreground colors) and 40 to 47 (background colors). Parameter Color 30 40 black 31 41 red 32 42 green 33 43 yellow 34 44 blue 35 45 magenta 36 46 cyan 37 47 white This vector is used by `ansi-color-make-color-map' to create a color map. This color map is stored in the variable `ansi-color-map'. (custom-declare-variable 'ansi-color-names-vector '["black" "red" "green" "yellow" "blue" "magenta" "cyan" "white"] '(#$ . 2073) :type '(vector string string string string string string string string) :set 'ansi-color-map-update :initialize 'custom-initialize-default :group 'ansi-colors) #@44 Regexp that matches SGR control sequences. (defconst ansi-color-regexp "\\[\\([0-9;]*m\\)" (#$ . 2849)) #@54 Regexp that matches SGR control sequence parameters. (defconst ansi-color-parameter-regexp "\\([0-9]*\\)[m;]" (#$ . 2960)) #@551 Determines what to do with comint output. If nil, do nothing. If the symbol `filter', then filter all SGR control sequences. If anything else (such as t), then translate SGR control sequences into text-properties. In order for this to have any effect, `ansi-color-process-output' must be in `comint-output-filter-functions'. This can be used to enable colorized ls --color=yes output in shell buffers. You set this variable by calling one of: \[ansi-color-for-comint-mode-on] \[ansi-color-for-comint-mode-off] \[ansi-color-for-comint-mode-filter] (custom-declare-variable 'ansi-color-for-comint-mode 'nil '(#$ . 3090) :type '(choice (const :tag "Do nothing" nil) (const :tag "Filter" filter) (const :tag "Translate" t)) :group 'ansi-colors) #@40 Set `ansi-color-for-comint-mode' to t. (defalias 'ansi-color-for-comint-mode-on #[nil "\301\211\207" [ansi-color-for-comint-mode t] 2 (#$ . 3840) nil]) #@42 Set `ansi-color-for-comint-mode' to nil. (defalias 'ansi-color-for-comint-mode-off #[nil "\301\211\207" [ansi-color-for-comint-mode nil] 2 (#$ . 3999) nil]) #@54 Set `ansi-color-for-comint-mode' to symbol `filter'. (defalias 'ansi-color-for-comint-mode-filter #[nil "\301\211\207" [ansi-color-for-comint-mode filter] 2 (#$ . 4163) nil]) #@513 Maybe translate SGR control sequences of comint output into text-properties. Depending on variable `ansi-color-for-comint-mode' the comint output is either not processed, SGR control sequences are filtered using `ansi-color-filter-region', or SGR control sequences are translated into text-properties using `ansi-color-apply-on-region'. The comint output is assumed to lie between the marker `comint-last-output-start' and the process-mark. This is a good function to put in `comint-output-filter-functions'. (defalias 'ansi-color-process-output #[(ignored) "\206 \304 \305\306p!!\307=\206$ \310=\203 \311\n \"\202$ \312\n \"*\207" [comint-last-output-start end-marker start-marker ansi-color-for-comint-mode point-min-marker process-mark get-buffer-process nil filter ansi-color-filter-region ansi-color-apply-on-region] 4 (#$ . 4346)]) (add-hook 'comint-output-filter-functions 'ansi-color-process-output) #@975 Replacement function for `font-lock-default-unfontify-region'. As text-properties are implemented using extents in XEmacs, this function is probably not needed. In Emacs, however, things are a bit different: When font-lock is active in a buffer, you cannot simply add face text-properties to the buffer. Font-lock will remove the face text-property using `font-lock-unfontify-region-function'. If you want to insert the strings returned by `ansi-color-apply' into such buffers, you must set `font-lock-unfontify-region-function' to `ansi-color-unfontify-region'. This function will not remove all face text-properties unconditionally. It will keep the face text-properties if the property `ansi-color' is set. The region from BEG to END is unfontified. XEMACS-STUFF is ignored. A possible way to install this would be: (add-hook 'font-lock-mode-hook (function (lambda () (setq font-lock-unfontify-region-function 'ansi-color-unfontify-region)))) (defalias 'ansi-color-unfontify-region #[(beg end &rest xemacs-stuff) "\303\304!\203\f \305 \306#\210\307 \310\311$\211\205@ \307 \312\313$\206! \314\310\"\203\f \315 \310\311$\2063 \305\n\316#\210\n)\202\f \207" [beg end end-face boundp font-lock-syntactic-keywords remove-text-properties (syntax-table nil) text-property-not-all face nil ansi-color t get-text-property text-property-any (face nil)] 5 (#$ . 5271)]) #@286 Context saved between two calls to `ansi-color-apply'. This is a list of the form (FACES FRAGMENT) or nil. FACES is a list of faces the last call to `ansi-color-apply' ended with, and FRAGMENT is a string starting with an escape sequence, possibly the start of a new escape sequence. (defvar ansi-color-context nil (#$ . 6681)) (make-variable-buffer-local 'ansi-color-context) #@375 Filter out all SGR control sequences from STRING. Every call to this function will set and use the buffer-local variable `ansi-color-context' to save partial escape sequences. This information will be used for the next call to `ansi-color-apply'. Set `ansi-color-context' to nil if you don't want this. This function can be added to `comint-preoutput-filter-functions'. (defalias 'ansi-color-filter-apply #[(string) "\306\307\211\211A@)\203 \211A@) P\307\310\n \n#\211\2032 \n OP\306\225\202 \307\310\311 \n#\203T \306\224\f \f\307O \n\fOP)\202[ \n\307OP\203h \307D\202j \307)+\207" [result end start ansi-color-context x string 0 nil string-match "" ansi-color-regexp fragment pos] 5 (#$ . 7066)]) #@791 Translates SGR control sequences into text-properties. Applies SGR control sequences setting foreground and background colors to STRING using text-properties and returns the result. The colors used are given in `ansi-color-faces-vector' and `ansi-color-names-vector'. See function `ansi-color-apply-sequence' for details. Every call to this function will set and use the buffer-local variable `ansi-color-context' to save partial escape sequences and current face. This information will be used for the next call to `ansi-color-apply'. Set `ansi-color-context' to nil if you don't want this. This function can be added to `comint-preoutput-filter-functions'. You cannot insert the strings returned into buffers using font-lock. See `ansi-color-unfontify-region' for a way around this. (defalias 'ansi-color-apply #[(string) "@\306\307\211\211\211A@)\203# \211A@)P\307\310\f#\211\203^ \311\312\" \203K \313\f\314\315%\210\313\f\305 %\210 \fOP\306\225\316\n \"\202# \203x \313\fG\314\315%\210\313\fG\305 %\210\307\310\317\f#\203\235 \306\224\307O \fOP)\202\245 \f\307OP \204\256 \203\266 D\202\270 \307) -\207" [ansi-color-context result escape-sequence end start face 0 nil string-match match-string 1 put-text-property ansi-color t ansi-color-apply-sequence "" x string ansi-color-regexp fragment pos] 7 (#$ . 7813)]) #@290 Context saved between two calls to `ansi-color-apply-on-region'. This is a list of the form (FACES MARKER) or nil. FACES is a list of faces the last call to `ansi-color-apply-on-region' ended with, and MARKER is a buffer position within an escape sequence or the last position processed. (defvar ansi-color-context-region nil (#$ . 9218)) (make-variable-buffer-local 'ansi-color-context-region) #@392 Filter out all SGR control sequences from region BEGIN to END. Every call to this function will set and use the buffer-local variable `ansi-color-context-region' to save position. This information will be used for the next call to `ansi-color-apply-on-region'. Specifically, it will override BEGIN, the start of the region. Set `ansi-color-context-region' to nil if you don't want this. (defalias 'ansi-color-filter-region #[(begin end) "\306! \211A@)\206 \212\fb\210\307 \310#\203# \311\312!\210\202 \307\313 \310#\2034 \314\315\224D\211\2027 \314\211+\207" [end ansi-color-context-region x begin start end-marker copy-marker re-search-forward t replace-match "" "" nil 0 ansi-color-regexp] 5 (#$ . 9621)]) #@773 Translates SGR control sequences into overlays or extents. Applies SGR control sequences setting foreground and background colors to text in region between BEGIN and END using extents or overlays. Emacs will use overlays, XEmacs will use extents. The colors used are given in `ansi-color-faces-vector' and `ansi-color-names-vector'. See function `ansi-color-apply-sequence' for details. Every call to this function will set and use the buffer-local variable `ansi-color-context-region' to save position and current face. This information will be used for the next call to `ansi-color-apply-on-region'. Specifically, it will override BEGIN, the start of the region and set the face with which to start. Set `ansi-color-context-region' to nil if you don't want this. (defalias 'ansi-color-apply-on-region #[(begin end) "@\211A@)\206 \306\n!\306!\307\212b\210\310 \311#\203N \2036 \312\313\314\224\"\"\210\315\316!\306\314\225!\317\320!\210\321\f\"\202 \310\322 \311#\203q \203e \312\313`\"\"\210\306\314\224!D\211\202\213 \203\210 \312\313 \"\"\210C\211\202\213 \307\211-\207" [ansi-color-context-region x begin end escape-sequence end-marker copy-marker nil re-search-forward t ansi-color-set-extent-face ansi-color-make-extent 0 match-string 1 replace-match "" ansi-color-apply-sequence "" start-marker face ansi-color-regexp] 5 (#$ . 10352)]) #@225 Return a face with PROPERTY set to COLOR. PROPERTY can be either symbol `foreground' or symbol `background'. For Emacs, we just return the cons cell (PROPERTY . COLOR). For XEmacs, we create a temporary face and return it. (defalias 'ansi-color-make-face #[(property color) "\302=\203\n \303 B\207\304=\203 \305 B\207 B\207" [property color foreground foreground-color background background-color] 2 (#$ . 11759)]) #@234 Make an extent for the range [FROM, TO) in OBJECT. OBJECT defaults to the current buffer. XEmacs uses `make-extent', Emacs uses `make-overlay'. XEmacs can use a buffer or a string for OBJECT, Emacs requires OBJECT to be a buffer. (defalias 'ansi-color-make-extent #[(from to &optional object) "\304\305!\203\f \305 \n#\207\306 \n#\307\310\311#\210)\207" [from to object overlay fboundp make-extent make-overlay overlay-put modification-hooks (ansi-color-freeze-overlay)] 4 (#$ . 12186)]) #@111 Prevent OVERLAY from being extended. This function can be used for the `modification-hooks' overlay property. (defalias 'ansi-color-freeze-overlay #[(overlay is-after begin end &optional len) "\205 \305U\205 \n\306!U\205 \307\310!\f#\207" [is-after len end overlay begin 0 overlay-end move-overlay overlay-start] 4 (#$ . 12689)]) #@102 Set the `face' property of EXTENT to FACE. XEmacs uses `set-extent-face', Emacs uses `overlay-put'. (defalias 'ansi-color-set-extent-face #[(extent face) "\302\301 #\207" [extent face overlay-put] 4 (#$ . 13034)]) #@483 Apply ESCAPE-SEQ to FACES and return the new list of faces. ESCAPE-SEQ is an escape sequences parsed by `ansi-color-get-face'. If the new faces start with the symbol `default', then the new faces are returned. If the faces start with something else, they are appended to the front of the FACES list, and the new list of faces is returned. If `ansi-color-get-face' returns nil, then we either got a null-sequence, or we stumbled upon some garbage. In either case we return nil. (defalias 'ansi-color-apply-sequence #[(escape-sequence faces) "\306!\211\204\f \307\202; @\310=\203 A\202; \311\n! \237\307\211\2038 @\312\f\"\fB A\211\204% *))\207" [escape-sequence new-faces faces modified-faces face --dolist-tail-- ansi-color-get-face nil default copy-sequence delete] 4 (#$ . 13257)]) #@265 Creates a vector of face definitions and returns it. The index into the vector is an ANSI code. See the documentation of `ansi-color-map' for an example. The face definitions are based upon the variables `ansi-color-faces-vector' and `ansi-color-names-vector'. (defalias 'ansi-color-make-color-map #[nil "\304\305\306\"\307\310\311\n\"\210\312\310\313\"\210\314\310\315\"\210 *\207" [index ansi-color-map ansi-color-faces-vector ansi-color-names-vector make-vector 50 nil 0 mapc #[(e) " \nI\210 T\211\207" [ansi-color-map index e] 3] 30 #[(e) " \303\304\n\"I\210 T\211\207" [ansi-color-map index e ansi-color-make-face foreground] 5] 40 #[(e) " \303\304\n\"I\210 T\211\207" [ansi-color-map index e ansi-color-make-face background] 5]] 3 (#$ . 14069)]) #@425 A brand new color map suitable for `ansi-color-get-face'. The value of this variable is usually constructed by `ansi-color-make-color-map'. The values in the array are such that the numbers included in an SGR control sequences point to the correct foreground or background colors. Example: The sequence [34m specifies a blue foreground. Therefore: (aref ansi-color-map 34) => (foreground-color . "blue") (defvar ansi-color-map (ansi-color-make-color-map) (#$ . 14843)) #@237 Update `ansi-color-map'. Whenever the vectors used to construct `ansi-color-map' are changed, this function is called. Therefore this function is listed as the :set property of `ansi-color-faces-vector' and `ansi-color-names-vector'. (defalias 'ansi-color-map-update #[(symbol value) "\303 \"\210\304 \211\207" [symbol value ansi-color-map set-default ansi-color-make-color-map] 3 (#$ . 15339)]) #@91 Get face definition from `ansi-color-map'. ANSI-CODE is used as an index into the vector. (defalias 'ansi-color-get-face-1 #[(ansi-code) "\300\301\302\217\207" [nil (aref ansi-color-map ansi-code) (('args-out-of-range))] 3 (#$ . 15745)]) #@353 Create a new face by applying all the parameters in ESCAPE-SEQ. Should any of the parameters result in the default face (usually this is the parameter 0), then the effect of all previous parameters is cancelled. ESCAPE-SEQ is a SGR control sequences such as \033[34m. The parameter 34 is used by `ansi-color-get-face-1' to return a face definition. (defalias 'ansi-color-get-face #[(escape-seq) "\305\306\211\307\f\n#\2038 \305\225\310\311\312\313\f\"\314\"!\211\203 \315=\203+ C\202 \235\204 B\202 +\207" [val f i ansi-color-parameter-regexp escape-seq 0 nil string-match ansi-color-get-face-1 string-to-number match-string 1 10 default] 6 (#$ . 15990)]) (provide 'ansi-color)
Close