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 : ido.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:13 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/ido.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 "`ido.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'ido-fractionp #[(n) "\247\205 \301V\205 \302X\207" [n 0.0 1.0] 2]) (custom-declare-group 'ido nil "Switch between files using substrings." :group 'extensions :group 'convenience :version "22.1" :link '(emacs-commentary-link :tag "Commentary" "ido.el") :link '(emacs-library-link :tag "Lisp File" "ido.el")) #@474 Determines for which functional group (buffer and files) ido behavior should be enabled. The following values are possible: - `buffer': Turn only on ido buffer behavior (switching, killing, displaying...) - `file': Turn only on ido file behavior (finding, writing, inserting...) - `both': Turn on ido buffer and file behavior. - `nil': Turn off any ido switching. Setting this variable directly does not take effect; use either \[customize] or the function `ido-mode'. (custom-declare-variable 'ido-mode 'nil '(#$ . 921) :set #[(symbol value) "\301!\207" [value ido-mode] 2] :initialize 'custom-initialize-default :require 'ido :link '(emacs-commentary-link "ido.el") :set-after '(ido-save-directory-list-file ido-unc-hosts) :type '(choice (const :tag "Turn on only buffer" buffer) (const :tag "Turn on only file" file) (const :tag "Turn on both buffer and file" both) (const :tag "Switch off all" nil)) :group 'ido) #@162 Use ido everywhere for reading file names and directories. Setting this variable directly does not work. Use `customize' or call the function `ido-everywhere'. (custom-declare-variable 'ido-everywhere 'nil '(#$ . 1850) :set #[(symbol value) "\301\203 \302\202\n \303!\207" [value ido-everywhere 1 -1] 2] :initialize 'custom-initialize-default :type 'boolean :group 'ido) #@67 Non-nil if searching of buffer and file names should ignore case. (custom-declare-variable 'ido-case-fold 'case-fold-search '(#$ . 2230) :type 'boolean :group 'ido) #@252 List of regexps or functions matching buffer names to ignore. For example, traditional behavior is not to list buffers whose names begin with a space, for which the regexp is `\` '. See the source file for example functions that filter buffer names. (custom-declare-variable 'ido-ignore-buffers ''("\\` ") '(#$ . 2402) :type '(repeat (choice regexp function)) :group 'ido) #@241 List of regexps or functions matching file names to ignore. For example, traditional behavior is not to list files whose names begin with a #, for which the regexp is `\`#'. See the source file for example functions that filter filenames. (custom-declare-variable 'ido-ignore-files ''("\\`CVS/" "\\`#" "\\`.#" "\\`\\.\\./" "\\`\\./") '(#$ . 2783) :type '(repeat (choice regexp function)) :group 'ido) #@69 Non-nil means ignore files in `completion-ignored-extensions' list. (custom-declare-variable 'ido-ignore-extensions 't '(#$ . 3191) :type 'boolean :group 'ido) #@142 Non-nil means to always put . as the first item in file name lists. This allows the current directory to be opened immediately with `dired'. (custom-declare-variable 'ido-show-dot-for-dired 'nil '(#$ . 3358) :type 'boolean :group 'ido) #@257 List of file extensions specifying preferred order of file selections. Each element is either a string with `.' as the first char, an empty string matching files without extension, or t which is the default order for files with an unlisted file extension. (custom-declare-variable 'ido-file-extensions-order 'nil '(#$ . 3601) :type '(repeat (choice string (const :tag "Default order" t))) :group 'ido) #@70 List of regexps or functions matching sub-directory names to ignore. (custom-declare-variable 'ido-ignore-directories ''("\\`CVS/" "\\`\\.\\./" "\\`\\./") '(#$ . 4009) :type '(repeat (choice regexp function)) :group 'ido) #@191 List of regexps or functions matching directory names to ignore during merge. Directory names matched by one of the regexps in this list are not inserted in merged file and directory lists. (custom-declare-variable 'ido-ignore-directories-merge 'nil '(#$ . 4238) :type '(repeat (choice regexp function)) :group 'ido) #@594 How to visit a new file when using `ido-find-file'. Possible values: `selected-window' Show new file in selected window `other-window' Show new file in another window (same frame) `display' Display file in another window without selecting to it `other-frame' Show new file in another frame `maybe-frame' If a file is visible in another frame, prompt to ask if you you want to see the file in the same window of the current frame or in the other frame `raise-frame' If a file is visible in another frame, raise that frame; otherwise, visit the file in the same window (custom-declare-variable 'ido-default-file-method ''raise-frame '(#$ . 4562) :type '(choice (const :tag "Visit in selected window" selected-window) (const :tag "Visit in other window" other-window) (const :tag "Display (no select) in other window" display) (const :tag "Visit in other frame" other-frame) (const :tag "Ask to visit in other frame" maybe-frame) (const :tag "Raise frame if already visited" raise-frame)) :group 'ido) #@104 How to switch to new buffer when using `ido-switch-buffer'. See `ido-default-file-method' for details. (custom-declare-variable 'ido-default-buffer-method ''raise-frame '(#$ . 5594) :type '(choice (const :tag "Show in selected window" selected-window) (const :tag "Show in other window" other-window) (const :tag "Display (no select) in other window" display) (const :tag "Show in other frame" other-frame) (const :tag "Ask to show in other frame" maybe-frame) (const :tag "Raise frame if already shown" raise-frame)) :type '(choice (const selected-window) (const other-window) (const display) (const other-frame) (const maybe-frame) (const raise-frame)) :group 'ido) #@213 Non-nil means that `ido' will do flexible string matching. Flexible matching means that if the entered string does not match any item, any item containing the entered characters in the given sequence will match. (custom-declare-variable 'ido-enable-flex-matching 'nil '(#$ . 6269) :type 'boolean :group 'ido) #@112 Non-nil means that `ido' will do regexp matching. Value can be toggled within `ido' using `ido-toggle-regexp'. (custom-declare-variable 'ido-enable-regexp 'nil '(#$ . 6585) :type 'boolean :group 'ido) #@247 Non-nil means only match if the entered text is a prefix of file name. This behavior is like the standard Emacs completion. If nil, match if the entered text is an arbitrary substring. Value can be toggled within `ido' using `ido-toggle-prefix'. (custom-declare-variable 'ido-enable-prefix 'nil '(#$ . 6793) :type 'boolean :group 'ido) #@161 Non-nil means to match leading dot as prefix. I.e. hidden files and buffers will match only if you type a dot as first char even if `ido-enable-prefix' is nil. (custom-declare-variable 'ido-enable-dot-prefix 'nil '(#$ . 7136) :type 'boolean :group 'ido) #@193 Non-nil means that even a unique completion must be confirmed. This means that \[ido-complete] must always be followed by \[ido-exit-minibuffer] even when there is only one unique completion. (custom-declare-variable 'ido-confirm-unique-completion 'nil '(#$ . 7397) :type 'boolean :group 'ido) #@231 Command run when `ido-complete' can't complete any more. The most useful values are `ido-completion-help', which pops up a window with completion alternatives, or `ido-next-match' or `ido-prev-match', which cycle the buffer list. (custom-declare-variable 'ido-cannot-complete-command ''ido-completion-help '(#$ . 7698) :type 'function :group 'ido) #@121 Non-nil means that `ido' will record commands in command history. Note that the non-ido equivalent command is recorded. (custom-declare-variable 'ido-record-commands 't '(#$ . 8053) :type 'boolean :group 'ido) #@235 Non-zero means that the prospect list will be limited to that number of items. For a long list of prospects, building the full list for the minibuffer can take a non-negligible amount of time; setting this variable reduces that time. (custom-declare-variable 'ido-max-prospects '12 '(#$ . 8270) :type 'integer :group 'ido) #@161 Non-zero means that the prompt string be limited to that number of characters. If value is a floating point number, it specifies a fraction of the frame width. (custom-declare-variable 'ido-max-file-prompt-width '0.35 '(#$ . 8600) :type '(choice (integer :tag "Characters" :value 20) (restricted-sexp :tag "Fraction of frame width" :value 0.35 :match-alternatives (ido-fractionp))) :group 'ido) #@65 Non-nil specifies a value to override `max-mini-window-height'. (custom-declare-variable 'ido-max-window-height 'nil '(#$ . 9001) :type '(choice (const :tag "Don't override" nil) (integer :tag "Number of lines" :value 1) (restricted-sexp :tag "Fraction of window height" :value 0.25 :match-alternatives (ido-fractionp))) :group 'ido) #@139 Non-nil means that `ido' will remember latest selected directory names. See `ido-last-directory-list' and `ido-save-directory-list-file'. (custom-declare-variable 'ido-enable-last-directory-history 't '(#$ . 9342) :type 'boolean :group 'ido) #@192 Maximum number of working directories to record. This is the list of directories where files have most recently been opened. See `ido-work-directory-list' and `ido-save-directory-list-file'. (custom-declare-variable 'ido-max-work-directory-list '50 '(#$ . 9591) :type 'integer :group 'ido) #@183 List of regexps matching directories which should not be recorded. Directory names matched by one of the regexps in this list are not inserted in the `ido-work-directory-list' list. (custom-declare-variable 'ido-work-directory-list-ignore-regexps 'nil '(#$ . 9888) :type '(repeat regexp) :group 'ido) #@194 Non-nil means that ido shall look for a filename at point. May use `ffap-guesser' to guess whether text at point is a filename. If found, use that as the starting point for filename selection. (custom-declare-variable 'ido-use-filename-at-point 'nil '(#$ . 10196) :type '(choice (const :tag "Disabled" nil) (const :tag "Guess filename" guess) (other :tag "Use literal filename" t)) :group 'ido) #@104 Non-nil means that ido shall look for a URL at point. If found, call `find-file-at-point' to visit it. (custom-declare-variable 'ido-use-url-at-point 'nil '(#$ . 10598) :type 'boolean :group 'ido) #@152 Non-nil means that ido shall perform tramp method and server name completion. A tramp file name uses the following syntax: /method:user@host:filename. (custom-declare-variable 'ido-enable-tramp-completion 't '(#$ . 10802) :type 'boolean :group 'ido) #@65 Non-nil means record ftp file names in the work directory list. (custom-declare-variable 'ido-record-ftp-work-directories 't '(#$ . 11058) :type 'boolean :group 'ido) #@68 If nil, merging ignores ftp file names in the work directory list. (custom-declare-variable 'ido-merge-ftp-work-directories 'nil '(#$ . 11231) :type 'boolean :group 'ido) #@140 Maximum time to cache contents of an ftp directory (in hours). Use C-l in prompt to refresh list. If zero, ftp directories are not cached. (custom-declare-variable 'ido-cache-ftp-work-directory-time '1.0 '(#$ . 11409) :type 'number :group 'ido) #@205 List of slow ftp hosts where ido prompting should not be used. If an ftp host is on this list, ido automatically switches to the non-ido equivalent function, e.g. `find-file' rather than `ido-find-file'. (custom-declare-variable 'ido-slow-ftp-hosts 'nil '(#$ . 11661) :type '(repeat string) :group 'ido) #@69 List of regexps matching slow ftp hosts (see `ido-slow-ftp-hosts'). (custom-declare-variable 'ido-slow-ftp-host-regexps 'nil '(#$ . 11971) :type '(repeat regexp) :group 'ido) #@45 Cached value from `ido-unc-hosts' function. (defvar ido-unc-hosts-cache t (#$ . 12152)) #@162 List of known UNC host names to complete after initial //. If value is a function, that function is called to search network for hosts on first use of UNC path. (custom-declare-variable 'ido-unc-hosts 'nil '(#$ . 12247) :type '(choice (repeat :tag "List of UNC host names" string) (function-item :tag "Use `NET VIEW'" :value ido-unc-hosts-net-view) (function :tag "Your own function")) :set #[(symbol value) " L\210\303\211\207" [symbol value ido-unc-hosts-cache t] 2] :group 'ido) #@48 Non-nil if UNC host names should be downcased. (custom-declare-variable 'ido-downcase-unc-hosts 't '(#$ . 12737) :type 'boolean :group 'ido) #@99 List of regexps matching UNC hosts to ignore. Case is ignored if `ido-downcase-unc-hosts' is set. (custom-declare-variable 'ido-ignore-unc-host-regexps 'nil '(#$ . 12884) :type '(repeat regexp) :group 'ido) #@133 Maximum time to cache shares of an UNC host (in hours). Use C-l in prompt to refresh list. If zero, UNC host shares are not cached. (custom-declare-variable 'ido-cache-unc-host-shares-time '8.0 '(#$ . 13098) :type 'number :group 'ido) #@213 Maximum number of names of recently opened files to record. This is the list of the file names (sans directory) which have most recently been opened. See `ido-work-file-list' and `ido-save-directory-list-file'. (custom-declare-variable 'ido-max-work-file-list '10 '(#$ . 13340) :type 'integer :group 'ido) #@254 Non-nil means to skip non-matching directories in the directory history. When some text is already entered at the `ido-find-file' prompt, using \[ido-prev-work-directory] or \[ido-next-work-directory] will skip directories without any matching entries. (custom-declare-variable 'ido-work-directory-match-only 't '(#$ . 13654) :type 'boolean :group 'ido) #@284 Automatically switch to merged work directories during file name input. The value is number of characters to type before switching to merged mode. If zero, the switch happens when no matches are found in the current directory. Automatic merging is disabled if the value is negative. (custom-declare-variable 'ido-auto-merge-work-directories-length '0 '(#$ . 14015) :type 'integer :group 'ido) #@66 Delay in seconds to wait for more input before doing auto merge. (custom-declare-variable 'ido-auto-merge-delay-time '0.7 '(#$ . 14414) :type 'number :group 'ido) #@138 Regexp matching characters which should inhibit automatic merging. When a (partial) file name matches this regexp, merging is inhibited. (custom-declare-variable 'ido-auto-merge-inhibit-characters-regexp '"[][*?~]" '(#$ . 14584) :type 'regexp :group 'ido) #@75 The string appended to first choice if it has multiple directory choices. (custom-declare-variable 'ido-merged-indicator '"^" '(#$ . 14846) :type 'string :group 'ido) #@511 Maximum number of working directories to be cached. This is the size of the cache of `file-name-all-completions' results. Each cache entry is time stamped with the modification time of the directory. Some systems, like Windows, have unreliable directory modification times, so you may choose to disable caching on such systems, or explicitly refresh the cache contents using the command `ido-reread-directory' command (C-l) in the minibuffer. See also `ido-dir-file-cache' and `ido-save-directory-list-file'. (custom-declare-variable 'ido-max-dir-file-cache '100 '(#$ . 15020) :type 'integer :group 'ido) #@203 Maximum size (in bytes) for directories to use ido completion. If you enter a directory with a size larger than this size, ido will not provide the normal completion. To show the completions, use C-a. (custom-declare-variable 'ido-max-directory-size '30000 '(#$ . 15633) :type '(choice (const :tag "No limit" nil) (integer :tag "Size in bytes" 30000)) :group 'ido) #@80 Non-nil means that `ido' will always rotate file list to get default in front. (custom-declare-variable 'ido-rotate-file-list-default 'nil '(#$ . 16005) :type 'boolean :group 'ido) #@360 Additional methods to enter sub-directory of first/only matching item. If value is 'first, enter first matching sub-directory when typing a slash. If value is 'only, typing a slash only enters the sub-directory if it is the only matching item. If value is t, automatically enter a sub-directory when it is the only matching item, even without typing a slash. (custom-declare-variable 'ido-enter-matching-directory ''only '(#$ . 16193) :type '(choice (const :tag "Never" nil) (const :tag "Slash enters first directory" first) (const :tag "Slash enters first and only directory" only) (other :tag "Always enter unique directory" t)) :group 'ido) #@216 Specify whether a new buffer is created if no buffer matches substring. Choices are 'always to create new buffers unconditionally, 'prompt to ask user whether to create buffer, or 'never to never create new buffer. (custom-declare-variable 'ido-create-new-buffer ''prompt '(#$ . 16844) :type '(choice (const always) (const prompt) (const never)) :group 'ido) #@258 Hook run after the ido variables and keymap have been setup. The dynamic variable `ido-cur-item' contains the current type of item that is read by ido; possible values are file, dir, buffer, and list. Additional keys can be defined in `ido-completion-map'. (custom-declare-variable 'ido-setup-hook 'nil '(#$ . 17210) :type 'hook :group 'ido) #@125 String used by ido to separate the alternatives in the minibuffer. Obsolete. Set 3rd element of `ido-decorations' instead. (custom-declare-variable 'ido-separator 'nil '(#$ . 17559) :type '(choice string (const nil)) :group 'ido) #@806 List of strings used by ido to display the alternatives in the minibuffer. There are 11 elements in this list: 1st and 2nd elements are used as brackets around the prospect list, 3rd element is the separator between prospects (ignored if `ido-separator' is set), 4th element is the string inserted at the end of a truncated list of prospects, 5th and 6th elements are used as brackets around the common match string which can be completed using TAB, 7th element is the string displayed when there are no matches, and 8th element is displayed if there is a single match (and faces are not used), 9th element is displayed when the current directory is non-readable, 10th element is displayed when directory exceeds `ido-max-directory-size', 11th element is displayed to confirm creating new file or buffer. (custom-declare-variable 'ido-decorations ''("{" "}" " | " " | ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]") '(#$ . 17797) :type '(repeat string) :group 'ido) #@102 Non-nil means use ido faces to highlighting first match, only match and subdirs in the alternatives. (custom-declare-variable 'ido-use-faces 't '(#$ . 18807) :type 'boolean :group 'ido) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\207" [custom-declare-face ido-first-match ((t (:bold t))) "Face used by ido for highlighting first match." :group ido ido-only-match ((((class color)) (:foreground "ForestGreen")) (t (:italic t))) "Face used by ido for highlighting only match." ido-subdir ((((min-colors 88) (class color)) (:foreground "red1")) (((class color)) (:foreground "red")) (t (:underline t))) "Face used by ido for highlighting subdirs in the alternatives." ido-indicator ((((min-colors 88) (class color)) (:foreground "yellow1" :background "red1" :width condensed)) (((class color)) (:foreground "yellow" :background "red" :width condensed)) (t (:inverse-video t))) "Face used by ido for highlighting its indicators." ido-incomplete-regexp ((t (:inherit font-lock-warning-face))) "Ido face for indicating incomplete regexps."] 6) #@205 List of functions to run when the list of matching files is created. Each function on the list may modify the dynamically bound variable `ido-temp-list' which contains the current list of matching files. (custom-declare-variable 'ido-make-file-list-hook 'nil '(#$ . 19962) :type 'hook :group 'ido) #@217 List of functions to run when the list of matching directories is created. Each function on the list may modify the dynamically bound variable `ido-temp-list' which contains the current list of matching directories. (custom-declare-variable 'ido-make-dir-list-hook 'nil '(#$ . 20267) :type 'hook :group 'ido) #@214 List of functions to run when the list of matching buffers is created. Each function on the list may modify the dynamically bound variable `ido-temp-list' which contains the current list of matching buffer names. (custom-declare-variable 'ido-make-buffer-list-hook 'nil '(#$ . 20583) :type 'hook :group 'ido) #@764 List of functions to run when the find-file prompt is created. Each function on the list may modify the following dynamically bound variables: dirname - the (abbreviated) directory name to be modified by the hook functions max-width - the max width of the resulting dirname; nil means no limit prompt - the basic prompt (e.g. "Find File: ") literal - the string shown if doing "literal" find; set to nil to omit vc-off - the string shown if version control is inhibited; set to nil to omit prefix - either nil or a fixed prefix for the dirname The following variables are available, but should not be changed: `ido-current-directory' - the unabbreviated directory name item - equals `file' or `dir' depending on the current mode. (custom-declare-variable 'ido-rewrite-file-prompt-functions 'nil '(#$ . 20899) :type 'hook :group 'ido) #@496 *Alist of rewriting rules for directory names in ido prompts. A list of elements of the form (FROM . TO) or (FROM . FUNC), each meaning to rewrite the directory name if matched by FROM by either substituting the matched string by TO or calling the function FUNC with the current directory name as its only argument and using the return value as the new directory name. In addition, each FUNC may also modify the dynamic variables described for the variable `ido-rewrite-file-prompt-functions'. (defvar ido-rewrite-file-prompt-rules nil (#$ . -21773)) #@93 Name of completion buffer used by ido. Set to nil to disable completion buffers popping up. (custom-declare-variable 'ido-completion-buffer '"*Ido Completions*" '(#$ . 22331) :type 'string :group 'ido) #@115 Non-nil means to show all completions in completion buffer. Otherwise, only the current list of matches is shown. (custom-declare-variable 'ido-completion-buffer-all-completions 'nil '(#$ . 22540) :type 'boolean :group 'ido) #@120 *Argument to pass to `walk-windows' when finding visible files. See documentation of `walk-windows' for useful values. (defvar ido-all-frames 'visible (#$ . -22772)) #@510 Ido-specific customization of minibuffer setup. This hook is run during minibuffer setup if `ido' is active. It is intended for use in customizing ido for interoperation with other packages. For instance: (add-hook 'ido-minibuffer-setup-hook (function (lambda () (make-local-variable 'max-mini-window-height) (setq max-mini-window-height 3)))) will constrain Emacs to a maximum minibuffer height of 3 lines when ido is running. Copied from `icomplete-minibuffer-setup-hook'. (custom-declare-variable 'ido-minibuffer-setup-hook 'nil '(#$ . 22945) :type 'hook :group 'ido) #@221 File in which the ido state is saved between invocations. Variables stored are: `ido-last-directory-list', `ido-work-directory-list', `ido-work-file-list', and `ido-dir-file-cache'. Must be set before enabling ido mode. (custom-declare-variable 'ido-save-directory-list-file '(convert-standard-filename "~/.ido.last") '(#$ . 23557) :type 'string :group 'ido) #@189 List of commands which uses `read-file-name' to read a directory name. When `ido-everywhere' is non-nil, the commands in this list will read the directory using `ido-read-directory-name'. (custom-declare-variable 'ido-read-file-name-as-directory-commands ''nil '(#$ . 23923) :type '(repeat symbol) :group 'ido) #@184 List of commands which shall not read file names the ido way. When `ido-everywhere' is non-nil, the commands in this list will read the file name using normal `read-file-name' style. (custom-declare-variable 'ido-read-file-name-non-ido ''nil '(#$ . 24241) :type '(repeat symbol) :group 'ido) #@126 List of functions to call before calling a fallback command. The fallback command is passed as an argument to the functions. (custom-declare-variable 'ido-before-fallback-functions ''nil '(#$ . 24540) :type 'hook :group 'ido) #@43 Currently active keymap for ido commands. (defvar ido-completion-map nil (#$ . 24772)) #@30 Keymap for all ido commands. (defvar ido-common-completion-map nil (#$ . 24865)) #@31 Keymap for ido file commands. (defvar ido-file-completion-map nil (#$ . 24952)) #@45 Keymap for ido file and directory commands. (defvar ido-file-dir-completion-map nil (#$ . 25038)) #@33 Keymap for ido buffer commands. (defvar ido-buffer-completion-map nil (#$ . 25142)) #@50 History of files selected using `ido-find-file'. (defvar ido-file-history nil (#$ . 25232)) #@56 History of buffers selected using `ido-switch-buffer'. (defvar ido-buffer-history nil (#$ . 25330)) #@93 List of last selected directory names. See `ido-enable-last-directory-history' for details. (defvar ido-last-directory-list nil (#$ . 25436)) #@160 List of actual working directory names. The current directory is inserted at the front of this list whenever a file is opened with `ido-find-file' and family. (defvar ido-work-directory-list nil (#$ . 25585)) #@187 List of actual work file names. Opening a file with `ido-find-file' and similar functions inserts the current file name (relative to its containing directory) at the front of this list. (defvar ido-work-file-list nil (#$ . 25801)) #@109 List of `file-name-all-completions' results. Each element in the list is of the form (DIR (MTIME) FILE...). (defvar ido-dir-file-cache nil (#$ . 26039)) #@150 List of items to ignore in current ido invocation. Intended to be let-bound by functions which call ido repeatedly. Should never be set permanently. (defvar ido-ignore-item-temp-list nil (#$ . 26199)) #@96 Point where minibuffer input ends and completion info begins. Copied from `icomplete-eoinput'. (defvar ido-eoinput 1 (#$ . 26406)) (make-variable-buffer-local 'ido-eoinput) #@57 Stores the string that is common to all matching files. (defvar ido-common-match-string nil (#$ . 26585)) #@65 Non-nil means we need to regenerate the list of matching items. (defvar ido-rescan nil (#$ . 26697)) #@48 Non-nil means we are rotating list of matches. (defvar ido-rotate nil (#$ . 26804)) #@44 Stores the users string as it is typed in. (defvar ido-text nil (#$ . 26894)) #@57 The initial string for the users string it is typed in. (defvar ido-text-init nil (#$ . 26978)) #@50 Stores the users strings when user hits M-b/M-f. (defvar ido-input-stack nil (#$ . 27080)) #@46 List of files currently matching `ido-text'. (defvar ido-matches nil (#$ . 27177)) #@59 Report [No Match] when no completions matches `ido-text'. (defvar ido-report-no-match t (#$ . 27266)) #@121 Flag to monitor how `ido-find-file' exits. If equal to `takeprompt', we use the prompt as the file name to be selected. (defvar ido-exit nil (#$ . 27375)) #@40 Current directory for `ido-find-file'. (defvar ido-current-directory nil (#$ . 27536)) #@29 Delay timer for auto merge. (defvar ido-auto-merge-timer nil (#$ . 27629)) #@163 Non-nil means use `ido' completion feedback. Is set by ido functions to the current `minibuffer-depth', so that it doesn't interfere with other minibuffer usage. (defvar ido-use-mycompletion-depth 0 (#$ . 27711)) #@45 Non-nil if an incomplete regexp is entered. (defvar ido-incomplete-regexp nil (#$ . 27930)) #@125 Non-nil means to explicitly cursor on entry to minibuffer. Value is an integer which is number of chars to right of prompt. (defvar ido-initial-position nil (#$ . 28029)) (defalias 'ido-active #[(&optional merge) "\203 \207\303\304!\205 \n\305 U\207" [merge ido-use-merged-list ido-use-mycompletion-depth boundp ido-completing-read minibuffer-depth] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ido-trace-enable default-boundp set-default nil] 3) (defalias 'ido-trace #[(p &optional s retval) "\203# \306\307! \212\214\nq\210 \310\f;\203 \f\202 \311\312\f\"\313\261\210, \207" [ido-trace-enable deactivate-mark b p s retval get-buffer-create " *IDO Trace*" ": " format "%S" "\n"] 5]) (defalias 'ido-toggle-trace #[(arg) "\206 ?\211\203 \304\305!\210\306\307!\211\205* \203! \310\n!\202* \311\n\312\211#\210\312\211)\207" [arg ido-trace-enable b truncate-lines message "IDO trace on" get-buffer " *IDO Trace*" kill-buffer pop-to-buffer t] 5 nil "P"]) #@30 Tell if FILE exists locally. (defalias 'ido-local-file-exists-p #[(file) "\302\303 !)\207" [file-name-handler-alist file nil file-exists-p] 2 (#$ . 29043)]) #@32 Return list of UNC host names. (defalias 'ido-unc-hosts #[(&optional query) "<\203 \202< <\203 \202< \n\203/ \306!\203/ \307\310\311\312\313#!\210 \307\314!\210 \202< \n\2039 \314\211\202< \306!\n\203\241 \f\314\211\211\211 \203\232 @ A\205a \203\202 @A\315 \"\203c \314\211\202c \203O \f\203\220 \227B\202O \316\317\"- )\207" [ido-unc-hosts ido-unc-hosts-cache query hosts ido-downcase-unc-hosts re fboundp message propertize "Searching for UNC hosts..." face highlight nil string-match sort string< re-list host res case-fold-search ido-process-ignore-lists ido-ignore-unc-host-regexps] 6 (#$ . 29207)]) #@60 Query network for list of UNC host names using `NET VIEW'. (defalias 'ido-unc-hosts-net-view #[nil "\302\303\304!r q\210\305\216\306\307\310\"\210eb\210\311\312\302\310#\203% \313\314!B\202 +)\207" [hosts #1=#:temp-buffer nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) shell-command "net view" t re-search-forward "^\\\\\\\\\\([[:graph:]]+\\)" match-string 1] 4 (#$ . 29880)]) (defalias 'ido-is-tramp-root #[(&optional dir) "\205\f \303\304 \206 \n\"\207" [ido-enable-tramp-completion dir ido-current-directory string-match "\\`/[^/]+[@:]\\'"] 3]) (defalias 'ido-is-unc-root #[(&optional dir) "\302 \205\f \206\n \303\230\207" [dir ido-current-directory ido-unc-hosts "//"] 2]) (defalias 'ido-is-unc-host #[(&optional dir) "\302 \205 \303\304\206\f \"\207" [dir ido-current-directory ido-unc-hosts string-match "\\`//[^/]+/\\'"] 3]) (defalias 'ido-is-root-directory #[(&optional dir) "\206 \211\304\230\206% \n\305>\203 \306\307\"\206% \203! \310!\207\306\311\"\207" [dir ido-current-directory system-type ido-enable-tramp-completion "/" (windows-nt ms-dos) string-match "\\`[a-zA-Z]:[/\\]\\'" ido-is-tramp-root "\\`/[^:/][^:/]+:\\'"] 4]) (defalias 'ido-is-ftp-directory #[(&optional dir) "\303\203 \304\202\n \305 \206 \n\"\207" [ido-enable-tramp-completion dir ido-current-directory string-match "\\`/[^/:][^/:]+:" "\\`/[^/:][^/:]+:/"] 3]) (defalias 'ido-is-slow-ftp-host #[(&optional dir) "\204 \205K \n\206 \211\205K \306\f\203 \307\202 \310\n\"\205K \n\311\224\311\225O\211 \235\206J \211 \n\203G \306\n@ \"\204G \nA\211\n\2045 \n))\207" [ido-slow-ftp-hosts ido-slow-ftp-host-regexps dir ido-current-directory ido-enable-tramp-completion host string-match "\\`/\\([^/]+[@:]\\)*\\([^@/:][^@/:]+\\):" "\\`/\\([^/:]*@\\)?\\([^@/:][^@/:]+\\):/" 2 re] 4]) (defalias 'ido-time-stamp #[(&optional time) "\206 \301 \211@\302_A@\\\303\245\207" [time current-time 65536.0 3600.0] 3]) (defalias 'ido-cache-ftp-valid #[(&optional time) "\247\205 \302V\205 ?\206 \303 ZW\207" [ido-cache-ftp-work-directory-time time 0 ido-time-stamp] 2]) (defalias 'ido-cache-unc-valid #[(&optional time) "\247\205 \302V\205 ?\206 \303 ZW\207" [ido-cache-unc-host-shares-time time 0 ido-time-stamp] 2]) (defalias 'ido-may-cache-directory #[(&optional dir) "\206 \304!\203 \305\207\306!\203 \n\204 \307>\203 \305\207\310!\203) \311 \207\312!\2032 \313 \207\314\207" [dir ido-current-directory ido-enable-tramp-completion system-type ido-directory-too-big-p nil ido-is-root-directory (windows-nt ms-dos) ido-is-unc-host ido-cache-unc-valid ido-is-ftp-directory ido-cache-ftp-valid t] 2]) (defalias 'ido-pp #[(list &optional sep) "\306\211\211\211\307\310\f!\311\261\210\fJ\f\203Y \f@\211 :\203$ @\202% \211 ;\2037 G\312U\2037 \306\203A \313 p\"\210\fA\211\203U \203U \206S \314c\210*\202 \315c,\207" [eval-expression-print-length print-length eval-expression-print-level print-level list elt nil "\n;; ----- " symbol-name " -----\n(\n " 0 prin1 "\n " "\n)\n" s sep] 5]) #@58 Save ido history and cache information between sessions. (defalias 'ido-save-history #[nil "\205A \205A \306\307!\310\311\216r q\210\312 \210\313c\210\314\315\300!\210\315\316!\210\315\317!\210\315\320\321\"\210 <\2039 \315\305!\210\202< \322c\210\323 \324\",\207" [ido-last-directory-list ido-save-directory-list-file version-control buf buffer-file-coding-system ido-unc-hosts-cache get-buffer-create " *ido session*" never ((kill-buffer buf)) erase-buffer ";;; -*- coding: utf-8 -*-\n" utf-8 ido-pp ido-work-directory-list ido-work-file-list ido-dir-file-cache "\n\n " "\n;; ----- ido-unc-hosts-cache -----\nt\n" write-file nil] 3 (#$ . 32989) nil]) #@117 Load ido history and cache information from previous session. With prefix argument, reload history unconditionally. (defalias 'ido-load-history #[(&optional arg) "\204\f \2030 \n\2040 \305 !\306 \307\f!\203/ \310\311!\312\216r q\210\313 \210\314\f!\210\306\315\316\217\210**\317 \207" [arg ido-save-directory-list-file ido-last-directory-list buf file expand-file-name nil file-readable-p get-buffer-create " *ido session*" ((kill-buffer buf)) erase-buffer insert-file-contents (byte-code "\305p!\305p!\305p!\305p!\305p!\305\207" [ido-last-directory-list ido-work-directory-list ido-work-file-list ido-dir-file-cache ido-unc-hosts-cache read] 2) ((error)) ido-wash-history] 3 (#$ . 33654) "P"]) #@99 Clean-up ido history and cache information. Removes badly formatted data and ignored directories. (defalias 'ido-wash-history #[nil "<\2050 \306\211\203- \n@:\203& \n@@;\203& \n@A;\203& \n@ B\nA\211\204 \237* <\205^ \306\211\203[ \n@;\203T \f\204O \307\n@!\204T \n@ B\nA\211\204> \237* <\205\201 \306\211\203~ \n@;\203w \n@ B\nA\211\204l \237*<\205_\306\211\203\\\n@<\203U\n@G\310V\203U\n@@\n@A@\n@AA \211 ;\205L:\205L@\250\203\344 @\311U?\205LA@\250\205LA@\311U?\205L\312!\202!@\313=\203A\247\205L\307!\205L\314A!\202!@\315=\203 A\247\205L\316!\205L\317A!\202!\306\205L\320 \203I@;\203@A\211\202-\306\211\202+*+\203U\n@ B\nA\211\204\221 \237* \203\201\321 ! \306\203\200\322@!\210A\211\204q)\306 \n\203\254\n@\nA\323\311@G\306@$\210\323\311AG\306A$\210\202\206* \306 \n\203\312\n@\nA\323\311G\306$\210\202\262* \306 \n\203\350\n@\nA\323\311G\306$\210\202\320*\306\211 \n\205%\n@\nA<\203\362\203\362@ A :\204\323\311 G\306 $\210\202+\207" [ido-last-directory-list r l ido-work-directory-list ido-record-ftp-work-directories ido-work-file-list nil ido-is-ftp-directory 2 0 ido-may-cache-directory ftp ido-cache-ftp-valid unc ido-is-unc-host ido-cache-unc-valid t reverse ido-record-work-directory set-text-properties ido-dir-file-cache files time dir ok s dirs e d] 6 (#$ . 34364) nil]) (defalias 'ido-kill-emacs-hook #[nil "\300 \207" [ido-save-history] 1]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ido-minor-mode-map-entry default-boundp set-default nil] 3) #@468 Toggle ido speed-ups on or off. With ARG, turn ido speed-up on if arg is positive, off otherwise. Turning on ido-mode will remap (via a minor-mode keymap) the default keybindings for the `find-file' and `switch-to-buffer' families of commands to the ido versions of these functions. However, if ARG arg equals 'files, remap only commands for files, or if it equals 'buffers, remap only commands for buffer switching. This function also adds a hook to the minibuffer. (defalias 'ido-mode #[(&optional arg) "\204 ?\205B \305\202B \306=\203 \305\202B \307=\203! \310\202B \311=\203+ \312\202B \313>\2035 \202B \314!\315V\203A \305\202B \316\302\n\203L \317\202M \320!\210 \203V \321 \210 \203\372 \322\323\324\"\210\322\325\326\"\210\327 \210\322\330\331\"\210\332 \333>\203\267 \334 \335\336#\210\334 \337\340#\210\334 \341\342#\210\334 \343\344#\210\334 \345\346#\210\334 \347\350#\210\334 \351\352#\210\334 \353\354#\210\334 \355\356#\210\334 \357\360#\210\334 \361\362#\210 \363>\203\341 \334 \364\365#\210\334 \366\367#\210\334 \370\371#\210\334 \372\373#\210\334 \374\375#\210\334 \376\377#\210\f\203\354 \f \241\210\202\371 \301 B\201@ \201A \f\"\210)\201B \201C \203\n\201D \202 \201E \"\207" [arg ido-mode ido-everywhere map ido-minor-mode-map-entry both t files file buffers buffer (file buffer both) prefix-numeric-value 0 nil 1 -1 ido-init-completion-maps add-hook minibuffer-setup-hook ido-minibuffer-setup choose-completion-string-functions ido-choose-completion-string ido-load-history kill-emacs-hook ido-kill-emacs-hook make-sparse-keymap (file both) define-key [remap find-file] ido-find-file [remap find-file-read-only] ido-find-file-read-only [remap find-alternate-file] ido-find-alternate-file [remap write-file] ido-write-file [remap insert-file] ido-insert-file [remap list-directory] ido-list-directory [remap dired] ido-dired [remap find-file-other-window] ido-find-file-other-window [remap find-file-read-only-other-window] ido-find-file-read-only-other-window [remap find-file-other-frame] ido-find-file-other-frame [remap find-file-read-only-other-frame] ido-find-file-read-only-other-frame (buffer both) [remap switch-to-buffer] ido-switch-buffer [remap switch-to-buffer-other-window] ido-switch-buffer-other-window [remap switch-to-buffer-other-frame] ido-switch-buffer-other-frame [remap insert-buffer] ido-insert-buffer [remap kill-buffer] ido-kill-buffer [remap display-buffer] ido-display-buffer add-to-list minor-mode-map-alist message "Ido mode %s" "enabled" "disabled"] 4 (#$ . 36061) "P"]) #@140 Toggle using ido speed-ups everywhere file and directory names are read. With ARG, turn ido speed-up on if arg is positive, off otherwise. (defalias 'ido-everywhere #[(arg) "\203\f \305!\306V\202 ?\301\307N\203 \301\307N@\310\301\307\311#\210\301\312N\2031 \301\312N@\310\301\312\311#\210 \205V \f\313>\203E \310\301\307\n\311B#\210\314\f\315>\205V \310\301\312 \311B#\210\316\211\207" [arg ido-everywhere read-file-name-function read-buffer-function ido-mode prefix-numeric-value 0 file put nil buffer (both file) ido-read-file-name (both buffer) ido-read-buffer] 5 (#$ . 38610) "P"]) #@46 Set up the completion keymaps used by `ido'. (defalias 'ido-init-completion-maps #[nil "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210\307\320\321#\210\307\322\323#\210\307\324\325#\210\307\326\327#\210\307\330\331#\210\307\332\333#\210\307\334\335#\210\307\336\337#\210\307\340\341#\210\307\342\343#\210\307\344\341#\210\307\345\333#\210\307\346\331#\210\307\347\350#\210\307\351\352#\210\307\353\354#\210\307\355\356#\210\357 \"\210)\306 \307\360\361#\210\307\362\363#\210\307\364\365#\210\307\366\367#\210\307\370\371#\210\307\372\373#\210\307\374\375#\210\307\376\377#\210\307\201@ \377#\210\307\201A \377#\210\307\201B \201C #\210\307\201D \201E #\210\307\201F \201G #\210\307\201H \201I #\210\307\201J \201K #\210\307\201L \201M #\210\307\201N \201O #\210\307\201P \201Q #\210\307\201R \201S #\210\307\201T \375#\210\307\201U \201V #\210\307\201W \201X #\210\307\201Y \373#\210\307\201Z \201[ #\210\357\n\"\210)\306 \307\201\\ \201] #\210\307\201^ \201_ #\210\307\201` \201a #\210\307\201b \201c #\210\307\201d \201e #\210\357 \"\210)\306 \307\362\201f #\210\307\360\363#\210\307\201\\ \201g #\210\357\n\"\210\211)\207" [map minibuffer-local-map ido-common-completion-map ido-file-dir-completion-map ido-file-completion-map ido-buffer-completion-map make-sparse-keymap define-key "" ido-toggle-ignore "" ido-toggle-case "" ido-edit-input " " ido-complete " " ido-complete-space "\n" ido-select-text " " ido-exit-minibuffer "" ido-toggle-prefix "" ido-prev-match "" ido-next-match "" ido-toggle-regexp "" ido-undo-merge-work-directory [(control 32)] ido-restrict-to-matches [(meta 32)] ido-take-first-match [(control 64)] [right] [left] "?" ido-completion-help "" ido-magic-backward-char "" ido-magic-forward-char "" ido-magic-delete-char set-keymap-parent "" ido-enter-switch-buffer "" ido-fallback-command "" ido-enter-dired [down] ido-next-match-dir [up] ido-prev-match-dir [(meta up)] ido-prev-work-directory [(meta down)] ido-next-work-directory [backspace] ido-delete-backward-updir "" [remap delete-backward-char] [remap backward-kill-word] ido-delete-backward-word-updir [(control backspace)] ido-up-directory "\f" ido-reread-directory [(meta 100)] ido-wide-find-dir-or-delete-dir [(meta 98)] ido-push-dir [(meta 118)] ido-push-dir-first [(meta 102)] ido-wide-find-file-or-pop-dir [(meta 107)] ido-forget-work-directory [(meta 109)] ido-make-directory [(meta 110)] [(meta 111)] ido-prev-work-file [(meta control 111)] ido-next-work-file [(meta 112)] [(meta 115)] ido-merge-work-directories " " ido-delete-file-at-head "" ido-copy-current-word "" ido-copy-current-file-name [(meta 108)] ido-toggle-literal "" ido-toggle-vc ido-enter-find-file ido-kill-buffer-at-head] 4 (#$ . 39212)]) #@30 Set up the keymap for `ido'. (defalias 'ido-setup-completion-map #[nil "\306 \307\300!\205 \203 \310\n\311\312#\210 \313>\203T \f\203+ \310\n\314\f#\210\310\n\315\312#\210 \203A \310\n\316\317#\210\310\n\320\317#\210\310\n\321\322#\210\323\n \324=\203M \202O \"\210\202s \325=\203m \f\203d \310\n\326\f#\210\323\n\"\210\202s \323\n\"\210\n\211*\207" [viper-mode viper-p map ido-cur-item ido-context-switch-command ido-file-completion-map make-sparse-keymap boundp define-key [remap viper-intercept-ESC-key] ignore (file dir) "" "" [remap viper-backward-char] ido-delete-backward-updir [remap viper-del-backward-char-in-insert] [remap viper-delete-backward-word] ido-delete-backward-word-updir set-keymap-parent file buffer "" ido-file-dir-completion-map ido-buffer-completion-map ido-common-completion-map ido-completion-map] 4 (#$ . 42032)]) (defalias 'ido-final-slash #[(dir &optional fix-it) "\302!\303\304\"\203 \207\305!\203 \207 \203 \306P\207\307\207" [dir fix-it ido-name string-match "/\\'" ido-is-tramp-root "/" nil] 3]) (defalias 'ido-no-final-slash #[(s) "GS\211\302V\203 H\303=\203 \302 O\202 )\207" [s l 0 47] 4]) (defalias 'ido-nonreadable-directory-p #[(dir) "\302\303 !\205 \304 !?\205 \305 !\205 \306 !?)\207" [ido-enable-tramp-completion dir nil ido-final-slash ido-is-unc-host file-directory-p file-readable-p] 2]) (defalias 'ido-directory-too-big-p #[(dir) "\303 \247\205! \304\n!\205! \305\n!?\205! \306\n!\205! \307\310\n!8 V)\207" [ido-enable-tramp-completion ido-max-directory-size dir nil ido-final-slash ido-is-unc-host file-directory-p 7 file-attributes] 3]) (defalias 'ido-set-current-directory #[(dir &optional subdir no-merge) "\203 \306\307 \"\204 \310 \311\"\312 ? \203- P\203( \306\307 \"\204- \310 \311\"\313!\2039 \314!\210 \232\203B \312\207\315 !\203X \316\317 \"\210 \312\211\311\207\316\320 \"\210 \313!\203l \314!\210\321 !\211?\205y \322 !\311\207" [ido-enable-tramp-completion dir ido-use-merged-list no-merge ido-try-merged-list subdir string-match "\\`/[^/]*@\\'" ido-final-slash t nil get-buffer kill-buffer ido-is-unc-root ido-trace "unc" "cd" ido-nonreadable-directory-p ido-directory-too-big-p ido-completion-buffer ido-current-directory ido-directory-nonreadable ido-directory-too-big] 4]) (defalias 'ido-set-current-home #[(&optional dir) "\301\302\206 \303!!\207" [dir ido-set-current-directory expand-file-name "~/"] 3]) (defalias 'ido-record-command #[(command arg) "\205 \nD\f\203 \f@\232?\205 \fB\211)\207" [ido-record-commands command arg cmd command-history] 2]) (defalias 'ido-make-prompt #[(item prompt) "\306>\203\346 \203\346 \307 !\n\203 \310\n!\203 \311\312 \n_!\202! \n\313\303!\205, \205, \314\f\2056 ?\2056 \315\316 \316 \203\206 @:\203} \317@@ \"\203} @A;\203t \320@A\321\316 $\202{ @A ! A\211\204M )\322\323!\210 \206\223 \324\206\231 \324\206\237 \324 G ! \203\336 \325V\203\336 ! V\203\336 [\316O \"\317\326\"\" #\327#\203\327 \"#\316O\202\331 \"P*\202\340 )\260.\207 \207" [item ido-current-directory ido-max-file-prompt-width ido-find-literal ido-saved-vc-hb vc-handled-backends (file dir) abbreviate-file-name floatp floor frame-width boundp "(literal) " "[-VC] " nil string-match replace-match t run-hooks ido-rewrite-file-prompt-functions "" 0 "/" "..." ido-rewrite-file-prompt-rules rule prefix vc-off literal max-width dirname case-fold-search prompt l s i] 9]) #@333 Perform the `ido-read-buffer' and `ido-read-file-name' functions. Return the name of a buffer or file selected. PROMPT is the prompt to give to the user. DEFAULT if given is the default item to start with. If REQUIRE-MATCH is non-nil, an existing file must be selected. If INITIAL is non-nil, it specifies the initial input string. (defalias 'ido-read-internal #[(item prompt history &optional default require-match initial) "p\306\307\306\307\211\211\211\211\211\211\211\211\211\306\307 \n \307 @ A B C D E F 3 G H I J K L M N\310 \210OP\307Q\311\312!\2103\204\373\313\314P\"\210\307R\306S\307T\315UJ\203\315 \316=\203} \317V!\203x \320V!\202\260 V\202\260 V;\203\225 \321>\203\220 \322V!\202\260 V\202\260 \323=\205\260 W\205\260 \324XY\"\211 Z\205\257 ZA)\211I[\235\203\274 \307I\313\325I\"\210I\203\312 \326\\\307JK\203\325 \307LA\203\257@\327>\203\257B\204\257ED]\330PA\331=@\332=# ^ _ ` a\313\333^\"\210^\204Y@\332=\203:\315Xa`_\257\307\211ED\307]\306BA\331=\2052\331@\307A\202\256aE`D_]\306BA\331=\205Q\331@\307A\202\256^\306=\203f\307A\202\256^\334=\203v\306@\307A\202\256PXa`_\257\335^@A@!\210\336P!\203\225\315P^E\307D^]\307S\306\211BA\313\337\306\"\210,B\203\275\307\211BS\202 N\323=\203\334\307Db?\205\327c?\205\327\340I!E\202 N\341=\203\373\307Db?\205\366c?\205\366\342I!E\202 N\316=\203\307D\343I!E\202 N\344=\203 \307D\345I!E\307CK\203,\306L\307K\346 \210]\203>@\331=\203>\306@N\347>\203Jd\202LeN\350>\203Xe\202Zfg\206g\351\352!\205g*\306h\353 T\307 i j k l * f d\307R\354\355\215G.\313\356G\"\210\357m!\203\230\360m!\210\313\361R\"\210R\362=\203\272A\331=\203H \334 \203H \307A\306B\202H R\363=\203\316\3063UH\307R\202H R\364>\203]N\365>\203P\307 nR\366= 6X ZP o\306 p\315Pp\203L6\203\307\367\370\217\202op\371p!\206\372Z\322p!o\3066\373Z!\2045\374\375\376Z\"!\203\363\307\377\201u \217\203\363\335Z\307R\201v =#\210oP\307\211p\204\370-\202H \307\201w \201x \217P\202H R\201y =\203l\306B\202H R\201z >\203|\306\2113\202J R\201{ >\203\367\201| \203\265\201} \201~ X\"\203H \201 \201\200 X\"P\335\201 \201\201 X\"!\210\306J\202H \201\202 \204H R\201\203 =\203\345NUBQBQ\341N\322X\326\201\204 O!P\313\201\205 Q\"\210\335\371X\326\201\204 O!!\210\306J\202H R\201\206 =\203(\313\201\207 Q\"\210Q@ qQAQ\335XUP!\210q@NqAP)\202H R\201\210 =\203^\313\201\211 Q\"\210Q\203H Q@ qQAQ\335XUP!\210q@NqAP)\2029h\203\217h\201\212 >\204\217c\203}\201\213 XGP!\202\201\201\214 \204\217\201\215 \201\216 !\210\202H R\201\217 =\204\235]\204\242G\202\251\201\220 ]@!H\201\221 >\203\272\306\2113\202J H\201\222 \230\204H H\201\223 \230\203\345\201\202 \204\337\335\371X\326\201\204 O!!\210\306J\202H \201} r\203\363\201\224 \202\366\201\225 H\"\2034\201\202 \2034\201\226 H!\2044\335XH\"\210\313\201\227 H\"\210\201\230 \203.\201\231 R\306\2113\202J \306J\202H \201} \201\232 H\"\204Us\201\233 >\203b\201} \201\234 H\"\203b\335\371H!!\210\306J\202H \201} \201\235 H\"\203x\201\236 H!\210\202H \336H!\203\364W\203\244\324XY\"\211 t\203\231tH\241\210\202\243XHBYBY)\335XH\"\210Q\203\356\307 qQ@\211q\203\352\201\213 XqAP!\203\352QA\211Q\203\335\335XqA\"\210\202\342qAPq@N\202\263)\202H \306J\202H \306\2113\203M H.\207" [item ido-case-fold ido-enable-prefix ido-enable-regexp ido-show-confirm-message ido-pre-merge-state t nil ido-setup-completion-map run-hooks ido-setup-hook ido-trace "\n_LOOP_" "" buffer bufferp buffer-name (file dir) file-name-nondirectory file assoc "new default" 0 (t wide) ido-make-merged-file-list auto wide "merged" input-pending-p ido-set-current-directory ido-final-slash "Merged" ido-make-file-list dir ido-make-dir-list ido-make-buffer-list list ido-make-choice-list ido-set-matches (file dir) (file dir) boundp max-mini-window-height minibuffer-depth ido (byte-code "\304\305 \"\306\307\211\n\307 &\207" [item prompt ido-text-init history completing-read ido-make-prompt (("dummy" . 1)) nil] 7) "completing-read" get-buffer kill-buffer "\n_EXIT_" refresh done (edit chdir) (file dir) edit (byte-code "\303\304P\305 ! \nP\306\n%\207" [prompt d f read-file-name "[EDIT] " expand-file-name nil] 6) ((quit (concat d f))) file-name-directory "/" file-directory-p yes-or-no-p format "Create directory %s? " (byte-code "\301\302\"\210\302\207" [d make-directory t] 3) ido-try-merged-list ido-use-merged-list ido-keep-item-list ido-rotate-temp ido-ignored-list ido-cur-list icomplete-mode ido-final-text ido-selected ido-default-item ido-set-default-item ido-process-ignore-lists-inhibit ido-process-ignore-lists ido-entry-buffer ido-cur-item initial ido-text-init ido-input-stack ido-exit ido-rescan ido-rotate ido-text default ido-enable-last-directory-history ido-current-directory ido-last-directory-list d ido-ignore-item-temp-list ido-initial-position ido-matches l omat oign olist ido-directory-nonreadable ido-directory-too-big minibuffer-local-completion-map ido-completion-map minibuffer-local-filename-completion-map ido-max-window-height require-match show-paren-mode ido-use-mycompletion-depth ido-require-match ido-completing-read ido-completion-buffer read-file-name-function f new elt ido-enable-tramp-completion system-type x ((error (byte-code "\300\301!\210\302\303!\210\304\207" [message "Could not create directory" sit-for 1 nil] 2))) chdir (byte-code "\302\303P \"\207" [prompt ido-final-text read-string "[EDIT] "] 3) ((quit ido-final-text)) keep (dired fallback find-file switch-to-buffer insert-buffer insert-file) (updir push) ido-is-tramp-root string-match "\\`\\(/\\([^/]+[:@]\\)*\\)\\([^/]+\\)[:@]\\'" match-string 3 1 ido-is-root-directory push -1 "push" pop "pop" pop-all "pop-all" (confirm confirm-after-completion) file-exists-p ido-existing-item-p error "Must specify valid item" takeprompt ido-name (buffer list) "./" "../" ".[:@]\\'" ".:\\'" ido-local-file-exists-p "tramp prefix" ido-is-slow-ftp-host fallback "[/\\][^/\\]" (windows-nt ms-dos) "\\`[a-zA-Z]:" "\\`~" ido-set-current-home] 22 (#$ . 45536)]) #@137 Edit absolute file name entered so far with ido; terminate by RET. If cursor is not at the end of the user input, move to end of input. (defalias 'ido-edit-input #[nil "m\204 \304\207\203 \305@!\202 \306\307 \207" [ido-matches ido-text ido-text-init ido-exit nil ido-name edit exit-minibuffer] 2 (#$ . 51789) nil]) (defalias 'ido-buffer-internal #[(method &optional fallback prompt default initial switch-cmd) "\204 \306\307 \206 \310\"\210\311 \206 \310!\207\n\312\211 \312 +\313 ,\314\315$\206* \316\317-,.& /0\320=\203V \3211\322>\203I 1\202K 2\312\211\211\2113&\202 0\323=\203k \321\324\323\312\325\3123\326&\202 0\301=\203\212 \312 4 \206z \3105\306\3075\"\210\3115!)\202 /\204\223 \312\202 /G\327U\203\237 \312\202 \330/!\203\322 \331\332/\"\2101\324=\203\310 \333\334/\"\210\335\212\336\330/!!\210`)!\202 \337/1\340#\202 6\341=\203\346 ,\204\346 \342\343/\"\202 6\344=\203 ,\204 \345\346\347/\"!\204 \312\202 \331\332/\"\210\350/!/\351\352!\203\352/!\210\337/1\340#.\207" [ido-mode fallback switch-cmd ido-context-switch-command ido-current-directory ido-directory-nonreadable run-hook-with-args ido-before-fallback-functions switch-to-buffer call-interactively nil confirm-nonexistent-file-or-buffer ido-read-internal buffer "Buffer: " ido-buffer-history find-file ido-file-internal (other-window other-frame) insert-file insert "Insert file: " ido-enter-insert-buffer 0 get-buffer add-to-history buffer-name-history ido-record-command insert-buffer push-mark insert-buffer-substring ido-visit-buffer t never message "No buffer matching `%s'" prompt y-or-n-p format "No buffer matching `%s', create one? " get-buffer-create fboundp set-buffer-major-mode ido-directory-too-big require-match default initial buf ido-exit method ido-default-file-method ido-text read-buffer-function this-command ido-create-new-buffer] 9]) (defalias 'ido-record-work-directory #[(&optional dir) "\247\205V \306V\205V \206 \n\211\203G G\306V\203G \307 \211 \2039 \2039 \310 @ \"\2032 \307 A\211\204$ \203F \311 \n\"B\n*\nGV\205V S\n\233\307\241\207" [ido-max-work-directory-list dir ido-current-directory ido-work-directory-list-ignore-regexps case-fold-search items 0 nil string-match delete ido-work-directory-list] 5]) (defalias 'ido-forget-work-directory #[nil "\205\" \205\" \306 \"\n\205\" \307 \210\310\311\211 \311\f\312 \207" [ido-current-directory ido-work-directory-list ido-use-merged-list ido-exit ido-try-merged-list ido-text delete ido-undo-merge-work-directory refresh t exit-minibuffer ido-text-init ido-rotate-temp] 4 nil nil]) (defalias 'ido-record-work-file #[(name) "\247\205* \303V\205* \203 @\n\232\204 \n\304\n \"B GV\205* S \233\305\241\207" [ido-max-work-file-list ido-work-file-list name 0 delete nil] 4]) (defalias 'ido-expand-directory #[(dir) "\302\303\206 !\304\"\207" [dir default-directory ido-final-slash expand-file-name t] 3]) (defalias 'ido-file-internal #[(method &optional fallback default prompt item initial switch-cmd) "\204 \306\307 !\n\310\211\211 @ AB\203 \311 \203& \312\313C\2025 \314A!\211?\2054 \315A!\306=\203\252 D\204E E\203\252 \310\211 F G\316\317!\210D\203m H\203m \320\321 \206a \322 !\203m \317C\312\202\251 E\203\251 E\323=\203~ \324 \202\200 \325 \211G\203\251 \326\327G\"\204\251 \330G!\211F\203\251 \331F!\203\251 FA\332G!I*\310\333\334!\205\263 \335\211\310 J K L M \204\345 M\312 N\336O\206\323 \337\340P\341=\205\335 Q\342 I&)C\313=\203 A\310 R S \206\371 \343T\344\345T\"\210\346T!*\202\375C\347=\203(\350P\351>\203 P\202 U\310\211\211V%\202\375C\352=\203<\350\353\352\354\310V\355&\202\375C\356=\203Q\356AV\206L\357P!\202\375C\317=\203]\360 \202\375P\341=\203u\361 !\210AS\362 \210\363 !\202\375P\364>\2034 \365\232\203\204\357\366A P\312\"\211 W\367\335O \331W!\203\256\370PW\"\210\362W!\210PW!\2020\331A!\203)\371!\203\334\370PA\"\210\362 \210PA!\210P\356=\2050\372\373!!\2020\326\374 \"\203\373A PW\370PW\"\210\362 \210PW!\2020\375\376\377 \"!\203 \370PW\"\210\362W!\210\201X W!\210PW!\2020\370\201Y W\"\2020\201Z \201[ !*\202\375P\201\\ =\203e\361 !\210ASA P\370\201] \"\210\201^ \201_ \"\210\362 \210\201] !\202\375P\201` =\203\215\361 !\210A P\370 \"\210\362 \210\344\345 \"\210 !\202\375P\353=\203\321\361 !\210A P\370J\203\251\201a \202\254\201b \"\210\201^ \201_ \"\210\362 \210\201c J\203\312\201d \202\315\201e \"\202\375 \205\375\361 !\210A P\370\343 \"\210\201^ \201_ \"\210\362 \210\201f \201g \310J#P\".\n\207" [item default switch-cmd filename ido-directory-too-big ido-directory-nonreadable file ido-expand-directory nil ido-is-slow-ftp-host t fallback ido-nonreadable-directory-p ido-directory-too-big-p require ffap ffap-fixup-url ffap-url-at-point ffap-gopher-at-point guess ffap-guesser ffap-string-at-point string-match "^http:/" file-name-directory file-directory-p file-name-nondirectory boundp vc-handled-backends -1 ido-read-internal "Find file: " ido-file-history alt-file confirm-nonexistent-file-or-buffer find-file run-hook-with-args ido-before-fallback-functions call-interactively switch-to-buffer ido-buffer-internal (other-window other-frame) insert-buffer insert "Insert buffer: " ido-enter-insert-file dired "" find-file-at-point ido-record-work-file ido-record-work-directory find-alternate-file (dired list-directory) "." ido-final-slash 0 ido-record-command file-exists-p dired-goto-file expand-file-name "[[*?]" y-or-n-p format "Directory %s does not exist. Create it? " ido-context-switch-command ido-current-directory ido-mode ido-exit ido-use-url-at-point ido-use-filename-at-point d fn ffap-url-regexp initial ido-find-literal ido-work-file-index ido-work-directory-index ido-saved-vc-hb minibuffer-completing-file-name prompt method buffer-file-name read-file-name-function default-directory this-command ido-default-buffer-method ido-text dirname make-directory-internal make-directory error "No such directory" write write-file add-to-history file-name-history read-only insert-file-literally insert-file insert-file-1 insert-file-contents-literally insert-file-contents ido-visit-buffer find-file-noselect] 8]) (defalias 'ido-existing-item-p #[nil "??\207" [ido-matches] 1]) (defalias 'ido-set-common-completion #[nil "\305\211\n\203# \204# \f;\203# \fG\306V\203# \307\n\f\"\211\203# )\207" [val ido-common-match-string ido-matches ido-enable-regexp ido-text nil 0 ido-find-common-substring] 4]) #@62 Try and complete the current pattern amongst the file names. (defalias 'ido-complete #[nil "\306 \206\355 \n\307>\203\\ \310\311 \"\203\\ \312\f P! \313\314 !!\204' \315\316!\202X \317 !\2034 \320 !\210\202S \314 !\206; \321\322 ! \317 !\203R \320 !\210 *\323 \324 )\202\355 \203o \306 \323 \324 \202\355 !\204\203 \"\205\355 \325#\211$!\202\355 !G\326U\203\310 %\203\241 \f\321\230\203\241 \310\327\330!@!\"\204\310 \331\330!@!!\204\310 &\204\265 \324 \202\355 '?(\332 `|\210\330!@!c\202\355 )\211\333>\204\346 \232\204\346 '?(\332 `|\210c\202\355 \325#\211$!)\207" [res ido-incomplete-regexp ido-cur-item ido-text ido-current-directory evar nil (file dir) string-match "[$]" substitute-in-file-name file-exists-p file-name-directory message "Expansion generates non-existing directory name" file-directory-p ido-set-current-directory "/" file-name-nondirectory refresh exit-minibuffer call-interactively 1 ".[@:]\\'" ido-name ido-local-file-exists-p minibuffer-prompt-end (t nil) f d ido-text-init ido-exit ido-directory-too-big ido-matches ido-completion-buffer ido-cannot-complete-command this-command ido-enable-tramp-completion ido-confirm-unique-completion ido-enable-prefix ido-rescan ido-common-match-string] 5 (#$ . 58381) nil]) #@56 Try completion unless inserting the space makes sense. (defalias 'ido-complete-space #[nil ";\203Q ;\203Q G GV\203 GH\306U\202K \n\203J \307\310 !\311P\n \203E \312\f\313 @!\"\203> \307\314\202) A\211\204- +\202K \307\203Q \311c\207\315 \207" [ido-common-match-string ido-text ido-matches comp re insert-space 32 nil regexp-quote " " string-match ido-name t ido-complete] 5 (#$ . 59664) nil]) #@116 Undo or redo last ido directory merge operation. If no merge has yet taken place, toggle automatic merging option. (defalias 'ido-undo-merge-work-directory #[(&optional text try refresh) "\2034 \306A@!\210 \206 @\3078\3108\3118\312 ?\312\313\312\314 \207 \203: \312\207\203D \312\211\207 \203M \315\211\207?\205U \316 \207" [ido-pre-merge-state text ido-text-init ido-cur-list ido-ignored-list ido-matches ido-set-current-directory 2 3 4 nil refresh exit-minibuffer t ido-merge-work-directories ido-use-merged-list try ido-try-merged-list ido-keep-item-list ido-rescan ido-exit] 2 (#$ . 60078) nil]) #@317 Move forward in user input or perform magic action. If no user input is present, or at end of input, perform magic actions: C-x C-b ... C-f switch to `ido-find-file'. C-x C-f ... C-f fallback to non-ido `find-file'. C-x C-d ... C-f fallback to non-ido brief `dired'. C-x d ... C-f fallback to non-ido `dired'. (defalias 'ido-magic-forward-char #[(arg) "\204 m\204 \303!d`Z^u\207 \304>\203 \305 \207\n\203\" \306\n!\207 \307=\205* \310 \207" [arg ido-cur-item ido-context-switch-command prefix-numeric-value (file dir) ido-fallback-command call-interactively buffer ido-enter-find-file] 3 (#$ . 60718) "P"]) #@313 Move backward in user input or perform magic action. If no user input is present, or at start of input, perform magic actions: C-x C-f C-b switch to `ido-switch-buffer'. C-x C-d C-b switch to `ido-switch-buffer'. C-x d C-b switch to `ido-switch-buffer'. C-x C-b C-b fallback to non-ido `switch-to-buffer'. (defalias 'ido-magic-backward-char #[(arg) "\204 `\305 V\203 \306!`\305 Z^[u\207 \n=\203* \307>\205) o?\205= \310 \207 \311=\2033 \312 \207\f\203; \313\f!\207\314 \207" [arg last-command this-command ido-cur-item ido-context-switch-command minibuffer-prompt-end prefix-numeric-value (file dir) ido-push-dir buffer ido-fallback-command call-interactively ido-enter-switch-buffer] 3 (#$ . 61343) "P"]) #@163 Delete following char in user input or perform magic action. If at end of user input, perform magic actions: C-x C-f ... C-d enter `dired' on current directory. (defalias 'ido-magic-delete-char #[(arg) "\204 m\204 \303\304!d`Z^!\207 \203 \305\207\n\306>\205 \307 \207" [arg ido-context-switch-command ido-cur-item delete-char prefix-numeric-value nil (file dir) ido-enter-dired] 4 (#$ . 62067) "P"]) #@38 Toggle the value of `ido-case-fold'. (defalias 'ido-toggle-case #[nil "?\302\211\207" [ido-case-fold ido-rescan t] 2 (#$ . 62480) nil]) #@42 Toggle the value of `ido-enable-regexp'. (defalias 'ido-toggle-regexp #[nil "?\302\211\207" [ido-enable-regexp ido-rescan t] 2 (#$ . 62625) nil]) #@42 Toggle the value of `ido-enable-prefix'. (defalias 'ido-toggle-prefix #[nil "?\302\211\207" [ido-enable-prefix ido-rescan t] 2 (#$ . 62780) nil]) #@58 Toggle ignoring files specified with `ido-ignore-files'. (defalias 'ido-toggle-ignore #[nil "m\204 `\305 V\203 \305 b\207\203 \306\307!\210\310\202 ?\n\311\312 \207" [ido-directory-too-big ido-process-ignore-lists ido-text ido-text-init ido-exit minibuffer-prompt-end message "Reading directory..." nil refresh exit-minibuffer] 2 (#$ . 62935) nil]) #@40 Disable version control for this file. (defalias 'ido-toggle-vc #[nil "\205 \306=\205 \n?\205 \f\307 \310 \207" [ido-mode ido-cur-item vc-handled-backends ido-saved-vc-hb ido-text ido-text-init file keep exit-minibuffer ido-exit] 2 (#$ . 63300) nil]) #@38 Toggle literal reading of this file. (defalias 'ido-toggle-literal #[nil "\205 \306=\205 \n? \307\310 \207" [ido-mode ido-cur-item ido-find-literal ido-text ido-text-init ido-exit file keep exit-minibuffer] 2 (#$ . 63566) nil]) #@154 Read current directory again. May be useful if cached version is no longer valid, but directory timestamp has not changed (e.g. with ftp or on Windows). (defalias 'ido-reread-directory #[nil "\205\" \306>\205\" \307 \203 \310\202 \311 !\210\f\310\f\312 \313 \207" [ido-mode ido-cur-item ido-unc-hosts-cache ido-current-directory ido-text ido-text-init (file dir) ido-is-unc-root t ido-remove-cached-dir refresh exit-minibuffer ido-rotate-temp ido-exit] 2 (#$ . 63808) nil]) #@66 Exit minibuffer, but make sure we have a match if one is needed. (defalias 'ido-exit-minibuffer #[nil "\203 \306>\203 \307=\204 \n =\204 \310\311 \205$ ?\205$ \312 \207" [ido-require-match ido-cur-item last-command this-command ido-show-confirm-message ido-incomplete-regexp (confirm confirm-after-completion) dir t ido-existing-item-p exit-minibuffer] 2 (#$ . 64296) nil]) #@129 Select the buffer or file named by the prompt. If no buffer or file exactly matching the prompt exists, maybe create a new one. (defalias 'ido-select-text #[nil "\301\302 \207" [ido-exit takeprompt exit-minibuffer] 1 (#$ . 64686) nil]) #@49 Fallback to non-ido version of current command. (defalias 'ido-fallback-command #[nil "G \304V\203 S\211H\nB\202 )\305\306 \207" [ido-text i unread-command-events ido-exit 0 fallback exit-minibuffer] 3 (#$ . 64929) nil]) #@46 Drop into `find-file' from buffer switching. (defalias 'ido-enter-find-file #[nil "\301\302 \207" [ido-exit find-file exit-minibuffer] 1 (#$ . 65165) nil]) #@52 Drop into `ido-switch-buffer' from file switching. (defalias 'ido-enter-switch-buffer #[nil "\301\302 \207" [ido-exit switch-to-buffer exit-minibuffer] 1 (#$ . 65328) nil]) #@40 Drop into `dired' from file switching. (defalias 'ido-enter-dired #[nil "\301\302 \207" [ido-exit dired exit-minibuffer] 1 (#$ . 65508) nil]) #@45 Drop into `insert-buffer' from insert file. (defalias 'ido-enter-insert-buffer #[nil "\301\302 \207" [ido-exit insert-buffer exit-minibuffer] 1 (#$ . 65657) nil]) #@45 Drop into `insert-file' from insert buffer. (defalias 'ido-enter-insert-file #[nil "\301\302 \207" [ido-exit insert-file exit-minibuffer] 1 (#$ . 65827) nil]) #@28 Go up one directory level. (defalias 'ido-up-directory #[(&optional clear) "?\205 \305\306\307 \207" [clear ido-text ido-text-init ido-exit ido-rotate-temp updir t exit-minibuffer] 1 (#$ . 65993) "P"]) #@68 Delete char backwards, or at beginning of buffer, go up one level. (defalias 'ido-delete-backward-updir #[(count) "\304 `U\203 ?\205> \305\306!\207 \203$ @\n\230\203$ \307\n\310\311O\306\211#\207 \312=\2030 \313!!\207 \314=\2039 \207\315\313!!\207" [count ido-pre-merge-state ido-text this-original-command minibuffer-prompt-end ido-up-directory t ido-undo-merge-work-directory 0 -1 viper-backward-char prefix-numeric-value viper-del-backward-char-in-insert delete-backward-char] 4 (#$ . 66207) "P"]) #@73 Delete all chars backwards, or at beginning of buffer, go up one level. (defalias 'ido-delete-backward-word-updir #[(count) "\302 `U\203 ?\205! \303\304!\207 \305=\203 \306!!\207\307\306!!\207" [count this-original-command minibuffer-prompt-end ido-up-directory t viper-delete-backward-word prefix-numeric-value backward-kill-word] 3 (#$ . 66722) "P"]) (defalias 'ido-get-work-directory #[(&optional incr must-match) "G \306\307 \203 G\306U\203 \307 W\203| \f\\ T\306V\2039 \f Y\203B \306\202B \f\306W\203B S\f8\211\203w \n\232\204w \310\n!\203w \203q \311\312=\203j \313\n!\202m \314\n!!\203w \211\202 \307\202 \n\203\202 \f\n,\207" [ido-work-directory-list ido-work-directory-index dir j i n 0 nil file-directory-p ido-set-matches-1 file ido-make-file-list-1 ido-make-dir-list-1 ido-text must-match incr ido-current-directory ido-cur-item] 5]) #@43 Change to next working directory in list. (defalias 'ido-prev-work-directory #[nil "\306\307\"\211\205 \310 !\210\311 \312\313 )\207" [ido-work-directory-match-only dir ido-exit ido-text ido-text-init ido-rotate-temp ido-get-work-directory 1 ido-set-current-directory refresh t exit-minibuffer] 4 (#$ . 67616) nil]) #@47 Change to previous working directory in list. (defalias 'ido-next-work-directory #[nil "\306\307\"\211\205 \310 !\210\311 \312\313 )\207" [ido-work-directory-match-only dir ido-exit ido-text ido-text-init ido-rotate-temp ido-get-work-directory -1 ido-set-current-directory refresh t exit-minibuffer] 4 (#$ . 67944) nil]) #@82 Search (and merge) work directories for files matching the current input string. (defalias 'ido-merge-work-directories #[nil "\306\211\307 \306\310 \207" [ido-use-merged-list ido-try-merged-list ido-exit ido-text ido-text-init ido-rotate-temp t refresh exit-minibuffer] 2 (#$ . 68277) nil]) #@76 Prompt for FILE to search for using find, starting from current directory. (defalias 'ido-wide-find-file #[(&optional file) "\204\f \306\307\310\311\217)G\312V\205 \306\313\314\306\315 \207" [file enable-recursive-minibuffers ido-use-merged-list ido-try-merged-list ido-exit ido-text-init t nil (byte-code "\302\303P \"\207" [ido-current-directory ido-text read-string "Wide find file: "] 3) ((quit "")) 0 wide refresh exit-minibuffer ido-rotate-temp] 3 (#$ . 68579) nil]) #@75 Prompt for DIR to search for using find, starting from current directory. (defalias 'ido-wide-find-dir #[(&optional dir) "\204\f \306\307\310\311\217)G\312V\205# \306\313\314\315\306\"\306\316 \207" [dir enable-recursive-minibuffers ido-use-merged-list ido-try-merged-list ido-exit ido-text-init t nil (byte-code "\302\303P \"\207" [ido-current-directory ido-text read-string "Wide find directory: "] 3) ((quit "")) 0 wide refresh ido-final-slash exit-minibuffer ido-rotate-temp] 3 (#$ . 69071) nil]) #@140 Prompt for DIR to search for using find, starting from current directory. If input stack is non-empty, delete current directory component. (defalias 'ido-wide-find-dir-or-delete-dir #[(&optional dir) "\203 \301\302!\207\303 \207" [ido-input-stack ido-delete-backward-word-updir 1 ido-wide-find-dir] 2 (#$ . 69591) nil]) #@40 Use first matching item as input text. (defalias 'ido-take-first-match #[nil "\205 \303@!\304\305 \207" [ido-matches ido-text-init ido-exit ido-name refresh exit-minibuffer] 2 (#$ . 69919) nil]) #@71 Move to previous directory in file name, push current input on stack. (defalias 'ido-push-dir #[nil "\301\302 \207" [ido-exit push exit-minibuffer] 1 (#$ . 70125) nil]) #@69 Move to previous directory in file name, push first match on stack. (defalias 'ido-push-dir-first #[nil "\203 \303@!\304\305 \207" [ido-matches ido-text ido-exit ido-name push exit-minibuffer] 2 (#$ . 70301) nil]) #@93 Pop directory from input stack back to input. With \[universal-argument], pop all elements. (defalias 'ido-pop-dir #[(arg) "\205 \203\f \303\202 \304\305 \207" [ido-input-stack arg ido-exit pop-all pop exit-minibuffer] 1 (#$ . 70526) "P"]) (defalias 'ido-wide-find-file-or-pop-dir #[(arg) "\203 \302 !\207\303 \207" [ido-input-stack arg ido-pop-dir ido-wide-find-file] 2 nil "P"]) #@48 Prompt for DIR to create in current directory. (defalias 'ido-make-directory #[(&optional dir) "\204 \306\307\310\nP \")G\311V\2052 \nP\312!?\2052 \313\306\"\210\314!\210\315\316\306\317 \207" [dir enable-recursive-minibuffers ido-current-directory ido-text ido-exit ido-text-init t read-string "Make directory: " 0 file-exists-p make-directory ido-set-current-directory refresh nil exit-minibuffer ido-rotate-temp] 3 (#$ . 70920) nil]) (defalias 'ido-get-work-file #[(incr) "G \n\\\306 \n\307V\203 \f Y\203# \307\202# \f\307W\203# S\f8\f +\207" [ido-work-file-list ido-work-file-index incr name i n nil 0] 3]) #@43 Change to next working file name in list. (defalias 'ido-prev-work-file #[nil "\303\304!\211\205 \305\306 )\207" [name ido-text-init ido-exit ido-get-work-file 1 refresh exit-minibuffer] 3 (#$ . 71561) nil]) #@47 Change to previous working file name in list. (defalias 'ido-next-work-file #[nil "\303\304!\211\205 \305\306 )\207" [name ido-text-init ido-exit ido-get-work-file -1 refresh exit-minibuffer] 3 (#$ . 71780) nil]) #@83 Insert file name of current buffer. If repeated, insert text from buffer instead. (defalias 'ido-copy-current-file-name #[(all) "\306!\206 \307!\211\205 \310 !\211\205D \2040 \f =\2040 \311 !\232\2030 \312\313\n\"\2044 \n\202: \n\314\211\224TO\315\316\317 *\207" [ido-entry-buffer bfname name all last-command this-command buffer-file-name buffer-name file-name-nondirectory file-name-directory string-match "\\.[^.]*\\'" 0 refresh nil exit-minibuffer ido-current-directory ido-text-init ido-exit ido-try-merged-list] 4 (#$ . 72004) "P"]) #@67 Insert current word (file or directory name) from current buffer. (defalias 'ido-copy-current-word #[(all) "\212q\210`\306\211\211\211 \203 \307 U\204 \307 \202H \310 \210`\306\210` b\210\311\312\f\313#\2038 \313u\210`\314\315 \313#\210\n`U\203H \306\n\205P \316\n`\".\211 \204\\ \306\202\233 \317\320\"\203r \306\321\211\202\226 \317\322\"\203\213 P\306\321\211\202\226 \306\323\211\205\233 \324 )\207" [ido-entry-buffer name start-name end-line start-line p nil mark beginning-of-line re-search-backward "[^-_a-zA-Z0-9:./\\~@]" 1 re-search-forward "[-_a-zA-Z0-9:./\\~@]*" buffer-substring-no-properties string-match "\\`[~/]" chdir "/" refresh exit-minibuffer mark-active word ido-text-init ido-try-merged-list ido-exit ido-current-directory] 6 (#$ . 72564) "P"]) #@60 Put first element of `ido-matches' at the end of the list. (defalias 'ido-next-match #[nil "\205 \211A@)\306 \n\"\307\211\211)\207" [ido-matches x next ido-cur-list ido-rescan ido-rotate ido-chop t] 4 (#$ . 73384) nil]) #@61 Put last element of `ido-matches' at the front of the list. (defalias 'ido-prev-match #[nil "\205 \305!@\306\n \"\307\211\211)\207" [ido-matches prev ido-cur-list ido-rescan ido-rotate last ido-chop t] 4 (#$ . 73618) nil]) #@125 Find next directory in match list. If work directories have been merged, cycle through directories for first matching file. (defalias 'ido-next-match-dir #[nil "\203& \205[ @\211A\211G\306V\203! \n\307 \211 \211A@)\"\241\210\310\211*\207 G\306 \n \n W\203G \311\n 8!\204G \nT\211\n\202/ \n W\205Z \307\f\n 8\"\211\f*\207" [ido-use-merged-list ido-matches elt dirs x ido-rescan 1 ido-chop nil ido-final-slash i cnt ido-cur-list] 5 (#$ . 73855) nil]) #@129 Find previous directory in match list. If work directories have been merged, cycle through directories for first matching file. (defalias 'ido-prev-match-dir #[nil "\203$ \205V @\211A\211G\306V\203 \n\307 \310 !@\"\241\210\311\211*\207 G\211 S\211 \f\312V\203C \313\f 8!\204C \fS\211\f\202, \f\312V\205U \307 \f 8\"\211 *\207" [ido-use-merged-list ido-matches elt dirs ido-rescan cnt 1 ido-chop last nil 0 ido-final-slash i ido-cur-list] 6 (#$ . 74328) nil]) #@55 Set current item list to the currently matched items. (defalias 'ido-restrict-to-matches #[nil "\205 \305\306\307\310 \207" [ido-matches ido-cur-list ido-text-init ido-rescan ido-exit "" nil keep exit-minibuffer] 1 (#$ . 74807) nil]) #@67 Remove all elements before ELEM and put them at the end of ITEMS. (defalias 'ido-chop #[(items elem) "\305\211\211\n\204' @\211\f\232\203 \306 \237\"\211\202 A B\202 \n+\207" [sofar next ret items elem nil append] 4 (#$ . 75054)]) (defalias 'ido-name #[(item) ":\203 @\207\207" [item] 1]) (defalias 'ido-all-completions #[nil "\305\211\n\306=\203 \307 !\2022 \n\310=\203 \311 !\2022 \n\312=\203' \313 \2022 \n\314=\2031 \f\2022 \305*\207" [ido-directory-too-big ido-process-ignore-lists ido-cur-item ido-current-directory ido-choice-list nil file ido-make-file-list-1 dir ido-make-dir-list-1 buffer ido-make-buffer-list-1 list] 2]) (defalias 'ido-file-lessp #[(a b) "\302!\302 !\231\207" [a b ido-no-final-slash] 3]) (defalias 'ido-file-extension-lessp #[(a b) "\305\306\307 \306\307\211&\307\211\211 \310=?\205n \f\306W\203+ \f[S \n\310\202. \fS\f\306U\2038 \202n \fH\311U\203I \312 \f $\202n \f\313V\203^ \fH\311U\204^ \fS\211\202J \f\314V\203m \312 \f $\202n +\207" [a b p lessp n compare-strings 0 nil t 46 ido-file-extension-aux 2 1] 9]) (defalias 'ido-file-extension-aux #[(a b n lessp) "\306 \"\306\n \"\211 \203, \203, \f U\203 \202> \203& \f V\202> \f W\202> \f\2035 ?\202> \203= \202> *\207" [a n b ob oa lessp ido-file-extension-order] 5]) (defalias 'ido-file-extension-order #[(s n) "\306\307\211 \f\203< \f@\310=\203 \fA\2026 \311 \n\307\f@\306\307\211&\310=\2033 \307\2026 \fA T\202 \n\206A ,\207" [ido-file-extensions-order do o i l s 0 nil t compare-strings n] 8]) (defalias 'ido-sort-merged-list #[(items promote) "\306\307\"\310\211\211\211 \203V @ A\f\203I \f@@ @\230\203I \n\203- \fA\202. \f@ A\f@AB\241\210\n\203 A\230\203 \311\202 @ AD\fB\310\202 \f-\207" [items dirs cur a res l sort #[(a b) "@ @\231\207" [b a] 2] nil t promote ido-current-directory] 5]) (defalias 'ido-wide-find-dirs-or-files #[(dir file &optional prefix finddir) "\306\307\310\311!\312\311 \203 \313\202 \314\n\314Q!\315 \203 \316\202 \317\320\260!!\321\211\211\211 \203n @A\322\323\"\2030 \324!\2030 \325!\326! \203d \327 \330\"\202e B\fB\2020 \f-\207" [dir prefix file finddir res f split-string shell-command-to-string "find " shell-quote-argument " -name " "" "*" " -type " "d" "f" " -print" nil string-match "^/" file-exists-p file-name-directory file-name-nondirectory ido-final-slash t d filename filenames] 9]) (defalias 'ido-flatten-merged-list #[(items) "\305 \203) @\211@\nA\211 \203! \f@ PB\fA\211\204 + A\211\204 )\207" [res items item file dirs nil] 3]) (defalias 'ido-make-merged-file-list-1 #[(text auto wide) "\306\307 !\203\233 \n\203\233 \203 \310\f \311\312O \313$\202A\314 \311\312O!\315P\n\306\211\211\211 \203\226 @\211@A\316 \"\204\204 AA\203\204 @A\317 \"\203X \316 \"\204X BB\202X \2036 \320 \2036 \306\313\2026 .\202A \203\251 \310\f \306$\202A \205\264 G\311V\306\211 ! \" # \203\322 \f\235\204\322 \fB\203@@A\203.;\203.$\204\370 \321!\204.\322!\203.%\323=\203\324\313\"\202\325\313\"\211!\203.\"\203$\326!!!!\203.!\244 \203\322 \320 \203\322 \306\313\202\322 -)\207" [res text ido-dir-file-cache wide ido-current-directory ido-enable-prefix nil ido-final-slash ido-wide-find-dirs-or-files 0 -1 t regexp-quote "[^/:]*/\\'" ido-ignore-item-p string-match input-pending-p ido-is-ftp-directory file-directory-p file ido-make-file-list-1 ido-make-dir-list-1 ido-set-matches-1 f d b dir dirs re ido-ignore-directories-merge ido-ignore-directories auto ido-work-directory-list fl must-match ido-text ido-merge-ftp-work-directories ido-cur-item] 7]) (defalias 'ido-make-merged-file-list #[(text auto wide) "\306\307\310 \"\210\306\311\312\217\210\203 <\203 \313\n\" \204\" \f\203H <\203H G\314V\203H \315 \"\211 \203G @=\204G \316 \" B)\307\306!\210)\207" [res text auto ido-rotate-temp ido-rotate-file-list-default elt nil message "Searching for `%s'...." (byte-code "\301\302\303\217\211\304=\203 \305\301\207" [res nil (byte-code "\301\302\303\215)\207" [inhibit-quit nil #1=#:input (byte-code "\304\305 \206\f \306 \n #)\207" [throw-on-input text auto wide #1# input-pending-p ido-make-merged-file-list-1] 4)] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) t input-pending-p] 3) ((quit (byte-code "\303\304\211\304\207" [res ido-try-merged-list ido-use-merged-list t nil] 2))) ido-sort-merged-list 0 assoc delq] 4]) (defalias 'ido-make-buffer-list-1 #[(&optional frame visible) "\301\302\303\304\305!\"\"\207" [frame delq nil mapcar #[(x) "\304!\305 \n\"\206 \235?\205 )\207" [x name ido-ignore-buffers visible buffer-name ido-ignore-item-p] 3] buffer-list] 6]) (defalias 'ido-make-buffer-list #[(default) "\303\304!\305\306 \"\211\203 \244\210\202 \n\203$ \307\n \"\n B\310\311!\210 *\207" [ido-current-buffers ido-temp-list default ido-get-buffers-in-frames current ido-make-buffer-list-1 selected-frame delete run-hooks ido-make-buffer-list-hook] 4]) (defalias 'ido-make-choice-list #[(default) "\n\203 \303\n \"\n B )\207" [ido-choice-list ido-temp-list default delete] 3]) (defalias 'ido-to-end #[(items) "\302\303\"\210 \203 \244\207\211\207" [items ido-temp-list mapc #[(elem) "\302 \"\211\207" [elem ido-temp-list delq] 3]] 3]) (defalias 'ido-file-name-all-completions-1 #[(dir) "\305!\203 \306\207 \203x \307\310!\204 \311\312\306\313#\203x \314\315\"\203x GS\313\316\317\"\206T \320\230?\205T \321!\205T \307\322!\205T \322!\205T \314\323\"\205T \316\317\324P\"\211 \203u \f@G\nV\203u \f@\325\nO\326\306O\230\203u \327\330\f\"\202v \f+\207\316\317\"\207" [dir ido-enable-tramp-completion len tramp-completion-mode compl ido-nonreadable-directory-p nil fboundp tramp-completion-mode-p require tramp t string-match "\\`/[^/]+[:@]\\'" file-name-all-completions "" "/ftp:" tramp-tramp-file-p tramp-ftp-file-name-p ":\\'" "./" 0 1 mapcar #[(c) " \302O\207" [c len nil] 3]] 5]) (defalias 'ido-file-name-all-completions #[(dir) "\306!\203 \307\310\311\312!\"\207 \247\203\361 \313V\203\361 ;\203\361 G\313V\203\361 \314!\203\361 \315\n\"\211A@ \316! \317! \206B ?\205I \320! \3218 \322 \203\245 \203l \f@\305=\205g \323\fA! \202\231 \203\201 \f@\324=\205| \325\fA! \202\231 \203\231 \f@@U\205\227 \fA@A@U \204\245 \326 \n\"\322 \204\347 \203\267 \324\327 B\202\307 \203\307 \330!\203\307 \305\327 B\203\331 \331!BB\211\nB\nG V\203\347 S\n\233\322\241\210 \205\356 AA.\207\331!\207" [dir ido-max-dir-file-cache ido-dir-file-cache cached ctime ftp ido-is-unc-root mapcar #[(host) "\301\302\"\203 \207\303P\207" [host string-match "/\\'" "/"] 3] ido-unc-hosts t 0 ido-may-cache-directory assoc ido-is-ftp-directory ido-is-unc-host file-attributes 5 nil ido-cache-ftp-valid unc ido-cache-unc-valid delq ido-time-stamp file-readable-p ido-file-name-all-completions-1 attr mtime valid] 5]) (defalias 'ido-remove-cached-dir #[(dir) "\205 ;\205 G\303V\205 \304 \"\211\205 \305\n\"\211)\207" [ido-dir-file-cache dir cached 0 assoc delq] 4]) (defalias 'ido-make-file-list-1 #[(dir &optional merged) "\301!\204 \302!\204 \303!\205 \304\305\306\307\310!\"\"\207" [dir ido-is-tramp-root ido-is-unc-root file-directory-p delq nil mapcar #[(name) "\304 \305#?\205 \n\203 B\207\207" [name ido-ignore-files merged dir ido-ignore-item-p t] 4] ido-file-name-all-completions] 6]) (defalias 'ido-make-file-list #[(default) "\306!\307 \n\203 \310\202 \311\"\312!\204$ \313\314\315\316\317 \"\"!\210)\313\314\315\316\320 \"\"!\210\f\203\211 \f \235\203\211 \204A \203\200 \f @\232\204\211 \315 \211 \203j A\203j \fA@\232\204j A\211\204R A\315\241\210 \244\210*\202\211 \321\f \"\f B\203\227 \321\322 \"\322 B\323\324!\210 )\207" [ido-current-directory ido-temp-list ido-file-extensions-order default-directory default ido-rotate-temp ido-make-file-list-1 sort ido-file-extension-lessp ido-file-lessp ido-is-tramp-root ido-to-end delq nil mapcar #[(x) "\302\303\"\203 \304!\203 \305!?\205 \306\307!)\205 \207" [x file-name-handler-alist string-match ".:\\'" ido-local-file-exists-p ido-final-slash nil get-file-buffer] 3] #[(x) "\301\302O\303\230\205\n \207" [x 0 1 "."] 3] delete "." run-hooks ido-make-file-list-hook ido-rotate-file-list-default k l ido-show-dot-for-dired] 7]) (defalias 'ido-make-dir-list-1 #[(dir &optional merged) "\301!\204\f \302!\205 \303\304\305\306\307!\"\"\207" [dir ido-is-tramp-root file-directory-p delq nil mapcar #[(name) "\304!\205 \305 \"?\205 \n\203 B\207\207" [name ido-ignore-directories merged dir ido-final-slash ido-ignore-item-p] 3] ido-file-name-all-completions] 6]) (defalias 'ido-make-dir-list #[(default) "\306!\307 \310\"\311\312\313\314\315 \"\"!\210\n\203i \n \235\203i \204% \f\203` \n @\232\204i \313 \211 \203M A\203M \nA@\232\204M A\211\2045 A\313\241\210 \244\210 *\202i \316\n \"\n B\316\317 \"\204w \317 B\320\321!\210 )\207" [ido-current-directory ido-temp-list default ido-rotate-temp ido-rotate-file-list-default k ido-make-dir-list-1 sort ido-file-lessp ido-to-end delq nil mapcar #[(x) "\301\302O\303\230\205\n \207" [x 0 1 "."] 3] delete "." run-hooks ido-make-dir-list-hook l ido-input-stack] 7]) (defalias 'ido-get-buffers-in-frames #[(&optional current) "\303\304\305\303 ?\205 \n#\210)\207" [ido-bufs-in-frame current ido-all-frames nil walk-windows ido-get-bufname] 4]) (defalias 'ido-get-bufname #[(win) "\304\305!!\211\n\235\206 \235?\205 \nB\211)\207" [win buf ido-bufs-in-frame ido-ignore-item-temp-list buffer-name window-buffer] 4]) (defalias 'ido-set-matches-1 #[(items &optional do-full) "\n?\205\n \306 !\211 \203 \307\310O\202 \203! \202$ \311 !\211 !\f\203/ \312\2020 \313P \"\n\203> \314\"P\202@ \" #$\205d ?\205d \315\316!\"?\205d \314!\f\203a \317\202b \313\320R %$\205\202 \f\205\202 ?\205\202 \315\316!\"?\205\202 !\321P &%\205\222 \n?\205\222 \314\"P '(?\206\250 )?\206\250 \n\206\250 G\307U *\322\211 + ,\322\211 - .\322/\323\324\325\217\210-\203\320 \326\327-\"\210-.\244.,\203\346 \326\330 &,E\"\210,.\244.+\203\374 \326\331 %+E\"\210+.\244..\204,0\203, G\332V\203, \204,\333\311\334 \313\"\335##\n\203&\314#P#\336\3371\"\210..\207" [ido-case-fold case-fold-search ido-enable-prefix ido-text slash text ido-final-slash 0 -1 regexp-quote ".*/" "" "\\`" string-match "$\\'" "/" "\\'" "/\\'" nil error (mapc #[(item) "\306!\n\204! \307H\310U\203 \307H\310U\202 \307H\310U?\203\225 \311\f \"\203\225 \312=\203M ;\203; \230\204M \313!\230\203M B\202\225 \203c \311 \"\203c B\202\225 \203y \311 \"\203y B\202\225 \203\217 \311 \"\203\217 B\202\225 B)\314\207" [item name non-prefix-dot ido-text re ido-cur-item ido-name 0 46 string-match buffer buffer-name t ido-default-item ido-entry-buffer matches full-re full-matches suffix-re suffix-matches prefix-re prefix-matches] 3] items) ((invalid-regexp (byte-code "\303 A\303\207" [ido-incomplete-regexp error matches t] 1))) ido-trace "prefix match" "suffix match" "full match" 1 mapconcat split-string ".*" mapc #[(item) "\304!\305\n \"\205 B\211)\207" [item name re matches ido-name string-match] 3] ido-enable-regexp rex0 rexq re do-full full-re suffix-re prefix-re ido-enable-dot-prefix ido-process-ignore-lists non-prefix-dot full-matches suffix-matches prefix-matches matches ido-incomplete-regexp ido-enable-flex-matching items] 6]) (defalias 'ido-set-matches #[nil "\205 \304\305 !\n?\"\306\211\207" [ido-rescan ido-cur-list ido-rotate ido-matches ido-set-matches-1 reverse nil] 3]) (defalias 'ido-ignore-item-p #[(name re-list &optional ignore-ext) " \235\206\306 \n\205\306 \205\306 \306 \307\216 \205 \f\205 \310\211G\310 \203\200 @\211;\203Z G\211Y\203w Z\310O\230\202i \311!\203h !\202i \310\203w \312\310\211\2021 A\211\2046 \203\267 @\211;\203\225 \313\"\202\244 \311!\203\243 !\202\244 \310\203\260 \312\310\211\202\201 A\211\204\204 \203\302 B.\207" [name ido-ignore-item-temp-list ido-process-ignore-lists re-list save-match-data-internal ignore-ext match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil functionp t string-match ido-ignore-extensions completion-ignored-extensions ido-case-fold slen flen nextstr ignorep case-fold-search ext-list ido-ignored-list] 7]) (defalias 'ido-find-common-substring #[(items subs) "\306\211\211 \203 \f\202 \307\f!\310\311 \"\312\306\n\"\310\313\n\" \314\f \"\211 \315=\2035 \f\2027 -\207" [ido-change-word-sub alist res ido-enable-regexp subs items nil regexp-quote mapcar ido-word-matching-substring delq ido-makealist try-completion t ido-case-fold completion-ignore-case comp] 4]) (defalias 'ido-word-matching-substring #[(word) "\305\n\306 !\"\211 \205 \306 !\f\307O*\207" [ido-case-fold case-fold-search ido-change-word-sub word m string-match ido-name nil] 5]) (defalias 'ido-makealist #[(res) "\301B\207" [res 1] 2]) (defalias 'ido-choose-completion-string #[(choice buffer mini-p base-size) "\305 \2056 \306!\203 \307!\210\305\310!\203 \311\n\312\2022 \313\n!\204+ \n\312\2022 \314 \n\"\210\315\316 \210\310\207" [ido-completion-buffer ido-current-directory choice ido-text ido-exit ido-active get-buffer kill-buffer t "" done ido-final-slash ido-set-current-directory refresh exit-minibuffer] 3]) #@59 Show possible completions in a *File Completions* buffer. (defalias 'ido-completion-help #[nil "\306\307 !\306\211 =\203^ \f\203^ \306p \310\f\306\211#\210\fq\210\311\f! \312d \"\203S \204< \313\314!\203E \315 e\"\210\202V \316\314!\210\317\211\f\317\202V \320 \210q\210*\202` \317 \205\273 \220\321 \203\211 \322\323!\210\306\211 \324 \317\325 \210!\206\261 \202\261 \"\203\232 \326!\206\226 !\202\261 \n\204\243 \203\250 \324 \202\261 \327!\206\260 !\330\" #\331#!)\221+\207" [ido-rescan ido-completion-buffer full-list display-it temp-buf last-command nil get-buffer display-buffer get-buffer-window pos-visible-in-window-p boundp ido-completion-buffer-full set-window-start make-local-variable t scroll-other-window sort message "Reading directory..." ido-all-completions ido-set-matches ido-flatten-merged-list copy-sequence ido-file-lessp display-completion-list this-command buf win ido-completion-buffer-all-completions ido-directory-too-big ido-ignored-list ido-cur-list ido-matches ido-use-merged-list completion-list] 5 (#$ . 88696) nil]) #@118 Kill the buffer at the head of `ido-matches'. If cursor is not at the end of the user input, delete to end of input. (defalias 'ido-kill-buffer-at-head #[nil "m\204 `\305 |\207\306\307@! \205* \310 !\210\311 !\203$ \306\211\202* \312 \f\"\211*\207" [ido-matches buf enable-recursive-minibuffers ido-rescan ido-cur-list line-end-position t ido-name kill-buffer get-buffer delq] 3 (#$ . 89794) nil]) #@118 Delete the file at the head of `ido-matches'. If cursor is not at the end of the user input, delete to end of input. (defalias 'ido-delete-file-at-head #[nil "m\204 `\306 |\207\307\310@! \203 P \205O \311 !\205O \312 !?\205O \313 !\205O \314\315 \316Q!\205O \317 !\210\311 !\203H \307\211\202O \320@ \"\211*\207" [ido-matches file enable-recursive-minibuffers ido-current-directory ido-rescan ido-cur-list line-end-position t ido-name file-exists-p file-directory-p file-writable-p yes-or-no-p "Delete " "? " delete-file delq] 4 (#$ . 90205) nil]) #@106 Switch to BUFFER according to METHOD. Record command in `command-history' if optional RECORD is non-nil. (defalias 'ido-visit-buffer #[(buffer method &optional record) "\306!\203\n \307!\310\211 \311=\203# \f\203 \312\313\"\210\313!\202\215 \314=\2038 \f\2032 \312\315\"\210\316!\202\215 \317=\203D \320!\202\215 \321=\203U \322!\210\323\324 !\202\215 \325>\203\201 \203\201 \326!\211\203\201 \327=\204s \330\331!\203\201 \332\n!\323 !\210\333\n!\202\215 \f\203\212 \312\315\"\210\315!*\207" [buffer newframe win method record window-system bufferp buffer-name nil kill ido-record-command kill-buffer other-window switch-to-buffer switch-to-buffer-other-window display display-buffer other-frame switch-to-buffer-other-frame select-frame-set-input-focus selected-frame (raise-frame maybe-frame) ido-buffer-window-other-frame raise-frame y-or-n-p "Jump to frame? " window-frame select-window] 3 (#$ . 90771)]) (defalias 'ido-buffer-window-other-frame #[(buffer) "\302\303! \235?\205 \304 \305\")\207" [blist buffer ido-get-buffers-in-frames current get-buffer-window 0] 3]) #@1675 Switch to another buffer. The buffer is displayed according to `ido-default-buffer-method' -- the default is to show it in the same window, unless it is already visible in another frame. As you type in a string, all of the buffers matching the string are displayed if substring-matching is used (default). Look at `ido-enable-prefix' and `ido-toggle-prefix'. When you have found the buffer you want, it can then be selected. As you type, most keys have their normal keybindings, except for the following: \<ido-buffer-completion-map> RET Select the buffer at the front of the list of matches. If the list is empty, possibly prompt to create new buffer. \[ido-select-text] Select the current prompt as the buffer. If no buffer is found, prompt for a new one. \[ido-next-match] Put the first element at the end of the list. \[ido-prev-match] Put the last element at the start of the list. \[ido-complete] Complete a common suffix to the current string that matches all buffers. If there is only one match, select that buffer. If there is no common suffix, show a list of all matching buffers in a separate window. \[ido-edit-input] Edit input string. \[ido-fallback-command] Fallback to non-ido version of current command. \[ido-toggle-regexp] Toggle regexp searching. \[ido-toggle-prefix] Toggle between substring and prefix matching. \[ido-toggle-case] Toggle case-sensitive searching of buffer names. \[ido-completion-help] Show list of matching buffers in separate window. \[ido-enter-find-file] Drop into `ido-find-file'. \[ido-kill-buffer-at-head] Kill buffer at head of buffer list. \[ido-toggle-ignore] Toggle ignoring buffers listed in `ido-ignore-buffers'. (defalias 'ido-switch-buffer #[nil "\301!\207" [ido-default-buffer-method ido-buffer-internal] 2 (#$ . 91878) nil]) #@175 Switch to another buffer and show it in another window. The buffer name is selected interactively by typing a substring. For details of keybindings, see `ido-switch-buffer'. (defalias 'ido-switch-buffer-other-window #[nil "\300\301\302\"\207" [ido-buffer-internal other-window switch-to-buffer-other-window] 3 (#$ . 93676) nil]) #@175 Display a buffer in another window but don't select it. The buffer name is selected interactively by typing a substring. For details of keybindings, see `ido-switch-buffer'. (defalias 'ido-display-buffer #[nil "\300\301\302\303\211\211\304&\207" [ido-buffer-internal display display-buffer nil ignore] 7 (#$ . 94012) nil]) #@134 Kill a buffer. The buffer name is selected interactively by typing a substring. For details of keybindings, see `ido-switch-buffer'. (defalias 'ido-kill-buffer #[nil "\300\301\302\303\304p!\305\306&\207" [ido-buffer-internal kill kill-buffer "Kill buffer: " buffer-name nil ignore] 7 (#$ . 94343) nil]) #@178 Insert contents of a buffer in current buffer after point. The buffer name is selected interactively by typing a substring. For details of keybindings, see `ido-switch-buffer'. (defalias 'ido-insert-buffer #[nil "\300\301\302\303\304\211\305&\207" [ido-buffer-internal insert insert-buffer "Insert buffer: " nil ido-enter-insert-file] 7 (#$ . 94654) nil]) #@174 Switch to another buffer and show it in another frame. The buffer name is selected interactively by typing a substring. For details of keybindings, see `ido-switch-buffer'. (defalias 'ido-switch-buffer-other-frame #[nil "\203 \301\302!\207\303\304!\207" [ido-mode ido-buffer-internal other-frame call-interactively switch-to-buffer-other-frame] 2 (#$ . 95018) nil]) #@43 Switch to another file starting from DIR. (defalias 'ido-find-file-in-dir #[(dir) "\302!\303 \304\304\211\211\305&\207" [dir ido-default-file-method file-name-as-directory ido-file-internal nil ignore] 8 (#$ . 95392) "DDir: "]) #@2344 Edit file with name obtained via minibuffer. The file is displayed according to `ido-default-file-method' -- the default is to show it in the same window, unless it is already visible in another frame. The file name is selected interactively by typing a substring. As you type in a string, all of the filenames matching the string are displayed if substring-matching is used (default). Look at `ido-enable-prefix' and `ido-toggle-prefix'. When you have found the filename you want, it can then be selected. As you type, most keys have their normal keybindings, except for the following: \<ido-file-completion-map> RET Select the file at the front of the list of matches. If the list is empty, possibly prompt to create new file. \[ido-select-text] Select the current prompt as the buffer or file. If no buffer or file is found, prompt for a new one. \[ido-next-match] Put the first element at the end of the list. \[ido-prev-match] Put the last element at the start of the list. \[ido-complete] Complete a common suffix to the current string that matches all files. If there is only one match, select that file. If there is no common suffix, show a list of all matching files in a separate window. \[ido-edit-input] Edit input string (including directory). \[ido-prev-work-directory] or \[ido-next-work-directory] go to previous/next directory in work directory history. \[ido-merge-work-directories] search for file in the work directory history. \[ido-forget-work-directory] removes current directory from the work directory history. \[ido-prev-work-file] or \[ido-next-work-file] cycle through the work file history. \[ido-wide-find-file-or-pop-dir] and \[ido-wide-find-dir-or-delete-dir] prompts and uses find to locate files or directories. \[ido-make-directory] prompts for a directory to create in current directory. \[ido-fallback-command] Fallback to non-ido version of current command. \[ido-toggle-regexp] Toggle regexp searching. \[ido-toggle-prefix] Toggle between substring and prefix matching. \[ido-toggle-case] Toggle case-sensitive searching of file names. \[ido-toggle-vc] Toggle version control for this file. \[ido-toggle-literal] Toggle literal reading of this file. \[ido-completion-help] Show list of matching files in separate window. \[ido-toggle-ignore] Toggle ignoring files listed in `ido-ignore-files'. (defalias 'ido-find-file #[nil "\301!\207" [ido-default-file-method ido-file-internal] 2 (#$ . 95632) nil]) #@167 Switch to another file and show it in another window. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-find-file-other-window #[nil "\300\301\302\"\207" [ido-file-internal other-window find-file-other-window] 3 (#$ . 98091) nil]) #@167 Switch to another file and show it in another window. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-find-alternate-file #[nil "\300\301\302\303\304$\207" [ido-file-internal alt-file find-alternate-file nil "Find alternate file: "] 5 (#$ . 98406) nil]) #@168 Edit file read-only with name obtained via minibuffer. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-find-file-read-only #[nil "\300\301\302\303\304$\207" [ido-file-internal read-only find-file-read-only nil "Find file read-only: "] 5 (#$ . 98746) nil]) #@184 Edit file read-only in other window with name obtained via minibuffer. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-find-file-read-only-other-window #[nil "\300\301\302\303\304$\207" [ido-file-internal read-only find-file-read-only-other-window nil "Find file read-only other window: "] 5 (#$ . 99088) nil]) #@183 Edit file read-only in other frame with name obtained via minibuffer. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-find-file-read-only-other-frame #[nil "\300\301\302\303\304$\207" [ido-file-internal read-only find-file-read-only-other-frame nil "Find file read-only other frame: "] 5 (#$ . 99485) nil]) #@167 Display a file in another window but don't select it. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-display-file #[nil "\300\301\302\211\211\211\211\303&\207" [ido-file-internal display nil ignore] 8 (#$ . 99878) nil]) #@166 Switch to another file and show it in another frame. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-find-file-other-frame #[nil "\300\301\302\"\207" [ido-file-internal other-frame find-file-other-frame] 3 (#$ . 100186) nil]) #@145 Write current buffer to a file. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-write-file #[nil "\306\307\310B\307\306\311 \312\313\314\307\315\307\211\316&.\207" [ido-ignore-files ido-auto-merge-work-directories-length ido-confirm-unique-completion ido-report-no-match ido-work-directory-match-only ido-process-ignore-lists t nil "[^/]\\'" -1 ido-file-internal write write-file "Write file: " ignore] 8 (#$ . 100498) nil]) #@156 Insert contents of file in current buffer. The file name is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-insert-file #[nil "\300\301\302\303\304\303\211\305&\207" [ido-file-internal insert insert-file nil "Insert file: " ido-enter-insert-buffer] 8 (#$ . 101017) nil]) #@139 Call `dired' the ido way. The directory is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-dired #[nil "\302\303\304\305\211\302\306\307%*\207" [ido-auto-merge-work-directories-length ido-report-no-match nil -1 ido-file-internal dired "Dired: " dir] 6 (#$ . 101358) nil]) #@148 Call `list-directory' the ido way. The directory is selected interactively by typing a substring. For details of keybindings, see `ido-find-file'. (defalias 'ido-list-directory #[nil "\302\303\304\305\211\302\306\307%*\207" [ido-auto-merge-work-directories-length ido-report-no-match nil -1 ido-file-internal list-directory "List directory: " dir] 6 (#$ . 101701) nil]) (defalias 'ido-initiate-auto-merge #[(buffer) "\306\307\"\210\310\311!\205= \312 \205= \313\302!\205= \n\205= \314\315 \n\"\306\316!\210\317 \320\321\212q\210\322 \210)\323\324 \")\207" [buffer ido-auto-merge-timer ido-eoinput contents ido-use-merged-list ido-text-init ido-trace "\n*merge timeout*" nil buffer-live-p ido-active boundp buffer-substring-no-properties minibuffer-prompt-end "request merge" auto t refresh ido-tidy throw ido ido-rotate-temp ido-exit] 3]) #@30 Post command hook for `ido'. (defalias 'ido-exhibit #[nil "\306 \205\260\307\310 d\"\311\312\211\f\2037 \313\314 \"\210\313\315@\"\210\313\316 \"\210\313\317A\"\210\313\320B\"\210\313\321C\"\210\212db\210\322\323!\204E \324\323!\210`D\325>\204' G\326U\204' G\327U\203\220 \330 \203s \331\230\203s \332@ \"\210\311\202'\333 \203' \331\230\203'\312 E\334 )\203'\332\335!\210\311\202'\336E\203\232 \337\202\233 \340 \"\203\301 \334 \203\301 \341 !\204\301 \332@ \"\210\342 \203\274 \343F\344 \210\311\202'\345 !\203\243\313\346 \"\210 \347\230\203\332 \350 \210\311\202' \351\230\203\351 \352\311!\210\311\202' \353\230\203\364 \311\202'\336\354 \"\203 \313\355 \"\210\350 !\210\311\202'\336\356 \"\203;\312\357\360\217 G\313 G\"\210G\2037\361G!\2037\332\362G!!\210\363G!H\311)\202'I\364>\203V \327\312O\365\230\203V\332\362 !!\210\311\202' \366\367O\331\230\203w\332I\370>\203o\371\331@\"\202p\331!\210\311\202'J\204\201K\203\232\361@\362 !P!\203\232\332@\362 !P!\210\311\202'\313\372!\210\311\202' \366\367O\331\230\203\343\336\373 \"\204\343\332 G\374U\203\277\331\202\326B\203\317@\375B@!P\202\326@ \326\367OP!\210 \367\312OH\311\202'L\204'\345 !\204'M\311=\203'N\247\203'N\326V\203' GNU\203'O\203\336O \"\204'\376 \204'\377L H\311\211P\2039\313\201^ H\"\210\300F\344 \210 Q\201_ \210\313\201` B\"\210R\203\221B\203\221R\201a =\204bBA\204\221\345\375B@!!\203\221 \204wR\311=\203\221\313\201b B@\"\210\332@\375B@!P!\210\300F\344 \210B\204\340J\204\340K\204\340S\203\340T\203\340\312UT A U S\313\201c T\"\210\201_ \210+B\203\340\313\201d B\"\210\311\211CVQH\300F\344 \210C\203^B\204^D\201e >\203^\334 \204^ G\327V\203^\336\373 \"\204^J\204^K\204^\313\201f !\210L\203%\201g \312\"\210\202^M\311=\203^N\247\203^N\326U\203^O\203F\336O \"\204^\376 \204^\313\201h !\210\201i W\312\201j p$X\311CL\203\215B\203\215B@A@@\230\204\215\332B@A@!\210\311L\201k FQH\344 \210\201l \210\201m YZ[?$ \\\312]\313\201n \\\"\210\\c.\207" [refresh try-single-dir-match buffer-undo-list contents ido-trace-enable this-command ido-active buffer-substring-no-properties minibuffer-prompt-end t nil ido-trace "\nexhibit" "dir" "contents" "list" "matches" "rescan" boundp ido-eoinput make-local-variable (buffer list) 0 1 ido-is-tramp-root "/" ido-set-current-directory ido-unc-hosts ido-is-root-directory "//" string-match ".[:@]\\'" ".:\\'" ido-local-file-exists-p ido-is-slow-ftp-host fallback exit-minibuffer ido-final-slash "final slash" "~/" ido-set-current-home "../" ido-up-directory "./" "\\`~[-_a-zA-Z0-9]+[$]?/\\'" "new home" "[$][A-Za-z0-9_]+/\\'" (byte-code "\302\303\304\305O! \"\207" [contents ido-current-directory expand-file-name substitute-in-file-name 0 -1] 5) ((error)) file-directory-p file-name-directory file-name-nondirectory (windows-nt ms-dos) ":/" -2 -1 (windows-nt ms-dos) expand-file-name "try single dir" "[$]" 2 ido-name input-pending-p auto ido-current-directory ido-cur-list ido-matches ido-rescan ido-cur-item ido-enable-tramp-completion ido-exit exp ido-text-init system-type ido-directory-nonreadable ido-directory-too-big ido-use-merged-list ido-try-merged-list ido-auto-merge-work-directories-length ido-auto-merge-inhibit-characters-regexp ido-rotate-temp ido-text ido-enter-matching-directory ido-process-ignore-lists ido-ignored-list ido-rotate ido-process-ignore-lists-inhibit ido-auto-merge-delay-time ido-auto-merge-timer minibuffer-completion-table minibuffer-completion-predicate minibuffer-completion-confirm inf ido-show-confirm-message "refresh on /" ido-set-matches "new " first "single match" "try all" "found " (file dir) "merge?" ido-undo-merge-work-directory "\n*start timer*" run-with-timer ido-initiate-auto-merge keep ido-set-common-completion ido-completions "inf"] 6 (#$ . 102559)]) (defalias 'ido-completions #[(name candidates predicate require-match) "\211@:\205 @AG\306V\205 \n\307 \203% \203% \310\311\306\312\313 %\210 \203h \203h \314 @!\211 &G '\315\316&\"\310\311'\312 G\306U\203V \203R \317\202W \320\202W \321\f%\210 \203b \f P\f AB* \204\254 (\203| \322)8\206L\323\202L*\203\214 \324)8\206L\325\202L+\203\234 \326)8\206L\327\202L,\203\250 \330)8\202L\331\202L\203\270 \332 @P\202L A\204-\204\316 \314 @!G.GU\202\343 \333.\314 @!\"\210\334\311\314 @!\"\314 @!\230\203\352 \331\202\367 \335)8\314 @!\336)8Q ?\205 \337)8P\202L/\311V\203/T\202\340 0\341\342\341\343\344\345 \"\"A\" 12;\205A2G.GV\205A\335)82.G\307O\336)8Q)@1)A@R*+\207" [ido-matches comps ido-merged-indicator ind first ido-use-faces 1 nil put-text-property 0 face ido-indicator ido-name format "%s" ido-incomplete-regexp ido-only-match ido-first-match 10 " [Confirm]" 8 " [Not readable]" 9 " [Too big]" 6 "" " " string-match match-string 4 5 7 999 apply concat nconc mapcar #[(com) "\306! S\211\307W\203 \310\207 \307U\203 \311\n8C\207 \206! \312\n8\307\310O \203@ \f\230\204@ \313\f!\203@ \314\307\fG\315\316\f%\210\f)D\207" [com items ido-decorations ido-separator str ido-use-faces ido-name 0 nil 3 2 ido-final-slash put-text-property face ido-subdir first] 8] fn ln ido-show-confirm-message ido-decorations ido-directory-nonreadable ido-directory-too-big ido-report-no-match ido-enable-regexp name ido-max-prospects items alternatives ido-common-match-string] 8]) #@34 Minibuffer setup hook for `ido'. (defalias 'ido-minibuffer-setup #[nil "\302 \205& \303\304\305\306\307$\210\303\310\311\306\307$\210\307\312\313!\210 \205& \314 \\b\210\306\211\207" [cua-inhibit-cua-keys ido-initial-position ido-active add-hook pre-command-hook ido-tidy nil t post-command-hook ido-exhibit run-hooks ido-minibuffer-setup-hook minibuffer-prompt-end] 5 (#$ . 108021)]) #@29 Pre command hook for `ido'. (defalias 'ido-tidy #[nil "\203 \304\305 \"\210\306!\210\307\310 \2056 \311\302!\203/ \n\203/ \ndV\203( d\211\207\312\nd|)\207\313\302!\210\314\211\207" [ido-auto-merge-timer this-command ido-eoinput buffer-undo-list ido-trace "\n*cancel timer*" cancel-timer nil ido-active boundp t make-local-variable 1] 3 (#$ . 108415)]) (defalias 'ido-summary-buffers-to-end #[nil "\302\303\304\305\"\"\306 !)\207" [ido-temp-list summaries delq nil mapcar #[(x) "\301\302\"\204 \301\303\"\205 \207" [x string-match "Summary" "output\\*\\'"] 3] ido-to-end] 5]) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put dired-do-rename ido ignore ibuffer-find-file find-file dired-other-window dir] 4) #@291 Ido replacement for the built-in `read-buffer'. Return the name of a buffer selected. PROMPT is the prompt to give to the user. DEFAULT if given is the default buffer to be selected, which will go to the front of the list. If REQUIRE-MATCH is non-nil, an existing buffer must be selected. (defalias 'ido-read-buffer #[(prompt &optional default require-match) "\306\211\306\307\310\311\f\312 % \313=\203+ \306 \314\315\316\"\210\316\f #)\202- -\207" [ido-current-directory ido-directory-nonreadable ido-directory-too-big ido-context-switch-command prompt default nil ignore ido-read-internal buffer ido-buffer-history fallback run-hook-with-args ido-before-fallback-functions read-buffer require-match buf ido-exit read-buffer-function] 7 (#$ . 109175)]) #@171 Ido replacement for the built-in `read-file-name'. Read file name, prompting with PROMPT and completing in directory DIR. See `read-file-name' for additional parameters. (defalias 'ido-read-file-name #[(prompt &optional dir default-filename mustmatch initial predicate) "\306 \307=\204 \n\310N\305=\204 \n >\203- \311\f % \312=\203\305 \312\202\305 \n\310N\313=\204\303 \n >\204\303 \203F \314=\203\303 \306 !\n\310N\315=?\205S \313 \"\316\317!\205] \320 #\321 ! $\322$!?\211 %?\205w \323$! &\324 '(\205\204 ? (\324 )\306\211 * \325\326\f\327 & \312=\203\250 \312\202\276 \330=\203\265 $\202\276 \203\276 $P. \202\305 \312\312=\203\343 \306 +\331\332\333\"\210\333\f &)\202\344 )\207" [filename predicate this-command ido-read-file-name-as-directory-commands prompt dir nil file-directory-p ido ido-read-directory-name fallback ignore file-exists-p find-file boundp vc-handled-backends t ido-expand-directory file-readable-p ido-directory-too-big-p -1 ido-read-internal file ido-file-history dired run-hook-with-args ido-before-fallback-functions read-file-name default-filename mustmatch initial ido-exit ido-read-file-name-non-ido ido-saved-vc-hb ido-context-switch-command minibuffer-completing-file-name ido-current-directory ido-directory-nonreadable ido-directory-too-big ido-work-directory-index ido-show-dot-for-dired ido-work-file-index ido-find-literal read-file-name-function] 8 (#$ . 109951)]) #@186 Ido replacement for the built-in `read-directory-name'. Read directory name, prompting with PROMPT and completing in directory DIR. See `read-directory-name' for additional parameters. (defalias 'ido-read-directory-name #[(prompt &optional dir default-dirname mustmatch initial) "\306\307\310\306\311\f! \312 !?\211 ?\205 \313 ! \314\211 \315\304\316&\211\205F ;\203C \317\230\203C \202F P. \207" [filename minibuffer-completing-file-name ido-context-switch-command ido-saved-vc-hb dir ido-current-directory nil t ignore ido-expand-directory file-readable-p ido-directory-too-big-p -1 ido-read-internal ido-file-history "." ido-directory-nonreadable ido-directory-too-big ido-work-directory-index ido-work-file-index prompt default-dirname mustmatch initial] 8 (#$ . 111417)]) #@797 Ido replacement for the built-in `completing-read'. Read a string in the minibuffer with ido-style completion. PROMPT is a string to prompt with; normally it ends in a colon and a space. CHOICES is a list of strings which are the possible completions. PREDICATE is currently ignored; it is included to be compatible with `completing-read'. If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless the input is (or completes to) an element of CHOICES or is null. If the input is null, `ido-completing-read' returns DEF, or an empty string if DEF is nil, regardless of the value of REQUIRE-MATCH. If INITIAL-INPUT is non-nil, insert it in the minibuffer initially, with point positioned at the end. HIST, if non-nil, specifies a history list. DEF, if non-nil, is the default value. (defalias 'ido-completing-read #[(prompt choices &optional predicate require-match initial-input hist def) "\306\211\211\307 \310\311\n \f &-\207" [choices ido-choice-list ido-context-switch-command ido-directory-too-big ido-directory-nonreadable ido-current-directory nil ignore ido-read-internal list prompt hist def require-match initial-input] 7 (#$ . 112226)]) #@25 Unload the Ido library. (defalias 'ido-unload-function #[nil "\301\302!\210\303\301\"\304\207" [minor-mode-map-alist ido-mode -1 assq-delete-all nil] 3 (#$ . 113406)]) (provide 'ido)
Close
