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 : pcvs.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:56 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/pcvs.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pcvs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require ewoc pcvs-defs pcvs-util pcvs-parse pcvs-info] 2) #@30 Bound to t inside VC advice. (defvar cvs-from-vc nil (#$ . 737)) (defalias 'cvs-defaults #[(&rest defs) "\303 \"\304\305 GZ@\"\n#)\207" [defs cvs-shared-start cvs-shared-flags cvs-first append make-list] 5]) (byte-code "\302B\306\302\307\310#\210\311\312\302!\211\203, \313\n!\203, \nG\314Y\203, \n\315H >\203, \n\202C \316 \317\320 \203; \n\fAB\202< \f\310\211\211\211&))!\210\305B\306\305\307\310#\210\321\312\305!\211\203r \313 !\203r G\314Y\203r \315H >\203r \202\213 \322\323! \317\320 \203\203 \fAB\202\204 \f\310\211\211\211&))!\210\324B\306\324\307\310#\210\325\312\324!\211\203\276 \313!\203\276 G\314Y\203\276 \315H >\203\276 \202\331 \322\326\310\" \317\320 \203\321 \fAB\202\322 \f\310\211\211\211&))!\210\327B\306\327\307\310#\210\330\312\327!\211\203\f\313!\203\fG\314Y\203\f\315H >\203\f\202&\322\310! \317\320 \203 \fAB\202 \f\310\211\211\211&))!\210\331B\306\331\307\310#\210\332\312\331!\211\203Y\313!\203YG\314Y\203Y\315H >\203Y\202u\322\333\334\335# \317\320 \203m\fAB\202n\f\310\211\211\211&))!\210\336B\306\336\307\310#\210\337\312\336!\211\203\250\313 !\203\250 G\314Y\203\250 \315H >\203\250 \202\302\322\310! \317\320 \203\272 \fAB\202\273\f\310\211\211\211&))!\210\340B\306\340\307\310#\210\341\312\340!\211\203\365\313 !\203\365 G\314Y\203\365 \315H >\203\365 \202\322\310! \317\320 \203 \fAB\202\f\310\211\211\211&))!\210\342B\306\342\307\310#\210\343\312\342!\211\203B\313\"!\203B\"G\314Y\203B\"\315H >\203B\"\202\\\322\310! \317\320 \203T\"\fAB\202U\f\310\211\211\211&))!\210\344B\306\344\307\310#\210\345\312\344!\211\203\217\313$!\203\217$G\314Y\203\217$\315H >\203\217$\202\251\322\310! \317\320 \203\241$\fAB\202\242\f\310\211\211\211&))!\210\346B\306\346\307\310#\210\347\312\346!\211\203\334\313&!\203\334&G\314Y\203\334&\315H >\203\334&\202\366\322\350! \317\320 \203\356&\fAB\202\357\f\310\211\211\211&))!\207" [current-load-list bound cvs-cvs-flags cl-struct-cvs-flags-tags defaults cvs-checkout-flags put variable-documentation nil (lambda (#1=#:defconst-tmp-var) (defconst cvs-cvs-flags #1#)) boundp vectorp 6 0 (("-f")) vector cl-struct-cvs-flags (lambda (#2=#:defconst-tmp-var) (defconst cvs-checkout-flags #2#)) cvs-defaults ("-P") cvs-status-flags (lambda (#3=#:defconst-tmp-var) (defconst cvs-status-flags #3#)) ("-v") cvs-log-flags (lambda (#4=#:defconst-tmp-var) (defconst cvs-log-flags #4#)) cvs-diff-flags (lambda (#5=#:defconst-tmp-var) (defconst cvs-diff-flags #5#)) ("-u" "-N") ("-c" "-N") ("-u" "-b") cvs-tag-flags (lambda (#6=#:defconst-tmp-var) (defconst cvs-tag-flags #6#)) cvs-add-flags (lambda (#7=#:defconst-tmp-var) (defconst cvs-add-flags #7#)) cvs-commit-flags (lambda (#8=#:defconst-tmp-var) (defconst cvs-commit-flags #8#)) cvs-remove-flags (lambda (#9=#:defconst-tmp-var) (defconst cvs-remove-flags #9#)) cvs-update-flags (lambda (#10=#:defconst-tmp-var) (defconst cvs-update-flags #10#)) ("-d" "-P")] 9) #@63 Reset the default arguments to those in the `cvs-cvsrc-file'. (defalias 'cvs-reread-cvsrc #[nil "\300\301\302\217\207" [nil (byte-code "\306\307!rq\210\310\216\311 !\210\312\313\211\203a @eb\210\314\315\n\316Q\313\317#\203Z \320\321\n\322Q! \323\324\325!\2066 \326! \f\327 ! \" \"\fJ\327H#>\204P \330\331!\210\fJ\332H\233!\240\210- A\211\204 *\333\327\334\335\336\337\333\313\340#\"AB ! \" \"\fJ\327H#>\204\204 \330\331!\210\fJ\332H\233!\240.\207" [#1=#:temp-buffer cvs-cvsrc-file cmd #2=#:--cl-dolist-temp-- sym val generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents ("cvs" "checkout" "status" "log" "diff" "tag" "add" "commit" "remove" "update") nil re-search-forward "^" "\\(\\s-+\\(.*\\)\\)?$" t intern "cvs-" "-flags" split-string-and-unquote match-string 2 "" 0 error "cvs-flags-defaults accessing a non-cvs-flags" 1 cvs-cvs-flags "-f" cvs-partition #[(x) "\301\235\207" [x ("-q" "-Q" "-f")] 2] cvs-flags-query noquery value index cl-struct-cvs-flags-tags] 9) ((file-error))] 3 (#$ . 3770) nil]) (cvs-reread-cvsrc) #@21 Popup the CVS menu. (defalias 'cvs-menu #[(e) "\306\307 \211:\203 \310\n8:\203 \310\202 \311\n8\202! \312 `\313\314F)\315 8\206: A@:\2037 A@@\202: A@)\"!C \316 \")\207" [cvs-cookies e event position cvs-minor-current-files cvs-menu ewoc-data ewoc-locate 2 1 selected-window (0 . 0) 0 5 popup-menu] 8 (#$ . 4894) "e"]) #@62 Mode-line control for displaying info on cvs process status. (defvar cvs-mode-line-process nil (#$ . 5228)) (autoload 'cvs-status-get-tags "cvs-status") #@58 Return a list of acceptable tags, ready for completions. (defalias 'cvs-tags-list #[nil "\304 \204 \305\306\307C\"\210\310 \311\312\2059 \313\314!r q\210\315\216\316\n\317\320\317\321\322\323@!&\210eb\210\324 \211<\2058 ,)BB\207" [marked #1=#:temp-buffer cvs-program tags cvs-buffer-p signal cl-assertion-failed (cvs-buffer-p) cvs-get-marked ("BASE") ("HEAD") generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) process-file nil t "status" "-v" cvs-fileinfo->full-name cvs-status-get-tags] 12 (#$ . 5387)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\306\307\310\311\211\301\312\304&!\207" [current-load-list cvs-tag-history default-boundp set-default nil cvs-qtypedesc-tag (lambda (#1=#:defconst-tmp-var) (defconst cvs-qtypedesc-tag #1#)) vector cl-struct-cvs-qtypedesc identity cvs-tags-list] 8) #@262 Switch to the *cvs* buffer. If -CVS-MODE!-FUN is provided, it is executed *cvs* being the current buffer and with its window selected. Else, the *cvs* buffer is simply selected. -CVS-MODE!-FUN is called interactively if applicable and else with no argument. (defalias 'cvs-mode! #[(&optional -cvs-mode!-fun) "p\306 \203 p\202 \203 \306 !\203 \202 \307\310! \311 \204+ \nq\202U p\312 \313\n\314\" \315\216\nq\210\203G \316!\210\f\203R \f \"\202T ,,\207" [-cvs-mode!-buf cvs-buffer cvsbuf cvs-minor-wrap-function -cvs-mode!-wrapper -cvs-mode!-cont cvs-buffer-p error "can't find the *cvs* buffer" #[nil "r\301!\203 \302!\202 )\207" [-cvs-mode!-fun commandp call-interactively] 2] selected-window get-buffer-window visible ((byte-code "q\210 \203 \303 =\203 \304\n!\210\303\207" [cvs-mode!-buf cvs-mode!-nwin cvs-mode!-owin selected-window select-window] 2)) select-window -cvs-mode!-fun cvs-mode!-nwin cvs-mode!-owin cvs-mode!-buf] 5 (#$ . 6275)]) (byte-code "\302B\303\302!\204 \304\302 \305\211E\"\210\302\207" [current-load-list cvs-vendor-branch cvs-branches default-boundp set-default "HEAD"] 5) #@88 Current selected branch. See `cvs-prefix-set' for further description of the behavior. (defvar cvs-branch-prefix nil (#$ . 7420)) (byte-code "\306B\307\306!\204- \310\306 \nB\211G\fY\204! \311 \312\fS @\"\"\313\314 \315\316 \315&)\"\210\315\207" [current-load-list cvs-vendor-branch cvs-branches defaults cvs-prefix-number cvs-qtypedesc-tag cvs-branch-prefix-cps default-boundp set-default append make-list vector cl-struct-cvs-flags nil "version"] 10) #@223 Set the branch prefix to take action at the next command. See `cvs-prefix-set' for a further the description of the behavior. \[universal-argument] 1 selects the vendor branch and \[universal-argument] 2 selects the HEAD. (defalias 'cvs-set-branch-prefix #[(arg) "\301 \210\302\303\"\207" [arg cvs-mode! cvs-prefix-set cvs-branch-prefix] 3 (#$ . 7885) "P"]) #@187 Add branch selection argument if the branch prefix was set. The argument is added (or not) to the list of FLAGS and is constructed by appending the branch to ARG which defaults to "-r". (defalias 'cvs-add-branch-prefix #[(flags &optional arg) "\303\304!\303\305!\210\203 \206 \306P\nB\202 \n)\207" [branch arg flags cvs-prefix-get cvs-branch-prefix cvs-secondary-branch-prefix "-r"] 2 (#$ . 8251)]) #@98 Current secondary selected branch. See `cvs-prefix-set' for further description of the behavior. (defvar cvs-secondary-branch-prefix nil (#$ . 8663)) (byte-code "\306B\307\306!\204- \310\306 \nB\211G\fY\204! \311 \312\fS @\"\"\313\314 \315\316 \315&)\"\210\315\207" [current-load-list cvs-vendor-branch cvs-branches defaults cvs-prefix-number cvs-qtypedesc-tag cvs-secondary-branch-prefix-cps default-boundp set-default append make-list vector cl-struct-cvs-flags nil "version"] 10) #@223 Set the branch prefix to take action at the next command. See `cvs-prefix-set' for a further the description of the behavior. \[universal-argument] 1 selects the vendor branch and \[universal-argument] 2 selects the HEAD. (defalias 'cvs-set-secondary-branch-prefix #[(arg) "\301 \210\302\303\"\207" [arg cvs-mode! cvs-prefix-set cvs-secondary-branch-prefix] 3 (#$ . 9158) "P"]) #@393 Add branch selection argument if the secondary branch prefix was set. The argument is added (or not) to the list of FLAGS and is constructed by appending the branch to ARG which defaults to "-r". Since the `cvs-secondary-branch-prefix' is only active if the primary prefix is active, it is important to read the secondary prefix before the primay since reading the primary can deactivate it. (defalias 'cvs-add-secondary-branch-prefix #[(flags &optional arg) "\303\304\305\"\205\n \303\306!\211\203 \206 \307P\nB\202 \n)\207" [branch arg flags cvs-prefix-get cvs-branch-prefix read-only cvs-secondary-branch-prefix "-r"] 4 (#$ . 9544)]) #@97 Non-nil if CVS minor mode is enabled. Use the command `cvs-minor-mode' to change this variable. (defvar cvs-minor-mode nil (#$ . 10193)) (make-variable-buffer-local 'cvs-minor-mode) #@153 This mode is used for buffers related to a main *cvs* buffer. All the `cvs-mode' buffer operations are simply rebound under the \[cvs-mode-map] prefix. (defalias 'cvs-minor-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\313\314\n\2033 \315\2024 \316\"\210\317 \203T \303 \203G \303 \232\203T \310\320\n\203Q \321\202R \322\"\210)\323 \210\n\207" [#1=#:last-message arg cvs-minor-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks cvs-minor-mode-hook cvs-minor-mode-on-hook cvs-minor-mode-off-hook called-interactively-p "CVS minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 10382) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\305!\205 \305J#\210\306\302\307\310#\210\311B\312\311!\204\" \313\311\314\"\210\314\207" [current-load-list add-minor-mode cvs-minor-mode " CVS" boundp cvs-minor-mode-map put permanent-local t cvs-temp-buffers default-boundp set-default nil] 5) #@420 Create a temporary buffer to run CMD in. If CMD is a string, use it to lookup `cvs-buffer-name-alist' to find the buffer name to be used and its `major-mode'. The selected window will not be changed. The new buffer will not maintain undo information and will be read-only unless NORMAL is non-nil. It will be emptied (unless NOSETUP is non-nil) and its `default-directory' will be inherited from the current buffer. (defalias 'cvs-temp-buffer #[(&optional cmd normal nosetup) "p\306 \n\"A\307 @! A@ % &\f\203 \310\f!\202@ \311\f!\2032 \312\f!\2032 \f\202@ \313\314!\210\310\307'!\315\"\211\f (\316(! )*\204m \317)!\203m \320)!\321>\203m \203i \322)!\210\202m \323\324!\210)\f\204y \325\326!\210\202\215 +\204\205 \212\327(!\210)\313\326!\210(\330\331(\"\210r(q\210\332,&%+\204\252 \333 \210\334 \210\313\335!\210 -\336 !\203\301 \210\202\304 \337 \210-\203\321 \313\340!\210- )\341\342!\210*\203\341 \343 \210\202\347 \344,\333 \210(.\207" [cvs-buf cmd cvs-buffer-name-alist info name mode assoc eval cvs-get-buffer-create bufferp buffer-live-p make-local-variable cvs-temp-buffer noreuse get-buffer-process processp process-status (run stop) delete-process error "Can not run two cvs processes simultaneously" kill-local-variable other-window-scroll-buffer display-buffer add-to-list cvs-temp-buffers nil buffer-disable-undo erase-buffer cvs-buffer fboundp fundamental-mode list-buffers-directory cvs-minor-mode 1 buffer-enable-undo t default-directory dir cvs-temp-buffer-name buf proc normal nosetup buffer-read-only lbd] 3 (#$ . 11451)]) #@63 Kill all the "temporary" buffers created by the *cvs* buffer. (defalias 'cvs-mode-kill-buffers #[nil "\303\211\203 \n@\303\304\305\217\210\nA\211\204 *\303\207" [cvs-temp-buffers buf #1=#:--cl-dolist-temp-- nil (kill-buffer buf) ((error))] 4 (#$ . 13043) nil]) #@105 Create the *cvs* buffer for directory DIR. If non-nil, NEW means to create a new buffer no matter what. (defalias 'cvs-make-cvs-buffer #[(dir &optional new) "\306\307 !!)\310\n!\f\204 \311=\203 \312 \203 p\2061 \212\f?\205) \313\314\215)\2061 \315 \f\" .r.q\210/\230\203K \312 \203K \316\317\320\217\206\300 /\3160\321 \210\322\323\324 !\325\326 \327\330!\331\332!\204j \333\202\225 \334\332! 1\335\3361\"\203\201 \3371\340\316OP\202\224 \335\3411\"\203\223 \3421\340\316OP\202\224 \333)\333\261\210\3430\344 \210\345\346!\210 &\347\350\351\333\343$ 2\345\352!\2102*\353\354\355\316\343$\210.)+\207" [dir d cvs-buffer-name buffer-name new cvs-reuse-cvs-buffer file-name-as-directory expand-file-name eval current cvs-buffer-p --cl-block-nil-- (byte-code "p\305 B\306\211\203H @\211q\210\307 \203A \n\310=\204< \n\311=\2030 \312 \f\"\204< \312\f \"\2029 \n\313=\203A \f\230\203A \314\315\"\210 A\211\204 *\306\207" [buffer #1=#:--cl-dolist-temp-- cvs-reuse-cvs-buffer default-directory dir buffer-list nil cvs-buffer-p always subdir cvs-string-prefix-p samedir throw --cl-block-nil--] 4) cvs-get-buffer-create nil (byte-code "\301\302\211\303$\210p\207" [cvs-cookies cvs-cleanup-collection nil t] 5) ((error)) erase-buffer "Repository : " directory-file-name cvs-get-cvsroot "\nModule : " cvs-get-module "\nWorking dir: " abbreviate-file-name file-readable-p "CVS/Tag" "\n" cvs-file-to-string string-match "\\`T" "\nTag : " 1 "\\`D" "\nDate : " t cvs-mode make-local-variable list-buffers-directory ewoc-create cvs-fileinfo-pp "\n\n" cvs-cookies add-hook kill-buffer-hook #[nil "\300\301\302\217\207" [nil (kill-buffer cvs-temp-buffer) ((error))] 3] buffer default-directory buffer-read-only tag cookies] 10 (#$ . 13318)]) #@89 Not documented (fn CMD DIR FLAGS FIS NEW &key CVSARGS NOEXIST DONT-CHANGE-DISC NOSHOW) (defalias 'cvs-cmd-do #[(cmd dir flags fis new &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\321!!! \322 \" \323!\204d \315\324\"\210\n\204\202 \323\321\325\"!\204\202 \326\321\327\"!\204\202 \315\330\"\210 q\210\331 \306 \310 &\210\f\203\235 \202\245 \314 !\332 !).\207" [#1# cvsargs noexist dont-change-disc noshow #2=#:--cl-keys-- :cvsargs :noexist :dont-change-disc :noshow (:cvsargs :noexist :dont-change-disc :noshow :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:cvsargs :noexist :dont-change-disc :noshow)" file-name-as-directory abbreviate-file-name expand-file-name cvs-make-cvs-buffer file-directory-p "%s is not a directory" "CVS" file-expand-wildcards "*/CVS" "%s does not contain CVS controlled files" cvs-mode-run pop-to-buffer dir new cvsbuf cmd flags fis pop-up-windows] 9 (#$ . 15097)]) (defalias 'cvs-run-process #[(args fis postprocess &optional single-dir) "\306!\204\f \307\310\311C\"\210rp \206 \n\312=\211 q\210db\210n\204) \312 \313c\210)8\2032 \204= \314\315\3168\"\317E\202\260 8@\320H9>\204L \321\322!\2108@\323H :\312 \324:\313\261\210)\317 ;8\211 8@ <8\203\250 :<\320H9>\204} \321\322!\210<\323H\230\203\250 <\320H9>\204\223 \321\325!\210<\326H;B;8A\2118@<\202h :;8E,\211 =@ :=A@ ;\327=8 >\330\331\332\317\312$\210\333?8\" @\334\335\336\317\337#A\205\340 \340AD?;$ ?\317 B: C\341\342C!!) D\343\344\345\fE?%) F\346F\300#\210rq\210\347@\350\"\210)\346F\351@#\210\346F\352>\204+G\202=\353\354?D\354>D\354GD\354 D\257#\210\355F\356\"\210\357F\360\"\210\361F!d\317\223\210\317\362\363\217\210 q\210\364\365F!!H\366 \210.\f\367\320!\207" [cvs-buffer single-dir cvs-execute-single-dir cvsbuf procbuf inhibit-read-only cvs-buffer-p signal cl-assertion-failed (cvs-buffer-p cvs-buffer) t "\n" "" mapcar cvs-fileinfo->full-name nil 0 error "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 "pcl-cvs: descending directory " "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 2 add-hook kill-buffer-hook #[nil "\301p!\302!\205 \303\304\"\210\305\306\304#\210\307!)\207" [proc get-buffer-process processp set-process-filter nil process-put cvs-postprocess interrupt-process] 4] cvs-header-msg append cvs-flags-query cvs-cvs-flags noquery "-d" file-name-as-directory expand-file-name apply start-file-process "cvs" process-put cvs-update-header add cvs-header cvs-postprocess cvs-run-process quote set-process-sentinel cvs-sentinel set-process-filter cvs-update-filter process-mark (process-send-eof process) ((error)) symbol-name process-status force-mode-line-update sit-for fis cl-struct-cvs-fileinfo-tags dir files fi dir+files+rest rest args msg cvs-cvsroot process-connection-type d default-directory cvs-program process postprocess cvs-mode-line-process] 10]) (defalias 'cvs-header-msg #[(args fis) "\305\306\307 \"\n\310\311\312\313\314\305\315# \205 \316 D \306\317\f\"$!Q*\207" [lastarg args cvs-program cvs-cvsroot fis nil mapcar #[(arg) "\302=\203 \303\230\203 \304 \207\304=\203 \305\230\203 \306 \207\306=\203* \307\310\207\302=\203: \311\230\203: \312 \207\312=\203P \313\314 \"\203P \307\315\316 \"\310P\207 \207" [lastarg arg nil "commit" commit "-m" -m done "<log message>" "admin" admin string-match "\\`-m[^:]*:" match-string 0] 3] " " combine-and-quote-strings append cvs-flags-query cvs-cvs-flags noquery "-d" cvs-fileinfo->full-name] 10]) (defalias 'cvs-update-header #[(cmd add) "\306!\211@\307\310\311\"\211 \2035 \312\f!\211 \311H#>\204# \313\314!\210 \315H)\316>\2035 \317\f\"\211\204 $\203M \320\321\n\"\204C \322\323%\324\nR\202w \320\325\326%!\327Q\n\"\204a \313\330!\210\202w \331\307\332\211\n$\320\321\n\"\204q \333\334%\335Q\336\n\337\f\203\203 \340\202\204 \341\342 R#,\207" [cvs-cookies hf str done tin cl-x ewoc-get-hf "" ewoc-nth 0 ewoc-data error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 (MESSAGE DIRCHANGE) ewoc-next string-match "." "\n" "-- Running " " ...\n" "^-- Running " regexp-quote " \\.\\.\\.\n" "Internal PCL-CVS error while removing message" replace-match t "\n\n" "-- last cmd: " " --\n" ewoc-set-hf "\n--------------------- " "End" "Empty" " ---------------------\n" cl-struct-cvs-fileinfo-tags add cmd] 8]) #@122 Sentinel for the cvs update process. This is responsible for parsing the output from the cvs update when it is finished. (defalias 'cvs-sentinel #[(proc msg) "\305!\306>\205\204 \307\310\"\307\311\"\312!\313\n!\204 \314\313 !\204& \314\315\316\314#\210\317!\210\n\203c r\nq\210\320\307\321\"\314\"\210\322\305!!\323 \210 \203b \204X \324\325!\210\202b r q\210\212\326 !\210*) \205\203 \327 !?\205\203 r q\210\330 \210r\n\206{ pq\210\331\332\333 \"*+\207" [proc procbuf cvs-buf cvs-postproc cvs-mode-line-process process-status (signal exit) process-get cvs-postprocess cvs-buffer process-buffer buffer-live-p nil process-put postprocess delete-process cvs-update-header cvs-header symbol-name force-mode-line-update error "cvs' process buffer was killed" eval get-buffer-process buffer-enable-undo message "CVS process has completed in %s" buffer-name] 4 (#$ . 19563)]) #@319 Parse the output of a cvs process. DCD is the `dont-change-disc' flag to use when parsing that output. SUBDIR is the subdirectory (if any) where this command was run. OLD-FIS is the list of fileinfos on which the cvs command was applied and which should be considered up-to-date if they are missing from the output. (defalias 'cvs-parse-process #[(dcd &optional subdir old-fis) "\306=\203 \212eb\210\307\310\311\312#\203 \312\313\224\313\225|\210)\202\n )\314\315\n # \311 r q\210\311 \311 \211 !\203\202 !@\211 \313H\">\204L \316\317!\210 \320H\321=\203r \322#\323 \313H\">\204g \316\324!\210 \325H# \244\202w B !A\211!\204: * )\311 \311 \211 $\203\301 $@\211 \313H\">\204\250 \316\317!\210 \320H\326=\204\270 B $A\211$\204\226 * )\f\311 \211 %\203\360 %@ \327# #\330\331 ! \" %A\211%\204\321 * \311 \211 &\203%&@\211 \313H\">\204\316\332!\210 \320\326I\210\327# #&A\211&\204\374 * \f\244\333#'\312=(\311$\210)\205J\n?\205J*?\205J\334\f!+\207" [system-type inhibit-read-only dcd subdir fileinfos last darwin re-search-forward "^\\^D+" nil t 0 cvs-parse-buffer cvs-parse-table error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE ewoc-collect cvs-dir-member-p "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 UP-TO-DATE cvs-addto-collection delq ewoc-data "cvs-fileinfo->type storing a non-cvs-fileinfo" cvs-cleanup-collection cvs-revert-if-needed cvs-buffer fis old-fis fi #1=#:--cl-dolist-temp-- cl-struct-cvs-fileinfo-tags cvs-cookies #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- #4=#:--cl-dolist-temp-- cvs-auto-remove-handled cvs-auto-remove-directories cvs-auto-revert cvs-from-vc] 6 (#$ . 20456)])(if macro-declaration-function (funcall macro-declaration-function (quote defun-cvs-mode) (quote (declare (debug (&define sexp lambda-list stringp ("interactive" interactive) def-body)) (doc-string 3))))) #@859 Define a function to be used in a *cvs* buffer. This will look for a *cvs* buffer and execute BODY in it. Since the interactive arguments might need to be queried after switching to the *cvs* buffer, the generic code is rather ugly, but luckily we can often use simpler alternatives. FUN can be either a symbol (i.e. STYLE is nil) or a cons (FUN . STYLE). ARGS and DOCSTRING are the normal argument list. INTERACT is the interactive specification or nil for non-commands. STYLE can be either SIMPLE, NOARGS or DOUBLE. It's an error for it to have any other value, unless other details of the function make it clear what alternative to use. - SIMPLE will get all the interactive arguments from the original buffer. - NOARGS will get all the arguments from the *cvs* buffer and will always behave as if called interactively. - DOUBLE is the generic case. (defalias 'defun-cvs-mode '(macro . #[(fun args docstring interact &rest body) "\306!\211:\203 @\202 )\211\307=\204& A@\203& A@;\2038 \310\f \311\312\313!BBD\257\202\250 \n\314=\203R \310\313 \315\311\312\f !BBBD\257\202\250 \n\316=\203\244 \317\320 \"\210\321\322 \"\323\324!\325P! \" #\326\310\"\f \327\324!\330R !BBBBB\331\332\"D\333\332DF\310\313#\334\324\"!\335R\336\311\332\"DD\257F*\202\250 \337\340\n\"*\207" [fun x style interact args docstring cvs-cdr SIMPLE defun cvs-mode! lambda nil NOARGS (interactive) DOUBLE string-match ".*" match-string 0 intern symbol-name "-1" progn "\nThis function only works within a *cvs* buffer.\nFor interactive use, use `" "' instead." put quote 'definition-name "\nWrapper function that switches to a *cvs* buffer\nbefore calling the real function `" "'.\n" (interactive) error "Unknown style %s in `defun-cvs-mode'" body fun-1 line1] 12 (#$ . 22377)])) #@51 Kill the temporary buffer and associated process. (defalias 'cvs-mode-kill-process #[nil "\300\301!\207" [cvs-mode! #[nil "\302!\205 \303!\205 \304!\211\205 \305 !)\207" [cvs-temp-buffer proc bufferp buffer-live-p get-buffer-process delete-process] 3]] 2 (#$ . 24169) nil]) #@191 Add FI to C and return FI's corresponding tin. FI is inserted in its proper place or maybe even merged with a preexisting fileinfo if applicable. TIN specifies an optional starting point. (defalias 'cvs-addto-collection #[(c fi &optional tin) "\204 \305 \306\"\203 \307\n\310!\"\203 \311 \"\211\204 \204( \312 \n\"\207\307\n\310!\"\2037 \313\314\315C\"\210\316 \"\211\203T \307\n\310 !\"\204T \316 \"\211\204@ \307\310!\n\"\204q \n\306H\f>\204i \317\320!\210\n\321H\322=\203y \323 \n#\202\215 \324\310!\n\"\210\325 \"\210n\203\214 \326 \210)\207" [tin c fi next-tin cl-struct-cvs-fileinfo-tags ewoc-nth 0 cvs-fileinfo< ewoc-data ewoc-prev ewoc-enter-first signal cl-assertion-failed (not (cvs-fileinfo< fi (ewoc-data tin))) ewoc-next error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 MESSAGE ewoc-enter-after cvs-fileinfo-update ewoc-invalidate cvs-move-to-goal-column] 5 (#$ . 24457)]) #@172 Functions to tweak the cleanup process. The functions are called with a single argument (a FILEINFO) and should return a non-nil value if that fileinfo should be removed. (custom-declare-variable 'cvs-cleanup-functions 'nil '(#$ . 25384) :group 'pcl-cvs :type '(hook :options (cvs-cleanup-removed))) #@300 Non-nil if FI has been cvs-removed but still exists. This is intended for use on `cvs-cleanup-functions' when you have cvs-removed automatically generated files (which should hence not be under CVS control) but can't commit the removal because the repository's owner doesn't understand the problem. (defalias 'cvs-cleanup-removed #[(fi) "\302H >\204\f \303\304!\210\305H\306=\204< \302H >\204 \303\304!\210\305H\307=\205A \302H >\2044 \303\310!\210\311H\306=\205A \312\313!!\207" [fi cl-struct-cvs-fileinfo-tags 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 REMOVED CONFLICT "cvs-fileinfo->subtype accessing a non-cvs-fileinfo" 3 file-exists-p cvs-fileinfo->full-name] 3 (#$ . 25691)]) #@193 Remove undesired entries. C is the collection RM-HANDLED if non-nil means remove handled entries. RM-DIRS behaves like `cvs-auto-remove-directories'. RM-MSGS if non-nil means remove messages. (defalias 'cvs-cleanup-collection #[(c rm-handled rm-dirs rm-msgs) "\306\211\307\205N \306\307\310\311\312\313\211$\314 \315\"\210\f\203 \204 \n\316H >\204. \317\320!\210\n\321H\322=\203 \n\316H >\204B \317\323!\210\n\321\311I\210\307\211\204\n \306+\207" [rerun first-dir last-fi c rm-dirs cl-struct-cvs-fileinfo-tags nil t cvs-create-fileinfo DEAD "../" "" ewoc-filter #[(fi) "\306H >\204\f \307\310!\210\311H\306H >\204 \307\312!\210\313H\n\314=\2031 \f\206- \315=?\202K \n\316=\203; \317\202K \n\320=\203F ?\202K \321\322\"?\211 \203\314 \203\314 \306H >\204c \307\310!\210 \311H\323=\203\314 \203w \317 \202\314 \324=\204\266 \325 \306H >\204\214 \307\326!\210 \327H\306H >\204\234 \307\326!\210\327H\"\203\266 \n\323=\203\260 \330=\204\266 \331=\203\314 \306H >\204\303 \307\332!\210 \311\316I\210\333 \205\325 \211 +\207" [fi cl-struct-cvs-fileinfo-tags type subtype rm-msgs rm-handled 0 error #1="cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 "cvs-fileinfo->subtype accessing a non-cvs-fileinfo" 3 MESSAGE TEMP DEAD nil UP-TO-DATE run-hook-with-args-until-success cvs-cleanup-functions DIRCHANGE all cvs-string-prefix-p "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 empty FOOTER "cvs-fileinfo->type storing a non-cvs-fileinfo" t keep rm-dirs last-fi first-dir rerun] 5] 0 error #1# 2 DIRCHANGE "cvs-fileinfo->type storing a non-cvs-fileinfo"] 6 (#$ . 26406)]) #@27 Gets the CVSROOT for DIR. (defalias 'cvs-get-cvsroot #[nil "\302\303\304\"\305\306\"\206 \206 \307\310!\206 \311)\207" [cvs-cvsroot-file cvs-cvsroot expand-file-name "Root" "CVS" cvs-file-to-string t getenv "CVSROOT" "?????"] 3 (#$ . 28030)]) #@101 Return the current CVS module. This usually doesn't really work but is a handy initval in a prompt. (defalias 'cvs-get-module #[nil "\304\305\306\"\307\310\"\211\204 \311\202@ \312 !\204 \202@ \313 \314\n\206% \315!\316 Q\n\203< \317\320 \"\203< \321\322 \"\202? \323 !**\207" [repfile rep root str expand-file-name "Repository" "CVS" cvs-file-to-string t "" file-name-absolute-p cvs-get-cvsroot file-name-as-directory "/" " || " string-match "\\(.*\\) || \\1\\(.*\\)\\'" match-string 2 file-name-nondirectory] 4 (#$ . 28286)]) #@187 Run a 'cvs checkout MODULES' in DIR. Feed the output to a *cvs* buffer, display it in the current window, and run `cvs-mode' on it. With a prefix argument, prompt for cvs FLAGS to use. (defalias 'cvs-checkout #[(modules dir flags &optional root) "\306=\203\f \307\310\311\312# \313\314 \206 \f\315 \"\311\316\317\306&)\207" [flags root cvs-cvsroot dir default-directory modules t cvs-flags-query cvs-checkout-flags nil noquery cvs-cmd-do "checkout" append new :noexist] 8 (#$ . 28829) (let ((root (cvs-get-cvsroot))) (if (or (null root) current-prefix-arg) (setq root (read-string "CVS Root: "))) (list (split-string-and-unquote (read-string "Module(s): " (cvs-get-module))) (read-directory-name "CVS Checkout Directory: " nil default-directory nil) (cvs-add-branch-prefix (cvs-flags-query 'cvs-checkout-flags "cvs checkout flags")) root))]) #@75 Run cvs checkout against the current branch. The files are stored to DIR. (defalias 'cvs-mode-checkout #[nil "\300\301!\207" [cvs-mode! #[(dir) "\304\305 !\306\307\310\311\"!\312 \313\n #+\207" [cvs-cvsroot flags modules dir split-string-and-unquote cvs-get-module cvs-add-branch-prefix cvs-flags-query cvs-checkout-flags "cvs checkout flags" cvs-get-cvsroot cvs-checkout] 5 nil (let* ((branch (cvs-prefix-get 'cvs-branch-prefix)) (prompt (format "CVS Checkout Directory for `%s%s': " (cvs-get-module) (if branch (format " (branch: %s)" branch) "")))) (list (read-directory-name prompt nil default-directory nil)))]] 2 (#$ . 29684) nil]) #@70 Rerun `cvs-examine' on the current directory with the default flags. (defalias 'cvs-mode-revert-buffer #[(&optional ignore-auto noconfirm) "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [default-directory cvs-examine t] 3]] 2 (#$ . 30332) nil]) #@115 Read directory name, prompting with PROMPT. If in a *cvs* buffer, don't prompt unless a prefix argument is given. (defalias 'cvs-query-directory #[(prompt) "\303 \203 \204 \207\304\n\305 \305$\207" [current-prefix-arg default-directory prompt cvs-buffer-p read-directory-name nil] 5 (#$ . 30588)]) #@304 Open a *cvs* buffer on DIR without running cvs. With a prefix argument, prompt for a directory to use. A prefix arg >8 (ex: \[universal-argument] \[universal-argument]), prevents reuse of an existing *cvs* buffer. Optional argument NOSHOW if non-nil means not to display the buffer. FLAGS is ignored. (defalias 'cvs-quickdir #[(dir &optional flags noshow) "\306\307\310!!!\311 !\312V\313\n\"\314 \315!\204 \316\317\"\210\315\310\320\"!\204. \316\321\"\210 q\210\322\323!\314 \211 \203P @\324 \f#A\211\204< *\325\326=\314$\210 \203f \202m \314 \327 !),\207" [dir current-prefix-arg new cvsbuf last fi file-name-as-directory abbreviate-file-name expand-file-name prefix-numeric-value 8 cvs-make-cvs-buffer nil file-directory-p error "%s is not a directory" "CVS" "%s does not contain CVS controlled files" cvs-fileinfo-from-entries "" cvs-addto-collection cvs-cleanup-collection t pop-to-buffer #1=#:--cl-dolist-temp-- cvs-cookies cvs-auto-remove-handled cvs-auto-remove-directories noshow pop-up-windows] 5 (#$ . 30897) (list (cvs-query-directory "CVS quickdir (directory): "))]) #@427 Run a `cvs -n update' in the specified DIRECTORY. That is, check what needs to be done, but don't change the disc. Feed the output to a *cvs* buffer and run `cvs-mode' on it. With a prefix argument, prompt for a directory and cvs FLAGS to use. A prefix arg >8 (ex: \[universal-argument] \[universal-argument]), prevents reuse of an existing *cvs* buffer. Optional argument NOSHOW if non-nil means not to display the buffer. (defalias 'cvs-examine #[(directory flags &optional noshow) "\305=\203\f \306\307\310\311# \203 \312\n!\313\314\n\310\315 !\316V\317\320\321\f\322\305& \207" [flags find-file-visit-truename directory current-prefix-arg noshow t cvs-flags-query cvs-update-flags nil noquery file-truename cvs-cmd-do "update" prefix-numeric-value 8 :cvsargs ("-n") :noshow :dont-change-disc] 12 (#$ . 32015) (list (cvs-query-directory "CVS Examine (directory): ") (cvs-flags-query 'cvs-update-flags "cvs -n update flags"))]) #@388 Run a `cvs update' in the current working DIRECTORY. Feed the output to a *cvs* buffer and run `cvs-mode' on it. With a \[universal-argument] prefix argument, prompt for a directory to use. A prefix arg >8 (ex: \[universal-argument] \[universal-argument]), prevents reuse of an existing *cvs* buffer. The prefix is also passed to `cvs-flags-query' to select the FLAGS passed to cvs. (defalias 'cvs-update #[(directory flags) "\303=\203\f \304\305\306\307#\310\311 \306\312\n!\313V%\207" [flags directory current-prefix-arg t cvs-flags-query cvs-update-flags nil noquery cvs-cmd-do "update" prefix-numeric-value 8] 7 (#$ . 32959) (list (cvs-query-directory "CVS Update (directory): ") (cvs-flags-query 'cvs-update-flags "cvs update flags"))]) #@365 Run a `cvs status' in the current working DIRECTORY. Feed the output to a *cvs* buffer and run `cvs-mode' on it. With a prefix argument, prompt for a directory and cvs FLAGS to use. A prefix arg >8 (ex: \[universal-argument] \[universal-argument]), prevents reuse of an existing *cvs* buffer. Optional argument NOSHOW if non-nil means not to display the buffer. (defalias 'cvs-status #[(directory flags &optional noshow) "\304=\203\f \305\306\307\310#\311\312 \307\313\n!\314V\315 \316\304& \207" [flags directory current-prefix-arg noshow t cvs-flags-query cvs-status-flags nil noquery cvs-cmd-do "status" prefix-numeric-value 8 :noshow :dont-change-disc] 10 (#$ . 33715) (list (cvs-query-directory "CVS Status (directory): ") (cvs-flags-query 'cvs-status-flags "cvs status flags"))]) #@247 Filter function for pcl-cvs. This function gets the output that CVS sends to stdout. It inserts the STRING into (process-buffer PROC) but it also checks if CVS is waiting for a lock file. If so, it inserts a message cookie in the *cvs* buffer. (defalias 'cvs-update-filter #[(proc string) "\306 \307\216r\310 !q\210\311\212\312 !b\210 c\210\312 !`\313\223\210\314\315!\210\316\317!\205] \320\321!\320\322! r!q\210\323\324!\210\f\325\"\326\327\330\331 \332\f!\205L \333\334!P\335\336&\"\210\337p!\210db\210\340 +-\207" [save-match-data-internal proc inhibit-read-only string lock msg match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) process-buffer t process-mark nil beginning-of-line 0 looking-at "^[ a-z]+: \\(.*waiting for .*lock in \\(.*\\)\\)$" match-string 1 2 make-local-variable cvs-lock-file ewoc-enter-last cvs-create-fileinfo MESSAGE "" " " file-exists-p substitute-command-keys "\n (type \\[cvs-mode-delete-lock] to delete it)" :subtype TEMP pop-to-buffer beep cvs-buffer cvs-cookies] 9 (#$ . 34513)]) #@64 See `cvs-prefix-set' for further description of the behavior. (defvar cvs-force-command nil (#$ . 35590)) (byte-code "\304B\305\304!\204+ \306\304\307\211G\nY\204 \310 \311\nS @\"\"\312\313 \314\315 \314&)\"\210\314\207" [current-load-list defaults cvs-prefix-number cvs-qtypedesc-string1 cvs-force-command-cps default-boundp set-default ("/F") append make-list vector cl-struct-cvs-flags nil ""] 10) #@352 Force the next cvs command to operate on all the selected files. By default, cvs commands only operate on files on which the command "makes sense". This overrides the safety feature on the next cvs command. It actually behaves as a toggle. If prefixed by \[universal-argument] \[universal-argument], the override will persist until the next toggle. (defalias 'cvs-mode-force-command #[(arg) "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [arg cvs-prefix-set cvs-force-command] 3]] 2 (#$ . 36005) "P"]) (byte-code "\302\303\304\305#\210\306\307N\204 \302\306\307\310#\210\311\312!\204 \302\312\313\303#\210\312B\314\312!\204. \315\312\316 \"\210\311\317!\204: \302\317\313\303#\210\317B\314\317!\204J \315\317\320 \"\210\302\301\313\303#\210\301B\314\301!\204d \315\301\321\301\322\"\210 \"\210\302\303\323\322#\207" [current-load-list cvs-mode-abbrev-table put cvs-mode mode-class special cvs-mode-hook variable-documentation "Hook run when entering CVS mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cvs-mode-map definition-name default-boundp set-default make-sparse-keymap cvs-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@186 Mode used for PCL-CVS, a frontend to CVS. Full documentation is in the Texinfo file. This mode runs the hook `cvs-mode-hook', as the final step during initialization. \{cvs-mode-map} (defalias 'cvs-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315 \203$ \316\317!\210\320 \210\306\321!\210\322\307 \323\324!\210\323\325!\210\323\326!\210\323\327!\210\306\330!\210\306\331!\210)\332\333!\207" [delay-mode-hooks major-mode mode-name cvs-mode-map cvs-mode-syntax-table cvs-mode-abbrev-table make-local-variable t kill-all-local-variables cvs-mode "CVS" use-local-map set-syntax-table (#1="" cvs-force-command cvs-ignore-marks-modif ":" (cvs-branch-prefix (#1# cvs-branch-prefix (cvs-secondary-branch-prefix ("->" cvs-secondary-branch-prefix)))) " " cvs-mode-line-process) error "Use M-x cvs-quickdir to get a *cvs* buffer" buffer-disable-undo revert-buffer-function cvs-mode-revert-buffer cvs-prefix-make-local cvs-branch-prefix cvs-secondary-branch-prefix cvs-force-command cvs-ignore-marks-modif cvs-mode-line-process cvs-temp-buffers run-mode-hooks cvs-mode-hook local-abbrev-table mode-line-process buffer-file-name truncate-lines] 2 (#$ . 37284) nil]) #@72 Return whether the (by default current) BUFFER is a `cvs-mode' buffer. (defalias 'cvs-buffer-p #[(&optional buffer) "\212\203 q\210 )\302=\207" [buffer major-mode cvs-mode] 2 (#$ . 38480)]) #@65 Check that the current buffer follows cvs-buffer's conventions. (defalias 'cvs-buffer-check #[nil "p\306\307\211\203< \310\n! =\203< \303\211\203< \2038 \311 !\2038 r q\210\f) =\203< r q\210 ) \232\203< \312\202C \313\314\315 !#*\207" [check buf cvs-cookies cvs-temp-buffer cvs-buffer default-directory none collection ewoc-buffer buffer-live-p t error "Inconsistent %s in buffer %s" buffer-name] 5 (#$ . 38679)]) #@41 Quit PCL-CVS, killing the *cvs* buffer. (defalias 'cvs-mode-quit #[nil "\300\301!\205 \302p!\207" [y-or-n-p "Quit pcl-cvs? " kill-buffer] 2 (#$ . 39105) nil]) #@44 Display help for various PCL-CVS commands. (defalias 'cvs-help #[nil "\301=\203\n \302\303!\207\304\305\306\307!\"\207" [last-command cvs-help describe-function cvs-mode message "%s" substitute-command-keys "`\\[cvs-help]':help `\\[cvs-mode-add]':add `\\[cvs-mode-commit]':commit `\\[cvs-mode-diff-map]':diff* `\\[cvs-mode-log]':log `\\[cvs-mode-remove]':remove `\\[cvs-mode-status]':status `\\[cvs-mode-undo]':undo"] 4 (#$ . 39271) nil]) (defalias 'cvs-move-to-goal-column #[nil "\302 \303`\304\305$\211W\205 b*\207" [eol fpos line-end-position next-single-property-change cvs-goal-column nil] 6]) #@82 Go to the previous line. If a prefix argument is given, move by that many lines. (defalias 'cvs-mode-previous-line #[(arg) "\300\301!\207" [cvs-mode! #[nil "\302 \"\210\303 \207" [cvs-cookies arg ewoc-goto-prev cvs-move-to-goal-column] 3]] 2 (#$ . 39883) "p"]) #@78 Go to the next line. If a prefix argument is given, move by that many lines. (defalias 'cvs-mode-next-line #[(arg) "\300\301!\207" [cvs-mode! #[nil "\302 \"\210\303 \207" [cvs-cookies arg ewoc-goto-next cvs-move-to-goal-column] 3]] 2 (#$ . 40151) "p"]) #@160 Mark the fileinfo on the current line. If the fileinfo is a directory, all the contents of that directory are marked instead. A directory can never be marked. (defalias 'cvs-mode-mark #[(&optional arg) "\300\301!\207" [cvs-mode! #[nil "\305!\306 !\211\307H >\204 \310\311!\210\n\312H\313=\2032 \314\315\n\307H >\204+ \310\316!\210\n\317H#\202d \n\307H >\204> \310\320!\210\n\321\f\322=\203X \n\307H >\204R \310\323!\210\n\321H\202Y \f?I\210\324 \"\210\325\321!*\207" [cvs-cookies tin fi cl-struct-cvs-fileinfo-tags arg ewoc-locate ewoc-data 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE ewoc-map #[(f dir) "\304 \"\2052 \305H\n>\204 \306\307!\210\310 \311=\203- \305H\n>\204' \306\312!\210\310H\202. ?I\210\313\207" [f dir cl-struct-cvs-fileinfo-tags arg cvs-dir-member-p 0 error "cvs-fileinfo->marked storing a non-cvs-fileinfo" 1 toggle #1="cvs-fileinfo->marked accessing a non-cvs-fileinfo" t] 4] "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 "cvs-fileinfo->marked storing a non-cvs-fileinfo" 1 toggle #1# ewoc-invalidate cvs-mode-next-line] 6]] 2 (#$ . 40412) nil]) (defalias 'cvs-mouse-toggle-mark 'cvs-mode-toggle-mark) #@40 Toggle the mark of the entry at point. (defalias 'cvs-mode-toggle-mark #[(e) "\212\302\211:\203 \303 8:\203 \303\202 \304 8\202 \305 `\306\307F)!\210\310\311!)\207" [e event posn-set-point 2 1 selected-window (0 . 0) 0 cvs-mode-mark toggle] 6 (#$ . 41586) (list last-input-event)]) #@42 Unmark the fileinfo on the current line. (defalias 'cvs-mode-unmark #[nil "\300\301!\207" [cvs-mode! #[nil "\300\301!\207" [cvs-mode-mark t] 2]] 2 (#$ . 41880) nil]) #@17 Mark all files. (defalias 'cvs-mode-mark-all-files #[nil "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [cvs-cookies ewoc-map #[(cookie) "\302H >\204\f \303\304!\210\305H\306=?\205% \302H >\204! \303\307!\210\310\311I\207" [cookie cl-struct-cvs-fileinfo-tags 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE "cvs-fileinfo->marked storing a non-cvs-fileinfo" 1 t] 3]] 3]] 2 (#$ . 42052) nil]) #@32 Mark all files in state STATE. (defalias 'cvs-mode-mark-on-state #[(state) "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [cvs-cookies ewoc-map #[(fi) "\303H >\204\f \304\305!\210\306H\n=\205$ \303H >\204 \304\307!\210\310\311I\207" [fi cl-struct-cvs-fileinfo-tags state 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 "cvs-fileinfo->marked storing a non-cvs-fileinfo" 1 t] 3]] 3]] 2 (#$ . 42479) (list (let ((default (condition-case nil (downcase (symbol-name (cvs-fileinfo->type (cvs-mode-marked nil nil :read-only t :one t :noquery t)))) (error nil)))) (intern (upcase (completing-read (concat "Mark files in state" (if default (concat " [" default "]")) ": ") (mapcar (lambda (x) (list (downcase (symbol-name (car x))))) cvs-states) nil t nil nil default)))))]) #@32 Mark all files matching REGEX. (defalias 'cvs-mode-mark-matching-files #[(regex) "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [cvs-cookies ewoc-map #[(cookie) "\303H >\204\f \304\305!\210\306H\307=?\205: \310\n\303H >\204# \304\311!\210\312H\"\205: \303H >\2046 \304\313!\210\314\315I\207" [cookie cl-struct-cvs-fileinfo-tags regex 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE string-match "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 "cvs-fileinfo->marked storing a non-cvs-fileinfo" 1 t] 4]] 3]] 2 (#$ . 43272) "sMark files matching: "]) #@113 Unmark all files. Directories are also unmarked, but that doesn't matter, since they should always be unmarked. (defalias 'cvs-mode-unmark-all-files #[nil "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [cvs-cookies ewoc-map #[(cookie) "\302H >\204\f \303\304!\210\305\306I\210\307\207" [cookie cl-struct-cvs-fileinfo-tags 0 error "cvs-fileinfo->marked storing a non-cvs-fileinfo" 1 nil t] 3]] 3]] 2 (#$ . 43863) nil]) #@39 Unmark the file on the previous line. (defalias 'cvs-mode-unmark-up #[nil "\300\301!\207" [cvs-mode! #[nil "\304\305\"\211\203$ \306 !\211\307H >\204 \310\311!\210\n\305\312I\210)\313 \"\210)\314 \207" [cvs-cookies tin #1=#:--cl-x-- cl-struct-cvs-fileinfo-tags ewoc-goto-prev 1 ewoc-data 0 error "cvs-fileinfo->marked storing a non-cvs-fileinfo" nil ewoc-invalidate cvs-move-to-goal-column] 4]] 2 (#$ . 44293) nil]) (byte-code "\301B\302\303!\207" [current-load-list cvs-ignore-marks-alternatives (lambda (#1=#:defconst-tmp-var) (defconst cvs-ignore-marks-alternatives #1#)) (("toggle-marks" . "/TM") ("force-marks" . "/FM") ("ignore-marks" . "/IM"))] 2) #@112 Prefix to decide whether to ignore marks or not. See `cvs-prefix-set' for further description of the behavior. (defvar cvs-ignore-marks-modif nil (#$ . 44962)) (byte-code "\306B\307\306!\204E \310\306\311\312 \"\211G Y\204\" \313\n\314 S\n@\"\"\n\315\316\317 \320\321 \322\f\323&+ \320\324\n\322\325\322&+\"\210\322\207" [current-load-list cvs-ignore-marks-alternatives defaults cvs-prefix-number complete obj2str cvs-ignore-marks-modif-cps default-boundp set-default mapcar cdr append make-list #[(str) "\302 \"A\207" [str cvs-ignore-marks-alternatives assoc] 3] #[(obj) "\302 \"@\207" [obj cvs-ignore-marks-alternatives rassoc] 3] #[nil "\207" [cvs-ignore-marks-alternatives] 1] vector cl-struct-cvs-qtypedesc nil t cl-struct-cvs-flags "active" str2obj qtypedesc] 11) #@254 Toggle whether the next CVS command uses marks. See `cvs-prefix-set' for further description of the behavior. \[universal-argument] 1 selects `force-marks', \[universal-argument] 2 selects `ignore-marks', \[universal-argument] 3 selects `toggle-marks'. (defalias 'cvs-mode-toggle-marks #[(arg) "\300\301!\207" [cvs-mode! #[nil "\301\302\"\207" [arg cvs-prefix-set cvs-ignore-marks-modif] 3]] 2 (#$ . 45757) "P"]) (defalias 'cvs-ignore-marks-p #[(cmd &optional read-only) " \235\203 \n?\202\f \n\306\307 \" \f\310\232\203 \311\2022 \f\312\232\203' ?\2022 \f\313\232\2031 \314\2022 *\207" [cmd cvs-invert-ignore-marks cvs-default-ignore-marks read-only modif default cvs-prefix-get cvs-ignore-marks-modif "/IM" t "/TM" "/FM" nil] 4]) (defalias 'cvs-mode-mark-get-modif #[(cmd) "\301\302\"\203 \303\207\304\207" [cmd cvs-ignore-marks-p read-only "/IM" "/FM"] 3]) #@363 Return a list of all selected fileinfos. If there are any marked tins, and IGNORE-MARKS is nil, return them. Otherwise, if the cursor selects a directory, and IGNORE-CONTENTS is nil, return all files in it, else return just the directory. Otherwise return (a list containing) the file the cursor points to, or an empty list if it doesn't point to a file at all. (defalias 'cvs-get-marked #[(&optional ignore-marks ignore-contents) "\306\307\301!\203 :\203 \310\311 \"\202% \n\204 \312 \313\"\206% \314\315 !!C\306 \211 \203o @\204I \f\316H>\204A \317\320!\210\f\321H\322=\204P \fB\202h \323\312 \324\f\316H>\204a \317\325!\210\f\326H#\" A\211\204, *\237)\207" [fis cvs-minor-current-files ignore-marks cvs-cookies fi #1=#:--cl-dolist-temp-- nil boundp mapcar #[(f) "\304!\203 G\305Y\203 \306H >\203 \207\307!\310!\203, \311\312\313!\314\315$\202? \316!\317!\311\320 \206; \315\n\315$*)\207" [f cl-struct-cvs-fileinfo-tags file dir vectorp 10 0 file-relative-name file-directory-p cvs-create-fileinfo DIRCHANGE file-name-as-directory "." "" file-name-directory file-name-nondirectory UNKNOWN] 5] ewoc-collect cvs-fileinfo->marked ewoc-data ewoc-locate 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE append cvs-dir-member-p "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 ignore-contents cl-struct-cvs-fileinfo-tags] 7 (#$ . 46633)]) #@387 Get the list of marked FIS. CMD is used to determine whether to use the marks or not. Only files for which FILTER is applicable are returned. If READ-ONLY is non-nil, the current toggling is left intact. If ONE is non-nil, marks are ignored and a single FI is returned. If FILE is non-nil, directory entries won't be selected. (fn FILTER &optional CMD &key READ-ONLY ONE FILE NOQUERY) (defalias 'cvs-mode-marked #[(filter &optional cmd &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )!\204P \317\"!!\320\n\206Z \321! \" ?\205d \322\323\"\"\" #\324\325! $\326\327#\"@\211 #\203\202 \n\203\245 #A\203\245 \f\204\245 \330#\204\220 \331\202\221 \332!\"\210\333\334!\210\335\336\337\340!\"!!C#\n\203\257 #@\202\261 #.\207" [#1# read-only one file noquery #2=#:--cl-keys-- :read-only :one :file :noquery (:read-only :one :file :noquery :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:read-only :one :file :noquery)" symbol-name cvs-get-marked cvs-ignore-marks-p cvs-applicable-p DIRCHANGE cvs-prefix-get cvs-force-command cvs-partition #[(fi) "\303 ?\205 \n\"\207" [fi force filter cvs-applicable-p] 3] message "`%s' is not applicable to any of the selected files." "`%s' is only applicable to a single file." sit-for 1 cvs-insert-file read-file-name format "File to %s: " cmd filter fis force] 7 (#$ . 48032)]) #@73 Determine whether FILTER applies to at least one of the selected files. (defalias 'cvs-enabledp #[(filter) "\300\301\302\217\207" [nil (byte-code "\301\302\303\304\305\304&\207" [filter cvs-mode-marked nil :read-only t :noquery] 7) ((error))] 3 (#$ . 49495)]) (defalias 'cvs-mode-files #[(&rest -cvs-mode-files-args) "\300\301!\207" [cvs-mode! #[nil "\301\302\303\304\"\"\207" [-cvs-mode-files-args mapcar cvs-fileinfo->full-name apply cvs-mode-marked] 5]] 2]) #@35 Run `cvs-mode-commit' with setup. (defalias 'cvs-mode-commit-setup #[nil "\300\301!\207" [cvs-mode-commit force] 2 (#$ . 49965) nil]) #@46 Hook run after setting up the commit buffer. (custom-declare-variable 'cvs-mode-commit-hook 'nil '(#$ . 50105) :type 'hook :options '(cvs-mode-diff) :group 'pcl-cvs) #@300 Check in all marked files, or the current file. The user will be asked for a log message in a buffer. The buffer's mode and name is determined by the "message" setting of `cvs-buffer-name-alist'. The POSTPROC specified there (typically `log-edit') is then called, passing it the SETUP argument. (defalias 'cvs-mode-commit #[(setup) "\305 \210\306\307\310\311#\312\313\307\"A8\206 \314 \315 \316\n$\210\317\304!\210\320\321\322!*\207" [cvs-buffer-name-alist setupfun buf setup cvs-minor-wrap-function cvs-mode! cvs-temp-buffer "message" normal nosetup 2 assoc log-edit cvs-do-commit ((log-edit-listfun . cvs-commit-filelist) (log-edit-diff-function . cvs-mode-diff)) make-local-variable cvs-commit-minor-wrap run-hooks cvs-mode-commit-hook] 5 (#$ . 50278) "P"]) (defalias 'cvs-commit-minor-wrap #[(buf f) "\302\303! )\207" [cvs-ignore-marks-modif f cvs-mode-mark-get-modif "commit"] 2]) (defalias 'cvs-commit-filelist #[nil "\300\301\302\303\304\305\304\306\304&\207" [cvs-mode-files commit nil :read-only t :file :noquery] 9]) #@68 Do the actual commit, using the current buffer as the log message. (defalias 'cvs-do-commit #[(flags) "\302ed\"\303 \210\304\305\306 BB\307#)\207" [msg flags buffer-substring-no-properties cvs-mode! cvs-mode-do "commit" "-m" commit] 5 (#$ . 51323) (list (cvs-flags-query 'cvs-commit-flags "cvs commit flags"))]) (defalias 'cvs-edit-log-text-at-point #[nil "\212\300\210\301\302\300\303#\2051 \304y\210\305\306!\203 \304y\210\305\307!\203! \304y\210`\310\311\300\303#\203/ \312\224\2020 `{)\207" [nil re-search-backward "^revision " t 1 looking-at "date:" "branches:" re-search-forward "^\\(-\\{28\\}\\|=\\{77\\}\\|revision [.0-9]+\\)$" 0] 5]) (put 'cvs-edit-log-files 'permanent-local t) #@83 Edit the log message at point. This is best called from a `log-view-mode' buffer. (defalias 'cvs-mode-edit-log #[(file rev &optional text) "\306 \210\307\310\311\312#\313\314\310\"A8\206 \315r\nq\210\316\304!\210 C) \317\320\321\n$\210 \2032 \322 \210 c\210\316\323!\210\316\324!\210\325\211*\207" [cvs-buffer-name-alist setupfun buf file cvs-edit-log-files text cvs-mode! cvs-temp-buffer "message" normal nosetup 2 assoc log-edit make-local-variable cvs-do-edit-log nil ((log-edit-listfun . cvs-edit-log-filelist) (log-edit-diff-function . cvs-mode-diff)) erase-buffer cvs-edit-log-revision cvs-minor-wrap-function cvs-edit-log-minor-wrap rev] 5 (#$ . 52021) (list (or (cvs-mode! (lambda nil (car (cvs-mode-files nil nil :read-only t :file t :noquery t)))) (read-string "File name: ")) (or (cvs-mode! (lambda nil (cvs-prefix-get 'cvs-branch-prefix))) (read-string "Revision to edit: ")) (cvs-edit-log-text-at-point))]) (defalias 'cvs-edit-log-minor-wrap #[(buf f) "rq\210 )rq\210\n)\306 +\207" [buf cvs-edit-log-revision cvs-edit-log-files cvs-force-command cvs-minor-current-files cvs-branch-prefix "/F" f] 3]) (defalias 'cvs-edit-log-filelist #[nil "\203 \302\303\211\304\305\306\305\307\305&\207 \207" [cvs-minor-wrap-function cvs-edit-log-files cvs-mode-files nil :read-only t :file :noquery] 9]) #@68 Do the actual commit, using the current buffer as the log message. (defalias 'cvs-do-edit-log #[(rev) "\301ed\"\302\303!)\207" [msg buffer-substring-no-properties cvs-mode! #[nil "\302\303\304\305 RC\306#\207" [rev msg cvs-mode-do "admin" "-m" ":" nil] 6]] 3 (#$ . 53350) (list cvs-edit-log-revision)]) #@193 Insert an entry for a specific file into the current listing. This is typically used if the file is up-to-date (or has been added outside of PCL-CVS) and one wants to do some operation on it. (defalias 'cvs-mode-insert #[nil "\300\301!\207" [cvs-mode! #[(file) "\301!\207" [file cvs-insert-file] 2 nil (list (read-file-name "File to insert: " (condition-case nil (file-name-as-directory (expand-file-name (cvs-fileinfo->dir (cvs-mode-marked nil nil :read-only t :one t :noquery t)))) (error nil))))]] 2 (#$ . 53662) nil]) #@65 Insert FILE (and its contents if it's a dir) and return its FI. (defalias 'cvs-insert-file #[(file) "\305\306!!\307\310!\307\211\203\" @\311\f\n # A\211\204 *\312 !b\210\313 !*\207" [file last fi #1=#:--cl-dolist-temp-- cvs-cookies file-relative-name directory-file-name nil cvs-fileinfo-from-entries cvs-addto-collection ewoc-location ewoc-data] 5 (#$ . 54191)]) (defalias 'cvs-mark-fis-dead #[(fis) "\304\211\203# \n@\211\305H >\204 \306\307!\210 \310\311I\210\nA\211\204 *\304\207" [fis fi #1=#:--cl-dolist-temp-- cl-struct-cvs-fileinfo-tags nil 0 error "cvs-fileinfo->type storing a non-cvs-fileinfo" 2 DEAD] 4]) #@85 Add marked files to the cvs repository. With prefix argument, prompt for cvs flags. (defalias 'cvs-mode-add #[(flags) "\300\301!\207" [cvs-mode! #[nil "\306\307!\310\211\211\310\211 \203? \f@\311\312 !!\203\" B\2028 \313H >\204. \314\315!\210 \316H\317=\2038 \320\fA\211\204 * \203T \204N \204T \321\322!\202Z \206Z \323 \324 BB \205x \325\326\327D\330BBB\331\327DDD !\332\333 \n\334!%.\207" [dirs needdesc fis fi #1=#:--cl-dolist-temp-- cl-struct-cvs-fileinfo-tags cvs-mode-marked add nil file-directory-p cvs-fileinfo->full-name 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 UNKNOWN t read-from-minibuffer "Enter description: " "" "-m" cvs-run-process (list "-n" "update") quote ('(cvs-parse-process t)) cvs-mark-fis-dead cvs-mode-run "add" :postproc current-prefix-arg cvs-add-default-message msg flags postproc] 7]] 2 (#$ . 54832) (list (cvs-flags-query 'cvs-add-flags "cvs add flags"))]) #@248 Diff the selected files against the repository. This command compares the files in your working area against the revision which they are based upon. This function only works within a *cvs* buffer. For interactive use, use `cvs-mode-diff' instead. (defalias 'cvs-mode-diff-1 #[(flags) "\301\302\303\304\305%\207" [flags cvs-mode-do "diff" diff :show t] 6 (#$ . 55775) (list (cvs-add-branch-prefix (cvs-add-secondary-branch-prefix (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))))]) (put 'cvs-mode-diff-1 'definition-name 'cvs-mode-diff) #@151 Diff the selected files against the repository. Wrapper function that switches to a *cvs* buffer before calling the real function `cvs-mode-diff-1'. (defalias 'cvs-mode-diff #[nil "\300\301!\207" [cvs-mode! cvs-mode-diff-1] 2 (#$ . 56323) nil]) #@102 Diff the selected files against the head of the current branch. See ``cvs-mode-diff'' for more info. (defalias 'cvs-mode-diff-head #[(flags) "\300\301!\207" [cvs-mode! #[nil "\301\302B!\207" [flags cvs-mode-diff-1 "-rHEAD"] 3]] 2 (#$ . 56576) (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))]) #@112 Diff the files for changes in the repository since last co/update/commit. See ``cvs-mode-diff'' for more info. (defalias 'cvs-mode-diff-repository #[(flags) "\300\301!\207" [cvs-mode! #[nil "\301\302\303BB!\207" [flags cvs-mode-diff-1 "-rBASE" "-rHEAD"] 4]] 2 (#$ . 56887) (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))]) #@110 Diff the selected files against yesterday's head of the current branch. See ``cvs-mode-diff'' for more info. (defalias 'cvs-mode-diff-yesterday #[(flags) "\300\301!\207" [cvs-mode! #[nil "\301\302B!\207" [flags cvs-mode-diff-1 "-Dyesterday"] 3]] 2 (#$ . 57228) (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))]) #@101 Diff the selected files against the head of the vendor branch. See ``cvs-mode-diff'' for more info. (defalias 'cvs-mode-diff-vendor #[(flags) "\300\301!\207" [cvs-mode! #[nil "\302\303P B!\207" [cvs-vendor-branch flags cvs-mode-diff-1 "-r"] 3]] 2 (#$ . 57557) (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))]) #@140 Diff the files against the backup file. This command can be used on files that are marked with "Merged" or "Conflict" in the *cvs* buffer. (defalias 'cvs-mode-diff-backup #[(flags) "\300\301!\207" [cvs-mode! #[nil "<\204 \306\307!\210\310 \210\311\312\313!!\314\315 \"@\211:\204! \306\316!\210\n@\317H >\204. \306\320!\210\n@\321H \n@\317H >\204@ \306\322!\210\n@\323H \324\313!q\210*\325\326!\210\327\n\330$\210*\325\331!\207" [flags marked fis cl-struct-cvs-fileinfo-tags dir file error "flags should be a list of strings" save-some-buffers cvs-get-marked cvs-ignore-marks-p "diff" cvs-partition cvs-fileinfo->backup-file "No files with a backup file selected!" 0 "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 cvs-temp-buffer message "cvs diff backup..." cvs-execute-single-file-list cvs-diff-backup-extractor "cvs diff backup... Done." cvs-diff-program] 6]] 2 (#$ . 57885) (list (cvs-flags-query 'cvs-diff-flags "diff flags"))]) #@108 Return the filename and the name of the backup file as a list. Signal an error if there is no backup file. (defalias 'cvs-diff-backup-extractor #[(fileinfo) "\302!\211\204 \303\304\305!\"\210 \305!)D\207" [fileinfo backup-file cvs-fileinfo->backup-file error "%s has no backup file" cvs-fileinfo->full-name] 5 (#$ . 58888)]) (defalias 'cvs-emerge-diff #[(b1 b2) "\302 #\207" [b1 b2 emerge-buffers] 4]) (defalias 'cvs-emerge-merge #[(b1 b2 base out) "\304 \n\305 !$\207" [b1 b2 base out emerge-buffers-with-ancestor find-file-noselect] 6]) (defalias 'cvs-ediff-startup-hook #[nil "\302\303\304\305\306\307D\307 DEE\305\310$\207" [ediff-after-quit-destination-buffer cvs-transient-buffers add-hook ediff-after-quit-hook-internal lambda nil cvs-ediff-exit-hook quote local] 8]) (defalias 'cvs-ediff-exit-hook #[(cvs-buf tmp-bufs) "\305\211\2037 \n@\211\2030 \306 !\2030 \307 !\2040 \310 \311\"\312 !\210\313 !\203/ \305\314\315\217\210)\nA\211\204 *\f\205N \306\f!\205N \310\f\311\"?\205N \305\316\317\217\207" [tmp-bufs tb #1=#:--cl-dolist-temp-- win cvs-buf nil buffer-live-p buffer-modified-p get-buffer-window t kill-buffer window-live-p (delete-window win) ((error)) (switch-to-buffer cvs-buf) ((error))] 4]) (defalias 'cvs-ediff-diff #[(b1 b2) "p\304\305\n \306$*\207" [startup-hook ediff-after-quit-destination-buffer b1 b2 (cvs-ediff-startup-hook) ediff-buffers ediff-revision] 5]) (defalias 'cvs-ediff-merge #[(b1 b2 base out) "p\306\307\n \f\310 &*\207" [startup-hook ediff-after-quit-destination-buffer b1 b2 base out (cvs-ediff-startup-hook) ediff-merge-buffers-with-ancestor ediff-merge-revisions-with-ancestor] 7]) #@72 Retrieve the given REVision of the file in FILEINFO into a new buffer. (defalias 'cvs-retrieve-revision #[(fileinfo rev) "\306!\211\307\nQ\310 !\206s r\311 !q\210\312\313\n\"\210\314 \315\316 \317\320\317\321\322\323\324\n\325\232?\2050 \326\nD C\"& )\211 $\203J $\327\232\204J \330\331\n$#\210\332ed \333\317\211\333&\210\334\335 \333\"\210\336\317!\210\337 ! %\340 \210)\341\342!\210\312\343\n\"\210p**\207" [fileinfo file rev buffile coding-system-for-read cvs-program cvs-fileinfo->full-name "." find-buffer-visiting create-file-buffer message "Retrieving revision %s..." binary apply process-file nil (t nil) "-q" "update" "-p" append "HEAD" "-r" 0 error "Something went wrong retrieving revision %s: %s" decode-coding-inserted-region t after-insert-file-set-coding buffer-size set-buffer-modified-p expand-file-name after-find-file toggle-read-only 1 "Retrieving revision %s... Done" res buffer-file-name] 13 (#$ . 60543)]) #@65 Merge interactively appropriate revisions of the selected file. (defalias 'cvs-mode-imerge #[nil "\300\301!\207" [cvs-mode! #[nil "\306\304\307\310\311\312\311&\211\313H >\204 \314\315!\210\316H\317!\320!\211 \203* \n\204< \321 ! \322\323!\210r q\210\324 *\202v \325\f@\" \325\fA\" \307 \321\n!) E rq\210\326 ! \327 \210* A $,,\207" [fi cl-struct-cvs-fileinfo-tags backup-file file merge buf cvs-mode-marked nil :one t :file 0 error "cvs-fileinfo->merge accessing a non-cvs-fileinfo" 8 cvs-fileinfo->full-name cvs-fileinfo->backup-file find-file-noselect message "Missing merge info or backup file, using VC." smerge-ediff cvs-retrieve-revision expand-file-name after-find-file ancestor-buf head-buf auto-mode-alist backup-buf cvs-transient-buffers buffer-file-name cvs-idiff-imerge-handlers] 8]] 2 (#$ . 61485) nil]) (byte-code "\302B\306\302\307\310#\210\311\312\302!\211\203, \313\n!\203, \nG\314Y\203, \n\315H >\203, \n\202J \316\f\211\316\211\257 \317\320 \203A \n AB\202B \310\321\310&))!\207" [current-load-list bound cvs-idiff-version cl-struct-cvs-flags-tags cvs-vendor-branch defaults put variable-documentation nil (lambda (#1=#:defconst-tmp-var) (defconst cvs-idiff-version #1#)) boundp vectorp 6 0 "BASE" vector cl-struct-cvs-flags "version: " cvs-qtypedesc-tag] 9) #@47 Diff interactively current file to revisions. (defalias 'cvs-mode-idiff #[nil "\300\301!\207" [cvs-mode! #[(&optional rev1 rev2) "\306\307\310\311\312\313\312&\314!\315\n\206 \316\"\f\205 \315\f\" D @ \2060 \317 !\"-\207" [fi file rev1 rev1-buf rev2 rev2-buf cvs-mode-marked diff "idiff" :one t :file cvs-fileinfo->full-name cvs-retrieve-revision "BASE" find-file-noselect cvs-transient-buffers cvs-idiff-imerge-handlers] 7 nil (let* ((rev1 (cvs-prefix-get 'cvs-branch-prefix)) (rev2 (and rev1 (cvs-prefix-get 'cvs-secondary-branch-prefix)))) (list (or rev1 (cvs-flags-query 'cvs-idiff-version)) rev2))]] 2 (#$ . 62809) nil]) #@47 Diff interactively current file to revisions. (defalias 'cvs-mode-idiff-other #[nil "\300\301!\207" [cvs-mode! #[nil "\306\307!\211\205 \306\310!\311\312\313\314\315$\211G\316V\203 \317\320!\210\n@\203, \321 \"\2021 \322\323 !! \324 \nA\203U \nA@ \203J \321 \"\202P \322\323!!)\202Y \317\325!\210\f D @\f \".\207" [rev1 rev2 fis fi1 rev1-buf rev2-buf cvs-prefix-get cvs-branch-prefix cvs-secondary-branch-prefix cvs-mode-marked diff "idiff" :file t 2 error "idiff-other cannot be applied to more than 2 files at a time" cvs-retrieve-revision find-file-noselect cvs-fileinfo->full-name nil "idiff-other doesn't know what other file/buffer to use" fi2 cvs-transient-buffers cvs-idiff-imerge-handlers] 6]] 2 (#$ . 63456) nil]) #@50 Non-nil if buffer is inside one of FIS (in DIR). (defalias 'cvs-is-within-p #[(fis dir) ";\2058 \306!\307\n\206 \310\311\312\313\312$C\307\211 \2035 \f@\314\306\315 ! \"\"\203. \316\fA\211\204 * )\207" [buffer-file-name ret fis fi #1=#:--cl-dolist-temp-- dir expand-file-name nil cvs-create-fileinfo DIRCHANGE "" "." cvs-string-prefix-p cvs-fileinfo->full-name t] 6 (#$ . 64205)]) #@476 Generic cvs-mode-<foo> function. Executes `cvs CVSARGS CMD FLAGS FIS'. BUF is the buffer to be used for cvs' output. DONT-CHANGE-DISC non-nil indicates that the command will not change the contents of files. This is only used by the parser. POSTPROC is a list of expressions to be evaluated at the very end (after parsing if applicable). It will be prepended with `progn' if necessary. (fn CMD FLAGS FIS &key (BUF (cvs-temp-buffer)) DONT-CHANGE-DISC CVSARGS POSTPROC) (defalias 'cvs-mode-run #[(cmd flags fis &rest #1=#:--cl-rest--) "\306>\206\n \307\310 DA@\311>A@\312>A@\313>A@ \203K @\314>\2034 AA\211\202\" \315>A@\203B \307\211\202\" \316\317 @\"\210\202! )* +\320\307\321\"\210),<\204` \316\322!\210-@\203\241 -A\204\241 -@\323H.>\204{ \316\324!\210-@\325H\326=\203\241 -@\323H.>\204\224 \316\327!\210-@\330H\331\232\203\241 \307-/<?\206\255 0/\235 102\235 3\332 0C,# 4\325\33305\"A8 6\33478\335=\307\336$\210\3376!\203\345 \332\f6CC\"3\203 0\340\235\205\375 -\206\375 \341\326\331\342\331$C 9\343\344\nD\307\3449DF\fB)\fA\203\345\fB\202\f@r q\210\336 :\346 \210)\347\3500\"\210\3514-\f1$. \207" [#1# buf dont-change-disc cvsargs postproc #2=#:--cl-keys-- :buf nil cvs-temp-buffer :dont-change-disc :cvsargs :postproc (:buf :dont-change-disc :cvsargs :postproc :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:buf :dont-change-disc :cvsargs :postproc)" save-some-buffers #[nil "\302 \"\207" [fis def-dir cvs-is-within-p] 3] "flags should be a list of strings" 0 "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 "" append assoc cvs-cleanup-collection delayed t fboundp ("status" "update") cvs-create-fileinfo "." cvs-parse-process quote progn erase-buffer message "Running cvs %s ..." cvs-run-process default-directory def-dir flags fis cl-struct-cvs-fileinfo-tags cvs-execute-single-dir cmd single-dir cvs-parse-known-commands parse args cvs-buffer-name-alist after-mode cvs-cookies cvs-auto-remove-handled old-fis inhibit-read-only] 6 (#$ . 64604)]) #@569 Generic cvs-mode-<foo> function. Executes `cvs CVSARGS CMD FLAGS' on the selected files. FILTER is passed to `cvs-applicable-p' to only apply the command to files for which it makes sense. SHOW indicates that CMD should be not be run in the default temp buffer and should be shown to the user. The buffer and mode to be used is determined by `cvs-buffer-name-alist'. DONT-CHANGE-DISC non-nil indicates that the command will not change the contents of files. This is only used by the parser. (fn CMD FLAGS FILTER &key SHOW DONT-CHANGE-DISC CVSARGS POSTPROC) (defalias 'cvs-mode-do #[(cmd flags filter &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\"\321\322 \205X !\307\n\310 \311\f& ,\207" [#1# show dont-change-disc cvsargs postproc #2=#:--cl-keys-- :show :dont-change-disc :cvsargs :postproc (:show :dont-change-disc :cvsargs :postproc :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:show :dont-change-disc :cvsargs :postproc)" cvs-mode-run cvs-mode-marked :buf cvs-temp-buffer cmd flags filter] 13 (#$ . 66723)]) #@83 Show cvs status for all marked files. With prefix argument, prompt for cvs flags. (defalias 'cvs-mode-status #[(flags) "\300\301!\207" [cvs-mode! #[nil "\302\303\304\305\306\307\306\310 \311=\205 \312p\313BBC& \207" [flags cvs-auto-remove-handled cvs-mode-do "status" nil :dont-change-disc t :show :postproc status with-current-buffer ((cvs-mode-remove-handled))] 12]] 2 (#$ . 67910) (list (cvs-flags-query 'cvs-status-flags "cvs status flags"))]) #@59 Call cvstree using the file under the point as a keyfile. (defalias 'cvs-mode-tree #[(flags) "\300\301!\207" [cvs-mode! #[nil "\301\302\303B\304\305\302\"\306\307\310!\311\312\313\314& \207" [flags cvs-mode-run "status" "-v" cvs-mode-marked nil :buf cvs-temp-buffer "tree" :dont-change-disc t :postproc ((cvs-status-cvstrees))] 10]] 2 (#$ . 68366) (list (cvs-flags-query 'cvs-status-flags "cvs status flags"))]) #@88 Display the cvs log of all selected files. With prefix argument, prompt for cvs flags. (defalias 'cvs-mode-log #[nil "\300\301!\207" [cvs-mode! #[(flags) "\301\302\303\304\305%\207" [flags cvs-mode-do "log" nil :show t] 6 nil (list (cvs-add-branch-prefix (cvs-flags-query 'cvs-log-flags "cvs log flags")))]] 2 (#$ . 68785) nil]) #@72 Update all marked files. With a prefix argument, prompt for cvs flags. (defalias 'cvs-mode-update #[nil "\300\301!\207" [cvs-mode! #[(flags) "\301\302\303#\207" [flags cvs-mode-do "update" update] 4 nil (list (cvs-add-branch-prefix (cvs-add-secondary-branch-prefix (cvs-flags-query 'cvs-update-flags "cvs update flags") "-j") "-j"))]] 2 (#$ . 69121) nil]) #@76 Re-examine all marked files. With a prefix argument, prompt for cvs flags. (defalias 'cvs-mode-examine #[nil "\300\301!\207" [cvs-mode! #[(flags) "\301\302\303\304\305\306\307&\207" [flags cvs-mode-do "update" nil :cvsargs ("-n") :dont-change-disc t] 8 nil (list (cvs-add-branch-prefix (cvs-add-secondary-branch-prefix (cvs-flags-query 'cvs-update-flags "cvs -n update flags") "-j") "-j"))]] 2 (#$ . 69484) nil]) #@111 Arrange so that CVS ignores the selected files. This command ignores files that are not flagged as `Unknown'. (defalias 'cvs-mode-ignore #[(&optional pattern) "\300\301!\207" [cvs-mode! #[nil "\304\305!\306\211\203W @\307\310H\n>\204 \311\312!\210\313H\310H\n>\204) \311\314!\210\315H\310H\n>\2048 \311\316!\210\317H\320=#\210\310H\n>\204K \311\321!\210\322\323I\210 A\211\204\n *\324 \306\211\211$\207" [fi #1=#:--cl-dolist-temp-- cl-struct-cvs-fileinfo-tags cvs-cookies cvs-mode-marked ignore nil cvs-append-to-ignore 0 error "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 "cvs-fileinfo->subtype accessing a non-cvs-fileinfo" 3 NEW-DIR "cvs-fileinfo->type storing a non-cvs-fileinfo" 2 DEAD cvs-cleanup-collection] 6]] 2 (#$ . 69906) nil]) #@130 Add STR to the .cvsignore file in DIR. If OLD-DIR is non-nil, then this is a directory that we don't want to hear about anymore. (defalias 'cvs-append-to-ignore #[(dir str &optional old-dir) "r\305\306\307\"!q\210\310\311\312\217\203 \313 \314\"\210db\210n\204 \315c\210\n \203( \316\202) \315\261\210\f\2036 \317\310ed#\210\320 )\207" [dir buffer-file-name str old-dir cvs-sort-ignore-file find-file-noselect expand-file-name ".cvsignore" nil (byte-code "\205 \302 !\303=\205 \304 !?\207" [buffer-read-only buffer-file-name vc-backend CVS vc-editable-p] 2) ((error)) vc-checkout t "\n" "/\n" sort-lines save-buffer] 4 (#$ . 70725)]) #@56 Select a buffer containing the file in another window. (defalias 'cvs-mode-find-file-other-window #[(e) "\301\302\"\207" [e cvs-mode-find-file t] 3 (#$ . 71372) (list last-input-event)]) #@54 Show a buffer containing the file in another window. (defalias 'cvs-mode-display-file #[(e) "\301\302\"\207" [e cvs-mode-find-file dont-select] 3 (#$ . 71566) (list last-input-event)]) #@16 View the file. (defalias 'cvs-mode-view-file #[(e) "\301\302\303#\207" [e cvs-mode-find-file nil t] 4 (#$ . 71758) (list last-input-event)]) #@16 View the file. (defalias 'cvs-mode-view-file-other-window #[(e) "\301\302\211#\207" [e cvs-mode-find-file t] 4 (#$ . 71906) (list last-input-event)]) (defalias 'cvs-find-modif #[(fi) "\304\305!rq\210\306\216\307 \310p\310\311\312\n\313H >\204 \314\315!\210\n\316H&\210eb\210\317\320\310\321#\2036 \322\323\324!!\2027 \324+\207" [#1=#:temp-buffer cvs-program fi cl-struct-cvs-fileinfo-tags generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) process-file nil "-f" "diff" 0 error "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 re-search-forward "^\\([0-9]+\\)" t string-to-number match-string 1] 9]) #@90 Select a buffer containing the file. With a prefix, opens the buffer in an OTHER window. (defalias 'cvs-mode-find-file #[(e &optional other view) "`\302\211:\203 \303 8:\203 \303\202 \304 8\202 \305 `\306\307F)!\210`U\2047 \310\311 S\312\"\313>\2047 \314\315!\210\316\317!\207" [e event posn-set-point 2 1 selected-window (0 . 0) 0 get-text-property line-end-position font-lock-face (cvs-header cvs-filename) error "Not a file name" cvs-mode! #[(&optional rev) "p\306\307\211\310\311$\211\312H\n>\204 \313\314!\210 \315H\316=\203` \312H\n>\204+ \313\317!\210 \320H \321\322 !!)\"\323=\203F \324\325 !!\210\202V \"\203R \326 !\210\202V \327 !\210q\210\f\211)\202\264 #\203m \330 #\"\202r \325\331 !! $\"\323=\203 \324\202\233 \"\203\221 %\203\215 \332\202\233 \333\202\233 %\203\232 \334\202\233 \335$!\210&\203\261 \336 \337\"\203\261 \340\341 !!\210$)*\207" [cvs-buf fi cl-struct-cvs-fileinfo-tags default-directory odir d cvs-mode-marked nil :one t 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 file-name-as-directory expand-file-name dont-select display-buffer find-file-noselect dired-other-window dired cvs-retrieve-revision cvs-fileinfo->full-name view-buffer-other-window switch-to-buffer-other-window view-buffer switch-to-buffer cvs-applicable-p diff-base goto-line cvs-find-modif other rev buf view cvs-find-file-and-jump] 6 nil (list (cvs-prefix-get 'cvs-branch-prefix))]] 7 (#$ . 72578) (list last-input-event current-prefix-arg)]) #@91 Undo local changes to all marked files. The file is removed and `cvs update FILE' is run. (defalias 'cvs-mode-undo #[(flags) "\300\301!\207" [cvs-mode! #[nil "\203 \306\307!\207\310\311\312\313#\314\315\n \"\211@ A\211 \204+ \f\205A \316\317\320\f#\202A \316\312 \321\f\205@ \322p\316\317\320\323\fDFEC%-\207" [current-prefix-arg fis removedp fis-split fis-removed fis-other call-interactively cvs-mode-revert-to-rev cvs-do-removal undo "update" all #[(fi) "\302H >\204\f \303\304!\210\305H\306=\2069 \302H >\204 \303\304!\210\305H\307=\2059 \302H >\2044 \303\310!\210\311H\306=\207" [fi cl-struct-cvs-fileinfo-tags 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 REMOVED CONFLICT "cvs-fileinfo->subtype accessing a non-cvs-fileinfo" 3] 2] cvs-partition cvs-mode-run "add" nil :postproc with-current-buffer quote flags] 13]] 2 (#$ . 74130) (list nil)]) #@47 Revert the selected files to an old revision. (defalias 'cvs-mode-revert-to-rev #[nil "\300\301!\207" [cvs-mode! #[(rev) "\305\306\307\310\311$\312\313\314!P\315p\316\317\320\321\322 DE\322DFEC\315p\316\323\320\324\322 D\324\322 D\257\322D\325\322\nD\257EC \316\317 C\325\f%,\207" [fis tag untag rev update cvs-mode-marked revert "revert" :file t "tmp_pcl_tag_" make-temp-name "" with-current-buffer cvs-mode-run "tag" list "-d" quote "update" "-j" :postproc] 10 nil (list (or (cvs-prefix-get 'cvs-branch-prefix) (let ((current-prefix-arg '(4))) (cvs-flags-query 'cvs-idiff-version))))]] 2 (#$ . 75016) nil]) #@174 Delete the lock file that CVS is waiting for. Note that this can be dangerous. You should only do this if you are convinced that the process that created the lock is dead. (defalias 'cvs-mode-delete-lock #[nil "\300\301!\207" [cvs-mode! #[nil "\306\307 !!)\310\n\311 #\211 \204 \312\313!\202Q \314\315\316Q!\205Q \f\311 \211 \203O @\317 !\203< \320 !\210\202F \321 !\203F \322 !\210A\211\204+ *\311*\207" [cvs-lock-file d default-directory cvs-lock-file-regexp locks lock file-name-as-directory expand-file-name directory-files nil error "No lock files found" yes-or-no-p "Really delete locks in " "? " file-directory-p delete-directory file-exists-p delete-file #1=#:--cl-dolist-temp--] 5]] 2 (#$ . 75640) nil]) #@67 Remove all lines that are handled. Empty directories are removed. (defalias 'cvs-mode-remove-handled #[nil "\300\301!\207" [cvs-mode! #[nil "\302\303 \206 \304\303$\207" [cvs-cookies cvs-auto-remove-directories cvs-cleanup-collection t handled] 5]] 2 (#$ . 76373) nil]) #@42 Remove all marked files from the buffer. (defalias 'cvs-mode-acknowledge #[nil "\300\301!\207" [cvs-mode! #[nil "\304\305\306!\307\"\310\211\203( @\211\311H\n>\204 \312\313!\210\314\315I\210 A\211\204 *\316 \310\211\211$\207" [fi #1=#:--cl-dolist-temp-- cl-struct-cvs-fileinfo-tags cvs-cookies cvs-get-marked cvs-ignore-marks-p "acknowledge" t nil 0 error "cvs-fileinfo->type storing a non-cvs-fileinfo" 2 DEAD cvs-cleanup-collection] 5]] 2 (#$ . 76651) nil]) #@67 Remove files. Returns a list of FIS that should be `cvs remove'd. (defalias 'cvs-do-removal #[(filter &optional cmd all) "\306 \307\310\311\310&\312\313\306 \"\"A\f?\2066 \314\n + :\2033 + \211A@!\204 \310\211\202 *? ,\315 -,\204^ \f\316\232\203^ r-q\210\310 .\317\320\321 \"!\210\322p!\210\323 \210*,\204\254 \324\216\325\nG\326=\203r \327\202s \330 /\211 0\331U\203\227 \332\333/\n@\334H1>\204\217 \335\336!\210\n@\337H#\202\236 \332\340/0#*!)\204\254 \341\342!\210\343\202\n\343 2\211 3\2033@\2112\334H1>\204\310 \335\344!\2102\345H 4\3212! 56\204\340 4\346=\203\3475!\203\354 \3505!\2106\2042\334H1>\204\377 \335\351!\2102\345\352I\210*3A\2113\204\266 * ,\207" [filter cmd files fis cvs-confirm-removals -cvs-every-l cvs-mode-marked :file t :read-only cvs-partition #[(fi) "\302H >\204\f \303\304!\210\305H\306=\207" [fi cl-struct-cvs-fileinfo-tags 0 error #1="cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 UNKNOWN] 2] #[(fi) "\301\302!!?\206 \303\304\"\207" [fi file-exists-p cvs-fileinfo->full-name cvs-applicable-p safe-rm] 3] cvs-temp-buffer list cvs-insert-strings mapcar cvs-fileinfo->full-name cvs-pop-to-buffer-same-frame shrink-window-if-larger-than-buffer ((cvs-bury-buffer tmpbuf cvs-buffer)) yes-or-no-p undo "Undo" "Delete" 1 format "%s file: \"%s\" ? " 0 error "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 "%s %d files? " message "Aborting" nil #1# 2 UNKNOWN file-exists-p delete-file "cvs-fileinfo->type storing a non-cvs-fileinfo" DEAD -cvs-every-f silent tmpbuf inhibit-read-only verb nfiles cl-struct-cvs-fileinfo-tags fi #2=#:--cl-dolist-temp-- type file all] 8 (#$ . 77125)]) #@70 Remove all marked files. With prefix argument, prompt for cvs flags. (defalias 'cvs-mode-remove #[(flags) "\300\301!\207" [cvs-mode! #[nil "\303\304!\211\203 \305\306\307 B#\202 \310\n\311\211\211$)\207" [fis flags cvs-cookies cvs-do-removal remove cvs-mode-run "remove" "-f" cvs-cleanup-collection nil] 6]] 2 (#$ . 78792) (list (cvs-flags-query 'cvs-remove-flags "cvs remove flags"))]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list cvs-tag-name default-boundp set-default ""] 3) #@238 Run `cvs tag TAG' on all selected files. With prefix argument, prompt for cvs flags. By default this can only be used on directories. Use \[cvs-mode-force-command] or change `cvs-force-dir-tag' if you need to use it on individual files. (defalias 'cvs-mode-tag #[(tag &optional flags) "\300\301!\207" [cvs-mode! #[nil "\303\304\305 C\"\n\205\f \301#\207" [flags tag cvs-force-dir-tag cvs-mode-do "tag" append] 5]] 2 (#$ . 79318) (list (setq cvs-tag-name (cvs-query-read cvs-tag-name "Tag name: " cvs-qtypedesc-tag)) (cvs-flags-query 'cvs-tag-flags "tag flags"))]) #@89 Run `cvs tag -d TAG' on all selected files. With prefix argument, prompt for cvs flags. (defalias 'cvs-mode-untag #[(tag &optional flags) "\300\301!\207" [cvs-mode! #[nil "\303\304\305\306 C#\n\205 \301#\207" [flags tag cvs-force-dir-tag cvs-mode-do "tag" append ("-d")] 6]] 2 (#$ . 79889) (list (setq cvs-tag-name (cvs-query-read cvs-tag-name "Tag to delete: " cvs-qtypedesc-tag)) (cvs-flags-query 'cvs-tag-flags "tag flags"))]) #@64 Run byte-compile-file on all selected files that end in '.el'. (defalias 'cvs-mode-byte-compile-files #[nil "\300\301!\207" [cvs-mode! #[nil "\304\305\306!!\211\307\211\203( \n@\310 !\311\312 \"\203 \313 !\210)\nA\211\204 +\307\207" [marked fi #1=#:--cl-dolist-temp-- filename cvs-get-marked cvs-ignore-marks-p "byte-compile" nil cvs-fileinfo->full-name string-match "\\.el\\'" byte-compile-file] 5]] 2 (#$ . 80327) nil]) #@66 Add a ChangeLog entry in the ChangeLog of the current directory. (defalias 'cvs-mode-add-change-log-entry-other-window #[nil "\300\301!\207" [cvs-mode! #[nil "\306\307!\210\310\311\211\"\311\211\203; @\211\312H\n>\204 \313\314!\210\315H\316\317 !!) \320 \321\322!\210\212\323 \210+ A\211\204 *\311\207" [fi #1=#:--cl-dolist-temp-- cl-struct-cvs-fileinfo-tags d default-directory add-log-buffer-file-name-function require add-log cvs-mode-marked nil 0 error "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4 file-name-as-directory expand-file-name #[nil "\303\304H >\204 \305\306!\210\307H!\310\n!\203 \311\n!\202 \n)\207" [fi cl-struct-cvs-fileinfo-tags file expand-file-name 0 error "cvs-fileinfo->file accessing a non-cvs-fileinfo" 5 file-directory-p file-name-as-directory] 3] kill-local-variable change-log-default-name add-change-log-entry-other-window] 4]] 2 (#$ . 80763) nil]) #@40 Ask for new setting of cvs-FLAG-flags. (defalias 'cvs-mode-set-flags #[(flag) "\303\304\305Q!\306\307 \310P\"*\207" [flag sym current-prefix-arg intern "cvs-" "-flags" (16) cvs-flags-query " flags"] 4 (#$ . 81669) (list (completing-read "Which flag: " '("cvs" "diff" "update" "status" "log" "tag" "commit" "remove" "undo" "checkout") nil t))]) #@61 Return true if FILEINFO represents a file in directory DIR. (defalias 'cvs-dir-member-p #[(fileinfo dir) "\303H >\204\f \304\305!\210\306H\307=?\205' \310\n\303H >\204# \304\311!\210\312H\"\207" [fileinfo cl-struct-cvs-fileinfo-tags dir 0 error "cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 DIRCHANGE cvs-string-prefix-p "cvs-fileinfo->dir accessing a non-cvs-fileinfo" 4] 4 (#$ . 82023)]) #@55 Internal function for `cvs-execute-single-file-list'. (defalias 'cvs-execute-single-file #[(fi extractor program constant-args) " !\306\n<\205( \307\f\n\" \310\311\312 !#c\210\313\314\315\306\211 &\210db)*\207" [extractor fi arg-list inhibit-read-only constant-args args t append format "=== %s %s\n\n" split-string-and-unquote apply process-file nil program] 7 (#$ . 82429)]) #@400 Run PROGRAM on all elements on FIS. CONSTANT-ARGS is a list of strings to pass as arguments to PROGRAM. The arguments given to the program will be CONSTANT-ARGS followed by the list that EXTRACTOR returns. EXTRACTOR will be called once for each file on FIS. It is given one argument, the cvs-fileinfo. It can return t, which means ignore this file, or a list of arguments to send to the program. (defalias 'cvs-execute-single-file-list #[(fis extractor program constant-args) "\306\211\203 \n@\307 \f $\210\nA\211\204 *\306\207" [fis fi #1=#:--cl-dolist-temp-- extractor program constant-args nil cvs-execute-single-file] 6 (#$ . 82821)]) (defalias 'cvs-revert-if-needed #[(fis) "\306\211\203C \n@\307 !\310 !\211 \203; \311H >\204# \312\313!\210 \314H\315>\204; \316\f!\204; r\fq\210\306\317\320\217\210)*\nA\211\204 *\306\207" [fis fileinfo #1=#:--cl-dolist-temp-- file buffer cl-struct-cvs-fileinfo-tags nil cvs-fileinfo->full-name find-buffer-visiting 0 error #2="cvs-fileinfo->type accessing a non-cvs-fileinfo" 2 (MESSAGE UNKNOWN) buffer-modified-p (byte-code "\302\303\304\305#\210\306 \210\307H >\204 \310\311!\210\312H\313=\203 \314 \210\302\207" [fileinfo cl-struct-cvs-fileinfo-tags revert-buffer ignore-auto dont-ask preserve-modes vc-find-file-hook 0 error #2# 2 CONFLICT smerge-start-session] 4) ((error))] 4]) #@21 Change the cvsroot. (defalias 'cvs-change-cvsroot #[(newroot) "\302\303\304\"!\204 \305\306!\205 \211\207" [newroot cvs-cvsroot file-directory-p expand-file-name "CVSROOT" y-or-n-p "Warning: no CVSROOT found inside repository. Change cvs-cvsroot anyhow? "] 4 (#$ . 84175) "DNew repository: "]) #@126 The action to be performed when opening a CVS directory. Sensible values are `cvs-examine', `cvs-status' and `cvs-quickdir'. (custom-declare-variable 'cvs-dired-action ''cvs-quickdir '(#$ . 84481) :group 'pcl-cvs :type '(choice (const cvs-examine) (const cvs-status) (const cvs-quickdir))) #@294 Whether or not opening a CVS directory should run PCL-CVS. A value of nil means never do it. ALWAYS means to always do it unless a prefix argument is given to the command that prompted the opening of the directory. Anything else means to do it only if the prefix arg is equal to this value. (custom-declare-variable 'cvs-dired-use-hook ''(4) '(#$ . 84778) :group 'pcl-cvs :type '(choice (const :tag "Never" nil) (const :tag "Always" always) (const :tag "Prefix" (4)))) #@124 Run `cvs-examine' if DIR is a CVS administrative directory. The exact behavior is determined also by `cvs-dired-use-hook'. (defalias 'cvs-dired-noselect #[(dir) ";\2058 \304!\305!\306\230\2058 \307\310\311\"!\2058 \2058 \312=\203) \n?\202, \n \232\2058 \212 \313!\314\211#)\207" [dir cvs-dired-use-hook current-prefix-arg cvs-dired-action directory-file-name file-name-nondirectory "CVS" file-readable-p expand-file-name "Entries" always file-name-directory t] 4 (#$ . 85256)]) (add-hook 'vc-post-command-functions 'cvs-vc-command-advice) (defalias 'cvs-vc-command-advice #[(command files flags) "\306\232\205\346 @;\203 \307\310 @\"\203 \211A@\210\202 @\n\235\205\346 @\311\235\205K \312 \312 \211 \203G @\211\313\232\203@ \314 A\211\2045 \312 +?\205\346 rp\314 \315 \312 \211 \203\343 @\211 q\210 \316=\203\332 \317\"\203\332 G\312O q\210\320\321!\210 @\322\232\203\323 eb\203\323 \323\324!\203\323 !<\203\257 !\202\262 !C\312 \"\211 #\203\322 #@\"\325\326\"!\327\261\210#A\211#\204\273 *\330\312 \"\210) A\211 \204e .\312\207" [command flags cvs-parse-known-commands found-p flag #1=#:--cl-dolist-temp-- "cvs" string-match "\\`-" ("update" "checkout") nil "-p" t buffer-list cvs-mode cvs-string-prefix-p make-local-variable cvs-buffer "add" looking-at ".*to add this file permanently\n\\'" "cvs add: scheduling file `" file-name-nondirectory "' for addition\n" cvs-parse-process default-directory cvs-from-vc dir buffer cvs-buf #2=#:--cl-dolist-temp-- major-mode subdir files file #3=#:--cl-dolist-temp--] 5]) (defalias 'cvs-mark-buffer-changed #[nil "\306!\307\310!\205 \310 !\311=\205 \312 !\211\205j \212\313 \314\211 \203h \f@\211q\210 \315=\203a \316 \"\203a G\314O\317\n\320\230\203J \321\202K \322\323 !\206R \324\325 !\326$ \327\"\210*\fA\211\204$ +\314*\207" [buffer-file-name file version cvs-buf #1=#:--cl-dolist-temp-- major-mode expand-file-name fboundp vc-backend CVS vc-working-revision buffer-list nil cvs-mode cvs-string-prefix-p cvs-create-fileinfo "0" ADDED MODIFIED file-name-directory "" file-name-nondirectory "cvs-mark-buffer-changed" cvs-addto-collection default-directory fi cvs-cookies] 7]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook after-save-hook cvs-mark-buffer-changed provide pcvs] 3)
Close
