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 : completion.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:46 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/completion.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 "`completion.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'completion nil "Dynamic word-completion code." :group 'matching :group 'convenience) #@133 Non-nil means enable recording and saving of completions. If nil, no new words are added to the database or saved to the init file. (custom-declare-variable 'enable-completion 't '(#$ . 720) :type 'boolean :group 'completion) #@106 Non-nil means save most-used completions when exiting Emacs. See also `save-completions-retention-time'. (custom-declare-variable 'save-completions-flag 't '(#$ . 953) :type 'boolean :group 'completion) #@38 The filename to save completions to. (custom-declare-variable 'save-completions-file-name '(locate-user-emacs-file "completions" ".completions") '(#$ . 1162) :type 'file :group 'completion) #@186 Discard a completion if unused for this many hours. (1 day = 24, 1 week = 168). If this is 0, non-permanent completions will not be saved unless these are used. Default is two weeks. (custom-declare-variable 'save-completions-retention-time '336 '(#$ . 1359) :type 'integer :group 'completion) #@115 Non-nil means separator characters mark previous word as used. This means the word will be saved as a completion. (custom-declare-variable 'completion-on-separator-character 'nil '(#$ . 1662) :type 'boolean :group 'completion) #@60 Number of versions to keep for the saved completions file. (custom-declare-variable 'completions-file-versions-kept 'kept-new-versions '(#$ . 1895) :type 'integer :group 'completion) #@69 Minimum output speed at which to display next potential completion. (custom-declare-variable 'completion-prompt-speed-threshold '4800 '(#$ . 2084) :type 'integer :group 'completion) #@92 If non-nil, the next completion prompt does a cdabbrev search. This can be time consuming. (custom-declare-variable 'completion-cdabbrev-prompt-flag 'nil '(#$ . 2272) :type 'boolean :group 'completion) #@122 How far to search in the buffer when looking for completions. In number of characters. If nil, search the whole buffer. (custom-declare-variable 'completion-search-distance '15000 '(#$ . 2481) :type 'integer :group 'completion) #@172 List of modes {`c' or `lisp'} for automatic completions merging. Definitions from visited files which have these modes are automatically added to the completion database. (custom-declare-variable 'completions-merging-modes ''(lisp c) '(#$ . 2717) :type '(set (const lisp) (const c)) :group 'completion) #@105 *The minimum length of a stored completion. DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros. (defvar completion-min-length 6 (#$ . -3027)) #@105 *The maximum length of a stored completion. DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros. (defvar completion-max-length 200 (#$ . -3184)) #@111 The minimum length of a completion search string. DON'T CHANGE WITHOUT RECOMPILING ! This is used by macros. (defvar completion-prefix-min-length 3 (#$ . 3343)) #@110 Set to t when the completion system is initialized. Indicates that the old completion file has been read in. (defvar cmpl-initialized-p nil (#$ . 3512)) #@105 Set to t as soon as the first completion has been accepted. Used to decide whether to save completions. (defvar cmpl-completions-accepted-p nil (#$ . 3672)) #@74 Return :capitalized, :up, :down, :mixed, or :neither for case of STRING. (defalias 'cmpl-string-case-type #[(string) "\302\303\304 \"\203+ \303\305 \"\203' G\306V\203# \303\305 \306#\204# \307\2027 \310\2027 \311\2027 \303\305 \"\2036 \312\2027 \313)\207" [case-fold-search string nil string-match "[[:lower:]]" "[[:upper:]]" 1 :capitalized :mixed :down :up :neither] 4 (#$ . 3835)]) (defalias 'cmpl-coerce-string-case #[(string case-type) "\302=\203 \227\207\303=\203 \226\207\304=\203' \227\211\305\306 \305H\307\"I\210 \207 \207" [case-type string :down :up :capitalized 0 logand 223] 6]) (defalias 'cmpl-merge-string-cases #[(string-to-coerce given-string) "\303!\211\304>\203 \305\303\n!\"\202 )\207" [string-to-coerce string-case-type given-string cmpl-string-case-type (:down :up :capitalized) cmpl-coerce-string-case] 5]) (defalias 'cmpl-hours-since-origin #[nil "\301 \302\303@_A@\\\304\")\207" [time current-time floor 65536.0 3600] 3]) (byte-code "\306B\307\310 \311\312\211\313W\203 \314 \315\n#\210 T\211\202 \312\211\316W\203> \314\317 \\\320\n#\210\314\321 \\\320\n#\210 T\211\202\" \312\211\322W\203U \314\323 \\\320\n#\210 T\211\202A \324\325\211 \311 \211 \203u @\314 \320\n#\210A\211\204b * \311 \211 \203\222 @\314 \326\n#\210A\211\204 ,\n*!\207" [current-load-list i table symbol-chars-ignore symbol-chars char completion-standard-syntax-table (lambda (#1=#:defconst-tmp-var) (defconst completion-standard-syntax-table #1#)) make-syntax-table nil 0 256 modify-syntax-entry " " 26 97 "_" 65 10 48 (64 47 92 42 43 126 36 60 62 37) (95 45 58 46) "w" --dolist-tail--] 6) #@58 This variable holds the current completion syntax table. (defvar completion-syntax-table completion-standard-syntax-table (#$ . 5479)) (make-variable-buffer-local 'completion-syntax-table) #@72 Holds first character of symbol, after any completion symbol function. (defvar cmpl-symbol-start nil (#$ . 5674)) #@71 Holds last character of symbol, after any completion symbol function. (defvar cmpl-symbol-end nil (#$ . 5794)) #@106 Return the symbol that the point is currently on. But only if it is longer than `completion-min-length'. (defalias 'symbol-under-point #[nil "\306 p\307\216\310\n!\210gz\311>\205] `\312 T\313\"\312 \314\"\ffz\315U\2032 \fb\210\314v\210` b\210 Sfz\315U\203F b\210\313v\210` b\210 \fZX\205\\ \fZX\205\\ \316\f \")+\207" [#1=#:buffer #2=#:table completion-syntax-table saved-point cmpl-symbol-start cmpl-symbol-end syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table (119 95) scan-sexps -1 1 119 buffer-substring-no-properties completion-min-length completion-max-length] 3 (#$ . 5912)]) #@125 Return a string of the symbol immediately before point. Returns nil if there isn't one longer than `completion-min-length'. (defalias 'symbol-before-point #[nil "\306 p\307\216\310\n!\210hz\211\311U\203> `\312\f\313\"\211fz\314U\203. b\210\315v\210`\fb\210\f \\Y\205} \316 \f\"\202} \314U\205} ` \312\313\"\313v\210` fz\314U\203b b\210\315v\210`b\210\f ZX\205| \f ZX\205| \316 \f\")+\207" [#1=#:buffer #2=#:table completion-syntax-table cmpl-preceding-syntax cmpl-symbol-end cmpl-symbol-start syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table 95 scan-sexps -1 119 1 buffer-substring-no-properties completion-min-length saved-point completion-max-length] 4 (#$ . 6567)]) (defalias 'symbol-under-or-before-point #[nil "\303 p\304\216\305\n!\210gz+\306>\203 \307 \207\310 \207" [#1=#:buffer #2=#:table completion-syntax-table syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table (119 95) symbol-under-point symbol-before-point] 2]) (defalias 'symbol-before-point-for-complete #[nil "\306 p\307\216\310\n!\210hz\211\311>\205D `\312\f\313\"\211fz\314U\203. b\210\315v\210`\fb\210\f ZX\205D \f ZX\205D \316 \f\"+\207" [#1=#:buffer #2=#:table completion-syntax-table cmpl-preceding-syntax cmpl-symbol-end cmpl-symbol-start syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table (95 119) scan-sexps -1 119 1 buffer-substring-no-properties completion-prefix-min-length completion-max-length] 4]) (defalias 'cmpl-statistics-block '(macro . #[(&rest body) "\300\207" [nil] 1])) (byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\331!\204O \333\331 \"\210\334B\332\334!\204^ \333\334\335\"\210\336B\332\336!\204m \333\336\303\"\210\337B\332\337!\204| \333\337\335\"\210\340B\332\340!\204\213 \333\340\335\"\210\341B\332\341!\204\232 \333\341\342\"\210\343B\332\343!\204\251 \333\343\303\"\210\335\207" [current-load-list cmpl-source-unknown (lambda (#1=#:defconst-tmp-var) (defconst cmpl-source-unknown #1#)) 0 cmpl-source-init-file (lambda (#2=#:defconst-tmp-var) (defconst cmpl-source-init-file #2#)) 1 cmpl-source-file-parsing (lambda (#3=#:defconst-tmp-var) (defconst cmpl-source-file-parsing #3#)) 2 cmpl-source-separator (lambda (#4=#:defconst-tmp-var) (defconst cmpl-source-separator #4#)) 3 cmpl-source-cursor-moves (lambda (#5=#:defconst-tmp-var) (defconst cmpl-source-cursor-moves #5#)) 4 cmpl-source-interactive (lambda (#6=#:defconst-tmp-var) (defconst cmpl-source-interactive #6#)) 5 cmpl-source-cdabbrev (lambda (#7=#:defconst-tmp-var) (defconst cmpl-source-cdabbrev #7#)) 6 num-cmpl-sources (lambda (#8=#:defconst-tmp-var) (defconst num-cmpl-sources #8#)) 7 current-completion-source default-boundp set-default cdabbrev-completions-tried nil cdabbrev-current-point cdabbrev-current-window cdabbrev-wrapped-p cdabbrev-abbrev-string "" cdabbrev-start-point] 3) #@142 Reset the cdabbrev search to search for ABBREV-STRING. INITIAL-COMPLETIONS-TRIED is a list of downcased strings to ignore during the search. (defalias 'reset-cdabbrev #[(abbrev-string &optional initial-completions-tried) "\227\nB\304\305!\207" [abbrev-string cdabbrev-abbrev-string initial-completions-tried cdabbrev-completions-tried reset-cdabbrev-window t] 2 (#$ . 9666)]) (defalias 'set-cdabbrev-buffer #[nil "\301=\203 \302 \202 \303!q\207" [cdabbrev-current-window t other-buffer window-buffer] 2]) #@56 Reset the cdabbrev search to search for abbrev-string. (defalias 'reset-cdabbrev-window #[(&optional initializep) "\203\n \306 \202& \307=\203 \310\202& \203& \311 !\211\306 =\203& \307 \205E \212\312 \210`\211\f\203> e \fZ]\202? e\310\211 )\207" [initializep cdabbrev-current-window cdabbrev-current-point cdabbrev-start-point completion-search-distance cdabbrev-stop-point selected-window t nil next-window set-cdabbrev-buffer cdabbrev-wrapped-p] 4 (#$ . 10185)]) #@159 Return the next possible cdabbrev expansion or nil if there isn't one. `reset-cdabbrev' must've been called already. This is sensitive to `case-fold-search'. (defalias 'next-cdabbrev #[nil "\205\272 \306\211\211\211\211\211\211 \212\307\216\310 \210`\311 \312!\210b\210\313\314#\203\200 hz\211\315U\204R \n\316U\205| `\317v\210hz\315U b\210\205| \320 \211\205| \227 \203q \f @\230\204q A\211\204c \203{ \306\211\202| \314?\202\236 \204\241 \203\224 d \\^\202\225 d\211b\210\314\211\204* \203\256 \fB`* \206\270 \321 \210\322 .\207" [cdabbrev-current-window saved-point-2 syntax tried-list downcase-expansion expansion nil ((byte-code "\302!\210 b\207" [saved-syntax saved-point set-syntax-table] 2)) set-cdabbrev-buffer syntax-table set-syntax-table search-backward t 32 119 -1 symbol-under-point reset-cdabbrev-window next-cdabbrev saved-syntax saved-point completion-syntax-table cdabbrev-current-point cdabbrev-abbrev-string cdabbrev-stop-point cdabbrev-completions-tried cdabbrev-wrapped-p completion-search-distance cdabbrev-start-point] 8 (#$ . 10670)]) (byte-code "\301B\302\303!\207" [current-load-list cmpl-obarray-length (lambda (#1=#:defconst-tmp-var) (defconst cmpl-obarray-length #1#)) 511] 2) #@115 An obarray used to store the downcased completion prefixes. Each symbol is bound to a list of completion entries. (defvar cmpl-prefix-obarray (make-vector cmpl-obarray-length 0) (#$ . 11939)) #@104 An obarray used to store the downcased completions. Each symbol is bound to a single completion entry. (defvar cmpl-obarray (make-vector cmpl-obarray-length 0) (#$ . 12138)) (defalias 'completion-string '(macro . #[(completion-entry) "\301D\207" [completion-entry car] 2])) (defalias 'completion-num-uses '(macro . #[(completion-entry) "\301\302DD\207" [completion-entry car cdr] 3])) (defalias 'completion-last-use-time '(macro . #[(completion-entry) "\301\302E\207" [completion-entry nth 2] 3])) (defalias 'completion-source '(macro . #[(completion-entry) "\301\302E\207" [completion-entry nth 3] 3])) (defalias 'set-completion-string '(macro . #[(completion-entry string) "\302 E\207" [completion-entry string setcar] 3])) (defalias 'set-completion-num-uses '(macro . #[(completion-entry num-uses) "\302\303D E\207" [completion-entry num-uses setcar cdr] 3])) (defalias 'set-completion-last-use-time '(macro . #[(completion-entry last-use-time) "\302\303\211DD E\207" [completion-entry last-use-time setcar cdr] 4])) #@28 Return a completion entry. (defalias 'make-completion #[(string) "\302\303 F\207" [string current-completion-source 0 nil] 4 (#$ . 13171)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias cmpl-prefix-entry-head car cmpl-prefix-entry-tail cdr] 3) (defalias 'set-cmpl-prefix-entry-head '(macro . #[(prefix-entry new-head) "\302 E\207" [prefix-entry new-head setcar] 3])) (defalias 'set-cmpl-prefix-entry-tail '(macro . #[(prefix-entry new-tail) "\302 E\207" [prefix-entry new-tail setcdr] 3])) #@59 Make a new prefix entry containing only completion-entry. (defalias 'make-cmpl-prefix-entry #[(completion-entry-list) "\211B\207" [completion-entry-list] 2 (#$ . 13684)]) #@72 Initialize the completion storage. All existing completions are lost. (defalias 'clear-all-completions #[nil "\303\304\"\303\304\"\305\207" [cmpl-obarray-length cmpl-prefix-obarray cmpl-obarray make-vector 0 nil] 3 (#$ . 13862) nil]) #@52 Return a list of all the known completion entries. (defalias 'list-all-completions #[nil "\302\303\304 \"\210)\207" [completions-list-return-value cmpl-prefix-obarray nil mapatoms list-all-completions-1] 3 (#$ . 14107)]) (defalias 'list-all-completions-1 #[(prefix-symbol) "\302!\205 \303\304J! \"\211\207" [prefix-symbol completions-list-return-value boundp append cmpl-prefix-entry-head] 3]) #@77 Return list of lists of known completion entries, organized by hash bucket. (defalias 'list-all-completions-by-hash-bucket #[nil "\302\303\304 \"\210)\207" [completions-list-return-value cmpl-prefix-obarray nil mapatoms list-all-completions-by-hash-bucket-1] 3 (#$ . 14513)]) (defalias 'list-all-completions-by-hash-bucket-1 #[(prefix-symbol) "\302!\205 \303J! B\211\207" [prefix-symbol completions-list-return-value boundp cmpl-prefix-entry-head] 2]) #@49 Set to a string that is pending its acceptance. (defvar completion-to-accept nil (#$ . 14977)) #@70 Setup by `find-exact-completion', etc. The given string, downcased. (defvar cmpl-db-downcase-string nil (#$ . 15078)) #@93 The interned symbol corresponding to `cmpl-db-downcase-string'. Set up by `cmpl-db-symbol'. (defvar cmpl-db-symbol nil (#$ . 15203)) #@72 The interned prefix symbol corresponding to `cmpl-db-downcase-string'. (defvar cmpl-db-prefix-symbol nil (#$ . 15342)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list cmpl-db-entry default-boundp set-default nil] 3) #@45 Set to t if you want to debug the database. (defvar cmpl-db-debug-p nil (#$ . 15597)) #@104 Return the completion entry for STRING or nil. Sets up `cmpl-db-downcase-string' and `cmpl-db-symbol'. (defalias 'find-exact-completion #[(string) "\304\305\227\211\n\"\211!\205 J\207" [string cmpl-db-downcase-string cmpl-obarray cmpl-db-symbol boundp intern] 4 (#$ . 15690)]) #@182 Return the prefix entry for string. Sets `cmpl-db-prefix-symbol'. Prefix-string must be exactly `completion-prefix-min-length' long and downcased. Sets up `cmpl-db-prefix-symbol'. (defalias 'find-cmpl-prefix-entry #[(prefix-string) "\303\304 \"\211!\205 \nJ\207" [prefix-string cmpl-prefix-obarray cmpl-db-prefix-symbol boundp intern] 4 (#$ . 15979)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list inside-locate-completion-entry default-boundp set-default nil] 3) #@184 Locate the completion entry. Returns a pointer to the element before the completion entry or nil if the completion entry is at the head. Must be called after `find-exact-completion'. (defalias 'locate-completion-entry #[(completion-entry prefix-entry) "\306!\307\211@ =?\205C \n\203\" \nA\211@=\204\" \211\204 \n\206C \f\2031 \310\311 \"\202C \f\203; \312 \202C \307L\210\313 !*\207" [prefix-entry next-prefix-list prefix-list completion-entry cmpl-db-debug-p completion-string cmpl-prefix-entry-head nil error "Completion entry exists but not on prefix list - %s" locate-completion-db-error locate-completion-entry-retry inside-locate-completion-entry cmpl-db-symbol] 4 (#$ . 16489)]) (defalias 'locate-completion-entry-retry #[(old-entry) "\306\307 @ A@\310 8#\210\311 @!\211\205 \312 \313\fO! \n\203, \203, \314\n \"\202. \315 +\207" [inside-locate-completion-entry old-entry cmpl-entry cmpl-db-downcase-string completion-prefix-min-length pref-entry t add-completion 2 find-exact-completion find-cmpl-prefix-entry 0 locate-completion-entry locate-completion-db-error] 6]) (defalias 'locate-completion-db-error #[nil "\300\301!\207" [error "Completion database corrupted. Try M-x clear-all-completions. Send bug report"] 2]) #@303 If STRING is not in the database add it to appropriate prefix list. STRING is added to the end of the appropriate prefix list with num-uses = 0. The database is unchanged if it is there. STRING must be longer than `completion-prefix-min-length'. This must be very fast. Returns the completion entry. (defalias 'add-completion-to-tail-if-new #[(string) "\306!\206/ \307!C\310 \311\nO! \203# \312 !\f\241\210 \f\241\210\202) \313\f!L\210\f\f@L*\207" [string cmpl-db-downcase-string completion-prefix-min-length prefix-entry entry cmpl-db-prefix-symbol find-exact-completion make-completion find-cmpl-prefix-entry 0 cmpl-prefix-entry-tail make-cmpl-prefix-entry cmpl-db-symbol] 5 (#$ . 17741)]) #@341 If COMPLETION-STRING is not in the database, add it to prefix list. We add COMPLETION-STRING to the head of the appropriate prefix list, or to the head of the list. COMPLETION-STRING must be longer than `completion-prefix-min-length'. Updates the saved string with the supplied string. This must be very fast. Returns the completion entry. (defalias 'add-completion-to-head #[(completion-string) "\203 \306 \210\307 !\211\203F \310 \311\fO! \312\n \"\211 A \n \240\210\203C A\241\2047 \241\210\313 !\241\210 \240\210\n+\207\314 !C\310 \311\fO! \203f \313 !\241\210 \240\210\202n \315!L\210@L*\207" [completion-to-accept completion-string cmpl-db-entry cmpl-db-downcase-string completion-prefix-min-length prefix-entry accept-completion find-exact-completion find-cmpl-prefix-entry 0 locate-completion-entry cmpl-prefix-entry-head make-completion make-cmpl-prefix-entry splice-ptr cmpl-ptr entry cmpl-db-prefix-symbol cmpl-db-symbol] 6 (#$ . 18448)]) #@101 Delete the completion from the database. String must be longer than `completion-prefix-min-length'. (defalias 'delete-completion #[(completion-string) "\203 \306 \210\307 !\211\203H \310 \311\fO! \312\n \" \313L\210\2037 \211AA\241\204E \241\210\202E \314 !A\240\204E \313L\210*\313\207\315\316 \"\207" [completion-to-accept completion-string cmpl-db-entry cmpl-db-downcase-string completion-prefix-min-length prefix-entry accept-completion find-exact-completion find-cmpl-prefix-entry 0 locate-completion-entry nil cmpl-prefix-entry-head error "Unknown completion `%s'" splice-ptr cmpl-db-symbol cmpl-db-prefix-symbol] 4 (#$ . 19438)]) (defalias 'interactive-completion-string-reader #[(prompt) "\305 \211\203 \306\307 #\202 \306\310 \"\311\n \" \312\fG!\203& \206% \313\f+C\207" [default prompt new-prompt cmpl-obarray read symbol-under-or-before-point format "%s (default %s): " "%s: " completing-read zerop ""] 5]) (defalias 'check-completion-length #[(string) "G W\203\f \302\303\"\207C\207" [string completion-min-length error "The string `%s' is too short to be saved as a completion"] 3]) #@148 Add STRING to completion list, or move it to head of list. The completion is altered appropriately if NUM-USES and/or LAST-USE-TIME are specified. (defalias 'add-completion #[(string &optional num-uses last-use-time) "\306!\210t\203\f \202 \n\307!\f\203 A\f\240\210 \205$ AA \240*\207" [string cmpl-source-interactive current-completion-source entry num-uses last-use-time check-completion-length add-completion-to-head] 2 (#$ . 20568) (interactive-completion-string-reader "Completion to add")]) #@63 Add STRING if it isn't already listed, and mark it permanent. (defalias 'add-permanent-completion #[(string) "t\203 \202 \303\n\304\305#)\207" [cmpl-source-interactive current-completion-source string add-completion nil t] 4 (#$ . 21080) (interactive-completion-string-reader "Completion to add permanently")]) (defalias 'kill-completion #[(string) "\301!\210\302!\207" [string check-completion-length delete-completion] 2 nil (interactive-completion-string-reader "Completion to kill")]) #@147 Accepts the pending completion in `completion-to-accept'. This bumps num-uses. Called by `add-completion-to-head' and `completion-search-reset'. (defalias 'accept-completion #[nil " \306 \306\307\f!\211A\nA@T\240\210\310\211+\207" [completion-to-accept cmpl-source-cdabbrev entry current-completion-source string cmpl-completions-accepted-p nil add-completion-to-head t] 4 (#$ . 21583)]) #@76 Add the completion symbol underneath the point into the completion buffer. (defalias 'use-completion-under-point #[nil "\205 \304 \211\205 \305 !*\207" [enable-completion cmpl-source-cursor-moves current-completion-source string symbol-under-point add-completion-to-head] 3 (#$ . 21984)]) #@68 Add the completion symbol before point into the completion buffer. (defalias 'use-completion-before-point #[nil "\205 \304 \211\205 \305 !*\207" [enable-completion cmpl-source-cursor-moves current-completion-source string symbol-before-point add-completion-to-head] 3 (#$ . 22285)]) #@68 Add the completion symbol before point into the completion buffer. (defalias 'use-completion-under-or-before-point #[nil "\205 \304 \211\205 \305 !*\207" [enable-completion cmpl-source-cursor-moves current-completion-source string symbol-under-or-before-point add-completion-to-head] 3 (#$ . 22580)]) #@174 Add the completion symbol before point into the completion buffer. Completions added this way will automatically be saved if `completion-on-separator-character' is non-nil. (defalias 'use-completion-before-separator #[nil "\205 \306 \307\211 \205( \310\f! \205( \311\nA@!\205( \nA\312\240\210\313\211\f+\207" [enable-completion cmpl-source-separator entry current-completion-source string completion-on-separator-character symbol-before-point nil add-completion-to-head zerop 1 t cmpl-completions-accepted-p] 4 (#$ . 22894)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\307\"\210\310B\302\310!\204< \303\310\311\"\210\312B\302\312!\204K \303\312\311\"\210\313B\302\313!\204Z \303\313\311\"\210\314B\302\314!\204i \303\314\311\"\210\315B\302\315!\204x \303\315\311\"\210\311\207" [current-load-list cmpl-test-string default-boundp set-default "" cmpl-test-regexp cmpl-last-index 0 cmpl-cdabbrev-reset-p nil cmpl-next-possibilities cmpl-starting-possibilities cmpl-next-possibility cmpl-tried-list] 3) #@108 Set up the for completion searching for STRING. STRING must be longer than `completion-prefix-min-length'. (defalias 'completion-search-reset #[(string) "\203 \306 \210\307\310 \311\nO\227!! \312 !\313P\314 \207" [completion-to-accept string completion-prefix-min-length cmpl-starting-possibilities cmpl-test-string cmpl-test-regexp accept-completion cmpl-prefix-entry-head find-cmpl-prefix-entry 0 regexp-quote "." completion-search-reset-1] 5 (#$ . 23997)]) (defalias 'completion-search-reset-1 #[nil "\306\211\307\306\211\207" [cmpl-starting-possibilities cmpl-next-possibilities cmpl-next-possibility cmpl-cdabbrev-reset-p cmpl-last-index cmpl-tried-list nil -1] 3]) #@163 Return the next completion entry. If INDEX is out of sequence, reset and start from the top. If there are no more entries, try cdabbrev and return only a string. (defalias 'completion-search-next #[(index) " T\211U\203 \305\306!\210\202f \307W\203M \310 \210\311\n!\305\312!\2033 T\211\307W\2033 \312\202 \203f \313U\203B \n\202f \nG GZ\n\233\202f \310 \210\305\306!\203f S\211\307W\204f \312\202R \f\312\207" [index cmpl-last-index cmpl-starting-possibilities cmpl-next-possibilities cmpl-next-possibility completion-search-peek t 0 completion-search-reset-1 reverse nil -1] 3 (#$ . 24686)]) #@276 Return the next completion entry without actually moving the pointers. Calling this again or calling `completion-search-next' results in the same string being returned. Depends on `case-fold-search'. If there are no more entries, try cdabbrev and then return only a string. (defalias 'completion-search-peek #[(use-cdabbrev) "\206@ \203, \306\n @@\"\307=\204 A\211\204 \203, @\211@\227 B A\207\f\205@ \204< \310 \"\210\311\312 \211\207" [cmpl-next-possibility cmpl-next-possibilities cmpl-test-regexp cmpl-tried-list use-cdabbrev cmpl-cdabbrev-reset-p string-match 0 reset-cdabbrev t next-cdabbrev cmpl-test-string] 4 (#$ . 25307)]) #@68 Toggle whether or not to add new words to the completion database. (defalias 'completion-mode #[nil "?\301\302\203 \303\202 \304\"\207" [enable-completion message "Completion mode is now %s." "ON" "OFF"] 3 (#$ . 25964) nil]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\310\"\210\311B\302\311!\204< \303\311\306\"\210\306\207" [current-load-list cmpl-current-index default-boundp set-default 0 cmpl-original-string nil cmpl-last-insert-location -1 cmpl-leave-point-at-start] 3) #@434 Fill out a completion of the word before point. Point is left at end. Consecutive calls rotate through all possibilities. Prefix args :: control-u :: leave the point at the beginning of the completion rather than at the end. a number :: rotate through the possible completions by that amount `-' :: same as -1 (insert previous completion) {See the comments at the top of `completion.el' for more info.} (defalias 'complete #[(&optional arg) " =\203 \n`|\210 \f\206 \306\\\202S \204 \307 \210:\203* \310\311 \202- \312 \313 \211 \204= \314\315\316 \"\210\203F \f\202G \310\317 !\210 |\210!\"Y\205` \320\321 !? #` $\322 ! %\312 &%\203\327 %;\203} %\202\200 %@&\323& \"\211&c\210&' \203\237 `$b\210\202\242 $#\205\373 \324\310!\205\373 \325(!\211%\205\373 %;\203\302 %\202\305 %@&\323& \"&\326\327&\"\202\373 c\210\312'#\203\370 \324\310!\203\370 \326\330 =\203\365 \331\202\366 \332\"\210\314\211,\207" [last-command this-command cmpl-last-insert-location cmpl-current-index arg cmpl-initialized-p 1 completion-initialize 0 t nil symbol-before-point-for-complete failed-complete error "To complete, point must be after a symbol at least %d character long" completion-search-reset window-minibuffer-p selected-window completion-search-next cmpl-merge-string-cases sit-for completion-search-peek message "Next completion: %s" "No %scompletions." "more " "" current-prefix-arg cmpl-leave-point-at-start cmpl-original-string completion-prefix-min-length cmpl-symbol-start cmpl-symbol-end baud-rate completion-prompt-speed-threshold print-status-p insert-point entry string completion-to-accept completion-cdabbrev-prompt-flag] 5 (#$ . 26534) "*p"]) #@66 Parse possible completions from a FILE and add them to database. (defalias 'add-completions-from-file #[(file) "\304!\305!\211\211\204 \306\307!)\310\216r q\210\311 ,\207" [file buffer buffer-already-there-p completions-merging-modes expand-file-name get-file-buffer nil find-file-noselect ((byte-code "\204 \302 !\210\302\207" [buffer-already-there-p buffer kill-buffer] 2)) add-completions-from-buffer] 3 (#$ . 28268) "fFile: "]) (defalias 'add-completions-from-buffer #[nil "\305\211\f\306>\203 \307 \210\310\202' \f\311>\203\" \312 \210\313\202' \314\315\f\"\210+\305\207" [cmpl-source-file-parsing mode start-num current-completion-source major-mode nil (emacs-lisp-mode lisp-mode) add-completions-from-lisp-buffer lisp (c-mode) add-completions-from-c-buffer c error "Cannot parse completions in %s buffers"] 3 nil nil]) (defalias 'completion-find-file-hook #[nil "\205! \303>\203 \304\n>\203 \305 \207 \306>\205! \307\n>\205! \305 \207" [enable-completion major-mode completions-merging-modes (emacs-lisp-mode lisp-mode) lisp add-completions-from-buffer (c-mode) c] 2]) #@46 Add completions from the current tags table. (defalias 'add-completions-from-tags-table #[nil "\301 \210\212eb\210\302\303\304\305\217*\207" [string visit-tags-table-buffer nil e (byte-code "\301\302!\210\303u\210\304 \211\203 \305!\210\306u\210\202 " [string search-forward "" -3 symbol-under-point add-completion-to-tail-if-new 3] 2) ((search-failed))] 3 (#$ . 29372) nil]) #@50 A regexp that searches for Lisp definition form. (defconst *lisp-def-regexp* "\n(\\(\\w*:\\)?def\\(\\w\\|\\s_\\)*\\s +(*" (#$ . 29760)) (defalias 'add-completions-from-lisp-buffer #[nil "\301\212eb\210\302\303\304\217*\207" [string nil e (byte-code "\302!\210\303 \211\203 \304 !\210\202 " [*lisp-def-regexp* string re-search-forward symbol-under-point add-completion-to-tail-if-new] 2) ((search-failed))] 3]) (byte-code "\306B\307\310 \311\312\313 \314\211\315W\203# \316 \317\f#\210 T\211\202 \313 \211 \203? @\316 \320\f#\210A\211\204, *\n\313 \211 \203\\ @\316 \321\f#\210A\211\204I *\316\322\323\f#\210\316\324\325\f#\210\316\326\327\f#\210\316\330\331\f#\210\f,!\207" [current-load-list i separator-chars whitespace-chars table char completion-c-def-syntax-table (lambda (#1=#:defconst-tmp-var) (defconst completion-c-def-syntax-table #1#)) make-syntax-table (32 10 9 12 11 13) (44 42 61 40 59) nil 0 256 modify-syntax-entry "w" "_" " " 91 "(]" 123 "(}" 93 ")[" 125 "){" --dolist-tail--] 6) #@47 A regexp that searches for a definition form. (defconst *c-def-regexp* "\n[_a-zA-Z#]" (#$ . 30793)) (defalias 'add-completions-from-c-buffer #[nil "\303\211\211\212eb\210\304\305\215,\207" [char next-point string nil finish-add-completions (byte-code "\303 p\304\216\305\n!\210\306\307\310\217\210\202 " [#1=#:buffer #2=#:table completion-c-def-syntax-table syntax-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table e (byte-code "\304!\210h\305U\203# \306\307!\203 \310v\203 \311 \211\203 \312 !\210\202 `\n\203 \313\n\314\"\211\203 \nb\210g\211\315U\203H \313`\314\"\211b\210\2025 \316v\210\317 \211\203Y \312 !\210\202m \306\320!\203m \316v\210\317 \211\203m \312 !\210\nb\210 z\321U\203\212 z\321U\203% \313\n\314\"\211f\211\202x \322U\204% \323\211\202& " [*c-def-regexp* string next-point char re-search-forward 35 looking-at "\\(define\\|ifdef\\)\\>" 2 symbol-before-point add-completion-to-tail-if-new scan-sexps 1 42 -1 symbol-under-point "_AP" 40 44 nil] 4) ((search-failed (byte-code "\300\301\302\"\207" [throw finish-add-completions t] 3)) (error (byte-code "A@\301\235\203 \302y\210\202 \303\304!\210\305\306\307\"\210\302\207" [e ("Containing expression ends prematurely" "Unbalanced parentheses") 1 message "Error parsing C buffer for completions--please send bug report" throw finish-add-completions t] 3)))] 3)] 3]) (defalias 'kill-emacs-save-completions #[nil "\203 \203 \n\203 \204 \304\305!\210\202 \306 \210\307\207" [save-completions-flag enable-completion cmpl-initialized-p cmpl-completions-accepted-p message "Completions database has not changed - not writing." save-completions-to-file nil] 2]) (byte-code "\301B\302\303!\210\304B\305\306!\207" [current-load-list completion-version (lambda (#1=#:defconst-tmp-var) (defconst completion-version #1#)) "11" saved-cmpl-file-header (lambda (#2=#:defconst-tmp-var) (defconst saved-cmpl-file-header #2#)) ";;; Completion Initialization file.\n;; Version = %s\n;; Format is (<string> . <last-use-time>)\n;; <string> is the completion\n;; <last-use-time> is the time the completion was last used\n;; If it is t, the completion will never be pruned from the file.\n;; Otherwise it is in hours since origin.\n\n"] 2) (defalias 'completion-backup-filename #[(filename) "\301P\207" [filename ".BAK"] 2]) #@106 Save completions in init file FILENAME. If file name is not specified, use `save-completions-file-name'. (defalias 'save-completions-to-file #[(&optional filename) "\306\206 !\307!\205\327 \n\204 \310 \210\311\312\"\210\313\314 \315 !\316 \"\314\211 # $\314 %\317! &r\320\321!q\210'\322p!\204S \311\323!\210\324\313\"\210\311\325\"\210\326 \210\327 \210\330()\"c\210\331 \315 *\211 +\203\313 +@*#T#\332*8\211!\313=\203\213 $T\211$\204\261 *A@\314V\203\234 \"\211!\202\256 !\203\302 ,\203\261 \"!Z,W\203\302 %T%\333*@!B!\334\261\210+A\211+\204l *\335\336\337\217\210\315-.\n\315\207" [filename save-completions-file-name cmpl-initialized-p delete-old-versions kept-old-versions completions-file-versions-kept expand-file-name file-writable-p completion-initialize message "Saving completions to file %s" t 0 nil cmpl-hours-since-origin completion-backup-filename get-buffer-create " *completion-save-buffer*" verify-visited-file-modtime "Completion file has changed. Merging. . ." load-completions-from-file "Merging finished. Saving completions to file %s" clear-visited-file-modtime erase-buffer format list-all-completions 2 prin1-to-string "\n" e (byte-code "\301!\211\203 \301\n!\204 \303\n\"\210\304\n\305#\210\306 \210 \203$ \307\n!\210)\301\207" [filename file-exists-p backup-filename rename-file copy-file t save-buffer delete-file] 5) ((error (byte-code "\301\302!\210\303\304\"\207" [filename set-buffer-modified-p nil message "Couldn't save completion file `%s'"] 3))) kept-new-versions last-use-time current-time total-in-db total-perm total-saved backup-filename buffer-file-name saved-cmpl-file-header completion-version completion --dolist-tail-- save-completions-retention-time cmpl-completions-accepted-p] 4 (#$ . 33162) nil]) #@104 Load a completion init file FILENAME. If file is not specified, then use `save-completions-file-name'. (defalias 'load-completions-from-file #[(&optional filename no-message-p) "\306\206 !\307!\310\n!\211\203 \n\310!\205s \f\204. \311\312 \203* \313\202+ \314#\210r\315\316!q\210\317 \210\320 \210\321p\321\211\211\211\211\321\322\211 ! \" #\323\324\325\217\210#\203p eb\210\323\326\327\217\210.\f\321*\207" [filename save-completions-file-name backup-filename backup-readable-p no-message-p buffer-file-name expand-file-name completion-backup-filename file-readable-p message "Loading completions from %sfile %s . . ." "backup " "" get-buffer-create " *completion-save-buffer*" clear-visited-file-modtime erase-buffer nil 0 e (byte-code "\302\303\"\210\303\302\207" [filename insert-okay-p insert-file-contents t] 3) ((file-error (message "File error trying to load completion file %s." filename))) (byte-code "\306!\nT :\203k @\211;\203k A\211\307=\203& T\310\211\2025 \f\310=\2033 T\211\2025 \f\250\203k \311\312 !\2118\f\310=\204a \f\313V\203 \310=\204 \203a \fV\203 AA\f\240\210\202 \314\315\316 !\"\210\317\320!\210\202 " [buffer entry total-in-file string last-use-time total-perm read T t 2 add-completion-to-tail-if-new 1000 message "Error: invalid saved completion - %s" prin1-to-string search-forward "\n(" cmpl-entry cmpl-last-use-time] 4) ((search-failed (message "End of file while reading completions.")) (end-of-file (byte-code "`dU\203 \204 \302\303 \"\210\202 \302\304!\210\302\207" [no-message-p filename message "Loading completions from file %s . . . Done." "End of file while reading completions."] 3))) cmpl-source-init-file total-perm total-in-file start-num current-completion-source cmpl-last-use-time cmpl-entry last-use-time entry string buffer insert-okay-p] 12 (#$ . 34966) nil]) #@105 Load the default completions file. Also sets up so that exiting Emacs will automatically save the file. (defalias 'completion-initialize #[nil "?\205 \301 \210\302\211\207" [cmpl-initialized-p load-completions-from-file t] 2 (#$ . 36850) nil]) #@622 Kill between point and mark. The text is deleted but saved in the kill ring. The command \[yank] can retrieve it from there. /(If you want to kill and then yank immediately, use \[copy-region-as-kill].) This is the primitive for programs to kill text (as opposed to deleting it). Supply two arguments, character positions indicating the stretch of text to be killed. Any command that calls this function is a "kill command". If the previous command was also a kill command, the text killed this time appends to the text killed last time to make one entry in the kill ring. Patched to remove the most recent completion. (defalias 'completion-kill-region #[(&optional beg end) "\306=\203 ` |\210\nc\210\307\211\207\310\f \"\207" [last-command cmpl-last-insert-location cmpl-original-string completion-to-accept beg end complete nil kill-region] 4 (#$ . 37104) "r"]) (defalias 'completion-separator-self-insert-command #[(arg) "\301\302!\203\f \301\302!!\207\303 \210\302!\207" [arg command-remapping self-insert-command use-completion-before-separator] 2 nil "p"]) (defalias 'completion-separator-self-insert-autofilling #[(arg) "\302\303!\203\f \302\303!!\207\304 \210\303!\210 \205 \207" [arg auto-fill-function command-remapping self-insert-command use-completion-before-separator] 2 nil "p"]) #@145 Add a call to update the completion database before function execution. TYPE is the type of the wrapper to be added. Can be :before or :under. (defalias 'completion-def-wrapper #[(function-name type) "\302\303 \304\236A#\207" [function-name type put completion-function ((:separator . use-completion-before-separator) (:before . use-completion-before-point) (:backward-under . use-completion-backward-under) (:backward . use-completion-backward) (:under . use-completion-under-point) (:under-or-before . use-completion-under-or-before-point) (:minibuffer-separator . use-completion-minibuffer-separator))] 5 (#$ . 38418)]) (defalias 'use-completion-minibuffer-separator #[nil "\302 )\207" [completion-standard-syntax-table completion-syntax-table use-completion-before-separator] 1]) (defalias 'use-completion-backward-under #[nil "\301 \210\210\302\207" [last-command use-completion-under-point nil] 1]) (defalias 'use-completion-backward #[nil "\210\301\207" [last-command nil] 1]) (defalias 'completion-before-command #[nil "9\203 \301N\206\f \302 \207" [this-command completion-function use-completion-under-or-before-point] 2]) (byte-code "\306B\307\310 !\311\n\312 \211 \203# @\313\f\314 #\210 A\211\204 * *!\207" [current-load-list completion-standard-syntax-table symbol-chars table char --dolist-tail-- completion-lisp-syntax-table (lambda (#1=#:defconst-tmp-var) (defconst completion-lisp-syntax-table #1#)) copy-syntax-table (33 38 63 61 94) nil modify-syntax-entry "_"] 6) (defalias 'completion-lisp-mode-hook #[nil "\302\303\304\"\210\302\305\304\"\210\302\306\304\"\210\302\307\304\"\210\302\310\304\"\210\302\311\304\"\207" [completion-lisp-syntax-table completion-syntax-table local-set-key "!" self-insert-command "&" "%" "?" "=" "^"] 3]) (byte-code "\306B\307\310 !\311\n\312 \211 \203# @\313\f\314 #\210 A\211\204 * *!\210\315\316\317\"\207" [current-load-list completion-standard-syntax-table separator-chars table char --dolist-tail-- completion-c-syntax-table (lambda (#1=#:defconst-tmp-var) (defconst completion-c-syntax-table #1#)) copy-syntax-table (43 42 47 58 37) nil modify-syntax-entry " " completion-def-wrapper electric-c-semi :separator] 6) (defalias 'completion-c-mode-hook #[nil "\302\303\304\"\210\302\305\304\"\210\302\306\304\"\207" [completion-c-syntax-table completion-syntax-table local-set-key "+" completion-separator-self-insert-command "*" "/"] 3]) (byte-code "\306B\307\310 !\311\n\312 \211 \203# @\313\f\314 #\210 A\211\204 * *!\207" [current-load-list completion-standard-syntax-table separator-chars table char --dolist-tail-- completion-fortran-syntax-table (lambda (#1=#:defconst-tmp-var) (defconst completion-fortran-syntax-table #1#)) copy-syntax-table (43 45 42 47 58) nil modify-syntax-entry " "] 6) (defalias 'completion-setup-fortran-mode #[nil "\302\303\304\"\210\302\305\304\"\210\302\306\304\"\210\302\307\304\"\207" [completion-fortran-syntax-table completion-syntax-table local-set-key "+" completion-separator-self-insert-command "-" "*" "/"] 3]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list completion-saved-bindings default-boundp set-default nil] 3) #@290 Non-nil if Dynamic-Completion mode is enabled. See the command `dynamic-completion-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 `dynamic-completion-mode'. (custom-declare-variable 'dynamic-completion-mode 'nil '(#$ . 41615) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'dynamic-completion :type 'boolean) #@33 Enable dynamic word-completion. (defalias 'dynamic-completion-mode #[(&optional arg) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315\316 \317\320#\210\321\315 \211 \203V @\n\203H \322\f@\fA\"\210\202O \323\f@\fA\"\210 A\211\2047 *\"\203r \"\211A\"@ #\324#@#A\"\210)\202W \n\203\252 \325\315 #\211 $\203\246 $@\211#@\326%#@\"B\"B\"\324#@#A\"\210$A\211$\204\200 *\327 \210\330\331\n\203\264 \332\202\265 \333\"\210\334 \203\331 \335\302!\210\306 \203\314 \306 \232\203\331 \313\336\n\203\326 \337\202\327 \340\"\210)\341 \210\n\207" [#1=#:last-message arg dynamic-completion-mode function-key-map x #2=#:--cl-dolist-temp-- current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil define-key [C-return] [67108877] ((find-file-hook . completion-find-file-hook) (pre-command-hook . completion-before-command) (kill-emacs-hook . kill-emacs-save-completions) (lisp-mode-hook . completion-lisp-mode-hook) (c-mode-hook . completion-c-mode-hook) (fortran-mode-hook . completion-setup-fortran-mode)) add-hook remove-hook global-set-key (("\215" . complete) ([67108877] . complete) ([remap kill-region] . completion-kill-region) (" " . completion-separator-self-insert-autofilling) ("!" . completion-separator-self-insert-command) ("%" . completion-separator-self-insert-command) ("^" . completion-separator-self-insert-command) ("&" . completion-separator-self-insert-command) ("(" . completion-separator-self-insert-command) (")" . completion-separator-self-insert-command) ("=" . completion-separator-self-insert-command) ("`" . completion-separator-self-insert-command) ("|" . completion-separator-self-insert-command) ("{" . completion-separator-self-insert-command) ("}" . completion-separator-self-insert-command) ("[" . completion-separator-self-insert-command) ("]" . completion-separator-self-insert-command) (";" . completion-separator-self-insert-command) ("\"" . completion-separator-self-insert-command) ("'" . completion-separator-self-insert-command) ("#" . completion-separator-self-insert-command) ("," . completion-separator-self-insert-command) ("?" . completion-separator-self-insert-command) ("." . completion-separator-self-insert-command) (":" . completion-separator-self-insert-command)) lookup-key completion-initialize run-hooks dynamic-completion-mode-hook dynamic-completion-mode-on-hook dynamic-completion-mode-off-hook called-interactively-p customize-mark-as-set "Dynamic-Completion mode %sabled" "en" "dis" force-mode-line-update completion-saved-bindings binding #3=#:--cl-dolist-temp-- global-map] 5 (#$ . 42089) (list (or current-prefix-arg 'toggle))]) (byte-code "\302\303\304\305\306!\205 \306J#\210\307\310\311\"\210\307\312\311\"\210\307\313\311\"\210\307\314\315\"\210\307\316\311\"\210\307\317\311\"\210\307\320\321\"\210\307\322\321\"\210\307\323\321\"\210\307\324\321\"\210\307\325\321\"\210\307\326\321\"\210\307\327\321\"\210\307\330\321\"\210\307\331\321\"\210\307\332\333\"\210\307\334\333\"\210\307\335\333\"\210\307\336\337\"\210\307\340\337\"\210\341\342\343\"\210\344\345\346\"\210\347\304\211\203\222 @\350\351\"\210 A\211\204\203 *\352\353!\207" [x #:--cl-dolist-temp-- add-minor-mode dynamic-completion-mode nil boundp dynamic-completion-mode-map completion-def-wrapper newline :separator newline-and-indent comint-send-input exit-minibuffer :minibuffer-separator eval-print-last-sexp eval-last-sexp next-line :under-or-before previous-line beginning-of-buffer end-of-buffer beginning-of-line end-of-line forward-char forward-word forward-sexp backward-char :backward-under backward-word backward-sexp delete-backward-char :backward delete-backward-char-untabify defvaralias cmpl-syntax-table completion-syntax-table defalias initialize-completions completion-initialize ("^To complete, the point must be after a symbol at least [0-9]* character long\\.$" "^The string \".*\" is too short to be saved as a completion\\.$") add-to-list debug-ignored-errors provide completion] 5)
Close
