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 : dired-aux.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:48 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/dired-aux.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; Function definitions are lazy-loaded. ;;; 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 "`dired-aux.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'dired) #@196 Variable where `dired-create-files' records failing file names. Functions that operate recursively can store additional names into this list; they also should call `dired-log' to log the errors. (defvar dired-create-files-failures nil (#$ . 669)) (byte-code "\301B\302\303!\210\304B\305\306!\207" [current-load-list dired-star-subst-regexp (lambda (#1=#:defconst-tmp-var) (defconst dired-star-subst-regexp #1#)) "\\(^\\|[ ]\\)\\*\\([ ]\\|$\\)" dired-quark-subst-regexp (lambda (#2=#:defconst-tmp-var) (defconst dired-quark-subst-regexp #2#)) "\\(^\\|[ ]\\)\\?\\([ ]\\|$\\)"] 2) #@316 Compare file at point with file FILE using `diff'. FILE defaults to the file at the mark. (That's the mark set by \[set-mark-command], not by Dired's \[dired-mark] command.) The prompted-for file is the first file given to `diff'. With prefix arg, prompt for second argument SWITCHES, which is options for `diff'. (defalias 'dired-diff #[(file &optional switches) #@70 ("\302\303\304! #\207" . [file switches diff dired-get-filename t]) (#$ . 1633) nil 4 (#$ . 1262) (let ((current (dired-get-filename t)) (default (if (mark t) (save-excursion (goto-char (mark t)) (dired-get-filename t t))))) (if (or (equal default current) (and (not (equal (dired-dwim-target-directory) (dired-current-directory))) (not mark-active))) (setq default nil)) (require 'diff) (list (read-file-name (format "Diff %s with%s: " current (if default (concat " (default " default ")") "")) (if default (dired-current-directory) (dired-dwim-target-directory)) default t) (if current-prefix-arg (read-string "Options for diff: " (if (stringp diff-switches) diff-switches (mapconcat 'identity diff-switches " "))))))]) #@295 Diff this file with its backup file or vice versa. Uses the latest backup, if there are several numerical backups. If this file is a backup, diff it with its original. The backup file is the first file given to `diff'. With prefix arg, prompt for argument SWITCHES which is options for `diff'. (defalias 'dired-backup-diff #[(&optional switches) #@66 ("\301\302 \"\207" . [switches diff-backup dired-get-filename]) (#$ . 2714) nil 3 (#$ . 2362) (byte-code "\205 \302\303 ;\203 \202 \304\305 \306#\"C\207" [current-prefix-arg diff-switches read-string "Options for diff: " mapconcat identity " "] 6)]) #@1125 Mark files with different file attributes in two dired buffers. Compare file attributes of files in the current directory with file attributes in directory DIR2 using PREDICATE on pairs of files with the same name. Mark files for which PREDICATE returns non-nil. Mark files with different names if PREDICATE is nil (or interactively with empty input at the predicate prompt). PREDICATE is a Lisp expression that can refer to the following variables: size1, size2 - file size in bytes mtime1, mtime2 - last modification time in seconds, as a float fa1, fa2 - list of file attributes returned by function `file-attributes' where 1 refers to attribute of file in the current dired buffer and 2 to attribute of file in second dired buffer. Examples of PREDICATE: (> mtime1 mtime2) - mark newer files (not (= size1 size2)) - mark files with different sizes (not (string= (nth 8 fa1) (nth 8 fa2))) - mark files with different modes (not (and (= (nth 2 fa1) (nth 2 fa2)) - mark files with different UID (= (nth 3 fa1) (nth 3 fa2)))) and GID. (defalias 'dired-compare-directories #[(dir2 predicate) #@921 ("\306 \307!\307\n!\310\211 \311\312\313 \" \"\311\312\314 \" \"\311\312\313 \" \"\311\312\314 \" \"\315\316\317 #\"\315\316\317 #\"\320\310\321#\210\320\n\310\322#\210\323\324\fG G#-\207" . [dir1 file-alist1 dir2 file-alist2 file-list1 file-list2 dired-current-directory dired-files-attributes nil delq assoc "." ".." mapcar cadr dired-file-set-difference dired-fun-in-all-buffers #[nil "\304\305\212\306eb\210m\204'0\307\305\304\"\n\235\203!0\310\311!\210 c\210T\311y\210\202\n0)\306V\205/0*\207" [count inhibit-read-only file-list1 dired-marker-char t nil 0 dired-get-filename delete-char 1] 3] #[nil "\304\305\212\306eb\210m\204'0\307\305\304\"\n\235\203!0\310\311!\210 c\210T\311y\210\202\n0)\306V\205/0*\207" [count inhibit-read-only file-list2 dired-marker-char t nil 0 dired-get-filename delete-char 1] 3] message "Marked in dir1: %s files, in dir2: %s files" predicate]) (#$ . 4164) nil 7 (#$ . 2977) (list (read-directory-name (format "Compare %s with: " (dired-current-directory)) (dired-dwim-target-directory) (dired-dwim-target-directory)) (read-from-minibuffer "Mark if (lisp expr or RET): " nil nil t nil "nil"))]) #@430 Combine LIST1 and LIST2 using a set-difference operation. The result list contains all file items that appear in LIST1 but not LIST2. This is a non-destructive function; it makes a copy of the data if necessary to avoid corrupting the original LIST1 and LIST2. PREDICATE (see `dired-compare-directories') is an additional match condition. Two file items are considered to match if they are equal *and* PREDICATE evaluates to t. (defalias 'dired-file-set-difference #[(list1 list2 predicate) #@366 ("\2030 \204\n0\207\306\306\211 \203|0\f@ \211 \203l0 @ \211 \fAA)@ \211 \fAA)@ \307 8 \3078 \310\311 8! \310\3118! @ @\232\205`0\312!?.\204l0 A\211\204 0 )\204u0 \nB\fA\211\2040*\n\237)\207" . [list1 list2 res file1 #1=#:--cl-dolist-temp-- list nil 7 float-time 5 eval file2 x fa1 fa2 size1 size2 mtime1 mtime2 predicate]) (#$ . 5839) nil 4 (#$ . 5340)]) #@121 Return a list of all file names and attributes from DIR. List has a form of (file-name full-file-name (attribute-list)) (defalias 'dired-files-attributes #[(dir) #@166 ("\301\302\303!\"\207" . [dir mapcar #[(file-name) "\303 \"\n\304\n!E)\207" [file-name dir full-file-name expand-file-name file-attributes] 4] directory-files]) (#$ . 6411) nil 4 (#$ . 6242)]) #@49 Create initial input value for `touch' command. (defalias 'dired-touch-initial #[(files) #@200 ("\303 \203(0\304\305 @!8\203_0\n\232\204_0\306 \303\202!0\n A)\2020\307\310\")\207" . [initial files current nil 5 file-attributes current-time format-time-string "%Y%m%d%H%M.%S"]) (#$ . 6709) nil 3 (#$ . 6613)]) (defalias 'dired-do-chxxx #[(attribute-name program op-symbol arg) #@534 ("\306\307\"\310\311\n\312Q \313=\2050\314 ! % \315\fQ \316 \317\320\321\322 D \313=\20500\323\fC\324\325 \"\205;0\326$ $ \327!\210 \205Q0\330\331\332\"\316\",\207" . [arg files attribute-name op-symbol new-attribute program dired-get-marked-files t dired-mark-read-string "Change " " of %s to: " touch dired-touch-initial " " nil dired-bunch-files 10000 dired-check-process append ("-t") string-match "gnu" ("--") dired-do-redisplay dired-log-summary format "%s: error" operation failures system-configuration]) (#$ . 7013) nil 10]) #@91 Change the mode of the marked (or next ARG) files. Symbolic modes like `g+w' are allowed. (defalias 'dired-do-chmod #[(&optional arg) #@687 ("\306\307\"\211@;\2050\310\311 @!8\211;\20510\312\313\n\"\20510\314\315\316\317\320\321\322\n\"\321\323\n\"\321\324\n\"$#\325\326\327\330 & \312\331\f\"\205G0\332\f\310\" \327 _\211 \203t0 @_\333_ \203b0 \202i0\334\f\335_!\"\"\210 A\211 \204R0*\336!-\207" . [arg files modestr default modes num-modes dired-get-marked-files t 8 file-attributes string-match "^.\\(...\\)\\(...\\)\\(...\\)$" replace-regexp-in-string "-" "" format "u=%s,g=%s,o=%s" match-string 1 2 3 dired-mark-read-string "Change mode of %s to: " nil chmod "^[0-7]+" string-to-number set-file-modes file-modes-symbolic-to-number file-modes dired-do-redisplay file #1=#:--cl-dolist-temp--]) (#$ . 7713) nil 11 (#$ . 7572) "P"]) #@53 Change the group of the marked (or next ARG) files. (defalias 'dired-do-chgrp #[(&optional arg) #@175 ("\302>\203\n0\303\304!\210\305\306\307\310 $\207" . [system-type arg (ms-dos windows-nt) error "chgrp not supported on this system" dired-do-chxxx "Group" "chgrp" chgrp]) (#$ . 8544) nil 5 (#$ . 8441) "P"]) #@53 Change the owner of the marked (or next ARG) files. (defalias 'dired-do-chown #[(&optional arg) #@185 ("\303>\203\n0\304\305!\210\306\307 \310\n$\207" . [system-type dired-chown-program arg (ms-dos windows-nt) error "chown not supported on this system" dired-do-chxxx "Owner" chown]) (#$ . 8862) nil 5 (#$ . 8759) "P"]) #@75 Change the timestamp of the marked (or next ARG) files. This calls touch. (defalias 'dired-do-touch #[(&optional arg) #@86 ("\302\303\304 $\207" . [dired-touch-program arg dired-do-chxxx "Timestamp" touch]) (#$ . 9211) nil 5 (#$ . 9087) "P"]) (defalias 'dired-bunch-files #[(max function args files) #@315 ("\306\211\307\306\f\203P0\f@\211 G\310\\ \fA \f \203>0 \\ V\203>0 \237\311\312 \"\"\244\n \244\306\307\f \241\210\f \\\f+\2020 \237\311\312 \"\"\244\n \244\210,\207" . [failures pending-length past pending files thisfile nil 0 3 apply append thislength rest max function args]) (#$ . 9395) nil 6]) #@129 Print the marked (or next ARG) files. Uses the shell command coming from variables `lpr-command' and `lpr-switches' as default. (defalias 'dired-do-print #[(&optional arg) #@286 ("\305\306\"\307\310\311\312\n ;\2030 C\2020 B\313#\314 % \315\316\f \317#!*\207" . [arg file-list lpr-command lpr-switches command dired-get-marked-files t dired-mark-read-string "Print %s with: " mapconcat identity " " print dired-run-shell-command dired-shell-stuff-it nil]) (#$ . 9914) nil 6 (#$ . 9735) "P"]) (defalias 'dired-mark-read-string #[(prompt initial op-symbol arg files &optional default) #@155 ("\306\307 \310\311\n\312 \"\"\f\307 &\207" . [op-symbol files prompt arg initial default dired-mark-pop-up nil read-string format dired-mark-prompt]) (#$ . 10332) nil 10]) #@353 Flag numerical backups for deletion. Spares `dired-kept-versions' latest versions, and `kept-old-versions' oldest. Positive prefix arg KEEP overrides `dired-kept-versions'; Negative prefix arg KEEP overrides `kept-old-versions' with KEEP made positive. To clear the flags on these files, you can use \[dired-flag-backup-files] with a prefix argument. (defalias 'dired-clean-directory #[(keep) #@612 ("\203\n0\306!\202 0 \211\307W\2030[\2020\n\307X\203\"0 \202#0\310 \311\312\f #\210\313\314!\210 \211 \203n0\315\316@A\317\"B\211 G\211 \f\\V\203\\0 \233\fZ\233\241\210@A\241\210*A\211\20480)\313\320!\210\311\321!+\207" . [keep dired-kept-versions kept-old-versions dired-file-version-alist late-retention early-retention prefix-numeric-value 0 nil message "Cleaning numerical backups (keeping %d late, %d old)..." dired-map-dired-file-lines dired-collect-file-versions q sort < dired-trample-file-versions "Cleaning numerical backups...done" fval sorted-v-list v-count]) (#$ . 10915) nil 5 (#$ . 10514) "P"]) (defalias 'dired-map-dired-file-lines #[(fun) #@206 ("\212\304\211eb\210m?\205/0\212\305\n!\204(0l\204(0\306\304\307\"\211\203(0\304\210 !\210)\310y\210\2020+\207" . [buffer-read-only file dired-re-dir fun nil looking-at dired-get-filename t 1]) (#$ . 11616) nil 3]) (defalias 'dired-collect-file-versions #[(fn) #@334 ("\306!\307 \"?\205-0\310!\311P\211G\312\n\313!\" \314\315\f\"\211 \205,0 B B\211,)\207" . [fn dired-file-version-alist base-versions backup-extract-version-start possibilities versions file-name-sans-versions assoc file-name-nondirectory ".~" file-name-all-completions file-name-directory mapcar backup-extract-version]) (#$ . 11894) nil 5]) (defalias 'dired-trample-file-versions #[(fn) #@283 ("\305\306\"\307 \205.0\310\311 O \"\211\205.0\312\313 \\\307O!\n>?\205.0\314 \210\315\316!\210\fc*\207" . [fn start-vn base-version-list dired-file-version-alist dired-del-marker string-match "\\.~[0-9]+~$" nil assoc 0 string-to-number 2 beginning-of-line delete-char 1]) (#$ . 12300) nil 4]) #@206 Return a list of all commands associated with current dired files. This function is used to add all related commands retrieved by `mailcap' to the end of the list of defaults just after the default value. (defalias 'minibuffer-default-add-dired-shell-commands #[nil #@192 ("\303\300!\2050\304\305\306\307#\2050\310!\n<\203 0\311\n \"\202!0\n B)\207" . [files commands minibuffer-default boundp require mailcap nil t mailcap-file-default-commands append]) (#$ . 12882) nil 4 (#$ . 12609) nil]) #@168 Read a dired shell command prompting with PROMPT (using read-shell-command). ARG is the prefix arg and may be used to indicate in the prompt which FILES are affected. (defalias 'dired-read-shell-command #[(prompt arg files) #@490 ("\304\305\306\216\307\310\"\210\311\304\312 \313\314\n\315 \"\"\304\211&*\207" . [#1=#:setup-hook files prompt arg nil #[nil "\302\303\"\210\304\301!\210\305\211\207" [#1# minibuffer-default-add-function remove-hook minibuffer-setup-hook make-local-variable minibuffer-default-add-dired-shell-commands] 3] ((byte-code "\301\302\"\207" [#1# remove-hook minibuffer-setup-hook] 3)) add-hook minibuffer-setup-hook dired-mark-pop-up shell read-shell-command format dired-mark-prompt]) (#$ . 13348) nil 10 (#$ . 13117)]) #@272 Run a shell command COMMAND on the marked files asynchronously. Like `dired-do-shell-command' but if COMMAND doesn't end in ampersand, adds `* &' surrounded by whitespace and executes the command asynchronously. The output appears in the buffer `*Async Shell Command*'. (defalias 'dired-do-async-shell-command #[(command &optional arg file-list) #@168 ("\303\304\"\204 0\305P\303\306\"\2040\307P\310 \n#\207" . [command arg file-list string-match "[*?][ ]*\\'" " *" "&[ ]*\\'" " &" dired-do-shell-command]) (#$ . 14232) nil 4 (#$ . 13878) (let ((files (dired-get-marked-files t current-prefix-arg))) (list (dired-read-shell-command "& on %s: " current-prefix-arg files) current-prefix-arg files))]) #@1507 Run a shell command COMMAND on the marked files. If no files are marked or a specific numeric prefix arg is given, the next ARG files are used. Just \[universal-argument] means the current file. The prompt mentions the file(s) or the marker, as appropriate. If there is a `*' in COMMAND, surrounded by whitespace, this runs COMMAND just once with the entire file list substituted there. If there is no `*', but there is a `?' in COMMAND, surrounded by whitespace, this runs COMMAND on each file individually with the file name substituted for `?'. Otherwise, this runs COMMAND on each file individually with the file name added at the end of COMMAND (separated by a space). `*' and `?' when not surrounded by whitespace have no special significance for `dired-do-shell-command', and are passed through normally to the shell, but you must confirm first. To pass `*' by itself to the shell as a wildcard, type `*""'. If COMMAND produces output, it goes to a separate buffer. This feature does not try to redisplay Dired buffers afterward, as there's no telling what files COMMAND may have changed. Type \[dired-do-redisplay] to redisplay the marked files. When COMMAND runs, its working directory is the top-level directory of the Dired buffer, so output files usually are created there instead of in a subdir. In a noninteractive call (from Lisp code), you must specify the list of file names explicitly with the FILE-LIST argument, which can be produced by `dired-get-marked-files', for example. (defalias 'dired-do-shell-command #[(command &optional arg file-list) #@706 ("\306 \"?\306 \"? \306\307 \"? \306\310 \"? \n\204'0\f\204'0\311\312!\202E0 \20350\n\20450\313\314!\202E0\203D0\f\204D0\313\315!\202E0\316\205c0\n\203Y0\317\320 GZ\321\322$\202c0\323\324 \322$!,\207" . [dired-star-subst-regexp command on-each dired-quark-subst-regexp subst star string-match "\\*" "\\?" error "You can not combine `*' and `?' substitution marks" y-or-n-p "Confirm--do you mean to use `*' as a wildcard? " "Confirm--do you mean to use `?' as a wildcard? " t dired-bunch-files 10000 #[(&rest files) "\303\304 \305\n$!\207" [command files arg dired-run-shell-command dired-shell-stuff-it t] 6] nil dired-run-shell-command dired-shell-stuff-it qmark file-list arg]) (#$ . 16181) nil 6 (#$ . 14598) (let ((files (dired-get-marked-files t current-prefix-arg))) (list (dired-read-shell-command (concat "! on " "%s: ") current-prefix-arg files) current-prefix-arg files))]) #@52 Prepended to marked files in dired shell commands. (defvar dired-mark-prefix "" (#$ . 17095)) #@51 Appended to marked files in dired shell commands. (defvar dired-mark-postfix "" (#$ . 17195)) #@49 Separates marked files in dired shell commands. (defvar dired-mark-separator " " (#$ . 17295)) (defalias 'dired-shell-stuff-it #[(command file-list on-each &optional raw-arg) #@557 ("\306 \"\2040\306\n \"\2030\307\2020\310\f\203#0\311 \312\313 \"\314#\202@0\311\313 # G\315V\203;0Q !))\207" . [dired-star-subst-regexp command dired-quark-subst-regexp stuff-it on-each file-list string-match #[(x) "\303\304 \"\2030\305\n\306\211 \307%\2020 )\207" [command retval x string-match "\\(^\\|[ ]\\)\\([*?]\\)\\([ ]\\|$\\)" replace-match t 2] 6] #[(x) " \nQ\207" [command dired-mark-separator x] 3] mapconcat mapcar shell-quote-argument ";" 1 dired-mark-separator files dired-mark-prefix dired-mark-postfix]) (#$ . 17477) nil 5]) (defalias 'dired-run-shell-command #[(command) #@183 ("\303\304!\305\"\211\2030\306 \305\nC#\210\2020\305\n!\210)\307\207" . [default-directory handler command find-file-name-handler directory-file-name shell-command apply nil]) (#$ . 18107) nil 5]) (defalias 'dired-check-process #[(msg program &rest arguments) #@438 ("\306\211\307\310\f\"\210\212\311\312!\211q\210\313 \210 \314\315 \306\316\306&\317=?\211\203F0\320 \321\322!\323R!\210\320 !\210\206P0 \206P0\316\202P0\324 !\210\307\325\f\"\210\306,\207" . [default-directory dir err err-buffer msg program nil message "%s..." get-buffer-create " *dired-check-process output*" erase-buffer apply process-file t 0 dired-log " " prin1-to-string "\n" kill-buffer "%s...done" arguments]) (#$ . 18379) nil 8]) (defalias 'dired-kill-line #[(&optional arg) #@391 ("\303!\304\211\305U\204M0\306\304\307\"\211\204 0\310\311!\210\2020\212 \203,0\312 !\203,0\313 \210)\314 \210`\315y\210`|\210\305V\203D0S\211\202 0T\316y\210\2020\317 *\207" . [arg file buffer-read-only prefix-numeric-value nil 0 dired-get-filename t error "Can only kill file lines" dired-goto-subdir dired-kill-subdir beginning-of-line 1 -1 dired-move-to-filename]) (#$ . 18888) nil 4 nil "P"]) #@561 Kill all marked lines (not the files). With a prefix argument, kill that many lines starting with the current line. (A negative argument kills backward.) If you use this command with a prefix argument to kill the line for a file that is a directory, which you have inserted in the Dired buffer as a subdirectory, then it deletes that subdirectory from the buffer as well. To kill an entire subdirectory (without killing its line in the parent directory), go to its directory header line and use this command with a prefix argument (the value does not matter). (defalias 'dired-do-kill-lines #[(&optional arg fmt) #@397 ("\2030\305 \203\f0\306 \207\307!\207\212eb\210\310\311\312 m\20470\313 \310\314#\20370\nT\315 \210`\316y\210`|\210\2020\f\317\232\204I0\320\f\206C0\321\n\322\n!#\210\n,\207" . [arg regexp count buffer-read-only fmt dired-get-subdir dired-kill-subdir dired-kill-line nil 0 dired-marker-regexp re-search-forward t beginning-of-line 1 "" message "Killed %d line%s." dired-plural-s]) (#$ . 19933) nil 5 (#$ . 19313) "P"]) (defalias 'dired-compress #[nil #@290 ("\304\305 \306 !\211\203 0`\304\307\310\217\210 b\210\311\n!\210)\304\202'0\312\313 P!\210 +\207" . [buffer-read-only from-file new-file start nil dired-get-filename dired-compress-file (dired-remove-entry new-file) ((error)) dired-update-file-line dired-log "Failed to compress"]) (#$ . 20405) nil 4]) #@551 Control changes in file name suffixes for compression and uncompression. Each element specifies one transformation rule, and has the form: (REGEXP NEW-SUFFIX PROGRAM) The rule applies when the old file name matches REGEXP. The new file name is computed by deleting the part that matches REGEXP (as well as anything after that), then adding NEW-SUFFIX in its place. If PROGRAM is non-nil, the rule is an uncompression rule, and uncompression is done by running PROGRAM. Otherwise, the rule is a compression rule, and compression is done with gzip. (defvar dired-compress-file-suffixes '(("\\.gz\\'" #1="" "gunzip") ("\\.tgz\\'" ".tar" "gunzip") ("\\.Z\\'" #1# "uncompress") ("\\.z\\'" #1# "gunzip") ("\\.dz\\'" #1# "dictunzip") ("\\.tbz\\'" ".tar" "bunzip2") ("\\.bz2\\'" #1# "bunzip2") ("\\.tar\\'" ".tgz" nil)) (#$ . 20721)) (defalias 'dired-compress-file #[(file) #@919 ("\306\307\"\310\211 \n\203'0\310 \311\n@@\"\203 0\n@\310\nA)\202 0\f\20350\312\211\224O\fA@P \203@0 \307\"\202i0\313!\203J0\310\202i0\f\203e0\314\f8\203e0\315\316P\314\f8#?\205i0 \202i0\310\317\320\217,\207" . [file dired-compress-file-suffixes suffixes newname suffix handler find-file-name-handler dired-compress-file nil string-match 0 file-symlink-p 2 dired-check-process "Uncompressing " (byte-code "\303P\304 !\2030\305\306\307 \"!\205B0\310\311P\312\313$?\205B0\304 !\204-0\314P\211\205B0\n\203A0\n \232\204A0\315 \n\316#\210\n\202B0 )\207" [file out-name newname ".gz" file-exists-p y-or-n-p format "File %s already exists. Really compress? " dired-check-process "Compressing " "gzip" "-f" ".z" rename-file t] 5) ((file-error (byte-code "\301\302P\303\304$?\2050\305P\207" [file dired-check-process "Compressing " "compress" "-f" ".Z"] 5))) case-fold-search]) (#$ . 21597) nil 4]) (defalias 'dired-mark-confirm #[(op-symbol arg) #@314 ("\305=\20620 >\20620\306\305\n\307\305$ \310=\203 0\311\202!0\312\313 !! \314\307 \f\315 \316\317\n\f\"\320R%*\207" . [dired-no-confirm op-symbol arg string files t dired-get-marked-files nil compress "Compress or uncompress" capitalize symbol-name dired-mark-pop-up y-or-n-p " " dired-mark-prompt "? "]) (#$ . 22590) nil 10]) (defalias 'dired-map-over-marks-check #[(fun arg op-symbol &optional show-progress) #@1039 ("\306 \"\205\3370\307\310\211\211 \20330 \250\203,0\311 \312\"\210 \313W\203(0\n\237\202\2230\n\202\2230 C\202\2230\314 \310 _\212eb\210\315_\310\307#\205I0\316 \211 ?? \203\2050 b\210 \203a0\317\313!\210 \nB b\210\320y\210 \310\211\223\210\315_\310\307#\2050\316 \211 \204T0) \203\2160\n\202\2220 C*,\321 \210\211 !G \"\322\310!\"\211 #G $\323=\203\2620\324\202\2670\325\326!! %#\204\3140\327\330%\"\331\"!$\202\3360\332\333\334%\227$\"\331\"!%#\"-\207" . [op-symbol arg results found case-fold-search inhibit-read-only dired-mark-confirm t nil dired-repeat-over-lines #[nil "\2030\303\304!\210 \nB\211\207" [show-progress fun results sit-for 0] 2] 0 dired-marker-regexp re-search-forward point-marker sit-for 1 dired-move-to-filename delq compress "Compress or uncompress" capitalize symbol-name message "%s: %d file%s." dired-plural-s dired-log-summary format "Failed to %s %d of %d file%s" fun next-position regexp show-progress total-list total failures count string]) (#$ . 23016) nil 9]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list dired-query-alist default-boundp set-default ((121 . y) (32 . y) (110 . n) (127 . n) (33 . yes) (113 . no) (27 . no))] 3) (defalias 'dired-query #[(qs-var qs-prompt &rest qs-args) #@590 ("J\306 \n\"A\211\307=\2030\310\202\2010 \311=\203 0\312\202\2010\f \203.0\313\314\315\316!!\"\202/0\317P\312\211 \320\321 #\210\322 L\306 \n\"\211\204l0\321\323\"\210\324 \210\325\326!\210\320\321 #\210\322 L\202E0\321\327\320\313 #\316 !P\"\210A\330>+*\207" . [qs-var char dired-query-alist action qs-prompt help-form assoc yes t no nil format " [Type yn!q or %s] " key-description char-to-string " [Type y, n, q or !] " apply message read-char "Invalid char - type %c for help." ding sit-for 1 "%s" (t y yes) help-char elt result qprompt qs-args]) (#$ . 24342) nil 7]) #@52 Compress or uncompress marked (or next ARG) files. (defalias 'dired-do-compress #[(&optional arg) #@89 ("\301\302\303\304$\207" . [arg dired-map-over-marks-check dired-compress compress t]) (#$ . 25061) nil 5 (#$ . 24957) "P"]) (defalias 'dired-byte-compile #[nil #@481 ("\304 \305\211\305\306\307\310\217\210\311!\312 !\2040\313 \203*0\314\315 #\210\316!\20260\317 !\210\305y\210\320 !\210\305,\207" . [filename elc-file buffer-read-only failure dired-get-filename nil err (byte-code "\212\301!\210)\301\207" [filename byte-compile-file] 2) ((error (byte-code "\302\207" [err failure nil] 1))) byte-compile-dest-file file-exists-p t dired-log "Byte compile error for %s:\n%s\n" dired-make-relative dired-remove-file dired-add-file]) (#$ . 25229) nil 5]) #@53 Byte compile marked (or next ARG) Emacs Lisp files. (defalias 'dired-do-byte-compile #[(&optional arg) #@97 ("\301\302\303\304$\207" . [arg dired-map-over-marks-check dired-byte-compile byte-compile t]) (#$ . 25844) nil 5 (#$ . 25735) "P"]) (defalias 'dired-load #[nil #@284 ("\302 \303\304\305\306\217\210\2050\307\310 #\210\311 !*\207" . [failure file dired-get-filename nil err (byte-code "\301\302\211\303$\207" [file load nil t] 5) ((error (byte-code "\302\207" [err failure nil] 1))) dired-log "Load error for %s:\n%s\n" dired-make-relative]) (#$ . 26012) nil 4]) #@49 Load the marked (or next ARG) Emacs Lisp files. (defalias 'dired-do-load #[(&optional arg) #@81 ("\301\302\303\304$\207" . [arg dired-map-over-marks-check dired-load load t]) (#$ . 26418) nil 5 (#$ . 26321) "P"]) #@634 Redisplay all marked (or next ARG) files. If on a subdir line, redisplay that subdirectory. In that case, a prefix arg lets you edit the `ls' switches used for the new listing. Dired remembers switches specified with a prefix arg, so that reverting the buffer will not reset them. However, using `dired-undo' to re-insert or delete subdirectories can bypass this machinery. Hence, you sometimes may have to reset some subdirectory switches after a `dired-undo'. You can reset all subdirectory switches to the default using \<dired-mode-map>\[dired-reset-subdir-switches]. See Info node `(emacs)Subdir switches' for more details. (defalias 'dired-do-redisplay #[(&optional arg test-for-subdir) #@1238 ("\203(0\306 \203(0\306 \307 \n\"A\310 \f\205%0\311\312 \206$0 \206$0 \"\"*\207\313\314!\210\315 :\20390 @\202;0 !\210\316\317\211\211 _ !\f\203}0\f\250\203j0\320\f\321\"\210\f\322W\203d0 \237\210\202\3620 \210\202\3620\323 \"\313\324\"\"\210\325\"!\210)\202\3620\326 \317 # $\212eb\210\327$\317\316#\205\2230\330 \211#??_#\203\3250#b\210\323 \"\313\324\"\"\210\325\"!) B #b\210\331y\210#\317\211\223\210\327$\317\316#\205\3170\330 \211#\204\2370)_\203\3410 \210\202\3610\323 \"\313\324\"\"\210\325\"!\210)*,\332 \210\332 \210\313\333!\207" . [test-for-subdir dir dired-switches-alist switches arg dired-subdir-switches dired-get-subdir assoc-string dired-insert-subdir read-string "Switches for listing: " message "Redisplaying..." dired-uncache t nil dired-repeat-over-lines #[nil "\302 \303\304\"\210\305!) B\211\207" [fname results dired-get-filename message #1="Redisplaying... %s" dired-update-file-line] 3] 0 dired-get-filename #1# dired-update-file-line dired-marker-regexp re-search-forward point-marker 1 dired-move-to-filename "Redisplaying...done" dired-actual-switches dired-directory results found case-fold-search inhibit-read-only fname next-position regexp]) (#$ . 27247) nil 6 (#$ . 26542) "P\np"]) #@60 Set `dired-switches-alist' to nil and revert dired buffer. (defalias 'dired-reset-subdir-switches #[nil #@63 ("\301\302 \207" . [dired-switches-alist nil revert-buffer]) (#$ . 28640) nil 1 (#$ . 28530) nil]) (defalias 'dired-update-file-line #[(file) #@225 ("\304 \210g`\305`\306y\210`|\210 \203\"0\307 \305\310#\210\311 \211T\312\n$\210+\313 \207" . [buffer-read-only opoint char file beginning-of-line nil 1 dired-add-entry t subst-char-in-region 32 dired-move-to-filename]) (#$ . 28789) nil 5]) (defalias 'dired-add-file #[(filename &optional marker-char) #@142 ("\302\303!\304!\305 %\207" . [filename marker-char dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-add-entry]) (#$ . 29101) nil 6]) (defalias 'dired-add-entry #[(filename &optional marker-char relative) #@1337 ("\306!`\307 \f\2030\n\2020\310! \311 \f\203%0\312 \"\202(0\313!\314\315\215\211\20350 b\210-?\207" . [filename opoint cur-dir orig-file-name relative directory directory-file-name dired-current-directory file-name-directory nil file-relative-name file-name-nondirectory not-found (byte-code " \230\203$0\306\307w\210g\310=\2030\311 \210\312 !`\nW\203 0\nb\210)\202>0\313!\20390\314\315!\20330\311 \210\316 \210\202>0\317\320\321\"\210\307\211 \322 \210` \323!\324P\"C#\210) b\210#\203q0#\250\203h0#\202j0$ $\325\307!\210) b\210\326\327! %\330%!\203\2560\307\211 &\210%G[u\210\331`!&\332%G!\210` '\"c\210\333'`&#\210)\334u\210)\202\2610\334y\210)\335y\210_\203\3150\212\214\322 \210`\212\334y\210`)}\210\336\337!\210*\340 \210*\307\207" [directory cur-dir p opoint buffer-read-only default-directory "^ \n" nil 13 dired-unhide-subdir dired-after-subdir-garbage dired-goto-subdir looking-at " " dired-goto-next-nontrivial-file throw not-found "Subdir not found" beginning-of-line dired-insert-directory " -d" dired-mark dired-get-filename verbatim file-name-directory text-properties-at delete-char set-text-properties 1 -1 run-hooks dired-after-readin-hook dired-move-to-filename dired-actual-switches filename marker-char dired-marker-char inserted-name props pt] 5) reason]) (#$ . 29341) nil 4]) (defalias 'dired-after-subdir-garbage #[(dir) #@165 ("\212\301!\204 0\302\303!\210\304y\210l\204 0\305 \204 0\304y\210\2020`)\207" . [dir dired-goto-subdir error "This cannot happen" 1 dired-move-to-filename]) (#$ . 30750) nil 2]) (defalias 'dired-remove-file #[(file) #@128 ("\301\302!\303!\304$\207" . [file dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-remove-entry]) (#$ . 30979) nil 5]) (defalias 'dired-remove-entry #[(file) #@126 ("\212\302!\2050\303\304 \210`\212\305y\210`)|))\207" . [file buffer-read-only dired-goto-file nil beginning-of-line 1]) (#$ . 31172) nil 2]) #@77 Create or update the line for FILE in all Dired buffers it would belong in. (defalias 'dired-relist-file #[(file) #@128 ("\301\302!\303!\304$\207" . [file dired-fun-in-all-buffers file-name-directory file-name-nondirectory dired-relist-entry]) (#$ . 31444) nil 5 (#$ . 31323)]) (defalias 'dired-relist-entry #[(file) #@214 ("\303\211\212\304\n!\2030\305 \210g`\212\306y\210`)|\210\307\n!\310\n\311=?\205'0\"+\207" . [marker buffer-read-only file nil dired-goto-file beginning-of-line 1 directory-file-name dired-add-entry 32]) (#$ . 31650) nil 4]) #@124 Non-nil if Dired should ask about making backups before overwriting files. Special value `always' suppresses confirmation. (custom-declare-variable 'dired-backup-overwrite 'nil '(#$ . 31890) :type '(choice (const :tag "off" nil) (const :tag "suppress" always) (other :tag "ask" t)) :group 'dired) (defalias 'dired-handle-overwrite #[(to) #@310 ("\304 \205*0\n\205*0\305 !@\211\205*0 \306=\204!0\307\310\311 #\205*0\312 \313#\210\314!)\207" . [backup dired-backup-overwrite dired-overwrite-confirmed to nil find-backup-file-name always dired-query overwrite-backup-query "Make backup for existing file `%s'? " rename-file 0 dired-relist-entry]) (#$ . 32235) nil 4]) (defalias 'dired-copy-file #[(from to ok-flag) #@156 ("\305!\210\306 \n \307\f&\207" . [to from ok-flag dired-copy-preserve-time dired-recursive-copies dired-handle-overwrite dired-copy-file-recursive t]) (#$ . 32618) nil 7]) (defalias 'dired-copy-file-recursive #[(from to ok-flag &optional preserve-time top recursive) #@1813 ("\306!\307 \203\2200\n@\310=\203\2200 \311=\204 0\312\313\314\"!\203\2200\315!\206'0\316\317\320\321\217 \322=\20350\311 \204R0\323 !\203M0\204R0\324 !\210\202R0\317\325\326\217\210\f\307 _\211 \2030 @_\327_\"\327_ \" ! \"\317\330\331\217\210* A\211 \204\\0*\332 !\205\2140\333 \"*\202\2360\204\2320\324 !\210\317\334\335\217*\207" . [from dirfailed attrs recursive files mode file-attributes nil t always yes-or-no-p format "Recursive copies of %s? " file-modes 448 err (directory-files from nil dired-re-no-dot) ((file-error (byte-code "\304! B\305\306\n#\210\307\310\207" [from dired-create-files-failures err dirfailed dired-make-relative dired-log "Copying error for %s:\n%s\n" t nil] 4))) top file-exists-p dired-handle-overwrite (byte-code "\302 \303\216\304\305!\210\306 !\210*\302\207" [default-mode to default-file-modes ((set-default-file-modes default-mode)) set-default-file-modes 448 make-directory] 2) ((file-error (byte-code "\304! B\305\306\307 #\207" [from dired-create-files-failures files err dired-make-relative nil dired-log "Copying error for %s:\n%s\n"] 4))) expand-file-name (byte-code "\305 \n \306\f&\207" [thisfrom thisto ok-flag preserve-time recursive dired-copy-file-recursive nil] 7) ((file-error (byte-code "\303! B\304\305\n#\207" [thisfrom dired-create-files-failures err dired-make-relative dired-log "Copying error for %s:\n%s\n"] 4))) file-directory-p set-file-modes (byte-code "@;\203 0\305@ \n#\207\306 \n\f$\207" [attrs to ok-flag from dired-copy-preserve-time make-symbolic-link copy-file] 5) ((file-date-error (byte-code "\303! B\304\305\n#\207" [from dired-create-files-failures err dired-make-relative dired-log "Can't set date on %s:\n%s\n"] 4))) to file #1=#:--cl-dolist-temp-- thisto thisfrom]) (#$ . 32896) nil 5]) (defalias 'dired-rename-file #[(file newname ok-if-already-exists) #@250 ("\303!\210\304 \n#\210\305 !\203 0r\305 !q\210\306\307\310#\210)\311 !\210\312 \"\207" . [newname file ok-if-already-exists dired-handle-overwrite rename-file get-file-buffer set-visited-file-name nil t dired-remove-file dired-rename-subdir]) (#$ . 34802) nil 4]) (defalias 'dired-rename-subdir #[(from-dir to-dir) #@475 ("\306!\306 !\307\310\311 %\210\312!\313 \n\205L0\212\n@q\210\f\203C0\314\f \"\203C0\315 \316\317\320!P \f# \321 !\210\322!\210*)\nA\211\2040\310*\207" . [from-dir to-dir blist expanded-from-dir buffer-file-name to-file file-name-as-directory dired-fun-in-all-buffers nil dired-rename-subdir-1 expand-file-name buffer-list dired-in-this-tree buffer-modified-p dired-replace-in-string "^" regexp-quote set-visited-file-name set-buffer-modified-p modflag]) (#$ . 35129) nil 7]) (defalias 'dired-rename-subdir-1 #[(dir to) #@425 ("\306! \307 \203#0 @ A\310\n@\f\"\2030\311\n #\210\2020\232\205Q0\312!\210 \306\313! \"\313\314!! \315!\204N0\316!\210)\317 +\207" . [dir dired-subdir-alist elt alist expanded-dir to expand-file-name nil dired-in-this-tree dired-rename-subdir-2 dired-unadvertise file-name-nondirectory directory-file-name get-buffer rename-buffer dired-advertise default-directory dired-directory new-name]) (#$ . 35674) nil 4]) (defalias 'dired-rename-subdir-2 #[(elt dir to) #@599 ("\212\306\307!!\307 !\310 \311 !b\210\312!\204!0\313\314\"\210\202>0\315\224b\210\316\f\315\225\317#\20370\320 \317\211#\210\202>0\313\321 @#\210\322 @\"\323\324\f @#! \240\210\205_0\240.\207" . [dir to buffer-read-only newtext regexp elt regexp-quote directory-file-name nil dired-get-subdir-min looking-at error "%s not found where expected - dired-subdir-alist broken?" 1 re-search-forward t replace-match "Expected to find `%s' in headerline of %s" assoc-string dired-normalize-subdir dired-replace-in-string dired-subdir-regexp dired-switches-alist cur-dir cons]) (#$ . 36173) nil 6]) (defalias 'dired-create-files #[(file-creator operation fn-list name-constructor &optional marker-char) #@1685 ("\306\211\211\307G \306\211\211 \306 _\211 \203\2130 @_!_!\211 _\232\203=0\306 \310\311\"\227_#\210 \204L0\312_! B\202\2020\313 !\211 #\205`0\314 $\315\316\317 #) %&\250\203m0&\202z0&\203y0\320_!\202z0\306 '\321\322\323\217\210+ A\211 \204 0- \203\2470\f \244\324\325\326\"\fG\327\fG! %\f\"\210\202\3350\f\203\2750\324\325\330\"\fG \327 !%\f\"\210\202\3350 \203\3230\324\325\331\" G \327 !% \"\210\202\3350\332\333\"\n\327\n!$\210-\334 \207" . [fn-list total success-count skipped failures dired-create-files-failures nil 0 dired-log "Cannot %s to same file: %s\n" dired-make-relative file-exists-p (format "Type SPC or `y' to overwrite file `%s',\nDEL or `n' to skip to next,\nESC or `q' to not overwrite any of the remaining files,\n`!' to overwrite all remaining files with no more questions." to) dired-query overwrite-query "Overwrite `%s'?" dired-file-marker err (byte-code " \n #\210\f\2030\306\n!\210 T\307\310\n $\210\311\n\f\"\207" [file-creator from to dired-overwrite-confirmed overwrite success-count dired-remove-file message "%s: %d of %d" dired-add-file operation total actual-marker-char] 5) ((file-error (byte-code "\305! B\306\307\n \f%\207" [from failures operation to err dired-make-relative dired-log "%s `%s' to `%s' failed:\n%s\n"] 6))) dired-log-summary format "%s failed for %d file%s in %d requests" dired-plural-s "%s failed for %d of %d file%s" "%s: %d of %d file%s skipped" message "%s: %s file%s" dired-move-to-filename overwrite-backup-query to from #1=#:--cl-dolist-temp-- name-constructor operation overwrite help-form dired-overwrite-confirmed marker-char actual-marker-char]) (#$ . 36903) nil 8]) #@1701 Create a new file for each marked file. Prompts user for target, which is a directory in which to create the new files. Target may also be a plain file if only one marked file exists. The way the default for the target directory is computed depends on the value of `dired-dwim-target-directory'. OP-SYMBOL is the symbol for the operation. Function `dired-mark-pop-up' will determine whether pop-ups are appropriate for this OP-SYMBOL. FILE-CREATOR and OPERATION as in `dired-create-files'. ARG as in `dired-get-marked-files'. Optional arg MARKER-CHAR as in `dired-create-files'. Optional arg OP1 is an alternate form for OPERATION if there is only one file. Optional arg HOW-TO determiness how to treat the target. If HOW-TO is nil, use `file-directory-p' to determine if the target is a directory. If so, the marked file(s) are created inside that directory. Otherwise, the target is a plain file; an error is raised unless there is exactly one marked file. If HOW-TO is t, target is always treated as a plain file. Otherwise, HOW-TO should be a function of one argument, TARGET. If its return value is nil, TARGET is regarded as a plain file. If it return value is a list, TARGET is a generalized directory (e.g. some sort of archive). The first element of this list must be a function with at least four arguments: operation - as OPERATION above. rfn-list - list of the relative names for the marked files. fn-list - list of the absolute names for the marked files. target - the name of the target itself. The rest of into-dir are optional arguments. For any other return value, TARGET is treated as a directory. (defalias 'dired-do-create-files #[(op-symbol file-creator operation arg &optional marker-char op1 how-to) #@1051 ("\2040 \306\307\n\"\310\311 \" :\205 0 A?\205 0 @ \312 \205.0\313\314 @!\" \313\315 \203:0\202;0 \316P \n\f &! _\204\2040 \317>\205y0 \320=\205y0 \205y0\313 @!\227\313 !\227\230\205y0\314 @!\314 !\230??\205\2240\321 !\202\2240_\322=\203\2170\307\202\2240_ !\211 !:\203\2640\323!@!\203\2640\324!@ \f !A&\202\3410 \204\3040!\204\3040\325\326 #\210!\204\3170\327 ! \330\" !\203\3350\331\202\3360\332#%.\207" . [op1 operation arg fn-list rfn-list dired-one-file dired-get-marked-files nil mapcar dired-make-relative dired-dwim-target-directory expand-file-name file-name-nondirectory dired-mark-read-file-name " %s to: " (ms-dos windows-nt cygwin) move file-directory-p t functionp apply error "Marked %s: target must be a directory: %s" directory-file-name dired-create-files #[(from) "\302\303! \"\207" [from target expand-file-name file-name-nondirectory] 3] #[(from) "\207" [target] 1] target-dir default op-symbol target how-to system-type into-dir file-creator marker-char]) (#$ . 40430) nil 9 (#$ . 38615)]) (defalias 'dired-mark-read-file-name #[(prompt dir op-symbol arg files &optional default) #@150 ("\306\307 \310\311\n\312 \"\"\f &\207" . [op-symbol files prompt arg dir default dired-mark-pop-up nil read-file-name format dired-mark-prompt]) (#$ . 41610) nil 10]) (defalias 'dired-dwim-target-directory #[nil #@224 ("\305=\2050\306 \n\203)0\307\310 !\212 q\210\305=\205 0\306 )\211 \206%0 *\202*0 )\207" . [major-mode this-dir dired-dwim-target other-buf other-dir dired-mode dired-current-directory window-buffer next-window]) (#$ . 41832) nil 3]) #@38 Create a directory called DIRECTORY. (defalias 'dired-create-directory #[(directory) #@296 ("\304\305!!\211\306\n\203&0\307\n!\204&0 \n\232\204&0\n\304\310\n!!\211\2040\311 \312\"\210 \20550\313 !\210\314 +\207" . [directory expanded try new directory-file-name expand-file-name nil file-exists-p file-name-directory make-directory t dired-add-file dired-move-to-filename]) (#$ . 42173) nil 4 (#$ . 42081) (list (read-file-name "Create directory: " (dired-current-directory)))]) (defalias 'dired-into-dir-with-symlinks #[(target) #@74 ("\301!\205\n0\302!?\207" . [target file-directory-p file-symlink-p]) (#$ . 42629) nil 2]) #@113 nil or a function used by `dired-do-copy' to determine target. See HOW-TO argument for `dired-do-create-files'. (defvar dired-copy-how-to-fn nil (#$ . 42729)) #@545 Copy all marked (or next ARG) files, or copy the current file. This normally preserves the last-modified date when copying. When operating on just the current file, you specify the new name. When operating on multiple or marked files, you specify a directory, and new copies of these files are made in that directory with the same names that the files currently have. The default suggested for the target directory depends on the value of `dired-dwim-target', which see. This command copies symbolic links by creating new ones, like `cp -d'. (defalias 'dired-do-copy #[(&optional arg) #@168 ("\304\305\306\307 \n\310 &)\207" . [dired-recursive-copies arg dired-keep-marker-copy dired-copy-how-to-fn dired-do-create-files copy dired-copy-file "Copy" nil]) (#$ . 43489) nil 8 (#$ . 42895) "P"]) #@464 Make symbolic links to current file or all marked (or next ARG) files. When operating on just the current file, you specify the new name. When operating on multiple or marked files, you specify a directory and new symbolic links are made in that directory with the same names that the files currently have. The default suggested for the target directory depends on the value of `dired-dwim-target', which see. For relative symlinks, use \[dired-do-relsymlink]. (defalias 'dired-do-symlink #[(&optional arg) #@122 ("\302\303\304\305 %\207" . [arg dired-keep-marker-symlink dired-do-create-files symlink make-symbolic-link "Symlink"]) (#$ . 44216) nil 6 (#$ . 43700) "P"]) #@408 Add names (hard links) current file or all marked (or next ARG) files. When operating on just the current file, you specify the new name. When operating on multiple or marked files, you specify a directory and new hard links are made in that directory with the same names that the files currently have. The default suggested for the target directory depends on the value of `dired-dwim-target', which see. (defalias 'dired-do-hardlink #[(&optional arg) #@121 ("\302\303\304\305 %\207" . [arg dired-keep-marker-hardlink dired-do-create-files hardlink dired-hardlink "Hardlink"]) (#$ . 44842) nil 6 (#$ . 44381) "P"]) (defalias 'dired-hardlink #[(file newname &optional ok-if-already-exists) #@135 ("\303!\210\304 \n#\210\305 !\207" . [newname file ok-if-already-exists dired-handle-overwrite add-name-to-file dired-relist-file]) (#$ . 45080) nil 4]) #@354 Rename current file or all marked (or next ARG) files. When renaming just the current file, you specify the new name. When renaming multiple or marked files, you specify a directory. This command also renames any buffers that are visiting the files. The default suggested for the target directory depends on the value of `dired-dwim-target', which see. (defalias 'dired-do-rename #[(&optional arg) #@128 ("\302\303\304\305 \306&\207" . [arg dired-keep-marker-rename dired-do-create-files move dired-rename-file "Move" "Rename"]) (#$ . 45646) nil 7 (#$ . 45241) "P"]) (defalias 'dired-do-create-files-regexp #[(file-creator operation arg regexp newname &optional whole-name marker-char) #@1127 ("\306\307\"\211G \310P \311\312 \227 \227# \203 0\313\202 0\314 \307 \315 %.\207" . [arg fn-list fn-count operation operation-prompt rename-regexp-help-form dired-get-marked-files nil " `%s' to `%s'?" format "Type SPC or `y' to %s one match, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." #[(from) "\306 \n# \211 \2030\307\310 $\205!0 \202!0\311\312\f $*\207" [regexp from newname rename-regexp-help-form help-form to dired-string-replace-match dired-query rename-regexp-query dired-log "%s: %s did not match regexp %s\n" operation-prompt operation] 6] #[(from) "\306\307 !\n#\211\2050\310 \311 !\" \f\203,0\312\313\314 !\314\f!$\20550\f\20250\315\316\307 !$+\207" [regexp from newname new to rename-regexp-help-form dired-string-replace-match file-name-nondirectory expand-file-name file-name-directory dired-query rename-regexp-query dired-make-relative dired-log "%s: %s did not match regexp %s\n" help-form operation-prompt operation] 7] dired-create-files whole-name regexp-name-constructor rename-regexp-query file-creator marker-char]) (#$ . 45937) nil 7]) (defalias 'dired-mark-read-regexp #[(operation) #@286 ("\306!\307\232\211?\205\f0\310 \2030\311\2020\312 \313Q! \314 \203%0\311\202&0\312 \315\f\316\260! \f \n F,\207" . [current-prefix-arg whole-name arg operation regexp newname prefix-numeric-value 0 dired-read-regexp "Abs. " "" " from (regexp): " read-string " " " to: "]) (#$ . 47138) nil 7]) #@622 Rename selected files whose names match REGEXP to NEWNAME. With non-zero prefix argument ARG, the command operates on the next ARG files. Otherwise, it operates on all the marked files, or the current file if none are marked. As each match is found, the user must type a character saying what to do with it. For directions, type \[help-command] at that time. NEWNAME may contain \=\<n> or \& as in `query-replace-regexp'. REGEXP defaults to the last regexp used. With a zero prefix arg, renaming by regexp affects the absolute file name. Normally, only the non-directory part of the file name is used and changed. (defalias 'dired-do-rename-regexp #[(regexp newname &optional arg whole-name) #@146 ("\305\306\307 \n \f&\207" . [arg regexp newname whole-name dired-keep-marker-rename dired-do-create-files-regexp dired-rename-file "Rename"]) (#$ . 48156) nil 8 (#$ . 47450) (dired-mark-read-regexp "Rename")]) #@111 Copy selected files whose names match REGEXP to NEWNAME. See function `dired-do-rename-regexp' for more info. (defalias 'dired-do-copy-regexp #[(regexp newname &optional arg whole-name) #@231 ("\306\307\310 \203\f0\311\202 0\312\n \f &)\207" . [dired-recursive-copies dired-copy-preserve-time arg regexp newname whole-name nil dired-do-create-files-regexp dired-copy-file "Copy [-p]" "Copy" dired-keep-marker-copy]) (#$ . 48568) nil 8 (#$ . 48375) (dired-mark-read-regexp "Copy")]) #@115 Hardlink selected files whose names match REGEXP to NEWNAME. See function `dired-do-rename-regexp' for more info. (defalias 'dired-do-hardlink-regexp #[(regexp newname &optional arg whole-name) #@149 ("\305\306\307 \n \f&\207" . [arg regexp newname whole-name dired-keep-marker-hardlink dired-do-create-files-regexp add-name-to-file "HardLink"]) (#$ . 49071) nil 8 (#$ . 48870) (dired-mark-read-regexp "HardLink")]) #@114 Symlink selected files whose names match REGEXP to NEWNAME. See function `dired-do-rename-regexp' for more info. (defalias 'dired-do-symlink-regexp #[(regexp newname &optional arg whole-name) #@149 ("\305\306\307 \n \f&\207" . [arg regexp newname whole-name dired-keep-marker-symlink dired-do-create-files-regexp make-symbolic-link "SymLink"]) (#$ . 49494) nil 8 (#$ . 49295) (dired-mark-read-regexp "SymLink")]) (defalias 'dired-create-files-non-directory #[(file-creator basename-constructor operation arg) #@559 ("\305\306 \n\307\305 \"\310\f%)\207" . [rename-non-directory-query file-creator operation arg dired-keep-marker-rename nil dired-create-files dired-get-marked-files #[(from) "\305! \306!!P\307\310 \227 \227# \311\312 \313P\314!\314\n!$)\205#0\n)\207" [from basename-constructor to operation help-form file-name-directory file-name-nondirectory format "Type SPC or `y' to %s one file, DEL or `n' to skip to next,\n`!' to %s all remaining matches with no more questions." dired-query rename-non-directory-query " `%s' to `%s'" dired-make-relative] 6]]) (#$ . 49813) nil 6]) (defalias 'dired-rename-non-directory #[(basename-constructor operation arg) #@113 ("\303\304 \n$\207" . [basename-constructor operation arg dired-create-files-non-directory dired-rename-file]) (#$ . 50475) nil 5]) #@54 Rename all marked (or next ARG) files to upper case. (defalias 'dired-upcase #[(&optional arg) #@82 ("\301\302\303#\207" . [arg dired-rename-non-directory upcase "Rename upcase"]) (#$ . 50714) nil 4 (#$ . 50613) "P"]) #@54 Rename all marked (or next ARG) files to lower case. (defalias 'dired-downcase #[(&optional arg) #@86 ("\301\302\303#\207" . [arg dired-rename-non-directory downcase "Rename downcase"]) (#$ . 50941) nil 4 (#$ . 50838) "P"]) #@887 Insert this subdirectory into the same dired buffer. If it is already present, just move to it (type \[dired-do-redisplay] to refresh), else inserts it at its natural place (as `ls -lR' would have done). With a prefix arg, you may edit the ls switches used for this listing. You can add `R' to the switches to expand the whole tree starting at this subdirectory. This function takes some pains to conform to `ls -lR' output. Dired remembers switches specified with a prefix arg, so that reverting the buffer will not reset them. However, using `dired-undo' to re-insert or delete subdirectories can bypass this machinery. Hence, you sometimes may have to reset some subdirectory switches after a `dired-undo'. You can reset all subdirectory switches to the default using \<dired-mode-map>\[dired-reset-subdir-switches]. See Info node `(emacs)Subdir switches' for more details. (defalias 'dired-maybe-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) #@182 ("`\304 !\n\2040\305 !\2040\306 \n #\210\307!)\207" . [opoint dirname switches no-error-if-not-dir-p file-name-as-directory dired-goto-subdir dired-insert-subdir push-mark]) (#$ . 52053) nil 4 (#$ . 51070) (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " (or dired-subdir-switches dired-actual-switches))))]) #@404 Insert this subdirectory into the same dired buffer. If it is already present, overwrites previous entry, else inserts it at its natural place (as `ls -lR' would have done). With a prefix arg, you may edit the `ls' switches used for this listing. You can add `R' to the switches to expand the whole tree starting at this subdirectory. This function takes some pains to conform to `ls -lR' output. (defalias 'dired-insert-subdir #[(dirname &optional switches no-error-if-not-dir-p) #@1201 ("\306\307!! \2040\310!\2040\311\312\"\210\313\n\"\314 \"\315 \f\316\211\211\211 _ ! \" # $ %\f\204@0$\203@0$A\317\f\"\210\f\205M0\320\321\f\"\211!\203Y0\322\323\" %\203j0\324%! \244 \202n0\325!\210\326%\327\f\"#\210\"\203\2200$\203\2120$\f\241\210\202\2200\fB B!\203\3400\330\f!\210\331\321\332\f#\n\316 &\211 '\203\3370'@\211&@ (\333(\"\203\3250\314( \"\211 )\203\3150)\f\241\210\202\3240(\fB B))'A\211'\204\2510*\334!\210\212\335 !\210)\336#!.\207" . [dirname no-error-if-not-dir-p dired-subdir-alist dired-switches-alist switches buffer-read-only file-name-as-directory expand-file-name file-directory-p error "Attempt to insert a non-directory: %s" assoc assoc-string buffer-modified-p nil dired-insert-subdir-validate string-match "R" dired-kill-tree t dired-insert-subdir-del dired-insert-subdir-newpos dired-insert-subdir-doupdate dired-insert-subdir-doinsert dired-build-subdir-alist dired-replace-in-string "" dired-in-this-tree dired-initial-position dired-mark-remembered restore-buffer-modified-p case-fold-search mark-alist switches-have-R old-switches modflag cons elt cur-ass #1=#:--cl-dolist-temp-- cur-dir cur-cons]) (#$ . 52909) nil 8 (#$ . 52414) (list (dired-get-filename) (if current-prefix-arg (read-string "Switches for listing: " (or dired-subdir-switches dired-actual-switches))))]) (defalias 'dired-insert-subdir-validate #[(dirname &optional switches) #@447 ("\306\307 !\"\2040\310\311\"\210\n\2060 \211 \205_0\312 \313\314\315\"))\207" . [dirname default-directory switches dired-subdir-switches real-switches case-fold-search dired-in-this-tree expand-file-name error "%s: not in this directory tree" nil mapcar #[(x) "\303 \"?\303\n\"?=\2060\304\305\"\207" [x real-switches dired-actual-switches string-match error "Can't have dirs with and without -%s switches together"] 4] ("F" "b")]) (#$ . 54360) nil 5]) (defalias 'dired-alist-add #[(dir new-marker) #@81 ("\302 \"\210\303 \207" . [dir new-marker dired-alist-add-1 dired-alist-sort]) (#$ . 54878) nil 3]) (defalias 'dired-alist-sort #[nil #@124 ("\301\302\"\211\207" . [dired-subdir-alist sort #[(elt1 elt2) "\302!\302 !V\207" [elt1 elt2 dired-get-subdir-min] 3]]) (#$ . 55019) nil 3]) #@323 Kill all proper subdirs of DIRNAME, excluding DIRNAME itself. Interactively, you can kill DIRNAME as well by using a prefix argument. In interactive use, the command prompts for DIRNAME. When called from Lisp, if REMEMBER-MARKS is non-nil, return an alist of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well. (defalias 'dired-kill-tree #[(dirname &optional remember-marks kill-root) #@305 ("\306\307!! \310\211 \f\20380\f@@\fA \204!0 \230\204\f0\311 \"\203\f0\312 !\203\f0\313\f!\n\244\202\f0\n+\207" . [dirname dired-subdir-alist m-alist dir s-alist kill-root file-name-as-directory expand-file-name nil dired-in-this-tree dired-goto-subdir dired-kill-subdir remember-marks]) (#$ . 55572) nil 3 (#$ . 55169) "DKill tree below directory: \ni\nP"]) (defalias 'dired-insert-subdir-newpos #[(new-dir) #@262 ("\306\211\211\211 \203-0 @ A\f@\307\f!\310 \f\"\203\n0\311\f!\306\211\2040 b\210-m\20480\312y\210\313c\210`\207" . [dired-subdir-alist new-pos pos dir elt alist nil dired-get-subdir-min dired-tree-lessp dired-get-subdir-max -1 "\n" new-dir]) (#$ . 56003) nil 6]) (defalias 'dired-insert-subdir-del #[(element) #@156 ("\302!\211b\210\303 b\210m\2040\304u\210\305 `\" `|\210)\207" . [element begin-marker dired-get-subdir-min dired-subdir-max -1 dired-remember-marks]) (#$ . 56338) nil 4]) (defalias 'dired-insert-subdir-doinsert #[(dirname switches) #@289 ("\212` \2060\n\2060\306\307\310 #\f\311 !@@\232\203!0\312 \210\202)0\313\f \314\211\315%\210)`*D\207" . [begin switches dired-subdir-switches dired-actual-switches dirname dired-subdir-alist dired-replace-in-string "R" "" last dired-readin-insert dired-insert-directory nil t]) (#$ . 56581) nil 6]) (defalias 'dired-insert-subdir-doupdate #[(dirname elt beg-end) #@237 ("\2030\306!\307 \310\223\210\2020\311 \307 \"\210\n\205-0\212 @ A@ \211 b\210\214 \f}\210\312\302!,\207" . [elt dirname dired-after-readin-hook beg-end end begin dired-get-subdir-min point-marker nil dired-alist-add run-hooks]) (#$ . 56960) nil 4]) (defalias 'dired-tree-lessp #[(dir1 dir2) #@330 ("\306!\306 !\307\310\"\307\310 \" \203+0\n\203+0 @\n@\232\203+0 A\nA\2020 @\n@ \211 \203?0\f\203?0 \f\231\202^0 \204K0\f\204K0\311\202^0 \204S0\312\202^0\f\204[0\311\202^0\313\314!,\207" . [dir1 dir2 components-2 components-1 c2 c1 file-name-as-directory dired-split "/" nil t error "This can't happen"]) (#$ . 57265) nil 5]) #@283 Splitting on regexp PAT, turn string STR into a list of substrings. Optional third arg LIMIT (>= 1) is a limit to the length of the resulting list. Thus, if SEP is a regexp that only matches itself, (mapconcat 'identity (dired-split SEP STRING) SEP) is always equal to STRING. (defalias 'dired-split #[(pat str &optional limit) #@260 ("\306 \" \307\nOC\310 \n\2050\307\225\211 \203B0\n\250\203%0\f\nW\203B0\306 #\203B0\307\224\fT \nO B\307\225\211\2020\n\250\203O0\f\nW\203Z0 \203Z0 \311O B \237,\207" . [pat str start result count end string-match 0 1 nil limit]) (#$ . 57961) nil 5 (#$ . 57621)]) #@129 Go to previous subdirectory, regardless of level. When called interactively and not on a subdir line, go to this subdir's line. (defalias 'dired-prev-subdir #[(arg &optional no-error-if-not-found no-skip) #@76 ("\303[ \n#\207" . [arg no-error-if-not-found no-skip dired-next-subdir]) (#$ . 58471) nil 4 (#$ . 58260) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) (if (dired-get-subdir) 1 0)))]) (defalias 'dired-subdir-min #[nil #@107 ("\212\300\301\302\211#\2040\303\304!\2020`)\207" . [dired-prev-subdir 0 t error "Not in a subdir!"]) (#$ . 58721) nil 4]) #@163 Go to end of header line of DIR in this dired buffer. Return value of point on success, otherwise return nil. The next char is either \n, or \r if DIR is hidden. (defalias 'dired-goto-subdir #[(dir) #@159 ("\303!\304 \"\211\2050\305\n!b\2050\306\307w\210`)\207" . [dir dired-subdir-alist elt file-name-as-directory assoc dired-get-subdir-min "^ \n" nil]) (#$ . 59060) nil 4 (#$ . 58854) (byte-code "\301\302\303\304\305\306 %!C\307 \210\207" [dired-subdir-alist expand-file-name completing-read "Goto in situ directory: " nil t dired-current-directory push-mark] 7)]) #@183 Mark all files except `.' and `..' in current subdirectory. If the Dired buffer shows multiple directories, this command marks the files listed in the subdirectory that point is in. (defalias 'dired-mark-subdir-files #[nil #@100 ("\301 \302\303 \")\207" . [p-min dired-subdir-min dired-mark-files-in-region dired-subdir-max]) (#$ . 59668) nil 3 (#$ . 59438) nil]) #@72 Remove all lines of current subdirectory. Lower levels are unaffected. (defalias 'dired-kill-subdir #[(&optional remember-marks) #@489 ("\306 \307 \310 \311 \312 \f\" \313 \232\203_0\314\315!\210\205(0\316 \" |\210m\20340\317\320!\210\321 !\210 \203A0\322 \f\"\323\n!\210.\207" . [beg end modflag cur-dir dired-switches-alist cons dired-subdir-min dired-subdir-max buffer-modified-p dired-current-directory assoc-string nil error "Attempt to kill top level directory" dired-remember-marks delete-char -1 dired-unsubdir delete restore-buffer-modified-p buffer-read-only default-directory remember-marks]) (#$ . 59946) nil 4 (#$ . 59810) nil]) (defalias 'dired-unsubdir #[(dir) #@68 ("\302\303 \" \"\211\207" . [dir dired-subdir-alist delq assoc]) (#$ . 60511) nil 4]) #@37 Go up ARG levels in the dired tree. (defalias 'dired-tree-up #[(arg) #@219 ("\302 \303Y\2030 S\304\305!!\2020\306!\206_0\307\310\")\207" . [dir arg dired-current-directory 1 file-name-directory directory-file-name dired-goto-subdir error "Cannot go up to %s - not in this tree"]) (#$ . 60680) nil 3 (#$ . 60604) "p"]) #@28 Go down in the dired tree. (defalias 'dired-tree-down #[nil #@296 ("\306 \307\211\310 !\307 \203+0 @ A\311\312\f@!\n\"\203 0\307\313\f@!\202 0* \20350 b\20280\314\315!+\207" . [case-fold-search pos dir dired-subdir-alist elt rest dired-current-directory nil reverse dired-in-this-tree directory-file-name dired-goto-subdir error "At the bottom"]) (#$ . 61008) nil 3 (#$ . 60941) nil]) (defalias 'dired-unhide-subdir #[nil #@125 ("\301\302\303 \304 \305\306$)\207" . [buffer-read-only nil subst-char-in-region dired-subdir-min dired-subdir-max 13 10]) (#$ . 61384) nil 5]) (defalias 'dired-hide-check #[nil #@112 ("\2060\301\302!\207" . [selective-display error "selective-display must be t for subdir hiding to work!"]) (#$ . 61569) nil 2]) (defalias 'dired-subdir-hidden-p #[(dir) #@101 ("\205 0\212\302 !\210\303\304!)\207" . [selective-display dir dired-goto-subdir looking-at " "]) (#$ . 61748) nil 2]) #@160 Hide or unhide the current subdirectory and move to next directory. Optional prefix arg is a repeat factor. Use \[dired-hide-all] to (un)hide all directories. (defalias 'dired-hide-subdir #[(arg) #@494 ("\306 \210\307 S\211\310Y\203M0\311 \312\n!\313\n\f\" \314 !S \315 \316 !b\210\317\315w\210 \203<0\320`\321\322$\210\202D0\320`\322\321$\210-\323\324\325\"\210\2020\326!)\207" . [modflag arg cur-dir hidden-p dired-subdir-alist elt dired-hide-check buffer-modified-p 0 dired-current-directory dired-subdir-hidden-p assoc dired-get-subdir-max nil dired-get-subdir-min "^\n " subst-char-in-region 13 10 dired-next-subdir 1 t restore-buffer-modified-p end-pos buffer-read-only]) (#$ . 62078) nil 5 (#$ . 61875) "p"]) #@192 Hide all subdirectories, leaving only their header lines. If there is already something hidden, make everything visible again. Use \[dired-hide-subdir] to (un)hide a particular subdirectory. (defalias 'dired-hide-all #[(arg) #@376 ("\305 \210\306 \307\212eb\210\310\311\307\312#)\203_0\313ed\314\315$\210\202F0d\n \203E0\313\316 @!\212\fb\210\317y\210`)\315\314$\210\316 @! A\211\204'0*\320 !*\207" . [buffer-read-only modflag dired-subdir-alist alist pos dired-hide-check buffer-modified-p nil search-forward " " t subst-char-in-region 13 10 dired-get-subdir-min -1 restore-buffer-modified-p]) (#$ . 62847) nil 6 (#$ . 62615) "P"]) #@243 Non-nil to Isearch in file names only. If t, Isearch in Dired always matches only file names. If `dwim', Isearch matches file names when initial point position is on a file name. Otherwise, it searches the whole buffer without restrictions. (custom-declare-variable 'dired-isearch-filenames 'nil '(#$ . 63266) :type '(choice (const :tag "No restrictions" nil) (const :tag "When point is on a file name initially, search file names" dwim) (const :tag "Always search in file names" t)) :group 'dired :version "23.1") (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list dired-isearch-filter-predicate-orig default-boundp set-default nil] 3) #@218 Toggle file names searching on or off. When on, Isearch skips matches outside file names using the predicate `dired-isearch-filter-filenames' that matches only at file names. When off, it uses the original predicate. (defalias 'dired-isearch-filenames-toggle #[nil #@198 ("\304=\203\n0 \202 0\304\305\211\306 \207" . [isearch-filter-predicate dired-isearch-filter-predicate-orig isearch-success isearch-adjusted dired-isearch-filter-filenames t isearch-update]) (#$ . 64213) nil 3 (#$ . 63941) nil]) #@92 Set up isearch to search in Dired file names. Intended to be added to `isearch-mode-hook'. (defalias 'dired-isearch-filenames-setup #[nil #@482 ("\304=\2040\305=\205*0\306`\307\"\205*0\310\311\n\312\313#\210\314\315!\316\315\317\"\210\320\321\322\323\304$\207" . [dired-isearch-filenames isearch-message-prefix-add isearch-mode-map dired-isearch-filter-predicate-orig t dwim get-text-property dired-filename "filename " define-key "\363f" dired-isearch-filenames-toggle default-value isearch-filter-predicate set-default dired-isearch-filter-filenames add-hook isearch-mode-end-hook dired-isearch-filenames-end nil]) (#$ . 64598) nil 5 (#$ . 64453)]) #@64 Clean up the Dired file name search after terminating isearch. (defalias 'dired-isearch-filenames-end #[nil #@274 ("\303\304 \305\303#\210\306\307\n\"\210\310\311\312\313#\207" . [isearch-message-prefix-add isearch-mode-map dired-isearch-filter-predicate-orig nil define-key "\363f" set-default isearch-filter-predicate remove-hook isearch-mode-end-hook dired-isearch-filenames-end t]) (#$ . 65233) nil 4 (#$ . 65118)]) #@184 Test whether the current search hit is a visible file name. Return non-nil if the text from BEG to END is part of a file name (has the text property `dired-filename') and is visible. (defalias 'dired-isearch-filter-filenames #[(beg end) #@163 ("\303 \"\2050\n\2030\304 ^ ]\305\306$\207\307\207" . [beg end dired-isearch-filenames isearch-filter-visible text-property-not-all dired-filename nil t]) (#$ . 65790) nil 5 (#$ . 65546)]) #@75 Search for a string using Isearch only in file names in the Dired buffer. (defalias 'dired-isearch-filenames #[nil #@67 ("\301\302 )\207" . [dired-isearch-filenames t isearch-forward]) (#$ . 66112) nil 1 (#$ . 65991) nil]) #@75 Search for a regexp using Isearch only in file names in the Dired buffer. (defalias 'dired-isearch-filenames-regexp #[nil #@74 ("\301\302 )\207" . [dired-isearch-filenames t isearch-forward-regexp]) (#$ . 66349) nil 1 (#$ . 66221) nil]) #@61 Search for a string through all marked files using Isearch. (defalias 'dired-do-isearch #[nil #@104 ("\300\301\302\211\303#!\207" . [multi-isearch-files dired-get-marked-files nil dired-nondirectory-p]) (#$ . 66566) nil 5 (#$ . 66465) nil]) #@61 Search for a regexp through all marked files using Isearch. (defalias 'dired-do-isearch-regexp #[nil #@111 ("\300\301\302\211\303#!\207" . [multi-isearch-files-regexp dired-get-marked-files nil dired-nondirectory-p]) (#$ . 66820) nil 5 (#$ . 66712) nil]) #@159 Search through all marked files for a match for REGEXP. Stops when a match is found. To continue searching for next match, use command \[tags-loop-continue]. (defalias 'dired-do-search #[(regexp) #@99 ("\301\302\"\207" . [regexp tags-search (dired-get-marked-files nil nil 'dired-nondirectory-p)]) (#$ . 67176) nil 3 (#$ . 66974) "sSearch marked files (regexp): "]) #@256 Do `query-replace-regexp' of FROM with TO, on all marked files. Third arg DELIMITED (prefix arg) means replace only word-delimited matches. If you exit (\[keyboard-quit], RET or q), you can resume the query replace with the command \[tags-loop-continue]. (defalias 'dired-do-query-replace-regexp #[(from to &optional delimited) #@380 ("\306\307\211\310#\307\211\203-0 @\311!\211\203%0r\nq\210 )\203%0\312\313\"\210) A\211\204\f0*\314\f \315$\207" . [file #1=#:--cl-dolist-temp-- buffer buffer-read-only from to dired-get-marked-files nil dired-nondirectory-p get-file-buffer error "File `%s' is visited read-only" tags-query-replace (dired-get-marked-files nil nil 'dired-nondirectory-p) delimited]) (#$ . 67683) nil 5 (#$ . 67348) (let ((common (query-replace-read-args "Query replace regexp in marked files" t t))) (list (nth 0 common) (nth 1 common) (nth 2 common)))]) (defalias 'dired-nondirectory-p #[(file) #@43 ("\301!?\207" . [file file-directory-p]) (#$ . 68280) nil 2]) #@198 Print the type of FILE, according to the `file' command. If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is true then the type of the file linked to by FILE is printed instead. (defalias 'dired-show-file-type #[(file &optional deref-symlinks) #@393 ("\303\304!rq\210\305\216 \203 0\306\307\310\311\211\312\313\n&\210\202&0\306\307\310\311\211\313\n&\210n\203.0\314\315!\210\316\317\320 \"+\207" . [#1=#:temp-buffer deref-symlinks file generate-new-buffer " *temp*" ((byte-code "\301!\203\n0\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "file" nil t "-L" "--" backward-delete-char 1 message "%s" buffer-string]) (#$ . 68619) nil 8 (#$ . 68349) (list (dired-get-filename t) current-prefix-arg)]) (provide 'dired-aux)
Close
