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 : minibuffer.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:21 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/minibuffer.el ;;; in Emacs version 23.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`minibuffer.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@527 Return the boundaries of the completions returned by TABLE for STRING. STRING is the string on which completion will be performed. SUFFIX is the string after point. The result is of the form (START . END) where START is the position in STRING of the beginning of the completion field and END is the position in SUFFIX of the end of the completion field. E.g. for simple completion tables, the result is always (0 . (length SUFFIX)) and for file names the result is the positions delimited by the closest directory separators. (defalias 'completion-boundaries #[(string table pred suffix) "\306!\205 \n\304 B#\211 \242\304=\204 \307\f\211 A@)\206! \310\f\211 AA)\206, G)B\207" [table string pred suffix boundaries x functionp nil 0] 6 (#$ . 610)]) #@101 Apply FUN to each element of XS in turn. Return the first non-nil returned value. Like CL's `some'. (defalias 'completion--some #[(fun xs) "\303\211\204 \n\203 \304\305\306\217\210\202 \206\" \205\" \307 @ A\"*\207" [res firsterror xs nil err (byte-code " \211A@!\303\207" [fun xs res nil] 3) ((error (byte-code "\204 \302\207" [firsterror err nil] 1))) signal] 3 (#$ . 1371)]) #@198 Perform completion ACTION. STRING is the string to complete. TABLE is the completion table, which should not be a function. PRED is a completion predicate. ACTION can be one of nil, t or `lambda'. (defalias 'complete-with-action #[(action table string pred) "\304!\203\f \n #\207 \242\305=\203 \305\306 \n A$B\207 \204% \307\2020 \310=\203/ \311\2020 \312 \n#\207" [table string pred action functionp boundaries completion-boundaries try-completion t all-completions test-completion] 6 (#$ . 1771)]) #@629 Use function FUN as a dynamic completion table. FUN is called with one argument, the string for which completion is required, and it should return an alist containing all the intended possible completions. This alist may be a full list of possible completions so that FUN can ignore the value of its argument. If completion is performed in the minibuffer, FUN will be called in the buffer from which the minibuffer was entered. The result of the `completion-table-dynamic' form is a function that can be used as the COLLECTION argument to `try-completion' and `all-completions'. See Info node `(elisp)Programmed Completion'. (defalias 'completion-table-dynamic #[(fun) "\302\303!\211 L\210\304\305\306\307\310D\311FE)\207" [#1=#:--cl-fun-- fun make-symbol "--fun--" lambda (&rest --cl-rest--) apply #[(#2=#:G31302 string pred action) "r\305 \306!\203 \307!\202 p)q\210\310 \nJ ! \f$)\207" [win action #2# string pred minibuffer-selected-window window-live-p window-buffer complete-with-action] 5] quote --cl-rest--] 7 (#$ . 2285)])(if macro-declaration-function (funcall macro-declaration-function (quote lazy-completion-table) (quote (declare (debug (symbolp lambda-expr)))))) #@551 Initialize variable VAR as a lazy completion table. If the completion table VAR is used for the first time (e.g., by passing VAR as an argument to `try-completion'), the function FUN is called with no arguments. FUN must return the completion table that will be stored in VAR. If completion is requested in the minibuffer, FUN will be called in the buffer from which the minibuffer was entered. The return value of `lazy-completion-table' must be used to initialize the value of VAR. You should give VAR a non-nil `risky-local-variable' property. (defalias 'lazy-completion-table '(macro . #[(var fun) "\303\304!\305\306C\307\310 D\311 \nCEE F)D\207" [str var fun make-symbol "string" completion-table-dynamic lambda when functionp setq] 8 (#$ . 3480)])) (defalias 'completion-table-with-context #[(prefix table string pred action) "\306!\203S \307\310!\211L\210\311\n!\203! \312\313\314\315\316 D\317FE\202Q \320\n!\2034 \312\313\314\321\316 D\317FE\202Q \306\n!\203G \312\313\314\322\316 D\317FE\202Q \312\313\314\323\316 D\317FE) \242\324=\203t \fG \325\n A$ \324@ \\A*BB\207\326 \n$\211 ;\203\211 \fP\202\213 )\207" [pred #1=#:--cl-pred-- table action prefix len functionp make-symbol "--pred--" vectorp lambda (&rest --cl-rest--) apply #[(#2=#:G31303 sym) "J \303\n!P!\207" [#2# prefix sym symbol-name] 4] quote --cl-rest-- hash-table-p #[(#3=#:G31304 s v) "J \nP!\207" [#3# prefix s] 3] #[(#4=#:G31305 s) "J \nP!\207" [#4# prefix s] 3] #[(#5=#:G31306 s) "J \n:\203 \n@\202 \nP!\207" [#5# prefix s] 3] boundaries completion-boundaries complete-with-action string bound comp] 7]) (defalias 'completion-table-with-terminator #[(terminator table string pred action) "\306=\2030 \307 \n #\211 \310=\203 P\202. \f;\203- \307\f\n #\310=\203- \f P\202. \f)\207\310=\203< \311 \n #\207\312=\205C \306\207" [action string table pred comp terminator nil try-completion t all-completions lambda] 5]) #@582 Make a completion table equivalent to TABLE but filtered through PRED1. PRED1 is a function of one argument which returns non-nil if and only if the argument is an element of TABLE which should be considered for completion. STRING, PRED2, and ACTION are the usual arguments to completion tables, as described in `try-completion', `all-completions', and `test-completion'. If STRICT is t, the predicate always applies; if nil it only applies if it does not reduce the set of possible completions to nothing. Note: TABLE needs to be a proper completion table which obeys predicates. (defalias 'completion-table-with-predicate #[(table pred1 strict string pred2 action) "\204 \306=\203 \307\n \f#\207\310 \n\f\204 \202@ \311\312!\311\313! \211 \fL\210\fL\210\306\314\315\316\317D\317D\320\257E*$\206O ?\205O \310 \n\f$\207" [strict action string table pred2 pred1 lambda test-completion complete-with-action make-symbol "--pred1--" "--pred2--" (&rest --cl-rest--) apply #[(#1=#:G31307 #2=#:G31308 x) "J !\205 \nJ !\207" [#2# x #1#] 2] quote --cl-rest-- #3=#:--cl-pred2-- #4=#:--cl-pred1--] 12 (#$ . 5418)]) #@68 Create a completion table that tries each table in TABLES in turn. (defalias 'completion-table-in-turn #[(&rest tables) "\302\303!\211 L\210\304\305\306\307\310D\311FE)\207" [#1=#:--cl-tables-- tables make-symbol "--tables--" lambda (&rest --cl-rest--) apply #[(#2=#:G31309 string pred action) "\301\302J\"\207" [#2# completion--some #[(table) "\304 \n $\207" [action table string pred complete-with-action] 5]] 3] quote --cl-rest--] 7 (#$ . 6548)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\210\310\311\303\312\313\314\315\316&\207" [defalias complete-in-turn completion-table-in-turn nil make-obsolete "23.1" dynamic-completion-table completion-table-dynamic custom-declare-group minibuffer "Controlling the behavior of the minibuffer." :link (custom-manual "(emacs)Minibuffer") :group environment] 8) #@297 Temporarily display MESSAGE at the end of the minibuffer. The text is displayed for `minibuffer-message-timeout' seconds, or until the next input event arrives, whichever comes first. Enclose MESSAGE in [...] if this is not yet the case. If ARGS are provided, then pass MESSAGE through `format'. (defalias 'minibuffer-message #[(message &rest args) "\301\306!\210\204 \307 \306 \310 \311\f \n#,\203 \312 !\202# \313 \314Q\203. \315\316 #\317dd\306\310\211%\310 \320\216\321 G!\204K \322\323\324\325\310 %\210\326\327 #\210\330 \206Y \331!+\207" [args message start string regexp inhibit-changing-match-data nil "\\` *\\[.+\\]\\'" t string-match copy-sequence " [" "]" apply format make-overlay ((delete-overlay ol)) zerop put-text-property 0 1 cursor overlay-put after-string sit-for 1000000 inhibit-quit ol minibuffer-message-timeout] 6 (#$ . 7415)]) #@110 Return the user input in a minibuffer before point as a string. That is what completion commands operate on. (defalias 'minibuffer-completion-contents #[nil "\300 `{\207" [field-beginning] 2 (#$ . 8289)]) #@110 Delete all user input in a minibuffer. If the current buffer is not a minibuffer, erase its entire contents. (defalias 'delete-minibuffer-contents #[nil "\300 d|\207" [minibuffer-prompt-end] 2 (#$ . 8501)]) #@292 Non-nil means automatically provide help for invalid completion input. If the value is t the *Completion* buffer is displayed whenever completion is requested but cannot be done. If the value is `lazy', the *Completions* buffer is only displayed after the second failed attempt to complete. (custom-declare-variable 'completion-auto-help 't '(#$ . 8715) :type '(choice (const nil) (const t) (const lazy)) :group 'minibuffer) #@290 List of available completion styles. Each element has the form (NAME TRY-COMPLETION ALL-COMPLETIONS) where NAME is the name that should be used in `completion-styles', TRY-COMPLETION is the function that does the completion, and ALL-COMPLETIONS is the function that lists the completions. (defvar completion-styles-alist '((basic completion-basic-try-completion completion-basic-all-completions) (emacs22 completion-emacs22-try-completion completion-emacs22-all-completions) (emacs21 completion-emacs21-try-completion completion-emacs21-all-completions) (partial-completion completion-pcm-try-completion completion-pcm-all-completions)) (#$ . 9147)) #@35 List of completion styles to use. (custom-declare-variable 'completion-styles ''(basic partial-completion emacs22) '(#$ . 9803) :type (byte-code "\301\302\303\304\"BD\207" [completion-styles-alist repeat choice mapcar #[(x) "\301@D\207" [x const] 2]] 5) :group 'minibuffer :version "23.1") #@407 Try to complete STRING using completion table TABLE. Only the elements of table that satisfy predicate PRED are considered. POINT is the position of point within STRING. The return value can be either nil to indicate that there is no completion, t to indicate that STRING is the only possible completion, or a pair (STRING . NEWPOINT) of the completed result string together with a new position for point. (defalias 'completion-try-completion #[(string table pred point) "9\203 \304N\203 \n\305 $\207\306\307\f\"\207" [table string pred point completion-styles nil completion--some #[(style) " \236A@\n \f $\207" [style completion-styles-alist string table pred point] 5]] 5 (#$ . 10102)]) #@276 List the possible completions of STRING in completion table TABLE. Only the elements of table that satisfy predicate PRED are considered. POINT is the position of point within STRING. The return value is a list of completions and may contain the base-size in the last `cdr'. (defalias 'completion-all-completions #[(string table pred point) "9\203 \304N\203 \n\305 $\207\306\307\f\"\207" [table string pred point completion-styles t completion--some #[(style) "\306 \2368\n \f $\207" [style completion-styles-alist string table pred point 2] 5]] 5 (#$ . 10806)]) (defalias 'minibuffer--bitset #[(modified completions exact) "\303\203 \304\202\n \305 \203 \306\202 \305\n\203 \307\202 \305#\207" [modified completions exact logior 4 0 2 1] 4]) #@477 Do the completion and return a summary of what happened. M = completion was performed, the text was Modified. C = there were available Completions. E = after completion we now have an Exact match. MCE 000 0 no possible completion 001 1 was already an exact and unique completion 010 2 no completion happened 011 3 was already an exact completion 100 4 ??? impossible 101 5 ??? impossible 110 6 some completion happened 111 7 completed to an exact completion (defalias 'completion--do-completion #[(&optional try-completion-function) "\306 \307 { \206 \310\n\f `Z$\211 \204+ \311 \210\312\313!\210\314\315\211\211#\202\324 \316=\203: \314\315\211\316#\202\324 A @ \317\315\211\n\315\211\316&\316=? \317\315\211\n\315\211\211&\316=\211 \204r b\210c\210 |\210\\b\210\204\210 \204\210 \320 !\202\323 \321\f # \204\313 \204\273 \322=\203\251 =\202\253 \203\264 \323 \210\202\313 \312\324!\210\202\313 =\203\313 \203\313 \323 \210\314\316#),,\207" [beg end string try-completion-function minibuffer-completion-table minibuffer-completion-predicate field-beginning field-end completion-try-completion ding minibuffer-message "No match" minibuffer--bitset nil t compare-strings completion--do-completion test-completion lazy minibuffer-completion-help "Next char not unique" comp comp-pos completion completed unchanged exact completion-auto-help this-command last-command] 9 (#$ . 11569)]) #@283 Complete the minibuffer contents as far as possible. Return nil if there is no valid completion, else t. If no characters can be completed, display a list of possible completions. If you repeat this command after it displayed such a list, scroll the window of possible completions. (defalias 'minibuffer-complete #[nil " =\204 \305\n\306 !\203. r\307 !q\210\310d \"\203& \311 e\305#\210\202) \312 \210)\305\202a \313 \211 \314=\203; \305\202` \f\315=\203M \316 b\210\317\320!\210\321\202` \f\322=\203_ \316 b\210\317\323!\210\321\202` \321))\207" [this-command last-command minibuffer-scroll-window window #1=#:--cl-var-- nil window-live-p window-buffer pos-visible-in-window-p set-window-start scroll-other-window completion--do-completion 0 1 field-end minibuffer-message "Sole completion" t 3 "Complete, but not unique"] 5 (#$ . 13037) nil]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list completion-all-sorted-completions default-boundp set-default nil make-variable-buffer-local] 3) (defalias 'completion--flush-all-sorted-completions #[(&rest ignore) "\301\211\207" [completion-all-sorted-completions nil] 2]) (defalias 'completion-all-sorted-completions #[nil "\206J \306 \307 \310 \n{ \f` Z$ \311 !\211 A\206 \312 \205I \313\241\210\314 \315\"J \314 \316\")\317\320\321\313\322$\210 \244\211-\207" [completion-all-sorted-completions start end minibuffer-completion-table minibuffer-completion-predicate all field-beginning field-end completion-all-completions last 0 nil sort #[(c1 c2) "G GW\207" [c1 c2] 2] #[(c1 c2) " \235G\n \235GV\207" [c1 hist c2] 3] add-hook after-change-functions completion--flush-all-sorted-completions t base-size minibuffer-history-variable hist] 7]) #@97 Complete the minibuffer to an exact match. Repeated uses step through the possible completions. (defalias 'minibuffer-force-complete #[nil "\304 \305 \303 \211:\204 \306\n\203 \307\202 \310!\2020 b\210\n@c\210\311\n!A\\ |\210\nA\211+\207" [start end all completion-all-sorted-completions field-beginning field-end minibuffer-message "No more completions" "No completions" last] 4 (#$ . 14794) nil]) #@119 A list of commands which cause an immediately following `minibuffer-complete-and-exit' to ask for extra confirmation. (defvar minibuffer-confirm-exit-commands '(minibuffer-complete minibuffer-complete-word PC-complete PC-complete-word) (#$ . 15209)) #@574 Exit if the minibuffer contains a valid completion. Otherwise, try to complete the minibuffer contents. If completion leads to a valid completion, a repetition of this command will exit. If `minibuffer-completion-confirm' is `confirm', do not try to complete; instead, ask for confirmation and accept any input if confirmed. If `minibuffer-completion-confirm' is `confirm-after-completion', do not try to complete; instead, ask for confirmation if the preceding minibuffer command was a member of `minibuffer-confirm-exit-commands', and accept the input otherwise. (defalias 'minibuffer-complete-and-exit #[nil "\306 \307 \211U\203 \310 \202\257 \311 {\n #\203I \f\203D { \312 \n #\211 ;\203C GGU\203C b\210c\210 |\210*\310 \202\257 \313=\203e =\203] \310 \202\257 \314\315!\210\316\202\257 \317=\203\201 >\203| \314\315!\210\316\202\257 \310 \202\257 \316\320\321\217 \322\323\"\203\224 \310 \202\256 \324=\203\255 \204\245 \310 \202\256 \314\315!\210\316\202\256 \316)*\207" [end beg minibuffer-completion-table minibuffer-completion-predicate completion-ignore-case string field-beginning field-end exit-minibuffer test-completion try-completion confirm minibuffer-message "Confirm" nil confirm-after-completion (completion--do-completion) ((error 1)) memql (1 3) 7 compl minibuffer-completion-confirm last-command this-command minibuffer-confirm-exit-commands #1=#:--cl-var--] 5 (#$ . 15466) nil]) (defalias 'completion--try-word-completion #[(string table predicate point) "\306 \n $\211 :\204 \f\202\372 G\f@GU\203U \307\310\311\"\312 O \313O\313 \203M :\204M \306\211A@Q \n T$\202- :\203T ,\fA \f@ \312 O\211 \314 Q \315\316 \"\203\364 \317\320\" \312\225\313O \313O \315\321\314 Q\"\205\230 \317\320\"\211 \204\246 \322G!\203\363 \315\323\324 !\325 \203\271 \324 !\202\272 \326R \"\203\363 \320\225=\203\363 \315\327 \320\224#\203\363 \312\225V\203\363 \312\225 ! \312!O \313OP !), ,B)\207" [string table predicate point comp tem completion-try-completion mapcar #[(str) "\301\302\303#\207" [str propertize completion-try-word t] 4] (" " "-") 0 nil "\n" string-match "\\(.+\\)\n.*?\\1" match-string 1 "\\`\\(.+\\).*\n.*\\1" zerop ".*" regexp-quote "\\(.*?\\)" "\\'" "\\W" after before exts comppoint completion combined prefix rem suffix cutpos] 7]) #@234 Complete the minibuffer contents at most a single word. After one word is completed as much as possible, a space or hyphen is added, provided that matches some possible completion. Return nil if there is no valid completion, else t. (defalias 'minibuffer-complete-word #[nil "\301\302!\211\303=\203 \304\2023 \305=\203 \306 b\210\307\310!\210\311\2023 \312=\2032 \306 b\210\307\313!\210\311\2023 \311)\207" [#1=#:--cl-var-- completion--do-completion completion--try-word-completion 0 nil 1 field-end minibuffer-message "Sole completion" t 3 "Complete, but not unique"] 3 (#$ . 17845) nil]) #@148 Insert a list of STRINGS into the current buffer. Uses columns to keep the listing readable but compact. It also eliminates runs of equal strings. (defalias 'completion--insert-strings #[(strings) ":\205\342 \306\307\310\311\"\"\312p\313\"\211\203 \314\n!S\202 \315\316 \316 \\\245]\317G\316\245]^ \f\245 \313 \320 \320 \211 \203\337 @ \232\204\326 :\203l \321 @!\321 \211 A@)!\\\202p \321 !n\204\231 ] \\W\203\211 \322c\210\313 \202\231 \323c\210\324`S`\325\326\327 ED#\210 :\204\255 \330` c\210`\331\332$\210\202\312 \330` @c\210`\331\332$\210\330` \211 A@)c\210`\331\320$\210 \333 \"_\\ ) A\211 \204B . \320\207" [strings length window wwidth columns colwidth apply max mapcar #[(s) ":\203 \302@!\302\211A@)!\\\207\302!\207" [s x string-width] 4] get-buffer-window 0 window-width 79 2 1 nil string-width "\n" " " set-text-properties display space :align-to put-text-property mouse-face highlight ceiling column laststring str #1=#:--cl-dolist-temp-- x] 9 (#$ . 18447)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301\304\306#\207" [current-load-list completion-common-substring default-boundp set-default nil make-obsolete-variable "23.1"] 4) #@300 Normal hook run at the end of setting up a completion list buffer. When this hook is run, the current buffer is the one in which the command to display the completion list buffer was run. The completion list buffer is available as the value of `standard-output'. See also `display-completion-list'. (defvar completion-setup-hook nil (#$ . 19670)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face completions-first-difference ((t (:inherit bold))) "Face put on the first uncommon character in completions in *Completions* buffer." :group completion completions-common-part ((t (:inherit default))) "Face put on the common prefix substring in completions in *Completions* buffer.\nThe idea of `completions-common-part' is that you can use it to\nmake the common parts less visible than normal, so that the rest\nof the differing parts is, by contrast, slightly highlighted."] 6) (defalias 'completion-hilit-commonality #[(completions prefix-len base-size) "\205 \n\206\n \304Z\305\306\"\n\244)\207" [completions prefix-len base-size com-str-len 0 mapcar #[(elem) ":\203 \303@!AB\211@\202 \303!\211\304\305\n G^\306\307 %\210 G\nV\2033 \304\n\211T\306\310 %\210)\207" [elem str com-str-len copy-sequence put-text-property 0 font-lock-face completions-common-part completions-first-difference] 6]] 3]) #@764 Display the list of completions, COMPLETIONS, using `standard-output'. Each element may be just a symbol or string or may be a list of two strings to be printed as if concatenated. If it is a list of two strings, the first is the actual completion alternative, the second serves as annotation. `standard-output' must be a buffer. The actual completion alternatives, as inserted, are given `mouse-face' properties of `highlight'. At the end, this runs the normal hook `completion-setup-hook'. It can find the completion buffer in `standard-output'. The obsolete optional arg COMMON-SUBSTRING, if non-nil, should be a string specifying a common substring for adding the faces `completions-first-difference' and `completions-common-part' to the completions buffer. (defalias 'display-completion-list #[(completions &optional common-substring) "\203 \306 G\307#\310\n!\204. \311\312!r q\210\313\216p\307 \314 \"\210*\315\316 !\210+\202g p r\nq\210db\210 \204A \317c\210\202f \320c\210\321 ! \322\323!\210A\206Z \324 !\205Z \325\307\241\210)\326 !\210* \327\304!)\210\307\207" [common-substring completions standard-output #1=#:temp-buffer completion-setup-hook mainbuf completion-hilit-commonality nil bufferp generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) display-completion-list princ buffer-string "There are no possible completions of what you have typed." "Possible completions are:\n" last make-local-variable completion-base-size minibufferp 0 completion--insert-strings run-hooks completion-common-substring] 4 (#$ . 21034)]) #@76 Display a list of possible completions of the current minibuffer contents. (defalias 'minibuffer-completion-help #[nil "\306\307!\210\310 \311 \n`\312 Z$\306\313!\210 \203E A:\204& @\232\204E \314\220\304 !\211 A \f\2037 \f\313\241\210\315\316 \317\" \244!*\221\210\202t \320\314!\205O \321\314\322\" \323!\203d \324!\203d \313\325\326\217\210)\327 \210\330 \203q \331\202r \332!\210*\313\207" [string minibuffer-completion-table minibuffer-completion-predicate completions last base-size message "Making completion list..." field-string completion-all-completions field-beginning nil "*Completions*" display-completion-list sort string-lessp get-buffer get-buffer-window 0 window-live-p window-dedicated-p (delete-window window) ((error (byte-code "\301\302!!\207" [window iconify-frame window-frame] 3))) ding minibuffer-message "Sole completion" "No completions" window] 7 (#$ . 22650) nil]) #@37 Terminate this minibuffer argument. (defalias 'exit-minibuffer #[nil "\301\302\303\301\"\207" [deactivate-mark nil throw exit] 3 (#$ . 23563) nil]) #@29 Terminate minibuffer input. (defalias 'self-insert-and-exit #[nil "\301!\203 \302\303!\210\202 \304 \210\305 \207" [last-command-event characterp call-interactively self-insert-command ding exit-minibuffer] 2 (#$ . 23718) nil]) (byte-code "\306\307\305\310#\210\311\307\305\312#\210\313 \314\315#\210\313 \316\317#\210\313 \320\317#\210)\n\313 \321\322#\210\313 \323\324#\210\313 \325\326#\210) \313 \316\327#\210\313 \320\327#\210)\f\313 \323\310#\210) \313 \323\310#\210)\313 \323\317#\210\313 \321\317#\210\313 \325\330#\210)\310\207" [minibuffer-local-map map minibuffer-local-completion-map minibuffer-local-must-match-map minibuffer-local-filename-completion-map minibuffer-local-filename-must-match-map defvaralias minibuffer-local-must-match-filename-map nil make-obsolete-variable "23.1" define-key "" abort-recursive-edit " " exit-minibuffer "\n" " " minibuffer-complete " " minibuffer-complete-word "?" minibuffer-completion-help minibuffer-complete-and-exit self-insert-and-exit minibuffer-local-ns-map] 4) (defalias 'minibuffer--double-dollars #[(str) "\301\302\303#\207" [str replace-regexp-in-string "\\$" "$$"] 4]) (defalias 'completion--make-envvar-table #[nil "\301\302\"\207" [process-environment mapcar #[(enventry) "\305\306\307\310 \311 \n #,O\207" [enventry start string regexp inhibit-changing-match-data 0 "=" nil t string-match] 6]] 3]) (byte-code "\301B\302\303!\207" [current-load-list completion--embedded-envvar-re (lambda (#1=#:defconst-tmp-var) (defconst completion--embedded-envvar-re #1#)) "\\(?:^\\|[^$]\\(?:\\$\\$\\)*\\)$\\([[:alnum:]_]*\\|{\\([^}]*\\)\\)\\'"] 2) (defalias 'completion--embedded-envvar-table #[(string pred action) "\242\306=\203& A\307\n \"\205$ \306\310\224\206 \311\224\307\312 \"\205\" \313\224BB)\207\307\n \"\205Z \310\224\2064 \311\224 \314 \313\fO \fSH\315=\203M \316\317\320 #\321 \f\322O%+\207" [action suffix completion--embedded-envvar-re string beg table boundaries string-match 2 1 "[^[:alnum:]_]" 0 completion--make-envvar-table 123 apply-partially completion-table-with-terminator "}" completion-table-with-context nil prefix pred] 6]) #@62 Internal subroutine for `read-file-name'. Do not call this. (defalias 'completion--file-name-table #[(string pred action) "\306G!\203 \307=\203 \310\207 \242\311=\2032 \312!G\313 A\310\314 \315 \n#, \311\n *BB\207;\203B \316!\310\202D \310\317\320\217 \321 ! \312 !\211 \203e \316 \"\202i \322 ! \204\240 \323 !#\211 \";\203\210 \324 \"P!\202\234 \324 ! \230\203\232 \"\202\234 )\202 \314=\203 \325 \" #!\326>\204\372 \310!\327=\203\301 \330\202\303 ! \" #\310 $\211 %\203\363 %@$$!\203\352 $\"B\"%A\211%\204\326 +\"\237#*#)\202 !\206\n\331 !)-\207" [string action start regexp inhibit-changing-match-data end zerop lambda nil boundaries file-name-directory "/" t string-match expand-file-name (substitute-in-file-name string) ((error string)) file-name-nondirectory file-name-as-directory file-name-completion minibuffer--double-dollars file-name-all-completions (nil file-exists-p) file-directory-p #[(s) "G\211\302V\205 SH\303=)\207" [s len 0 47] 3] file-exists-p pred default-directory dir str name specdir realdir read-file-name-predicate comp all tem #1=#:--cl-dolist-temp--] 6 (#$ . 25866)]) (byte-code "\300\301\302\303\304\"\305#\207" [defalias read-file-name-internal completion-table-in-turn completion--embedded-envvar-table completion--file-name-table "Internal subroutine for `read-file-name'. Do not call this."] 5) #@78 If this is non-nil, `read-file-name' does its work by calling this function. (defvar read-file-name-function nil (#$ . 27291)) #@54 Current predicate used by `read-file-name-internal'. (defvar read-file-name-predicate nil (#$ . 27424)) #@65 Non-nil means when reading a file name completion ignores case. (custom-declare-variable 'read-file-name-completion-ignore-case '(if (memq system-type '(ms-dos windows-nt darwin cygwin)) t nil) '(#$ . 27534) :group 'minibuffer :type 'boolean :version "22.1") #@981 Non-nil means when reading a filename start with default dir in minibuffer. When the initial minibuffer contents show a name of a file or a directory, typing RETURN without editing the initial contents is equivalent to typing the default file name. If this variable is non-nil, the minibuffer contents are always initially non-empty, and typing RETURN without editing will fetch the default name, if one is provided. Note however that this default name is not necessarily the same as initial contents inserted in the minibuffer, if the initial contents is just the default directory. If this variable is nil, the minibuffer often starts out empty. In that case you may have to explicitly fetch the next history element to request the default name; typing RETURN without editing will leave the minibuffer empty. For some commands, exiting with an empty minibuffer has a special meaning, such as making the current buffer visit no file in the case of `set-visited-file-name'. (custom-declare-variable 'insert-default-directory 't '(#$ . 27800) :group 'minibuffer :type 'boolean) #@1887 Read file name, prompting with PROMPT and completing in directory DIR. Value is not expanded---you must call `expand-file-name' yourself. Default name to DEFAULT-FILENAME if user exits the minibuffer with the same non-empty string that was inserted by this function. (If DEFAULT-FILENAME is omitted, the visited file name is used, except that if INITIAL is specified, that combined with DIR is used.) If the user exits with an empty minibuffer, this function returns an empty string. (This can only happen if the user erased the pre-inserted contents or if `insert-default-directory' is nil.) Fourth arg MUSTMATCH can take the following values: - nil means that the user can exit with any input. - t means that the user is not allowed to exit unless the input is (or completes to) an existing file. - `confirm' means that the user can exit with any input, but she needs to confirm her choice if the input is not an existing file. - `confirm-after-completion' means that the user can exit with any input, but she needs to confirm her choice if she called `minibuffer-complete' right before `minibuffer-complete-and-exit' and the input is not an existing file. - anything else behaves like t except that typing RET does not exit if it does non-null completion. Fifth arg INITIAL specifies text to start with. If optional sixth arg PREDICATE is non-nil, possible completions and the resulting file name must satisfy (funcall PREDICATE NAME). DIR should be an absolute directory name. It defaults to the value of `default-directory'. If this command was invoked with the mouse, use a graphical file dialog if `use-dialog-box' is non-nil, and the window system or X toolkit in use provides a file dialog box. For graphical file dialogs, any non-nil value of MUSTMATCH is equivalent to t. See also `read-file-name-completion-ignore-case' and `read-file-name-function'. (defalias 'read-file-name #[(prompt &optional dir default-filename mustmatch initial predicate) "\204 \306!\204 \307!\n\204! \203 \307 \"\202 \f\310!\n\203- \310\n! \203M ;\203M \203G \311 P!\311!GB\202V \311!\202V \205V \311 !\312B ()\203m )*\n+ ,&\202\212-\313,\206v \314\315 . / 0 1\316 \204\272 \317\320!\211 2\321\307!!L\210\315 3\322\323\324\325\3262D\327FE3\330\216\331\3323\"\210\333*\334\315+(\335\n&+\202\353 \336! 4\n\204\322 \3374G!\204\322 4\340!\n\203\333 \307\n\"\313.\341*\n+,\342=%) 5 \2425= 65\n=\2036\204\313.\34355\204\344\345!\210\n\203+5(:\203\"(@\202$(\230\203+\n5\3465!56\203V\3115! 78\203L \3477 A\"\241\210 7\240\210)\202\206.\203\206\3115! 7 :\203p @7\232\204\20578\203\200\3477 \"\202\202 B )5.)\207" [dir default-directory default-filename initial buffer-file-name insert-default-directory file-name-absolute-p expand-file-name abbreviate-file-name minibuffer--double-dollars 0 t file-exists-p nil next-read-file-uses-dialog-p make-symbol "--dir--" file-name-as-directory lambda #1=(&rest --cl-rest--) apply #[(#2=#:G31311) "\302\303\"\210\304\305\306\307\310 D\311FE \207" [#3=#:setup-hook #2# remove-hook minibuffer-setup-hook lambda #1# apply #[(#4=#:G31310) "J\211\207" [#4# default-directory] 2] quote --cl-rest--] 6] quote --cl-rest-- ((byte-code "\301\302\"\207" [#3# remove-hook minibuffer-setup-hook] 3)) add-hook minibuffer-setup-hook completing-read read-file-name-internal file-name-history file-name-nondirectory zerop file-name-directory x-file-dialog file-directory-p "" error "No file name specified" substitute-in-file-name delete insdef read-file-name-function prompt mustmatch predicate read-file-name-completion-ignore-case add-to-history read-file-name-predicate minibuffer-completing-file-name completion-ignore-case #5=#:--cl-dir-- #3# file val replace-in-history val1 history-delete-duplicates] 9 (#$ . 28891)]) #@183 Perform completion on all buffers excluding BUFFER. BUFFER nil or omitted means use the current buffer. Like `internal-complete-buffer', but removes BUFFER from the completion list. (defalias 'internal-complete-buffer-except #[(&optional buffer) "\302\303!\211 ;\203 \202 \304 !L\210\305\306\307\310\311\312\313\314D\315FE\316$)\207" [#1=#:--cl-except-- buffer make-symbol "--except--" buffer-name apply-partially completion-table-with-predicate internal-complete-buffer lambda (&rest --cl-rest--) apply #[(#2=#:G31312 name) ":\203\n @\202 J\232?\207" [name #2#] 2] quote --cl-rest-- nil] 10 (#$ . 32759)]) (defalias 'completion-emacs21-try-completion #[(string table pred point) "\304 \n#\211;\203 \211GB\202 )\207" [string table pred completion try-completion] 5]) (defalias 'completion-emacs21-all-completions #[(string table pred point) "\303\304 \n#G\305 \n\306$@#\207" [string table pred completion-hilit-commonality all-completions completion-boundaries ""] 8]) (defalias 'completion-emacs22-try-completion #[(string table pred point) " \306O\307\310 O\n # \f;\204 \f\202B \311\fG!\204< \f\211GSH\312=\203< \311 G!\204< \310H\312=\203< \313\306O\f P\fGB*\207" [string point table pred completion suffix nil try-completion 0 zerop 47 1] 5]) (defalias 'completion-emacs22-all-completions #[(string table pred point) "\305 O\306\307\n \f# \310\n \f\311$@#)\207" [string point beforepoint table pred 0 completion-hilit-commonality all-completions completion-boundaries ""] 8]) #@140 Merge end of COMPLETION with beginning of SUFFIX. Simple generalization of the "merge trailing /" done in Emacs-22. Return the new suffix. (defalias 'completion--merge-suffix #[(completion point suffix) "\303G!\204# \304\305 \306Q\n#\203# \307\225 G=\203# \307\225\307\224Z\310O\207\207" [suffix completion point zerop string-match "\\(.+\\)\n\\1" "\n" 1 nil] 5 (#$ . 34274)]) (defalias 'completion-basic-try-completion #[(string table pred point) "\306 O \307O\310\n\f $ \311A!\203< \312\n\f #\211 ;\204+ \2028 \313 #PGB)\202 A\307O \n\306@O \314\315\n@\307O\301 \306AOE\" \316\f $ \203t \317!\320$,+\207" [string point beforepoint afterpoint table pred 0 nil completion-boundaries zerop try-completion completion--merge-suffix delete "" completion-pcm--all-completions completion-pcm--filename-try-filter completion-pcm--merge-try bounds completion suffix prefix pattern all minibuffer-completing-file-name] 8]) (defalias 'completion-basic-all-completions #[(string table pred point) "\306 O \307O\310\n\f $ A\307O \n\306 @O \311\312\n @\307O\301 \306 AOE\" \313\f $ \314 @#.\207" [string point beforepoint afterpoint table pred 0 nil completion-boundaries delete "" completion-pcm--all-completions completion-hilit-commonality bounds suffix prefix pattern all] 7]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list completion-pcm--delim-wild-regex default-boundp set-default nil] 3) (defalias 'completion-pcm--prepare-delim-re #[(delims) "\302\303Q\211\207" [delims completion-pcm--delim-wild-regex "[" "*]"] 3]) #@382 A string of characters treated as word delimiters for completion. Some arcane rules: If `]' is in this string, it must come first. If `^' is in this string, it must not come first. If `-' is in this string, it must come first or right after `]'. In other words, if S is this string, then `[S]' must be a valid Emacs regular expression (not containing character ranges like `a-z'). (custom-declare-variable 'completion-pcm-word-delimiters '"-_. " '(#$ . 35909) :set #[(symbol value) "\302 \"\210\303 !\207" [symbol value set-default completion-pcm--prepare-delim-re] 3] :initialize 'custom-initialize-reset :group 'minibuffer :type 'string) (defalias 'completion-pcm--pattern-trivial-p #[(pattern) "@;\205& \304A\305\211\203# @\211\306\235\204 \305 A\211\204 * )\207" [pattern trivial elem #1=#:--cl-dolist-temp-- t nil (point "")] 3]) #@137 Split STRING into a pattern. A pattern is a list where each element is either a string or a symbol chosen among `any', `star', `point'. (defalias 'completion-pcm--string->pattern #[(string &optional point) "\203 GW\203 \306O \307O\310\311 !\312\311\n!#*\207\307\306\211 \313 \314 #,\211\203s \315 \316 #\204s \f OB H\317=\203e \320B T\202m \321B T\202' \322\323 \f\307OB\237\"+\207" [point string suffix prefix p0 p 0 nil append completion-pcm--string->pattern (point) t string-match get-text-property completion-try-word 42 star any delete "" pattern completion-pcm--delim-wild-regex start regexp inhibit-changing-match-data] 5 (#$ . 36763)]) (defalias 'completion-pcm--pattern->regex #[(pattern &optional group) "\302\303\304\305#P\306\307 \"\203 \310\305\311\211 \312%\202 )\207" [pattern re "\\`" mapconcat #[(x) "\302\303\"\203 :\203 >\202 \203 \304\207\305\207\306!\207" [x group memql (star any point) "\\(.*?\\)" ".*?" regexp-quote] 3] "" string-match "\\.\\*\\?\\(?:\\\\[()]\\)*\\(\\.\\*\\?\\)" replace-match t 1] 6]) #@118 Find all completions for PATTERN in TABLE obeying PRED. PATTERN is as returned by `completion-pcm--string->pattern'. (defalias 'completion-pcm--all-completions #[(prefix pattern table pred) "\306!\203 \307 @P\n #\207\310! \fB \307 @;\203) @\202* \311P\n # \312\n!\204; \202{ \313 \313 \211 \203w @\f\313 \314 \315#,\203n BA\211\204I *),\207" [pattern prefix table pred regex completion-ignore-case completion-pcm--pattern-trivial-p all-completions completion-pcm--pattern->regex "" functionp nil t string-match case-fold-search completion-regexp-list compl poss c #1=#:--cl-dolist-temp-- start string regexp inhibit-changing-match-data] 5 (#$ . 37861)]) (defalias 'completion-pcm--hilit-commonality #[(pattern completions) "\205 \305 \306\" \307\310\"*\207" [completions pattern re completion-ignore-case case-fold-search completion-pcm--pattern->regex (point) mapcar #[(str) "\303!\304 \"\204 \305\306 #\210\307\224\206 \310\225\311\310\n\312\313%\210G\nV\2031 \311\n\211T\312\314%\210)\207" [str re pos copy-sequence string-match error "Internal error: %s does not match %s" 1 0 put-text-property font-lock-face completions-common-part completions-first-difference] 6]] 3]) #@247 Find all completions for STRING at POINT in TABLE, satisfying PRED. POINT is a position inside STRING. FILTER is a function applied to the return value, that can be used, e.g. to filter out additional entries (because TABLE migth not obey PRED). (defalias 'completion-pcm--find-all-completions #[(string table pred point &optional filter) "\204 \306 \307\nO \n\310O \311 \f$ \307@O \fA\310O \310 @\nA\\O\n@Z \312 \" \313\314\315\217\211 !\204\234@\307V\203\234\310\316\317\217\204\234 \307\320O \"\321\" \"G%\211 #G\322U\203\203 #\211A#@\202\213 \323\324\310#GD\" $#\211A#@ %#\211A#@ &#@ ' \211GSH\310 ( )%\310\211% *\211 +\203\336 +@*)*\211GSH=\203\325 *%B%+A\211+\204\275 *%\203\200&%@ \307 OQ ,&G%@G\\ -\311, \f$ .A.A=\203.@-=\204N.@-W\204N\f.A\310O ,.@\310O\f\307.AOP,-.@O(\312 ,G.@Z\" %\310 *\211 /\203/@*\325\326\327&*(Q $!\"!\244!/A\211/\204Y-\330$\331\301)!D(\205\221(C $ & .!\204\261 \203\261\323 @ A\"\202\272 ! F. \207" [filter string point beforepoint afterpoint table identity 0 nil completion-boundaries completion-pcm--string->pattern err (byte-code "\305 \n \f$!\207" [filter prefix pattern table pred completion-pcm--all-completions] 6) ((error (byte-code "\204 \302\207" [firsterror err nil] 1))) (try-completion prefix table pred) ((error)) -1 completion-pcm--find-all-completions 4 signal wrong-number-of-arguments mapcar #[(s) " \nQ\207" [submatch between s] 3] completion-pcm--all-completions append any pred bounds prefix suffix firsterror relpoint pattern all substring #1=#:--cl-rest-- subpat suball subprefix subsuffix between sep submatch #2=#:--cl-dolist-temp-- newbeforepoint leftbound newbounds #3=#:--cl-dolist-temp--] 10 (#$ . 39110)]) (defalias 'completion-pcm-all-completions #[(string table pred point) "\306 \n $\211 A\203 \f\211A@\202 \307\310\311\fGD\" \f\211A@ \f\f\211A@ \f\211A@ \f\203? \307\310\311\312\fG\\D\"\210\f\205M \313 \f\" G\244-\207" [string table pred point #1=#:--cl-rest-- pattern completion-pcm--find-all-completions signal wrong-number-of-arguments nil 4 completion-pcm--hilit-commonality all prefix suffix] 6]) #@60 Extract the commonality in STRS, with the help of PATTERN. (defalias 'completion-pcm--merge-completions #[(strs pattern) "A\204 @C\207\306 \307\"\310\f \310 \211 \203j @\311 \"\2040 \312\313 #\210\310\314 \224\203P \315\"BT\211\2028 \316\225\310OB\211\237\nB*A\211\204 +\310 \317 \320\"\310 \211 \203\374 @\211;\203\217 B\202\363 \310 \n\310\211 \211 \203\271 @\211 @B A\nB A\211 \204\236 *\321\322\"\211 \323=\203\316 \322\211 \206\326 \321 \"\323= \322\232\204\346 B \204\362 B+A\211\204{ *+\207" [strs pattern ccs re completion-ignore-case case-fold-search completion-pcm--pattern->regex group nil string-match error "Internal error: %s doesn't match %s" 1 match-string 0 append (any) try-completion "" t str #1=#:--cl-dolist-temp-- i chopped res elem #2=#:--cl-dolist-temp-- comps cc #3=#:--cl-dolist-temp-- prefix unique] 5 (#$ . 41336)]) (defalias 'completion-pcm--pattern->string #[(pattern) "\301\302\303#\207" [pattern mapconcat #[(x) ";\203 \207\301=\203 \302\207\303=\203 \304\207\305=\205 \304\207" [x star "*" any #1="" point] 2] #1#] 4]) #@66 Filter to adjust `all' file completion to the behavior of `try'. (defalias 'completion-pcm--filename-try-filter #[(all) "\205B \306\307\310 !\311Q\306 \211 \203; @\n\f\306 \f \312 \313 \f#,\2044 \f B A\211\204 * \206A *\207" [all completion-ignored-extensions re try f #1=#:--cl-dolist-temp-- nil "\\(?:\\`\\.\\.?/\\|" regexp-opt "\\)\\'" t string-match start string regexp inhibit-changing-match-data] 5 (#$ . 42506)]) (defalias 'completion-pcm--merge-try #[(pattern all prefix suffix) ":\204 \207A:\204 \306 !@\232\203 \307\207\310 \"\311\n>\206* \312\n>\206* \n\306 !G \306\n\237! \313 \f\f#\f \fQ\f G\\,B\207" [all pattern mergedpat pointpat newpos merged completion-pcm--pattern->string t completion-pcm--merge-completions point any completion--merge-suffix suffix prefix] 4]) (defalias 'completion-pcm-try-completion #[(string table pred point) "\306 \n \f\205\n \307%\211 G\310U\203 \211A@\202\" \311\312\313 GD\" \211A@ \211A@ @ \314 $-\207" [string table pred point minibuffer-completing-file-name #1=#:--cl-rest-- completion-pcm--find-all-completions completion-pcm--filename-try-filter 4 signal wrong-number-of-arguments nil completion-pcm--merge-try pattern all prefix suffix] 7]) (provide 'minibuffer)
Close
