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 : hi-lock.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:12 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/hi-lock.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 "`hi-lock.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\207" [require font-lock custom-declare-group hi-lock nil "Interactively add and remove font-lock patterns for highlighting text." :link (custom-manual "(emacs)Highlight Interactively") :group] 8) #@244 Limit of search in a buffer for hi-lock patterns. When a file is visited and hi-lock mode is on, patterns starting up to this limit are added to font-lock's patterns. See documentation of functions `hi-lock-mode' and `hi-lock-find-patterns'. (custom-declare-variable 'hi-lock-file-patterns-range '10000 '(#$ . 862) :type 'integer :group 'hi-lock) #@375 Size of area highlighted by hi-lock when font-lock not active. Font-lock is not active in buffers that do their own highlighting, such as the buffer created by `list-colors-display'. In those buffers hi-lock patterns will only be applied over a range of `hi-lock-highlight-range' characters. If font-lock is active then highlighting will be applied throughout the buffer. (custom-declare-variable 'hi-lock-highlight-range '200000 '(#$ . 1217) :type 'integer :group 'hi-lock) #@126 List of major modes in which hi-lock will not run. For security reasons since font lock patterns can specify function calls. (custom-declare-variable 'hi-lock-exclude-modes ''(rmail-mode mime/viewer-mode gnus-article-mode) '(#$ . 1701) :type '(repeat symbol) :group 'hi-lock) #@281 Specify when hi-lock should use patterns found in file. If `ask', prompt when patterns found in buffer; if bound to a function, use patterns when function returns t (function is called with patterns as first argument); if nil or `never' or anything else, don't use file patterns. (custom-declare-variable 'hi-lock-file-patterns-policy ''ask '(#$ . 1984) :type '(choice (const :tag "Do not use file patterns" never) (const :tag "Ask about file patterns" ask) (function :tag "Function to check file patterns")) :group 'hi-lock :version "22.1") (byte-code "\300\301\302\303#\210\304\305\306\307\310\311\310\312&\210\313\314\315\316\310\305%\210\313\317\320\321\310\305%\210\313\322\323\321\310\305%\210\313\324\325\321\310\305%\210\313\326\327\321\310\305%\210\313\330\331\321\310\305%\210\313\332\333\321\310\305%\210\313\334\335\321\310\305%\210\313\336\337\321\310\305%\207" [put hi-lock-file-patterns-policy risky-local-variable t custom-declare-group hi-lock-faces nil "Faces for hi-lock." :group hi-lock faces custom-declare-face hi-yellow ((((min-colors 88) (background dark)) (:background "yellow1" :foreground "black")) (((background dark)) (:background "yellow" :foreground "black")) (((min-colors 88)) (:background "yellow1")) (t (:background "yellow"))) "Default face for hi-lock mode." hi-pink ((((background dark)) (:background "pink" :foreground "black")) (t (:background "pink"))) "Face for hi-lock mode." hi-green ((((min-colors 88) (background dark)) (:background "green1" :foreground "black")) (((background dark)) (:background "green" :foreground "black")) (((min-colors 88)) (:background "green1")) (t (:background "green"))) hi-blue ((((background dark)) (:background "light blue" :foreground "black")) (t (:background "light blue"))) hi-black-b ((t (:weight bold))) hi-blue-b ((((min-colors 88)) (:weight bold :foreground "blue1")) (t (:weight bold :foreground "blue"))) hi-green-b ((((min-colors 88)) (:weight bold :foreground "green1")) (t (:weight bold :foreground "green"))) hi-red-b ((((min-colors 88)) (:weight bold :foreground "red1")) (t (:weight bold :foreground "red"))) hi-black-hb ((t (:weight bold :height 1.67 :inherit variable-pitch)))] 8) #@61 Patterns found in file for hi-lock. Should not be changed. (defvar hi-lock-file-patterns nil (#$ . 4166)) #@63 Patterns provided to hi-lock by user. Should not be changed. (defvar hi-lock-interactive-patterns nil (#$ . 4279)) #@50 Default faces for hi-lock interactive functions. (defvar hi-lock-face-defaults '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b" "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") (#$ . 4401)) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\207" [defvaralias hi-lock-face-history hi-lock-face-defaults nil make-obsolete-variable "23.1" hi-lock-regexp-history regexp-history] 4) #@60 Search target for finding hi-lock patterns at top of file. (defvar hi-lock-file-patterns-prefix "Hi-lock" (#$ . 4838)) #@286 True if user alerted that `global-hi-lock-mode' is now the global switch. Earlier versions of hi-lock used `hi-lock-mode' as the global switch; the message is issued if it appears that `hi-lock-mode' is used assuming that older functionality. This variable avoids multiple reminders. (defvar hi-lock-archaic-interface-message-used nil (#$ . 4964)) #@178 If non-nil, sometimes assume that `hi-lock-mode' means `global-hi-lock-mode'. Assumption is made if `hi-lock-mode' used in the *scratch* buffer while a library is being loaded. (defvar hi-lock-archaic-interface-deduce nil (#$ . 5320)) (byte-code "\300\301!\210\302\301\303\304#\210\300\305!\210\302\305\303\304#\207" [make-variable-buffer-local hi-lock-interactive-patterns put permanent-local t hi-lock-file-patterns] 4) #@24 Menu for hi-lock mode. (defvar hi-lock-menu (make-sparse-keymap "Hi Lock") (#$ . 5748)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\207" [hi-lock-menu define-key-after [highlight-regexp] (menu-item "Highlight Regexp..." highlight-regexp :help "Highlight text matching PATTERN (a regexp).") [highlight-phrase] (menu-item "Highlight Phrase..." highlight-phrase :help "Highlight text matching PATTERN (a regexp processed to match phrases).") [highlight-lines-matching-regexp] (menu-item "Highlight Lines..." highlight-lines-matching-regexp :help "Highlight lines containing match of PATTERN (a regexp)..") [unhighlight-regexp] (menu-item "Remove Highlighting..." unhighlight-regexp :help "Remove previously entered highlighting pattern." :enable hi-lock-interactive-patterns) [hi-lock-write-interactive-patterns] (menu-item "Patterns to Buffer" hi-lock-write-interactive-patterns :help "Insert interactively added REGEXPs into buffer at point." :enable hi-lock-interactive-patterns) [hi-lock-find-patterns] (menu-item "Patterns from Buffer" hi-lock-find-patterns :help "Use patterns (if any) near top of buffer.")] 4) #@22 Key map for hi-lock. (defvar hi-lock-map (make-sparse-keymap "Hi Lock") (#$ . 6942)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\207" [hi-lock-map define-key "wi" hi-lock-find-patterns "wl" highlight-lines-matching-regexp "wp" highlight-phrase "wh" highlight-regexp "wr" unhighlight-regexp "wb" hi-lock-write-interactive-patterns] 4) #@93 Non-nil if Hi-Lock mode is enabled. Use the command `hi-lock-mode' to change this variable. (defvar hi-lock-mode nil (#$ . 7361)) (make-variable-buffer-local 'hi-lock-mode) #@2237 Toggle minor mode for interactively adding font-lock highlighting patterns. If ARG positive, turn hi-lock on. Issuing a hi-lock command will also turn hi-lock on. To turn hi-lock on in all buffers use `global-hi-lock-mode' or in your .emacs file (global-hi-lock-mode 1). When hi-lock is turned on, a "Regexp Highlighting" submenu is added to the "Edit" menu. The commands in the submenu, which can be called interactively, are: \[highlight-regexp] REGEXP FACE Highlight matches of pattern REGEXP in current buffer with FACE. \[highlight-phrase] PHRASE FACE Highlight matches of phrase PHRASE in current buffer with FACE. (PHRASE can be any REGEXP, but spaces will be replaced by matches to whitespace and initial lower-case letters will become case insensitive.) \[highlight-lines-matching-regexp] REGEXP FACE Highlight lines containing matches of REGEXP in current buffer with FACE. \[unhighlight-regexp] REGEXP Remove highlighting on matches of REGEXP in current buffer. \[hi-lock-write-interactive-patterns] Write active REGEXPs into buffer as comments (if possible). They may be read the next time file is loaded or when the \[hi-lock-find-patterns] command is issued. The inserted regexps are in the form of font lock keywords. (See `font-lock-keywords'.) They may be edited and re-loaded with \[hi-lock-find-patterns], any valid `font-lock-keywords' form is acceptable. When a file is loaded the patterns are read if `hi-lock-file-patterns-policy' is 'ask and the user responds y to the prompt, or if `hi-lock-file-patterns-policy' is bound to a function and that function returns t. \[hi-lock-find-patterns] Re-read patterns stored in buffer (in the format produced by \[hi-lock-write-interactive-patterns]). When hi-lock is started and if the mode is not excluded or patterns rejected, the beginning of the buffer is searched for lines of the form: Hi-lock: FOO where FOO is a list of patterns. These are added to the font lock keywords already present. The patterns must start before position (number of characters into buffer) `hi-lock-file-patterns-range'. Patterns will be read until Hi-lock: end is found. A mode is excluded if it's in the list `hi-lock-exclude-modes'. (defalias 'hi-lock-mode #[(&optional arg) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315\316 \317\232\203M \203M t\204M \f\204M \312 \203I \320\n!\210\202M \321\322!\210\n\203q \204Z \323\324!\210\325+\326\327,B#\210\330 \210\331\332\333\315\312$\210\202\263 -\204{ .\203\246 -\203\211 \334\315-\"\210\315-.\203\227 \334\315.\"\210\315.\335\315\211\336\312$\210/\203\246 \337 \210\325+\340\315#\210\341\332\333\312#\210\342\343\n\203\275 \344\202\276 \345\"\210\346 \203\336 \306 \203\321 \306 \232\203\336 \313\347\n\203\333 \350\202\334 \351\"\210)\352 \210\n\207" [#1=#:last-message arg hi-lock-mode load-in-progress hi-lock-archaic-interface-message-used hi-lock-archaic-interface-deduce current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil buffer-name "*scratch*" global-hi-lock-mode warn "Possible archaic use of (hi-lock-mode).\nUse (global-hi-lock-mode 1) in .emacs to enable hi-lock for all buffers,\nuse (hi-lock-mode 1) for individual buffers. For compatibility with Emacs\nversions before 22 use the following in your .emacs file:\n\n (if (functionp 'global-hi-lock-mode)\n (global-hi-lock-mode 1)\n (hi-lock-mode 1))\n" font-lock-mode 1 define-key-after [hi-lock] "Regexp Highlighting" hi-lock-find-patterns add-hook font-lock-mode-hook hi-lock-font-lock-hook font-lock-remove-keywords remove-overlays hi-lock-overlay font-lock-fontify-buffer [hi-lock] remove-hook run-hooks hi-lock-mode-hook hi-lock-mode-on-hook hi-lock-mode-off-hook called-interactively-p "Hi-Lock mode %sabled" "en" "dis" force-mode-line-update menu-bar-edit-menu hi-lock-menu hi-lock-interactive-patterns hi-lock-file-patterns font-lock-fontified] 5 (#$ . 7542) (list (or current-prefix-arg 'toggle))]) (byte-code "\302\303\304#\210\305 B\306\305!\204 \307\305\310\"\210\311\305!\207" [hi-lock-map current-load-list add-minor-mode hi-lock-mode (:eval (if (or hi-lock-interactive-patterns hi-lock-file-patterns) " Hi" "")) hi-lock-mode-major-mode default-boundp set-default nil make-variable-buffer-local] 4) #@278 Non-nil if Global-Hi-Lock mode is enabled. See the command `global-hi-lock-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-hi-lock-mode'. (custom-declare-variable 'global-hi-lock-mode 'nil '(#$ . 11934) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'hi-lock :type 'boolean) #@268 Toggle Hi-Lock mode in every possible buffer. With prefix ARG, turn Global-Hi-Lock mode on if and only if ARG is positive. Hi-Lock mode is enabled in all buffers where `turn-on-hi-lock-if-enabled' would do it. See `hi-lock-mode' for more information on Hi-Lock mode. (defalias 'global-hi-lock-mode #[(&optional arg) "\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-hi-lock-mode buf --dolist-tail-- hi-lock-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-hi-lock-mode-enable-in-buffers find-file-hook global-hi-lock-mode-check-buffers change-major-mode-hook global-hi-lock-mode-cmhh remove-hook buffer-list turn-on-hi-lock-if-enabled -1 run-hooks global-hi-lock-mode-hook global-hi-lock-mode-on-hook global-hi-lock-mode-off-hook called-interactively-p customize-mark-as-set "Global-Hi-Lock mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 12382) (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-hi-lock-mode nil boundp global-hi-lock-mode-map global-hi-lock-mode-buffers default-boundp set-default] 5) (defalias 'global-hi-lock-mode-enable-in-buffers #[nil "\306\211\2059 \n@\307 !\2031 r q\210 \203+ \f =\2040 \303\310!\210\311 \210 \2020 \311 \210 )\nA\211\204 \306*\207" [global-hi-lock-mode-buffers buf --dolist-tail-- hi-lock-mode hi-lock-mode-major-mode major-mode nil buffer-live-p -1 turn-on-hi-lock-if-enabled] 3]) (put 'global-hi-lock-mode-enable-in-buffers 'definition-name 'global-hi-lock-mode) (defalias 'global-hi-lock-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-hi-lock-mode-buffers global-hi-lock-mode-enable-in-buffers nil remove-hook post-command-hook global-hi-lock-mode-check-buffers] 3]) (put 'global-hi-lock-mode-check-buffers 'definition-name 'global-hi-lock-mode) (defalias 'global-hi-lock-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-hi-lock-mode-buffers add-hook post-command-hook global-hi-lock-mode-check-buffers] 3]) (put 'global-hi-lock-mode-cmhh 'definition-name 'global-hi-lock-mode) (defalias 'turn-on-hi-lock-if-enabled #[nil "\303 \n>?\205\f \304\305!\207" [hi-lock-archaic-interface-message-used major-mode hi-lock-exclude-modes t hi-lock-mode 1] 2]) (defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer) #@379 Set face of all lines containing a match of REGEXP to FACE. Interactively, prompt for REGEXP then FACE. Buffer-local history list maintained for regexps, global history maintained for faces. \<minibuffer-local-map>Use \[previous-history-element] to retrieve previous history items, and \[next-history-element] to retrieve default values. (See info node `Minibuffer History'.) (defalias 'hi-lock-line-face-buffer #[(regexp &optional face) "\303!\204 \304 \204 \301\305!\210\306\307\n\310Q\"\207" [face hi-lock-mode regexp facep hi-yellow 1 hi-lock-set-pattern "^.*\\(?:" "\\).*$"] 4 (#$ . 15312) (list (hi-lock-regexp-okay (read-regexp "Regexp to highlight line" (car regexp-history))) (hi-lock-read-face-name))]) (defalias 'highlight-regexp 'hi-lock-face-buffer) #@361 Set face of each match of REGEXP to FACE. Interactively, prompt for REGEXP then FACE. Buffer-local history list maintained for regexps, global history maintained for faces. \<minibuffer-local-map>Use \[previous-history-element] to retrieve previous history items, and \[next-history-element] to retrieve default values. (See info node `Minibuffer History'.) (defalias 'hi-lock-face-buffer #[(regexp &optional face) "\303!\204 \304 \204 \301\305!\210\306\n\"\207" [face hi-lock-mode regexp facep hi-yellow 1 hi-lock-set-pattern] 3 (#$ . 16089) (list (hi-lock-regexp-okay (read-regexp "Regexp to highlight" (car regexp-history))) (hi-lock-read-face-name))]) (defalias 'highlight-phrase 'hi-lock-face-phrase-buffer) #@160 Set face of each match of phrase REGEXP to FACE. Whitespace in REGEXP converted to arbitrary whitespace and initial lower-case letters made case insensitive. (defalias 'hi-lock-face-phrase-buffer #[(regexp &optional face) "\303!\204 \304 \204 \301\305!\210\306\n\"\207" [face hi-lock-mode regexp facep hi-yellow 1 hi-lock-set-pattern] 3 (#$ . 16816) (list (hi-lock-regexp-okay (hi-lock-process-phrase (read-regexp "Phrase to highlight" (car regexp-history)))) (hi-lock-read-face-name))]) (defalias 'unhighlight-regexp 'hi-lock-unface-buffer) #@396 Remove highlighting of each match to REGEXP set by hi-lock. Interactively, prompt for REGEXP. Buffer-local history of inserted regexp's maintained. Will accept only regexps inserted by hi-lock interactive functions. (See `hi-lock-interactive-patterns'.) \<minibuffer-local-must-match-map>Use \[minibuffer-complete] to complete a partially typed regexp. (See info node `Minibuffer History'.) (defalias 'hi-lock-unface-buffer #[(regexp) "\304 \"\211\205# \305\306\nC\"\210\307\n \"\310\306\211\311\312!$\210 \205# \313 )\207" [regexp hi-lock-interactive-patterns keyword font-lock-fontified assoc font-lock-remove-keywords nil delq remove-overlays hi-lock-overlay-regexp hi-lock-string-serialize font-lock-fontify-buffer] 7 (#$ . 17371) (byte-code "\303 \203 \204 \304\305\215\207\306\307 \" \204 \310\311!\210\312\313 \314\315 @@\302\316B&)C\207" [last-nonmenu-event hi-lock-interactive-patterns history-list display-popup-menus-p snafu (byte-code "\301\302\303\304\305\306\"BB\"\206 \307\310\311\"\207" [hi-lock-interactive-patterns x-popup-menu t keymap "Select Pattern to Unhighlight" mapcar #[(pattern) "@\301\302@\303A@A@A@!#\304\211B@F\207" [pattern format "%s (%s)" symbol-name nil] 6] throw snafu ("")] 7) mapcar #[(p) "@\207" [p] 1] error "No highlighting to remove" completing-read "Regexp to unhighlight: " nil t 1] 8)]) #@252 Write interactively added patterns, if any, into buffer at point. Interactively added patterns are those normally specified using `highlight-regexp' and `highlight-lines-matching-regexp'; they can be found in variable `hi-lock-interactive-patterns'. (defalias 'hi-lock-write-interactive-patterns #[nil "\204 \303\304!\210`\305\306\"\210\307 `\"\210)`\nV\205 \310\311!\207" [hi-lock-interactive-patterns beg hi-lock-file-patterns-range error "There are no interactive patterns" mapc #[(pattern) "\302\303\304 !#c\207" [hi-lock-file-patterns-prefix pattern format "%s: (%s)\n" prin1-to-string] 5] comment-region warn "Inserted keywords not close enough to top of file"] 3 (#$ . 18730) nil]) #@182 Convert regexp PHRASE to a regexp that matches phrases. Blanks in PHRASE replaced by regexp that matches arbitrary whitespace and initial lower-case letters made case insensitive. (defalias 'hi-lock-process-phrase #[(phrase) "\302\303\304\305 #\303\306\307\302\310%\211)\207" [mod-phrase phrase nil replace-regexp-in-string "\\<[a-z]" #[(m) "\301\302\226#\207" [m format "[%s%s]"] 4] "\\s-+" "[ \n]+" t] 6 (#$ . 19433)]) #@148 Return REGEXP if it appears suitable for a font-lock pattern. Otherwise signal an error. A pattern that matches the null string is not suitable. (defalias 'hi-lock-regexp-okay #[(regexp) "\301\302\"\203 \303\304!\207\207" [regexp string-match "" error "Regexp cannot match an empty string"] 3 (#$ . 19869)]) #@61 Read face name from minibuffer with completion and history. (defalias 'hi-lock-read-face-name #[nil "\303\304\305\306\307 @\310 @\311\312O \"\211;\203\" \n @\232\204\" \nG\202# \311)B\313 A&!\207" [obarray hi-lock-face-defaults prefix intern completing-read "Highlight using face: " facep t try-completion 0 1 face-name-history] 12 (#$ . 20188)]) #@88 Inhibit the action of `hi-lock-font-lock-hook'. This is used by `hi-lock-set-pattern'. (defvar hi-lock--inhibit-font-lock-hook nil (#$ . 20544)) #@34 Highlight REGEXP with face FACE. (defalias 'hi-lock-set-pattern #[(regexp face) "\306\307 D\310ED\310\211\f\235?\205\213 \311\312 C\310#\210 \fB \203& \313 \202\213 \314! `\315\245Z `\315\245\\ e\306dZ]Z] d\306eZ]\\^ \212b\210\316\310#\205\211 \317\306\224\306\225\" \320\321\310#\210\320\322#\210\320\301 #\210)\306\225b\210\202Z .*\207" [regexp face hi-lock--inhibit-font-lock-hook pattern hi-lock-interactive-patterns font-lock-fontified 0 quote t font-lock-add-keywords nil font-lock-fontify-buffer hi-lock-string-serialize 2 re-search-forward make-overlay overlay-put hi-lock-overlay hi-lock-overlay-regexp serial hi-lock-highlight-range range-min range-max search-start search-end overlay] 6 (#$ . 20695)]) #@57 Replace file patterns list with PATTERNS and refontify. (defalias 'hi-lock-set-file-patterns #[(patterns) "\204 \205 \302\303\"\210 \304\303\305#\210\306 \207" [hi-lock-file-patterns patterns font-lock-remove-keywords nil font-lock-add-keywords t font-lock-fontify-buffer] 4 (#$ . 21451)]) #@46 Find patterns in current buffer for hi-lock. (defalias 'hi-lock-find-patterns #[nil " >?\205v \306\307\n\310Q \212\214~\210eb\210\311 ` \\\312#\210\313 \210\311 `\314\\\312#\2038 \315\316!\2048 \306\317\320\217\210\202 *\f\205u \205u \321=\204h \322!\203W \f!\202e \323=\203d \324\325!\202e \306\205u \326\f!\210t\205u \327\330\fG\"*\207" [major-mode hi-lock-exclude-modes hi-lock-file-patterns-prefix target-regexp all-patterns hi-lock-file-patterns-range nil "\\<" ":" re-search-forward t beginning-of-line 100 looking-at "\\s-*end" (byte-code "\301\302p!\"\301\207" [all-patterns append read] 3) ((error (byte-code "\300\301\302 \"\207" [message "Invalid pattern list expression at %d" line-number-at-pos] 3))) hi-lock-find-patterns functionp ask y-or-n-p "Add patterns from this buffer to hi-lock? " hi-lock-set-file-patterns message "Hi-lock added %d patterns." hi-lock-mode this-command hi-lock-file-patterns-policy] 4 (#$ . 21754) nil]) #@38 Add hi-lock patterns to font-lock's. (defalias 'hi-lock-font-lock-hook #[nil "?\205 \203 \304\305\n\306#\210\304\305 \306#\207\307\310!\207" [hi-lock--inhibit-font-lock-hook font-lock-mode hi-lock-file-patterns hi-lock-interactive-patterns font-lock-add-keywords nil t hi-lock-mode -1] 4 (#$ . 22719)]) #@54 Hash table used to assign unique numbers to strings. (defvar hi-lock-string-serialize-hash (make-hash-table :test 'equal) (#$ . 23032)) #@178 Number assigned to last new string in call to `hi-lock-string-serialize'. A string is considered new if it had not previously been used in a call to `hi-lock-string-serialize'. (defvar hi-lock-string-serialize-serial 1 (#$ . 23175)) #@41 Return unique serial number for STRING. (defalias 'hi-lock-string-serialize #[(string) "\304 \"\211\203 \n\202 \305 T\211 #\210 )\207" [string hi-lock-string-serialize-hash val hi-lock-string-serialize-serial gethash puthash] 5 (#$ . 23414) nil]) #@29 Unload the Hi-Lock library. (defalias 'hi-lock-unload-function #[nil "\300\301!\210\302\207" [global-hi-lock-mode -1 nil] 2 (#$ . 23673)]) (provide 'hi-lock)
Close
