Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ 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
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ 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
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : wdired.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\301%\210\312\313\307\314\315\316\311\306&\210\312\317\320\321\315\316\311\306&\210\312\322\307\323\315\324\311\306&\210\312\325\320\326\315\316\311\306&\210\312\327\307\330\315\331\311\306&\210\312\332\320\333\315\334\335\336\311\306& \210\312\337\320\340\335\341\315\316\311\306& \207" [require dired autoload dired-do-create-files-regexp "dired-aux" custom-declare-group wdired nil "Mode to rename files by editing their names in dired buffers." :group custom-declare-variable wdired-use-interactive-rename "If non-nil, WDired requires confirmation before actually renaming files.\nIf nil, WDired doesn't require confirmation to change the file names,\nand the variable `wdired-confirm-overwrite' controls whether it is ok\nto overwrite files without asking." :type boolean wdired-confirm-overwrite t "If nil the renames can overwrite files without asking.\nThis variable has no effect at all if `wdired-use-interactive-rename'\nis not nil." wdired-use-dired-vertical-movement "If t, the \"up\" and \"down\" movement works as in Dired mode.\nThat is, always move the point to the beginning of the filename at line.\n\nIf `sometimes', only move to the beginning of filename if the point is\nbefore it, and `track-eol' is non-nil. This behavior is very handy\nwhen editing several filenames.\n\nIf nil, \"up\" and \"down\" movement is done as in any other buffer." (choice (const :tag "As in any other mode" nil) (const :tag "Smart cursor placement" sometimes) (other :tag "As in dired mode" t)) wdired-allow-to-redirect-links "If non-nil, the target of the symbolic links are editable.\nIn systems without symbolic links support, this variable has no effect\nat all." wdired-allow-to-change-permissions "If non-nil, the permissions bits of the files are editable.\n\nIf t, to change a single bit, put the cursor over it and press the\nspace bar, or left click over it. You can also hit the letter you want\nto set: if this value is allowed, the character in the buffer will be\nchanged. Anyway, the point is advanced one position, so, for example,\nyou can keep the <x> key pressed to give execution permissions to\neverybody to that file.\n\nIf `advanced', the bits are freely editable. You can use\n`string-rectangle', `query-replace', etc. You can put any value (even\nnewlines), but if you want your changes to be useful, you better put a\nintelligible value.\n\nAnyway, the real change of the permissions is done by the external\nprogram `dired-chmod-program', which must exist." (choice (const :tag "Not allowed" nil) (const :tag "Toggle/set bits" t) (other :tag "Bits freely editable" advanced)) wdired-keep-marker-rename "Controls marking of files renamed in WDired.\nIf t, files keep their previous marks when they are renamed.\nIf a character, renamed files (whether previously marked or not)\nare afterward marked with that character.\nThis option affects only files renamed by `wdired-finish-edit'.\nSee `dired-keep-marker-rename' if you want to do the same for files\nrenamed by `dired-do-rename' and `dired-do-rename-regexp'." (choice (const :tag "Keep" t) (character :tag "Mark" :value 82)) :version "24.3" wdired-create-parent-directories "If non-nil, create parent directories of destination files.\nIf non-nil, when you rename a file to a destination path within a\nnonexistent directory, wdired will create any parent directories\nnecessary. When nil, attempts to rename a file into a\nnonexistent directory will fail." "26.1"] 10) #@31 Keymap used in `wdired-mode'. (defvar wdired-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\320#\210\302\321\320#\210\302\322\323#\210\302\324\323#\210\302\325\326\301\326!B#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210)\207" [map make-sparse-keymap define-key "" wdired-finish-edit "" " " wdired-abort-changes "" "" wdired-exit " " ignore "\n" "" [up] wdired-previous-line "" [down] wdired-next-line "" [menu-bar wdired] "WDired" [menu-bar wdired wdired-customize] ("Options" . wdired-customize) [menu-bar wdired dashes] ("--") [menu-bar wdired wdired-abort-changes] (menu-item "Abort Changes" wdired-abort-changes :help "Abort changes and return to dired mode") [menu-bar wdired wdired-finish-edit] ("Commit Changes" . wdired-finish-edit) [remap upcase-word] wdired-upcase-word [remap capitalize-word] wdired-capitalize-word [remap downcase-word] wdired-downcase-word] 6) (#$ . 3935)) #@41 Hooks run when changing to WDired mode. (defvar wdired-mode-hook nil (#$ . 5064)) #@711 Writable Dired (WDired) mode. \<wdired-mode-map> In WDired mode, you can edit the names of the files in the buffer, the target of the links, and the permission bits of the files. Type \[wdired-finish-edit] to exit WDired mode, returning to Dired mode, and make your edits "take effect" by modifying the file and directory names, link targets, and/or file permissions on disk. If you delete the filename of a file, it is flagged for deletion in the Dired buffer. Type \[wdired-abort-changes] to abort your edits and exit WDired mode. Type \[customize-group] RET wdired to customize WDired behavior. The only editable texts in a WDired buffer are filenames, symbolic link targets, and filenames permission. (defalias 'wdired-mode #[nil "\300\301!\207" [error "This mode can be enabled only by `wdired-change-to-wdired-mode'"] 2 (#$ . 5153) nil]) (put 'wdired-mode 'mode-class 'special) #@323 Put a Dired buffer in Writable Dired (WDired) mode. \<wdired-mode-map> In WDired mode, you can edit the names of the files in the buffer, the target of the links, and the permission bits of the files. After typing \[wdired-finish-edit], Emacs modifies the files and directories to reflect your edits. See `wdired-mode'. (defalias 'wdired-change-to-wdired-mode #[nil "\306\307!\204\n \310\311!\210\312\300!\210ed{\312\301!\210\313ed\"\312\302!\210`\312\303!\210\314\315\316\317\320B\321\322$\210\323\f!\210\324 \210\322\325,!\210\326\327\330\322\314$\210\326\331\332\322\314$\210\333-\334.\335/\336 \210\337 \2100\203c \340 \2101\203q \341\342!\203q \343 \210\344 \210\345\322!\210\3222\346\347!\210\350\351\352\353!\"\207" [wdired-old-content wdired-old-marks wdired-old-point query-replace-skip-read-only wdired-mode-map buffer-read-only derived-mode-p dired-mode error "Not a Dired buffer" make-local-variable dired-remember-marks t advice--add-function :after-while #[nil "\300\301!\207" [advice--buffer-local isearch-filter-predicate] 2] #[(gv--val) "\301\302\"\207" [gv--val advice--set-buffer-local isearch-filter-predicate] 3] wdired-isearch-filter-read-only nil use-local-map force-mode-line-update dired-unadvertise add-hook kill-buffer-hook wdired-check-kill-buffer after-change-functions wdired--restore-dired-filename-prop wdired-mode "Editable Dired" wdired-revert buffer-disable-undo wdired-preprocess-files wdired-preprocess-perms fboundp make-symbolic-link wdired-preprocess-symlinks buffer-enable-undo set-buffer-modified-p run-mode-hooks wdired-mode-hook message "%s" substitute-command-keys "Press \\[wdired-finish-edit] when finished or \\[wdired-abort-changes] to abort changes" default-directory major-mode mode-name revert-buffer-function wdired-allow-to-change-permissions wdired-allow-to-redirect-links buffer-undo-list] 5 (#$ . 6049) nil]) #@46 Skip matches that have a read-only property. (defalias 'wdired-isearch-filter-read-only #[(beg end) "\302 ^ ]\303\304$?\207" [beg end text-property-not-all read-only nil] 5 (#$ . 7936)]) (defalias 'wdired-preprocess-files #[nil "\302eeT\303\304$\210\212eb\210`\305m\204L \306\305\304\"\211\203F \307!\310\235\204F \311 \210\312`S`\313\314BB#\210\302 `\315\304$\210\316\304!\302``T\317\304$\210\305y\210\202 \302 d\315\304$+\207" [filename b-protection put-text-property front-sticky t nil dired-get-filename file-name-nondirectory ("." "..") dired-move-to-filename add-text-properties old-name (rear-nonsticky (read-only)) read-only dired-move-to-end-of-filename end-name] 7]) (defalias 'wdired-normalize-filename #[(file unquotep) "\203 \305\306\307\310\311 #\306Q! \203$ \n\203$ \204$ \f\204$ \312 \n\" \207" [unquotep file buffer-file-coding-system file-name-coding-system default-file-name-coding-system read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string] 6]) (put 'wdired-normalize-filename 'byte-optimizer 'byte-compile-inline-expand) #@271 Return the filename at line. Similar to `dired-get-filename' but it doesn't rely on regexps. It relies on WDired buffer's properties. Optional arg NO-DIR with value non-nil means don't include directory. Optional arg OLD with value non-nil means return old filename. (defalias 'wdired-get-filename #[(&optional no-dir old) "\306\211\211\212\307 \310 \210\311`\312\306 $\211 =\204c \203& \313\n\312\"\2021 \311\n\314\"\315\nT \"\203c ? \f\203I \316\317\320\321\322#\317Q!\203` \203` \204` \204` \323 \"*\204l \203p \202 \205 G\324V\205 \325 P,\207" [file end beg old unquotep buffer-file-coding-system nil line-end-position beginning-of-line next-single-property-change old-name get-text-property end-name buffer-substring-no-properties read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string 0 dired-current-directory file-name-coding-system default-file-name-coding-system no-dir] 7 (#$ . 9037)]) #@32 Change the mode back to dired. (defalias 'wdired-change-to-dired-mode #[nil "\306=\204\n \307\310!\210\311\312ed\313#\210)\314\315\316!\317\"\211\315\316!=\204' \320\316\n\"\210)\321 !\210\322 \210\311\323\324\325 \210\326\327\330\311#\210\326\331\332\311#\210\333\334!\210\335\211 \207" [major-mode inhibit-read-only #1=#:new dired-mode-map buffer-read-only mode-name wdired-mode error "Not a Wdired buffer" t remove-text-properties (front-sticky nil rear-nonsticky nil read-only nil keymap nil) advice--remove-function advice--buffer-local isearch-filter-predicate wdired-isearch-filter-read-only advice--set-buffer-local use-local-map force-mode-line-update dired-mode "Dired" dired-advertise remove-hook kill-buffer-hook wdired-check-kill-buffer after-change-functions wdired--restore-dired-filename-prop make-local-variable revert-buffer-function dired-revert] 5 (#$ . 10013)]) #@41 Abort changes and return to dired mode. (defalias 'wdired-abort-changes #[nil "\304\305 \210 c\210\nb\210)\306 \210\307\310!\210\310\311\312!\207" [inhibit-read-only wdired-old-content wdired-old-point buffer-undo-list t erase-buffer wdired-change-to-dired-mode set-buffer-modified-p nil message "Changes aborted"] 2 (#$ . 10909) nil]) #@66 Actually rename files based on your editing in the Dired buffer. (defalias 'wdired-finish-edit #[nil "\306\307\306\211\211\211\211\211 \" #\212$\203) \310\311!\203) \312 \211A\"@#%\203G \313\314!\203G \315 \"A\\\"#\206E @#db\210o\204\262 \316\306\317\"\211\203\254 \316 \211\n\232\203e \317\202\254 \317# \204s \n B\202\254 &\203\244 &\250\203\203 &\202\222 &\203\221 \320\n'\"A\202\222 \306\211 (\203\243 \321 !(B'B')\n\321 !B\fB\322y\210\202J )\f\203\277 \"\323\f!\\\"\324 \210#\203\363 );\203\344 \325)!\204\344 \204\344 \fG\326U\203\344 \f@A)\327 \210\317 *\330'!\210)\202\317 *\331ed\332#\210\333\334!\210) \203 \335 !\210\"\307V\203\336\337\340\"\"\306\"\210.\341\306!\210\306\211+\207" [tmp-value file-new file-old some-file-names-unchanged files-renamed files-deleted nil 0 fboundp make-symbolic-link wdired-do-symlink-changes boundp wdired-col-perm wdired-do-perm-changes wdired-get-filename t assoc substitute-in-file-name -1 wdired-do-renames wdired-change-to-dired-mode file-directory-p 1 revert-buffer dired-mark-remembered remove-text-properties (old-name nil end-name nil old-link nil end-link nil end-perm nil old-perm nil perm-changed nil) message "(No changes to be performed)" wdired-flag-for-deletion dired-log-summary format "%d rename actions failed" set-buffer-modified-p errors changes wdired-allow-to-redirect-links wdired-allow-to-change-permissions wdired-keep-marker-rename wdired-old-marks mark dired-directory inhibit-read-only buffer-undo-list] 9 (#$ . 11253) nil]) #@30 Perform RENAMES in parallel. (defalias 'wdired-do-renames #[(renames) "\306\211\307?\206 \310 \204 \f\211\306\211\203\317 \211A\242\211 A \311 \"\2035 \312\313!\210\202\313 \314 \"\203E \fB\202\313 \314\f\"\203\203 \315!\203\203 \204\\ \203d \fB\202\313 \316\317!\210\320! @ B B B\fB)\202\313 \321@ \203\231 \322 \"\210\202\312 \323\324!\210\3251\272 \306 \203\256 \326!\210\327 #)0\202\311 !\nT\330\331 !$)\210)*\202 \n,\207" [wdired-confirm-overwrite overwrite errors progress residue renames nil 0 1 rassoc error "Trying to rename 2 files to the same name" assoc file-exists-p message "Circular renaming: using temporary file name" make-temp-name t wdired-search-and-rename require dired-aux (error) wdired-create-parentdirs dired-rename-file dired-log "Rename `%s' to `%s' failed:\n%s\n" rename file-new tmp file-ori wdired-use-interactive-rename dired-backup-overwrite wdired-create-parent-directories err] 6 (#$ . 12806)]) #@61 Create parent directories for FILE-NEW if they don't exist. (defalias 'wdired-create-parentdirs #[(file-new) "\301\302!!?\205 \303\304\"\205 \305\302!\306\"\207" [file-new file-exists-p file-name-directory message "Creating directory for file %s" make-directory t] 3 (#$ . 13807)]) #@199 Exit wdired and return to dired mode. Just return to dired mode if there are no changes. Otherwise, ask a yes-or-no question whether to save or cancel changes, and proceed depending on the answer. (defalias 'wdired-exit #[nil "\301 \203 \302\303\304p\"!\203 \305 \207\306 \207\307 \210\310\311!\210\311\312\313!\207" [buffer-undo-list buffer-modified-p y-or-n-p format "Buffer %s modified; save changes? " wdired-finish-edit wdired-abort-changes wdired-change-to-dired-mode set-buffer-modified-p nil message "(No changes need to be saved)"] 4 (#$ . 14101) nil]) (defalias 'wdired-search-and-rename #[(filename-ori filename-new) "\212db\210\306y\210\307\310\307\n?\205S o?\205S \311\307\310\"\211 \232\203M \312\216\310\211 \313 \210\314\311\310!\307\310#\210\315\316 !\310\211#\210)\317\320\321\322\323 \307\310&\210\307)\202 \306y\210\202 ,\207" [curr-filename failed done filename-ori inhibit-read-only filename-new -1 nil t wdired-get-filename #[nil "\205 \301 \207" [failed wdired-change-to-dired-mode] 1] dired-move-to-filename search-forward replace-match file-name-nondirectory dired-do-create-files-regexp dired-rename-file "Move" 1 ".*"] 9]) (defalias 'wdired-flag-for-deletion #[(filenames-ori) "\212eb\210m?\205 \301\302\303\"\235\203 \304\305!\210\202 \302y\210\202 )\207" [filenames-ori dired-get-filename nil t dired-flag-file-deletion 1] 3]) #@27 Customize WDired options. (defalias 'wdired-customize #[nil "\300\301\302\"\207" [customize-apropos "wdired" groups] 3 (#$ . 15484) nil]) #@103 Discard changes in the buffer and update it based on changes on disk. Optional arguments are ignored. (defalias 'wdired-revert #[(&optional _arg _noconfirm) "\300 \210\301 \210\302 \207" [wdired-change-to-dired-mode revert-buffer wdired-change-to-wdired-mode] 1 (#$ . 15629)]) (defalias 'wdired-check-kill-buffer #[nil "\300 \205 \301\302!?\205 \303\304!\207" [buffer-modified-p y-or-n-p "Buffer changed. Discard changes and kill buffer? " error "Error"] 2]) (defalias 'wdired--restore-dired-filename-prop #[(beg end _len) "\306 \307\216\212\310 \311 \210\312\n \313#\205L `\314\f\315\313#\203, \316\317!\203, \320\321 \313#\204< \322 \323\324#\203B \312\325 \313#\203B \326\224b\202C \327 \330\313$,\207" [save-match-data-internal lep directory-listing-before-filename-regexp beg dired-permission-flags-regexp dired-actual-switches match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] line-end-position beginning-of-line re-search-forward t re-search-backward nil looking-at "l" search-forward " -> " dired-check-switches "F" "classify" "[*/@|=>]$" 0 put-text-property dired-filename end] 5]) #@179 Move down lines then position at filename or the current column. See `wdired-use-dired-vertical-movement'. Optional prefix ARG says how many lines to move; default is one line. (defalias 'wdired-next-line #[(arg) "\302!\210 \303=\204 \205 i\212\304 \210i)W\205 \304 \207" [arg wdired-use-dired-vertical-movement next-line t dired-move-to-filename] 2 (#$ . 16777) "^p"]) #@177 Move up lines then position at filename or the current column. See `wdired-use-dired-vertical-movement'. Optional prefix ARG says how many lines to move; default is one line. (defalias 'wdired-previous-line #[(arg) "\302!\210 \303=\204 \205 i\212\304 \210i)W\205 \304 \207" [arg wdired-use-dired-vertical-movement previous-line t dired-move-to-filename] 2 (#$ . 17160) "^p"]) (defalias 'wdired-preprocess-symlinks #[nil "\302\212eb\210m?\205F \303 !\203@ \304\305!\210\306\307\224\310Z\307\224S\311\312\307!$\210\306\307\225\307\225T\313\302$\210\306\307\224S\307\224\314\315$\210\306\307\224\307\225\316\317$\210\317y\210\202 *\207" [inhibit-read-only dired-re-sym t looking-at re-search-forward " -> \\(.*\\)$" put-text-property 1 2 old-link match-string-no-properties end-link rear-nonsticky (read-only) read-only nil] 6]) #@96 Return the next symlink target. If OLD, return the old target. If MOVE, move point before it. (defalias 'wdired-get-previous-link #[(&optional old move) "\306\211\211\307`\310\306#\211\2030 \203 \311\nS\310\"\202( \312\n\313\"\314\nT \"\f\2030 \nSb\210\205i \315 \203J \316\317\320\321\322#\317Q!\203f \203f \204f \204f \323\"*+\207" [target end beg old move unquotep nil previous-single-property-change old-link get-text-property next-single-property-change end-link buffer-substring-no-properties t read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string file buffer-file-coding-system file-name-coding-system default-file-name-coding-system] 7 (#$ . 18000)]) (defalias 'wdired-do-symlink-changes #[nil "\306\307\306\211\211 db\210\310 \211\203O \310\311\211\"\312\306\311\" \n\232\204 \311 \313\232\203. \314\3151@ \316!\210\317\320 !\"0\202K T\321\322 $)\210\202 \f -B\207" [link-from link-to-new link-to-ori errors changes err nil 0 wdired-get-previous-link t wdired-get-filename "" "/dev/null" (error) delete-file make-symbolic-link substitute-in-file-name dired-log "Link `%s' to `%s' failed:\n%s\n"] 5]) (defalias 'wdired-xcase-word #[(command arg) "\302W\203\n !\207\302V\2053 \3031 \304!\210S\2110\202/ \210\305 \203, \306\307!\202/ \302\211\210\202\n \207" [arg command 0 (error) 1 forward-word-strictly skip-syntax-forward "^w"] 2]) #@89 WDired version of `downcase-word'. Like original function but it skips read-only words. (defalias 'wdired-downcase-word #[(arg) "\301\302\"\207" [arg wdired-xcase-word downcase-word] 3 (#$ . 19447) "p"]) #@87 WDired version of `upcase-word'. Like original function but it skips read-only words. (defalias 'wdired-upcase-word #[(arg) "\301\302\"\207" [arg wdired-xcase-word upcase-word] 3 (#$ . 19658) "p"]) #@91 WDired version of `capitalize-word'. Like original function but it skips read-only words. (defalias 'wdired-capitalize-word #[(arg) "\301\302\"\207" [arg wdired-xcase-word capitalize-word] 3 (#$ . 19863) "p"]) (defvar wdired-perm-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\306#\210\302\312\306#\210\302\313\306#\210\302\314\306#\210\302\315\306#\210\302\313\306#\210\302\316\306#\210\302\317\320#\210)\207" [map make-sparse-keymap define-key " " wdired-toggle-bit "r" wdired-set-bit "w" "x" "-" "S" "s" "T" "t" "l" [down-mouse-1] wdired-mouse-toggle-bit] 4)) (defalias 'wdired-preprocess-perms #[nil "\306\307\301!\210\310\212eb\210m?\205t \311\n!\204k \312 \203k \313 \314 \315#\203k \316\224\316\225 \2043 i\317Z \320=\203L \321 \f\322\310$\210\321 S \323\324$\210\202X \325 T\f\326 \327BB#\210\321\f\211T\330\306$\210\321 \211T\331\332\316!$\210*\310y\210\333 \210\202\f *\207" [inhibit-read-only wdired-col-perm dired-re-sym dired-re-perms end begin t make-local-variable nil looking-at wdired-get-filename re-search-forward line-end-position eol 0 9 advanced put-text-property read-only rear-nonsticky (read-only) add-text-properties keymap (rear-nonsticky (keymap)) end-perm old-perm match-string-no-properties beginning-of-line wdired-allow-to-change-permissions wdired-perm-mode-map] 6]) (defalias 'wdired-perm-allowed-in-pos #[(char pos) "\302U\203 \303\207\304U\203 \305\246\306U\207\307U\203 \305\246\310U\207\311U\203, \305\246\312U\207\313\267\202: \314>\207 \315U\207\316U\205C \317U\207" [char pos 45 t 114 3 0 119 1 120 2 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 50 83 50 116 54 84 54)) (2 5) 8 108 5] 2]) #@33 Set a permission bit character. (defalias 'wdired-set-bit #[nil "\306i Z\"\203= \307!\310`i ZZ \311\312\313\314 \f%\210\311\312\313\315\310\f%\210\fc\210\316\313!\210\311\nS\n\317\310$\210\311`S`\320\321$+\207\313u\207" [last-command-event wdired-col-perm pos-prop inhibit-read-only new-bit wdired-perm-mode-map wdired-perm-allowed-in-pos char-to-string t put-text-property 0 1 keymap read-only delete-char perm-changed rear-nonsticky (keymap)] 6 (#$ . 21636) nil]) #@37 Toggle the permission bit at point. (defalias 'wdired-toggle-bit #[nil "\305\306`iZZ`f\307=\203/ iZ\310\246\311U\203 \312\202. iZ\310\246\313U\203- \314\202. \315\316\311\313\317\f\n%\210\316\311\313\320\305\n%\210\nc\210\321\313!\210\316 S \322\305$\210\316`S`\323\324$+\207" [wdired-col-perm pos-prop new-bit inhibit-read-only wdired-perm-mode-map t "-" 45 3 0 "r" 1 "w" "x" put-text-property keymap read-only delete-char perm-changed rear-nonsticky (keymap)] 6 (#$ . 22112) nil]) #@50 Toggle the permission bit that was left clicked. (defalias 'wdired-mouse-toggle-bit #[(event) "\301!\210\302 \207" [event mouse-set-point wdired-toggle-bit] 2 (#$ . 22609) "e"]) (defalias 'wdired-perms-to-number #[(perms) "\303 \304\234\305U\203 \306Z \307\234\305U\203 \310Z \311\234\211\312>\203( \313Z\n\314>\2032 \315\\) \316\234\305U\203? \317Z \320\234\305U\203K \321Z \322\234\211\323>\203Y \324Z\n\325>\203c \326\\) \327\234\305U\203p \316Z \330\234\305U\203| \307Z \331\234\211\332>\203\211 S\n\333>\203\223 \334\\))\207" [nperm perms p-bit 777 1 45 400 2 200 3 (45 83) 100 (115 83) 4000 4 40 5 20 6 (45 83 108) 10 (115 83 108) 2000 7 8 9 (45 84) (116 84) 1000] 3]) (defalias 'wdired-do-perm-changes #[nil "\306\307\310=\203\f \311\202 \312\306\211\211\211 \313e \306d$b\210m\204\204 \314`\311\"\315`\313`\316\"\" \n\232\204x \317\320\306\317\"\nG\321U\203m \322\323\n!!\324\306\211\211 \f&\307\232\204x T\325\326 \f$\210\202x T\325\327\n\f#\210\313`T \306d$b\210\202\" .B\207" [wdired-allow-to-change-permissions perm-tmp perms-new perms-ori filename prop-wanted nil 0 advanced old-perm perm-changed next-single-property-change get-text-property buffer-substring-no-properties end-perm t wdired-get-filename 10 int-to-string wdired-perms-to-number process-file dired-log "%s %s `%s' failed\n\n" "Cannot parse permission `%s' for file `%s'\n\n" errors changes dired-chmod-program] 7]) (provide 'wdired)
Close
