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 : vc.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:28 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/vc.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 "`vc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\304\305\"\204 \306B\307\310\311\312\313\314%\207" [minor-mode-alist require vc-hooks vc-dispatcher assoc vc-parent-buffer (vc-parent-buffer vc-parent-buffer-name) custom-declare-group vc nil "Version-control system in Emacs." :group tools] 6) #@67 If non-nil, prompt for initial comment when a file is registered. (custom-declare-variable 'vc-initial-comment 'nil '(#$ . 881) :type 'boolean :group 'vc) #@204 A string used as the default revision number when a new file is registered. This can be overridden by giving a prefix argument to \[vc-register]. This can also be overridden by a particular VC backend. (custom-declare-variable 'vc-default-init-revision '"1.1" '(#$ . 1043) :type 'string :group 'vc :version "20.3") #@126 A string or list of strings specifying extra switches for checkin. These are passed to the checkin program by \[vc-checkin]. (custom-declare-variable 'vc-checkin-switches 'nil '(#$ . 1366) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group 'vc) #@129 A string or list of strings specifying extra switches for checkout. These are passed to the checkout program by \[vc-checkout]. (custom-declare-variable 'vc-checkout-switches 'nil '(#$ . 1695) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group 'vc) #@128 A string or list of strings; extra switches for registering a file. These are passed to the checkin program by \[vc-register]. (custom-declare-variable 'vc-register-switches 'nil '(#$ . 2028) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group 'vc) #@487 A string or list of strings specifying switches for diff under VC. When running diff under a given BACKEND, VC uses the first non-nil value of `vc-BACKEND-diff-switches', `vc-diff-switches', and `diff-switches', in that order. Since nil means to check the next variable in the sequence, either of the first two may use the value t to mean no switches at all. `vc-diff-switches' should contain switches that are specific to version control, but not specific to any particular backend. (custom-declare-variable 'vc-diff-switches 'nil '(#$ . 2360) :type '(choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group 'vc :version "21.1") #@180 Indicates whether diff understands the -L option. The value is either `yes', `no', or nil. If it is nil, VC tries to use -L and sets this variable to remember whether it worked. (custom-declare-variable 'vc-diff-knows-L 'nil '(#$ . 3092) :type '(choice (const :tag "Work out" nil) (const yes) (const no)) :group 'vc) #@213 Specifies whether the diff during \[vc-revert] may be asynchronous. Enabling this option means that you can confirm a revert operation even if the local changes in the file have not been found and displayed yet. (custom-declare-variable 'vc-allow-async-revert 'nil '(#$ . 3417) :type '(choice (const :tag "No" nil) (const :tag "Yes" t)) :group 'vc :version "22.1") #@81 Normal hook (list of functions) run after checking out a file. See `run-hooks'. (custom-declare-variable 'vc-checkout-hook 'nil '(#$ . 3788) :type 'hook :group 'vc :version "21.1") #@98 Normal hook (list of functions) run after commit or file checkin. See also `log-edit-done-hook'. (custom-declare-variable 'vc-checkin-hook 'nil '(#$ . 3975) :type 'hook :options '(log-edit-comment-to-change-log) :group 'vc) #@89 Normal hook (list of functions) run before a commit or a file checkin. See `run-hooks'. (custom-declare-variable 'vc-before-checkin-hook 'nil '(#$ . 4205) :type 'hook :group 'vc) #@184 Associate static header string templates with file types. A %s in the template is replaced with the first string associated with the file's version control type in `vc-header-alist'. (custom-declare-variable 'vc-static-header-alist ''(("\\.c\\'" . "\n#ifndef lint\nstatic char vcid[] = \"%s\";\n#endif /* lint */\n")) '(#$ . 4391) :type '(repeat (cons :format "%v" (regexp :tag "File Type") (string :tag "Header String"))) :group 'vc) #@240 Special comment delimiters for generating VC headers. Add an entry in this list if you need to override the normal `comment-start' and `comment-end' variables. This will only be necessary if the mode language is sensitive to blank lines. (custom-declare-variable 'vc-comment-alist ''((nroff-mode ".\\\"" "")) '(#$ . 4833) :type '(repeat (list :format "%v" (symbol :tag "Mode") (string :tag "Comment Start") (string :tag "Comment End"))) :group 'vc) #@142 Non-nil means be extra-careful in checkout. Verify that the file really is not locked and that its contents match what the master file says. (custom-declare-variable 'vc-checkout-carefully '(= (user-uid) 0) '(#$ . 5290) :type 'boolean :group 'vc) (make-obsolete-variable 'vc-checkout-carefully "the corresponding checks are always done now." "21.1") #@178 VC sets this to t locally to disable some async diff operations. Backends that offer asynchronous diffs should respect this variable in their implementation of vc-BACKEND-diff. (defvar vc-disable-async-diff nil (#$ . 5647)) #@35 Clear all cached file properties. (defalias 'vc-clear-context #[nil "\301\302\"\207" [vc-file-prop-obarray fillarray 0] 3 (#$ . 5877) nil])(if macro-declaration-function (funcall macro-declaration-function (quote with-vc-properties) (quote (declare (debug t))))) #@238 Execute FORM, then maybe set per-file properties for FILES. SETTINGS is an association list of property/value pairs. After executing FORM, set those properties from SETTINGS that have not yet been updated to their corresponding values. (defalias 'with-vc-properties '(macro . #[(files form settings) "\303\304\305\306 D\305\307\nD\310BBEF\207" [form files settings let ((vc-touched-properties (list t))) dolist file setting ((let ((property (car setting))) (unless (memq property vc-touched-properties) (put (intern file vc-file-prop-obarray) property (cdr setting)))))] 8 (#$ . 6148)])) #@686 Return the name of a backend system that is responsible for FILE. The optional argument REGISTER means that a backend suitable for registration should be found. If REGISTER is nil, then if FILE is already registered, return the backend of FILE. If FILE is not registered, or a directory, then the first backend in `vc-handled-backends' that declares itself responsible for FILE is returned. If no backend declares itself responsible, return the first backend. If REGISTER is non-nil, return the first responsible backend under which FILE is not yet registered. If there is no such backend, return the first backend under which FILE is not yet registered, but could be registered. (defalias 'vc-responsible-backend #[(file &optional register) "\204 \303\304!\210\305 !\204 \n\204 \306 !\206 \307\310\215\207" [vc-handled-backends file register error "No handled backends" file-directory-p vc-backend found (byte-code "\306\211\203+ \n@ \203 \307 \310\f#\204$ \307 \311\f#\203$ \312\313 \"\210\nA\211\204 * \2043 @\207\306\211 \203Z @\307 \310\f#\204S \307 \314\f#\203S \312\313 \"\210 A\211\204; *\315\316!\207" [vc-handled-backends backend #1=#:--cl-dolist-temp-- register file #2=#:--cl-dolist-temp-- nil vc-call-backend registered responsible-p throw found could-register error "No backend that could register"] 5)] 2 (#$ . 6745)]) #@125 Expands directories in a file list specification. Within directories, only files already under version control are noticed. (defalias 'vc-expand-dirs #[(file-or-dir-list) "\304 \304\211\203) @\305\n!\203 \306\n\307\"\210\305\n!\204\" \nB A\211\204\n *\237)\207" [flattened file-or-dir-list node #1=#:--cl-dolist-temp-- nil file-directory-p vc-file-tree-walk #[(f) "\302!\205 B\211\207" [f flattened vc-backend] 2]] 4 (#$ . 8109)]) #@68 Are we in a VC-directory buffer, or do we have one as an ancestor? (defalias 'vc-derived-from-dir-mode #[(&optional buffer) "\206 p\302\303!\203 \304\202 \203 \305 !\202 \306)\207" [buffer vc-parent-buffer derived-mode-p vc-dir-mode t vc-derived-from-dir-mode nil] 2 (#$ . 8561)]) #@701 Deduce a set of files and a backend to which to apply an operation. Return (BACKEND FILESET FILESET-ONLY-FILES STATE CHECKOUT-MODEL). If we're in VC-dir mode, the fileset is the list of marked files. Otherwise, if we're looking at a buffer visiting a version-controlled file, the fileset is a singleton containing this file. If none of these conditions is met, but ALLOW_UNREGISTERED is on and the visited file is not registered, return a singleton fileset containing it. Otherwise, throw an error. STATE-MODEL-ONLY-FILES if non-nil, means that the caller needs the FILESET-ONLY-FILES STATE and MODEL info. Otherwise, that part may be skipped. BEWARE: this function may change the current buffer. (defalias 'vc-deduce-fileset #[(&optional observer allow-unregistered state-model-only-files) "\306\307\310!\203 \311 !\202\224 \312\n!\211\2032 \203+ \nC\nC\313\n!\314\n\"\257\202\224 \nCD\202\224 \315 !\203U \302 !\204I r q\210\f)\310=\203U q\210\316 #\202\224 \n\204a \317\320\321 \"\202\224 \203\221 \322\n!\204\221 \203\205 \323\324\302 !!\nC\nC \205 \325\306\257\202\224 \323\324\302 !!\nCD\202\224 \317\326!)\207" [backend state-model-only-files buffer-file-name vc-parent-buffer major-mode observer nil derived-mode-p vc-dir-mode vc-dir-deduce-fileset vc-backend vc-state vc-checkout-model buffer-live-p vc-deduce-fileset error "Buffer %s is not associated with a file" buffer-name vc-registered vc-responsible-backend file-name-directory unregistered "No fileset is available here." allow-unregistered] 7 (#$ . 8857)]) #@69 Make sure that the current buffer visits a version-controlled file. (defalias 'vc-ensure-vc-buffer #[nil "\302\303!\203\f \304\305 !q\207\203\" \306!\203\" p=\204\" q\210\202\f \204, \307\310\311 \"\207\312 !?\2057 \307\313 \"\207" [vc-parent-buffer buffer-file-name derived-mode-p vc-dir-mode find-file-noselect vc-dir-current-file buffer-live-p error "Buffer %s is not associated with a file" buffer-name vc-backend "File %s is not under version control"] 3 (#$ . 10408)]) #@39 Return non-nil if FILE can be edited. (defalias 'vc-editable-p #[(file) "\302!\211\205 \303 C\"\304=\206 \305!\306>)\207" [file backend vc-backend vc-checkout-model implicit vc-state (edited needs-merge conflict)] 4 (#$ . 10894)]) (put 'vc-editable-p 'byte-optimizer 'byte-compile-inline-expand) #@50 Controls which states can be in the same commit. (defalias 'vc-compatible-state #[(p q) " =\206 \302\235\205 \303\235\207" [p q (edited added removed) (edited added removed)] 2 (#$ . 11202)]) #@1616 Do the next logical version control operation on the current fileset. This requires that all files in the fileset be in the same state. For locking systems: If every file is not already registered, this registers each for version control. If every file is registered and not locked by anyone, this checks out a writable and locked file of each ready for editing. If every file is checked out and locked by the calling user, this first checks to see if each file has changed since checkout. If not, it performs a revert on that file. If every file has been changed, this pops up a buffer for entry of a log message; when the message has been entered, it checks in the resulting changes along with the log message as change commentary. If the variable `vc-keep-workfiles' is non-nil (which is its default), a read-only copy of each changed file is left in place afterwards. If the affected file is registered and locked by someone else, you are given the option to steal the lock(s). For merging systems: If every file is not already registered, this registers each one for version control. This does an add, but not a commit. If every file is added but not committed, each one is committed. If every working file is changed, but the corresponding repository file is unchanged, this pops up a buffer for entry of a log message; when the message has been entered, it checks in the resulting changes along with the logmessage as change commentary. A writable file is retained. If the repository file is changed, you are asked if you want to merge in the changes into your working copy. (defalias 'vc-next-action #[(verbose) "\306\307\310\311#\211@A@\3128\3138 \3148 \307 @\f\315=\203( \316\317!\202N\f\320=\2034 \316\321!\202N\f\203> \f\322=\203E \323\307\"\202N\f\324=\204V A\203\357 \f\325=\203\357 A\203\300 \326\327!\211@\227\211 B\330\331C\"\235\203\230 \332B! D\n\307 E\211 F\203\223 F@E\333ED\"\210FA\211F\204~ +\307\202\274 \n\307 E\211 G\203\272 G@E\334E \335=@#\210GA\211G\204\242 *\307)\202N \335=\204\351 \n\307 E\211 H\203\344 H@E\334E\310\"\210HA\211H\204\320 *\307\202N\336\337!\202N\340\f\341\"\203\356\n I\n\307 E\211 J\203GJ@E\342E!\204>\343\344\345E\"!\204 \316\346!\210\347E\350\351E!\352\"\"\210\353E!\211 K\203=rKq\210\354\355!\210))JA\211J\204*\212\n\307 E\211 L\203\214L@E\353E! K \335=\204\202\356E!\203\202K\203u\357 \204\202\360E!\210\361EI\"I)LA\211L\204S+I\204\230\336\362!\202\352A\204\245\363I \"\202\352\326\364!\211@\227\211 B\330\365C\"\235\203\342\366B! D\n\307 E\211 M\203\335M@E\333ED\"\210MA\211M\204\310+\307\202\351\363I @#))\202N\f;\203)\n\307 E\211 N\203$N@E\367EA\203\326\344\370E\"!\202\371E!\f#\210NA\211N\204\375*\307\202N\f\372=\2036\373 \n\"\202N\f\325=\203\203\n\307 E\211 O\203~O@E\374\344\375\376E!\"!\203c\334E \335=\310#\210\202u \335=\204u\374\377!\203u\334E\310\"\210OA\211O\204F*\307\202N\f\201S =\203\307\n\307 E\211 P\203\302P@E\374\344\201T \376E!\"!\203\271\201U E\201V \201W E#\"\210PA\211P\204\225*\307\202N\f\201X =\203H\n\307 E\211 Q\203CQ@ERE\232\204\355\201Y E!\210\201Z \213\203 \201V \201[ E#\210\201\\ \210\201] E!\210\201^ R!\210\201_ E!\210\202:\374\201` !\204-\316\201a !\210\202:\201b \310\211\"\210\334E\310\"\210QA\211Q\204\331*\307\202N\316\201c \f\".\207" [vc-fileset backend files fileset-only-files state model vc-deduce-fileset nil t state-model-only-files 2 3 4 missing error "Fileset files are missing, so cannot be operated on." ignored "Fileset files are ignored by the version-control system." unregistered vc-register up-to-date needs-update read-string "Branch, revision, or backend to move to: " mapcar #[(arg) "\301!\227\207" [arg symbol-name] 2] intern-soft vc-transfer-file vc-checkout implicit message "Fileset is up-to-date" vc-compatible-state edited file-writable-p y-or-n-p format "%s is edited but read-only; make it writable and continue?" "Aborted" set-file-modes logior file-modes 128 get-file-buffer toggle-read-only -1 vc-workfile-unchanged-p buffer-modified-p vc-revert-file delete "No files remain to be committed" vc-checkin "New revision or backend: " #[(arg) "\301!\227\207" [arg symbol-name] 2] intern vc-steal-lock "%s revision to steal: " vc-working-revision conflict vc-mark-resolved yes-or-no-p "%s is not up-to-date. Get latest revision? " file-name-nondirectory "Lock this revision? " revision verbose revision-downcase vc-handled-backends vsym file #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- ready-for-commit #4=#:--cl-dolist-temp-- visited #5=#:--cl-dolist-temp-- #6=#:--cl-dolist-temp-- #7=#:--cl-dolist-temp-- #8=#:--cl-dolist-temp-- #9=#:--cl-dolist-temp-- #10=#:--cl-dolist-temp-- buffer-file-name needs-merge "%s is not up-to-date. Merge in changes now? " vc-maybe-resolve-conflicts vc-call-backend merge-news unlocked-changes find-file-other-window ((byte-code "\304\305@\211A@)\nCBB\306\n!\305$\210eb\210\307\310\311\n\"c\210)\312 \210\313\314!\207" [vc-fileset x file inhibit-read-only vc-diff-internal nil vc-working-revision t format "Changes to %s since last lock:\n\n" beep yes-or-no-p "File has unlocked changes. Claim lock retaining changes? "] 6)) steal-lock clear-visited-file-modtime vc-clear-headers write-file vc-mode-line "Revert to checked-in revision, instead? " "Checkout aborted" vc-revert-buffer-internal "Fileset is in an unknown state %s"] 8 (#$ . 11407) "P"]) #@54 Create an empty repository in the current directory. (defalias 'vc-create-repo #[(backend) "\301\302\"\207" [backend vc-call-backend create-repo] 3 (#$ . 16948) (list (intern (upcase (completing-read "Create repository for: " (mapcar (lambda (b) (list (downcase (symbol-name b)))) vc-handled-backends) nil t))))]) #@674 Register into a version control system. If VC-FILESET is given, register the files in that fileset. Otherwise register the current file. With prefix argument SET-REVISION, allow user to specify initial revision level. If COMMENT is present, use that as an initial comment. The version control system to use is found by cycling through the list `vc-handled-backends'. The first backend in that list which declares itself responsible for the file (usually because other files in that directory are already registered under that backend) will be used to register the file. If no backend declares itself responsible, the first backend that could register the file is used. (defalias 'vc-register #[(&optional set-revision vc-fileset comment) "\206 \306\307\310\"\211@ A@\211\307 \211 \203q @\311\f! (\f\204' )\312\f!\203D \313\f!\203: \314\315!\210\202D \316\317!\204D \314\320!\210(\203i r(q\210\321 \204e \322\323 !\203e \324)!\204e \325\310!\210\326 \210)) A\211\204 *\327\330!\327\331! *\211 +\nL\210* L\210\332*J,\203\231 \333\334\335*J\"!\202\237 \336+J\337\"-\206\247 .?\307\340\341\342\343\344\345\346*D\346+D\347\257E&-\207" [vc-fileset fileset-arg backend files fname #1=#:--cl-dolist-temp-- vc-deduce-fileset nil t get-file-buffer vc-backend vc-registered error "This file is already registered" y-or-n-p "Previous master file has vanished. Make a new one? " "Aborted" buffer-modified-p zerop buffer-size file-exists-p set-buffer-modified-p vc-buffer-sync make-symbol "--backend--" "--files--" vc-start-logentry read-string format "Initial revision level for %s: " vc-call-backend init-revision "Enter initial comment." "*VC-log*" lambda (&rest --cl-rest--) apply #[(#2=#:G900 #3=#:G901 files rev comment) "\306\307J\"\210\310\311J\"\210\312 J\313J\n %\210J\314 \211 \2030 @\315\f\316 J#\210 A\211\204 *\306\317J\"\207" [#2# #3# rev comment file #4=#:--cl-dolist-temp-- message "Registering %s... " mapc vc-file-clearprops vc-call-backend register nil vc-file-setprop vc-backend "Registering %s... done"] 6] quote --cl-rest-- bname buffer-file-name #5=#:--cl-files-- #6=#:--cl-backend-- set-revision comment vc-initial-comment] 15 (#$ . 17270) "P"]) #@54 Register the current file with a specified back end. (defalias 'vc-register-with #[(backend) " \235\204\n \302\303!\210C\304\305!)\207" [backend vc-handled-backends error "Unknown back end." call-interactively vc-register] 2 (#$ . 19472) "SBackend: "]) #@208 Retrieve a copy of the revision REV of FILE. If WRITABLE is non-nil, make sure the retrieved file is writable. REV defaults to the latest revision. After check-out, runs the normal hook `vc-checkout-hook'. (defalias 'vc-checkout #[(file &optional writable rev) "\203! \204! \306\307\n!\310\n#\203! \n\311\n!)\312=\203! \313\n!\210\307\n!\314C \315\316\317\217\210\nC\320\211 \203\231 @\311\321 \nC\"\322=\204H \204X \306 \323\n#\203T \312\202Y \324\202Y \325B\326\327\330\n!8BD\320 \211 \203\221 @\211 @\211 \f>\204\207 \331\332\n!\" A#\210) A\211 \204k * A\211\2046 ,\333\n\314\211#\210\334\335!\207" [writable rev file backend vc-touched-properties #1=#:--cl-dolist-temp-- vc-call-backend vc-backend make-version-backups-p vc-state up-to-date vc-make-version-backup t err (byte-code "\304\305 \n %\207" [backend file writable rev vc-call-backend checkout] 6) ((file-error (byte-code "\203 \304 !\211\203 r\nq\210\305\306!\210))\307 @ A\"\207" [writable file buf err get-file-buffer toggle-read-only -1 signal] 4))) nil vc-checkout-model implicit latest-on-branch-p needs-update edited vc-checkout-time 5 file-attributes put intern vc-resynch-buffer run-hooks vc-checkout-hook setting #2=#:--cl-dolist-temp-- property vc-file-prop-obarray] 7 (#$ . 19735)]) (defalias 'vc-mark-resolved #[(backend files) "\306C\307 \310\n#\210\n\311\211 \203I \f@\312\311 \211 \203A @\211@\211 >\2047 \313\314 \" A#\210)A\211\204 *\fA\211\204 +\311\315\316\317!\nG\320V\203^ \321\322\nG\"\202_ \323\"\210\207" [vc-touched-properties backend files file #1=#:--cl-dolist-temp-- setting t vc-call-backend mark-resolved nil ((vc-state . edited)) put intern message substitute-command-keys "Conflicts have been resolved in %s. Type \\[vc-next-action] to check in changes." 1 format "%d files" "this file" #2=#:--cl-dolist-temp-- property vc-file-prop-obarray] 6]) #@25 Steal the lock on FILE. (defalias 'vc-steal-lock #[(file rev owner) "\306 \203 \307\310\n #\202 \n\311\307\312 #!\204 \313\314!\210\315\316\n\"\210\317C \320\321\n!\322\n $\210\nC\306\211 \203t @\323\306 \211 !\203l !@\211 @\211 \"\f>\204b \324\325\n#\"\" A#\210)!A\211!\204F * A\211\2049 +\326\n\317\211#\210\315\327\n\"\210\330 \307\331\"\"\210\332\333!$db\210\307\334\"\335 \336\261\210\315\337!)\207" [file-description rev file owner vc-touched-properties #1=#:--cl-dolist-temp-- nil format "%s:%s" yes-or-no-p "Steal the lock on %s from %s? " error "Steal canceled" message "Stealing lock on %s..." t vc-call-backend vc-backend steal-lock ((vc-state . edited)) put intern vc-resynch-buffer "Stealing lock on %s...done" compose-mail "Stolen lock on %s" expand-file-name "~/" "I stole the lock on %s, " current-time-string ".\n" "Please explain why you stole the lock. Type C-c C-c when done." setting #2=#:--cl-dolist-temp-- property vc-file-prop-obarray default-directory] 6 (#$ . 21631)]) #@524 Check in FILES. The optional argument REV may be a string specifying the new revision level (if nil increment the current level). COMMENT is a comment string; if omitted, a buffer is popped up to accept a comment. If INITIAL-CONTENTS is non-nil, then COMMENT is used as the initial contents of the log entry buffer. If `vc-keep-workfiles' is nil, FILE is deleted afterwards, provided that the version control system supports this mode of operation. Runs the normal hooks `vc-before-checkin-hook' and `vc-checkin-hook'. (defalias 'vc-checkin #[(files backend &optional rev comment initial-contents) "\203 \306\300!\210\307\310!\211\nL\210\311 \f \312\313\314\315\316\317\320 D\321FE\322&)\207" [vc-before-checkin-hook #1=#:--cl-backend-- backend files rev comment run-hooks make-symbol "--backend--" vc-start-logentry "Enter a change comment." "*VC-log*" lambda (&rest --cl-rest--) apply #[(#2=#:G902 files rev comment) "\306\307\310!\"\210 \203 \311\312 \"\204 \313\314C\315 J\316\f %\210\317\320\"\210\321 \211 \203v @\322\323\324\325 !8B\326BB\321 \211 \203l @\211@\211 \n>\204b \327\330 \" A#\210) A\211 \204F *A\211\204. +\306\331\310!\"\207" [files comment vc-touched-properties #2# rev file message "Checking in %s..." vc-delistify string-match "[^ \n ]" "*** empty log message ***" t vc-call-backend checkin mapc vc-delete-automatic-version-backups nil (vc-state . up-to-date) vc-checkout-time 5 file-attributes ((vc-working-revision)) put intern "Checking in %s...done" #3=#:--cl-dolist-temp-- setting #4=#:--cl-dolist-temp-- property vc-file-prop-obarray] 7] quote --cl-rest-- vc-checkin-hook initial-contents] 14 (#$ . 22657)]) #@60 Return the coding system for reading diff output for FILE. (defalias 'vc-coding-system-for-diff #[(file) "\206 \304 !\211\205 r\nq\210 ))\206 \305\306 \"@\206 \307\207" [coding-system-for-read file buf buffer-file-coding-system find-buffer-visiting find-operation-coding-system insert-file-contents undecided] 4 (#$ . 24342)]) #@543 Return a list of vc-BACKEND switches for operation OP. BACKEND is a symbol such as `CVS', which will be downcased. OP is a symbol such as `diff'. In decreasing order of preference, return the value of: vc-BACKEND-OP-switches (e.g. `vc-cvs-diff-switches'); vc-OP-switches (e.g. `vc-diff-switches'); or, in the case of diff only, `diff-switches'. If the chosen value is not a string or a list, return nil. This is so that you may set, e.g. `vc-svn-diff-switches' to t in order to override the value of `vc-diff-switches' and `diff-switches'. (defalias 'vc-switches #[(backend op) "\203 \305\306\307 !\310P!\"\311\n!\205 \nJ)\2067 \306\312\313\307 !\"!\311\n!\205, \nJ)\2067 \314=\2057 \211 ;\203B \fC\202H \f<\205H \f)\207" [backend op sym diff-switches switches vc-make-backend-sym intern symbol-name "-switches" boundp format "vc-%s-switches" diff] 6 (#$ . 24682)]) (defalias 'vc-diff-switches-list '(macro . #[(backend) "\301\302D\303BB\207" [backend vc-switches quote ('diff)] 3])) (make-obsolete 'vc-diff-switches-list 'vc-switches "22.1") (defalias 'vc-diff-finish #[(buffer messages) "\305!\205G \306\307\"\310\311!!rq\210 \203, \203, \307 A\312\261\210\313\314 A\"\210)eb\210\n\2037 \315\n!\210) \205F ?\205F \313\316 @\"*\207" [buffer emptyp window messages inhibit-read-only buffer-live-p get-buffer-window t zerop buffer-size ".\n" message "%s" shrink-window-if-larger-than-buffer "%sdone"] 4]) #@62 If non-nil, diff added files by comparing them to /dev/null. (defvar vc-diff-added-files nil (#$ . 26113)) #@158 Report diffs between two revisions of a fileset. Diff output goes to the *vc-diff* buffer. The function returns t if the buffer had changes, nil otherwise. (defalias 'vc-diff-internal #[(async vc-fileset rev1 rev2 &optional verbose) "\211A@)\306\307\310\n!\"\306\311 \206 \312\f\206 \313#B \n\203' \314\n@!\202( \315 *\316\317!\210\320\321 @\"\210+\203\226 \322 ,\n\322 -\211 .\203\220 .@-\323-!\204[ \324-!\325\230\204e -,B,\202\207 \204m \f\203v \326\327-\"\210\202\207 \330\331\317\332\333-\334\335\322\336\"\337\"&\210.A\211.\204F *,\237)/? 0\340@\336\n \f\317&\210)\317q\210\341\342 !\203\301 \343p!\204\301 \320\321 A\"\210\322\202\332 \344 \210\3451\346\347p\3502\205\321 DE!\210\351p!\210\345+\207" [vc-fileset x files rev1 rev2 messages format "Finding changes in %s..." vc-delistify "No changes between %s and %s" "working revision" "workfile" vc-coding-system-for-diff undecided vc-setup-buffer "*vc-diff*" message "%s" nil file-directory-p vc-working-revision "0" error "No revisions of %s exist" apply vc-do-command 1 "diff" append vc-switches diff ("/dev/null") vc-call-backend zerop buffer-size get-buffer-process diff-mode t vc-exec-after vc-diff-finish quote pop-to-buffer coding-system-for-read vc-diff-added-files filtered file #1=#:--cl-dolist-temp-- async vc-disable-async-diff buffer-read-only verbose] 12 (#$ . 26227)]) #@74 Report diffs between revisions of the fileset in the repository history. (defalias 'vc-version-diff #[(files rev1 rev2) "\204\f \203\f \302\303!\210\304\305\306 t%\207" [rev1 rev2 error "Not a valid revision range." vc-diff-internal t vc-deduce-fileset] 6 (#$ . 27604) (let* ((vc-fileset (vc-deduce-fileset t)) (files (cadr vc-fileset)) (backend (car vc-fileset)) (first (car files)) (completion-table (vc-call-backend backend 'revision-completion-table files)) (rev1-default nil) (rev2-default nil)) (cond ((/= (length files) 1) nil) ((file-directory-p first) nil) ((not (vc-up-to-date-p first)) (setq rev1-default (vc-working-revision first))) (t (setq rev1-default (vc-call-backend backend 'previous-revision first (vc-working-revision first))) (when (string= rev1-default #1="") (setq rev1-default nil)) (setq rev2-default (vc-working-revision first)))) (let* ((rev1-prompt (if rev1-default (concat "Older revision (default " rev1-default "): ") "Older revision: ")) (rev2-prompt (concat "Newer revision (default " (or rev2-default "current source") "): ")) (rev1 (if completion-table (completing-read rev1-prompt completion-table nil nil nil nil rev1-default) (read-string rev1-prompt nil nil rev1-default))) (rev2 (if completion-table (completing-read rev2-prompt completion-table nil nil nil nil rev2-default) (read-string rev2-prompt nil nil rev2-default)))) (when (string= rev1 #1#) (setq rev1 nil)) (when (string= rev2 #1#) (setq rev2 nil)) (list files rev1 rev2)))]) #@319 Display diffs between file revisions. Normally this compares the currently selected fileset with their working revisions. With a prefix argument HISTORIC, it reads two revision designators specifying which revisions to compare. The optional argument NOT-URGENT non-nil means it is ok to say no to saving the buffer. (defalias 'vc-diff #[(historic &optional not-urgent) "\203 \303\304!\207 \203 \305\n!\210\306\307\310 \311\211t%\207" [historic buffer-file-name not-urgent call-interactively vc-version-diff vc-buffer-sync vc-diff-internal t vc-deduce-fileset nil] 6 (#$ . 29093) (list current-prefix-arg t)]) #@196 Visit revision REV of the current file in another window. If the current file is named `F', the revision is named `F.~REV~'. If `F.~REV~' already exists, use it instead of checking it out again. (defalias 'vc-revision-other-window #[(rev) "\304 \210\n\305\230\203 \306 !\202 \n\307\310 \"!*\207" [buffer-file-name file rev revision vc-ensure-vc-buffer "" vc-working-revision switch-to-buffer-other-window vc-find-revision] 4 (#$ . 29714) (byte-code "r\303 \210\304\305C!\306C#\307\211\203 \310 \n\"\202 \311 !+C\207" [buffer-file-name prompt completion-table vc-ensure-vc-buffer vc-call-backend vc-backend revision-completion-table "Revision to visit (default is working revision): " completing-read read-string] 5)]) #@60 Read REVISION of FILE into a buffer and return the buffer. (defalias 'vc-find-revision #[(file revision) "\306 \"\307!\206 p\306 \310# \311\n!\204{ \311\f!\203( \312\f\n\313#\210\202{ \314\315\n\"\210r q\210\316 \317\216\320\211 \n\321\322\323!! ! \"\324\216r!q\210p #r q\210\325\326!\327 #%\210+r!q\210\330\313\211\"\313\331%\210,\313,\332!\210)\314\333\n\"\210\334\n! $r$q\210\335\336!\210 )$,\207" [file revision filename filebuf automatic-backup failed vc-version-backup-file-name get-file-buffer manual file-exists-p rename-file nil message "Checking out %s..." t ((byte-code "\203 \302 !\203 \303 !\210\302\207" [failed filename file-exists-p delete-file] 2)) no-conversion get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) vc-call-backend vc-backend find-revision write-region 0 vc-mode-line "Checking out %s...done" find-file-noselect make-local-variable vc-parent-buffer coding-system-for-write coding-system-for-read #1# #2=#:temp-file outbuf result-buf] 6 (#$ . 30450)]) #@160 Insert headers into a file for use with a version control system. Headers desired are inserted at point, and are pulled from the variable `vc-BACKEND-header'. (defalias 'vc-insert-headers #[nil "\306 \210\212\214~\210\307 \203 \310\311!\205\235 \236A\211@\206! \206! \312 \nA@\206- \206- \313 \314\315!\316\" \317!\205B J\211 \320 \211 \203g @\f\321\321\322\261\210A\211\204N *\205\234 \320 \211 \203\232 @ \323 @\"\203\221 \324 A@\"c\210 A\211 \204x *\320-*\207" [major-mode vc-comment-alist delims comment-start comment-start-vc comment-end vc-ensure-vc-buffer vc-check-headers y-or-n-p "Version headers already exist. Insert another set? " "#" "" vc-make-backend-sym vc-backend header boundp nil " " "\n" string-match format comment-end-vc buffer-file-name hdsym hdstrings s #1=#:--cl-dolist-temp-- vc-static-header-alist f #2=#:--cl-dolist-temp--] 8 (#$ . 31564) nil]) #@110 Clear all version headers in the current buffer (or FILE). The headers are reset to their non-expanded form. (defalias 'vc-clear-headers #[(&optional file) "\206 \306\n!\307\n! \310\f\311\"\2057 \203* \312 \212\313\f\311\"\210)\314 !)\2027 \315\n!q\210\313\f\311\"\210\316\n!+\207" [file buffer-file-name filename visited backend context find-buffer-visiting vc-backend vc-find-backend-function clear-headers vc-buffer-context vc-call-backend vc-restore-buffer-context find-file-noselect kill-buffer] 3 (#$ . 32492)]) #@64 Edit the comment associated with the given files and revision. (defalias 'vc-modify-change-comment #[(files rev oldcomment) "\303 \n\304\305\306\307&\207" [files rev oldcomment vc-start-logentry t "Enter a replacement change comment." "*VC-log*" #[(files rev comment) "\303\304@!\305 \n%\207" [files rev comment vc-call-backend vc-responsible-backend modify-change-comment] 6]] 8 (#$ . 33023)]) #@330 Merge changes between two revisions into the current buffer's file. This asks for two revisions to merge from in the minibuffer. If the first revision is a branch number, then merge all changes from that branch. If the first revision is empty, merge news, i.e. recent changes from the current branch. See Info node `Merging'. (defalias 'vc-merge #[nil "\306 \210\307 \210\310 !\311 !\312\211 \312 $ ;\203$ \313\314 \"\210\202S \310 !\211\205= \315\n C\"\316=\206= \311 !\317>*\204S \320\321!\203O \322 \323\"\210\202S \313\324!\210\325\326!\211\327\230\203g \330\n\331 #$\202\227 \332\n\333\"\204v \313\334\n\"\210\202\227 \335\f!\204\210 \325\336\337\f!\340P\"\202\216 \f\337\f!\330\n\333 \f %$\341 $\342\343$.\207" [buffer-file-name file backend state first-revision second-revision vc-ensure-vc-buffer vc-buffer-sync vc-backend vc-state nil error "File is locked by %s" vc-checkout-model implicit (edited needs-merge conflict) y-or-n-p "File must be checked out for merging. Check out now? " vc-checkout t "Merge aborted" read-string "Branch or revision to merge from (default news on current branch): " "" vc-call-backend merge-news vc-find-backend-function merge "Sorry, merging is not implemented for %s" vc-branch-p "Second revision: " vc-branch-part "." vc-maybe-resolve-conflicts "WORKFILE" "MERGE SOURCE" status] 7 (#$ . 33429) nil]) (defalias 'vc-maybe-resolve-conflicts #[(file status &optional name-A name-B) "\302\303\304 ?#\210\305 !\203 \306\307!\207\310\311!\210\306\312!\207" [file status vc-resynch-buffer t buffer-modified-p zerop message "Merge successful" smerge-mode 1 "File contains conflicts."] 4]) (defalias 'vc-resolve-conflicts 'smerge-ediff) #@284 Scan the tree below DIR, looking for files not up-to-date. If any file is not up-to-date, return the name of the first such file. (This means, neither tag creation nor retrieval is allowed.) If one or more of the files are currently visited, return `visited'. Otherwise, return nil. (defalias 'vc-tag-precondition #[(dir) "\301\302\303\215)\207" [status nil vc-locked-example (byte-code "\302\303\"\210 \207" [dir status vc-file-tree-walk #[(f) "\303 !)\304=\204 \305\306\"\207\307!\205 \310\211\207" [f file status vc-state up-to-date throw vc-locked-example get-file-buffer visited] 3]] 3)] 2 (#$ . 35129)]) #@270 Descending recursively from DIR, make a tag called NAME. For each registered file, the working revision becomes part of the named configuration. If the prefix argument BRANCHP is given, the tag is made as a new branch and the files are checked out in that new branch. (defalias 'vc-create-tag #[(dir name branchp) "\303\304\203\n \305\202 \306\"\210\307 !\203 \310 !\311\312 !\313 \n%\210\303\314\203+ \305\202, \306\"\207" [branchp dir name message "Making %s... " "branch" "tag" file-directory-p file-name-as-directory vc-call-backend vc-responsible-backend create-tag "Making %s... done"] 6 (#$ . 35755) (list (read-file-name "Directory: " default-directory default-directory t) (read-string "New tag name: ") current-prefix-arg)]) #@283 Descending recursively from DIR, retrieve the tag called NAME. If NAME is empty, it refers to the latest revisions. If locking is used for the files in DIR, then there must not be any locked files at or below DIR (but if NAME is empty, locked files are allowed and simply skipped). (defalias 'vc-retrieve-tag #[(dir name) "\304\305!\203 \306\230\203 \307\310\311 !\"\202 \307\312\311 !\"\313\314\n\"\210\315\316 !\317 %\210\313\314\n\320P\"*\207" [name dir msg update yes-or-no-p "Update any affected buffers? " "" format "Updating %s... " abbreviate-file-name "Retrieving tag into %s... " message "%s" vc-call-backend vc-responsible-backend retrieve-tag "done"] 6 (#$ . 36504) (list (read-file-name "Directory: " default-directory default-directory t) (read-string "Tag name to retrieve (default latest revisions): "))]) #@123 List the change log of the current fileset in a window. If WORKING-REVISION is non-nil, leave the point at that revision. (defalias 'vc-print-log #[(&optional working-revision) "\305\306!\211@\211A@)\f\206 \307 @! \310 \311 \312$\210\313\312!\210\314\315\316\310\317 D\320BB\321\322\317 DE\321\323\317 DE\324\325\326\327\330\331\310\317 D\332\317\fDF\333BBBBBBBBBBBB!,\207" [vc-fileset backend x files working-revision vc-deduce-fileset t vc-working-revision vc-call-backend print-log "*vc-change-log*" pop-to-buffer vc-exec-after let ((inhibit-read-only t)) quote ('log-view-mode) set (make-local-variable 'log-view-vc-backend) (make-local-variable 'log-view-vc-fileset) (goto-char (point-max)) (forward-line -1) (while (looking-at "=*\n") (delete-char (- (match-end 0) (match-beginning 0))) (forward-line -1)) (goto-char (point-min)) (when (looking-at "[ \n \f ]+") (delete-char (- (match-end 0) (match-beginning 0)))) (shrink-window-if-larger-than-buffer) 'show-log-entry ((setq vc-sentinel-movepoint (point)) (set-buffer-modified-p nil))] 18 (#$ . 37342) nil]) #@201 Revert working copies of the selected fileset to their repository contents. This asks for confirmation if the buffer contents are not identical to the working revision (except for keyword expansion). (defalias 'vc-revert #[nil "\306 \211\211A@)\211\203 \307 \n>\203 \310\311!\210\n\311\211 \203V \f@\312 !\211 \2036 \313 !\2036 \314\315!\210) \316 !)\317=\203O \320\321\322 \"!\204O \314\323!\210\fA\211\204! *\324 \311\211$\203\214 \320\321\325\326\n!\211 !G\327W\203u !\202z \321\330\nG\")\"!\204\204 \314\323!\210\331\332!\210\333\332!\210\n\311\211 \"\203\264 \"@\334\335\326\n!\"\210\336 !\210\334\337\326\n!\"\210\"A\211\"\204\225 ,\311\207" [vc-fileset x files file #1=#:--cl-dolist-temp-- buf vc-deduce-fileset buffer-file-name vc-buffer-sync nil get-file-buffer buffer-modified-p error "Please kill or save all modified buffers before reverting." vc-state up-to-date yes-or-no-p format "%s seems up-to-date. Revert anyway? " "Revert canceled" vc-diff-internal "Discard changes in %s? " vc-delistify 50 "%d files" delete-windows-on "*vc-diff*" kill-buffer message "Reverting %s..." vc-revert-file "Reverting %s...done" vc-allow-async-revert str #2=#:--cl-dolist-temp--] 7 (#$ . 38422) nil]) #@192 Roll back (remove) the most recent changeset committed to the repository. This may be either a file-level or a repository-level operation, depending on the underlying version-control system. (defalias 'vc-rollback #[nil "\306 \211@\211A@)\307 \310\" \311 \312\"\204 \313\314 \"\210\f\315=\204/ G\316U\204/ \313\317!\210\307 \320 @#\204< \313\321!\210 \203G \322 >\203K \323\324!\210 \324 \211 3\203| 3@\325\326 !!\203d \313\327!\210 \330 !)\331=\204s \313\332!\2103A\2113\204T *\333\334!\210\335 \210\336\337!\210\340 @! 4\307 \341 @4$ 5\342\32454$\210*\343\344!\204\254 \313\345!\210\346\334!\210\347\334!\210\336\350\351 !\"\210\352C 6\307 \312 #\210 \324 \211 7\2037@\330\331B\353\354\355 !8B\356BB\324 8\211 9\2039@\2118@\211 :6>\204\357\360 ;\":8A#\210)9A\2119\204\350 *7A\2117\204\316 + \324 <\211 =\2039=@<\361<\352\211#\210=A\211=\204$*\336\362\351 !\",\207" [vc-fileset backend x files granularity file vc-deduce-fileset vc-call-backend revision-granularity vc-find-backend-function rollback error "Rollback is not supported in %s" repository 1 "Rollback requires a singleton fileset or repository versioning" latest-on-branch-p "Rollback is only possible at the tip revision." buffer-file-name vc-buffer-sync nil buffer-modified-p get-file-buffer "Please kill or save all modified buffers before rollback." vc-state up-to-date "Please revert all modified workfiles before rollback." vc-setup-buffer "*vc-diff*" not-modified message "Finding changes..." vc-working-revision previous-revision vc-diff-internal yes-or-no-p "Discard these revisions? " "Rollback canceled" delete-windows-on kill-buffer "Rolling back %s..." vc-delistify t vc-checkout-time 5 file-attributes ((vc-working-revision)) put intern vc-resynch-buffer "Rolling back %s...done" #1=#:--cl-dolist-temp-- tip previous vc-touched-properties #2=#:--cl-dolist-temp-- setting #3=#:--cl-dolist-temp-- property vc-file-prop-obarray f #4=#:--cl-dolist-temp--] 8 (#$ . 39646) nil]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-revert-buffer vc-revert nil make-obsolete "23.1"] 4) #@350 Update the current fileset's files to their tip revisions. For each one that contains no changes, and is not locked, then this simply replaces the work file with the latest revision on its branch. If the file contains changes, and the backend supports merging news, then any recent changes from the current branch are merged into the working file. (defalias 'vc-update #[nil "\306 \211@\211A@)\307\310\311\"\210 \310 \211 \203j @\211 \312\f!)\313=\2031 \314\f\310\315#\210\202c \316 \fC\"\317=\203Z \312\f!\320=\203M \321\322\323\324!\"\210\202c \321\325\312\f!\323\326!#\210\202c \327\f\330 \331\f#\"\210 A\211\204 -\310\207" [vc-fileset backend x files file #1=#:--cl-dolist-temp-- vc-deduce-fileset save-some-buffers nil #[nil "\302 \205 \303 \211\205 \235)\207" [file files buffer-modified-p buffer-file-name] 3] vc-state up-to-date vc-checkout t vc-checkout-model locking edited error "%s" substitute-command-keys "File is locked--type \\[vc-revert] to discard changes" "Unexpected file state (%s) -- type %s" "\\[vc-next-action] to correct" vc-maybe-resolve-conflicts vc-call-backend merge-news] 8 (#$ . 41767) nil]) #@209 Return name of backup file for revision REV of FILE. If version backups should be used for FILE, and there exists such a backup for REV or the working revision of file, return its name; otherwise return nil. (defalias 'vc-version-backup-file #[(file &optional rev) "\303\304!\305#\205' \306 \"\307\n!\203 \n\202& \306 \310#\307\n!\205& \n)\207" [file rev backup-file vc-call-backend vc-backend make-version-backups-p vc-version-backup-file-name file-exists-p manual] 4 (#$ . 42912)]) #@70 Revert FILE back to the repository working revision it was based on. (defalias 'vc-revert-file #[(file) "\306C\307 !\211\203 \310\n \311\312$\210\313 !\210\314\315 !\316 \n$\210) C\317\211\203e @\320\321\322\323 !8BD\317 \211 \203] @\211@\211 >\204U \324\325 \"\fA#\210) A\211\204< * A\211\204) +\326 \306\211#\207" [vc-touched-properties file backup-file #1=#:--cl-dolist-temp-- setting #2=#:--cl-dolist-temp-- t vc-version-backup-file copy-file ok-if-already-exists keep-date vc-delete-automatic-version-backups vc-call-backend vc-backend revert nil (vc-state . up-to-date) vc-checkout-time 5 file-attributes put intern vc-resynch-buffer property vc-file-prop-obarray] 8 (#$ . 43409)]) #@361 Make BACKEND the current version control system for FILE. FILE must already be registered in BACKEND. The change is not permanent, only for the current session. This function only changes VC's perspective on FILE, it does not register or unregister it. By default, this command cycles through the registered backends. To get a prompt, use a prefix argument. (defalias 'vc-switch-backend #[(file backend) "\302 !=?\205( \303 !\210\304 \302#\210\305\306 #\204% \303 !\210\307\310 #\210\311 !\207" [backend file vc-backend vc-file-clearprops vc-file-setprop vc-call-backend registered error "%s is not registered in %s" vc-mode-line] 4 (#$ . 44121) (list (or buffer-file-name (error "There is no version-controlled file in this buffer")) (let ((crt-bk (vc-backend buffer-file-name)) (backends nil)) (unless crt-bk (error "File %s is not under version control" buffer-file-name)) (dolist (crt vc-handled-backends) (when (and (vc-call-backend crt 'registered buffer-file-name) (not (eq crt-bk crt))) (push crt backends))) (let ((def (car backends)) (others backends)) (cond ((null others) (error "No other backend to switch to")) (current-prefix-arg (intern (upcase (completing-read (format "Switch to backend [%s]: " def) (mapcar (lambda (b) (list (downcase (symbol-name b)))) backends) nil t nil nil (downcase (symbol-name def)))))) (t def)))))]) #@541 Transfer FILE to another version control system NEW-BACKEND. If NEW-BACKEND has a higher precedence than FILE's current backend (i.e. it comes earlier in `vc-handled-backends'), then register FILE in NEW-BACKEND, using the revision number from the current backend as the base level. If NEW-BACKEND has a lower precedence than the current backend, then commit all changes that were made under the current backend to NEW-BACKEND, and unregister FILE from the current backend. (If FILE is not yet registered under NEW-BACKEND, register it.) (defalias 'vc-transfer-file #[(file new-backend) "\306!\307!\310>\311 \304#\211 \205 >>\206 \312\313! #\314 $ =\2030 \315\316 #\210\f\203A \317\320\321!\322\"\"\210\202\216 \323 \"\210\324! %\n\205R \325!\211 &\205[ \326! '\327\216&\203\205 \330&\331#\210'\203{ \330'\331\332$\210\202\205 \312\333!\203\205 \334!\210\311 \335%$\210,#\203\245 \323 \"\210\311 \336#$\311 \337#\210\323 \"\210#\204\263 \n\205\306 \340\307\302#\210\341!\210\342 \314$\211;%-\207" [file old-backend edited new-backend registered vc-handled-backends vc-backend vc-state (edited needs-merge) vc-call-backend y-or-n-p "Final transfer? " nil error "%s is the current backend of %s" set-file-modes logior file-modes 128 vc-switch-backend vc-working-revision make-temp-file vc-version-backup-file ((byte-code "\203% \303 \n\"\210\304\n C\"\305=\204 \306 \307\310#\210\311 \312#\210\313 \314\310#\210\310\207" [modified-file file new-backend vc-switch-backend vc-checkout-model implicit vc-checkout t nil rename-file ok-if-already-exists vc-file-setprop vc-checkout-time] 4)) copy-file ok-if-already-exists keep-date "Get base revision from master? " vc-revert-file receive-file comment-history unregister vc-file-setprop vc-mode-line vc-checkin move comment rev modified-file unmodified-file] 7 (#$ . 45478)]) #@72 Rename OLDMASTER to be the master file for NEWFILE based on TEMPLATES. (defalias 'vc-rename-master #[(oldmaster newfile templates) "\306\307!!\306\n!\206 \310\311\n! \312\313 \" \314!\204& \314\306!!\203* \315\316!\210\317\320\321\215\",\207" [oldmaster dir newfile newdir newbase templates file-name-directory expand-file-name "" file-name-nondirectory mapcar #[(s) "\303 \n#\207" [s newdir newbase vc-possible-master] 4] file-symlink-p error "This is unsafe in the presence of symbolic links" rename-file found (byte-code "\305\211\203% \n@\211\203 \306\307 !! \230\203 \310\311 \"\210\nA\211\204 *\305\211 \203O \f@\211\203H \306 !\211\203C \312 !\203H \310\311 \"\210\fA\211\204. *\313\314!\207" [masters f #1=#:--cl-dolist-temp-- dir #2=#:--cl-dolist-temp-- nil file-name-directory expand-file-name throw found file-directory-p error "New file lacks a version control directory"] 4) masters] 4 (#$ . 47347)]) #@64 Delete file and mark it as such in the version control system. (defalias 'vc-delete-file #[(file) "\306!\307!\310! \204 \311\312\313!\"\210\314 \315\"\204# \311\316 \"\210\n\2032 \317\n!\2032 \311\320\"\210\321!\211\322=\203A \311\323\"\210 \324=\203L \311\325\"\210)\326\327\330\313!\"!\204\\ \311\331!\210\332!\204| \f\203| \333!\203| r\n\206t \334!q\210\335 \336 \210*\337! $\340 \315#\210)\333!\203\222 \315!\210\341!\210\342\335\343#*\207" [file backend buf state make-backup-files backup-inhibited expand-file-name get-file-buffer vc-backend error "File %s is not under version control" file-name-nondirectory vc-find-backend-function delete-file "Deleting files under %s is not supported in VC" buffer-modified-p "Please save or undo your changes before deleting %s" vc-state edited "Please commit or undo your changes before deleting %s" conflict "Please resolve the conflicts before deleting %s" y-or-n-p format "Really want to delete %s? " "Abort!" file-directory-p file-exists-p find-file-noselect nil backup-buffer file-name-directory vc-call-backend vc-file-clearprops vc-resynch-buffer t default-directory] 6 (#$ . 48289) "fVC delete file: "]) #@62 Rename file OLD to NEW, and rename its master file likewise. (defalias 'vc-rename-file #[(old new) "\306!\211\307\230\204 \306\n!\307\230\203 \n P)\310!\211\203) \311 !\203) \312\313!\210\310\n!\2033 \312\314!\210\315\n!\203= \312\316!\210\317!\211 \320>\204U \312\321\f;\203R \322\202S \323\"\210)\324\325!\326\n$\210\327!\210\315!\203n \326\n\"\210 \205\211 r q\210 \330\n!\210)\325\n!\210\331\n!\210\332\333!))\207" [old old-base new oldbuf state buffer-read-only file-name-nondirectory "" get-file-buffer buffer-modified-p error "Please save files before moving them" "Already editing new file name" file-exists-p "New file already exists" vc-state (up-to-date edited) "Please %s files before moving them" "check in" "update" vc-call-backend vc-backend rename-file vc-file-clearprops set-visited-file-name vc-mode-line set-buffer-modified-p nil] 6 (#$ . 49476) "fVC rename file: \nFRename to: "]) #@548 Find change log file and add entries from recent version control logs. Normally, find log entries for all registered files in the default directory. With prefix arg of \[universal-argument], only find log entries for the current buffer's file. With any numeric prefix arg, find log entries for all currently visited files that are under version control. This puts all the entries in the log for the default directory, which may not be appropriate. From a program, any ARGS are assumed to be filenames for which log entries should be gathered. (defalias 'vc-update-change-log #[(&rest args) "\302\303!\304 #\207" [default-directory args vc-call-backend vc-responsible-backend update-changelog] 4 (#$ . 50398) (byte-code ":\203 C\207\2034 \305\306 \305 \2031 \301 @!\211\203* \307\n!\203* \n\fB A\211\204 \f+\207\305\207" [current-prefix-arg buffer-file-name file buffers files nil buffer-list vc-backend] 4)]) #@45 Return t if REV is a revision on the trunk. (defalias 'vc-trunk-p #[(rev) "\301\302\"\303=?\207" [rev string-match "\\`[0-9]+\\.[0-9]+\\'" nil] 3 (#$ . 51329)]) #@39 Return t if REV is a branch revision. (defalias 'vc-branch-p #[(rev) "\301\302\"\303=?\207" [rev string-match "\\`[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*\\'" nil] 3 (#$ . 51497)]) #@50 Return the branch part of a revision number REV. (defalias 'vc-branch-part #[(rev) "\302\303\"\211\205 \304 O)\207" [rev index string-match "\\.[0-9]+\\'" 0] 4 (#$ . 51676)]) #@60 Return the minor revision number of a revision number REV. (defalias 'vc-minor-part #[(rev) "\301\302\"\210\303\224\303\225O\207" [rev string-match "[0-9]+\\'" 0] 3 (#$ . 51861)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-default-previous-version vc-default-previous-revision nil make-obsolete "23.1"] 4) #@203 Return the revision number immediately preceding REV for FILE, or nil if there is no previous revision. This default implementation works for MAJOR.MINOR-style revision numbers as used by RCS and CVS. (defalias 'vc-default-previous-revision #[(backend file rev) "\303!\304\305!!\211\205( \306V\203 \n\307\310 S!Q\202( \311!?\205( \303\n!*\207" [rev minor-num branch vc-branch-part string-to-number vc-minor-part 1 "." number-to-string vc-trunk-p] 5 (#$ . 52202)]) #@199 Return the revision number immediately following REV for FILE, or nil if there is no next revision. This default implementation works for MAJOR.MINOR-style revision numbers as used by RCS and CVS. (defalias 'vc-default-next-revision #[(backend file rev) "\304 !\230?\205 \305!\306\307!!\211\310\311\nT!Q*\207" [rev file minor-num branch vc-working-revision vc-branch-part string-to-number vc-minor-part "." number-to-string] 5 (#$ . 52681)]) #@87 Indicate whether BACKEND is reponsible for FILE. The default is to return nil always. (defalias 'vc-default-responsible-p #[(backend file) "\300\207" [nil] 1 (#$ . 53136)]) #@111 Return non-nil if BACKEND could be used to register FILE. The default implementation returns t for all files. (defalias 'vc-default-could-register #[(backend file) "\300\207" [t] 1 (#$ . 53316)]) #@181 Return non-nil if FILE is the latest on its branch. This default implementation always returns non-nil, which means that editing non-current revisions is not supported by default. (defalias 'vc-default-latest-on-branch-p #[(backend file) "\300\207" [t] 1 (#$ . 53519)]) (defalias 'vc-default-init-revision #[(backend) "\207" [vc-default-init-revision] 1]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias vc-cvs-update-changelog vc-update-changelog-rcs2log vc-rcs-update-changelog] 3) #@94 Default implementation of update-changelog. Uses `rcs2log' which only works for RCS and CVS. (defalias 'vc-update-changelog-rcs2log #[(files) "\306 \307\310\311 \206 \n\"! \206 \312\313\314\315 !\"\f\206- \316 \206- \303 \206- \312\313\314\315 !\" \2063 * + , - . / 0\317/!\210\320 \210\321 \210\322 \210eb\210\323 \210\324\325!\210\324\326\327\2160\330\331\310\3321\"\333\334.D\333\335/\336-\337,\337+\260\340\3412\"&\n\342=\203\211 \343\202\230 \344\345\346!!\210\347 \210\350.!\210\351)\".\207" [default-directory small-temporary-file-directory temporary-file-directory user-login-name add-log-full-name add-log-mailing-address find-change-log make-temp-file expand-file-name "vc" format "uid%d" number-to-string user-uid user-full-name find-file-other-window barf-if-buffer-read-only vc-buffer-sync undo-boundary push-mark message "Computing change log entries..." "Computing change log entries... %s" ((byte-code "\303!\304\n!\207" [changelog default-directory tempfile file-name-directory delete-file] 2)) apply call-process "rcs2log" nil t "-c" "-u" " " mapcar #[(f) "\302\303 \"!\207" [f odefault file-relative-name expand-file-name] 4] 0 "done" pop-to-buffer get-buffer-create "*vc*" erase-buffer insert-file-contents "failed" user-mail-address mailing-address full-name login-name tempfile changelog odefault exec-directory files] 16 (#$ . 54022)]) #@192 Provide the new `find-revision' op based on the old `checkout' op. This is only for compatibility with old backends. They should be updated to provide the `find-revision' operation instead. (defalias 'vc-default-find-revision #[(backend file rev buffer) "\305\306!!\307\216\310\n\311\312 &\210r\fq\210\313 !+\207" [file tmpfile backend rev buffer make-temp-file expand-file-name ((delete-file tmpfile)) vc-call-backend checkout nil insert-file-contents-literally] 7 (#$ . 55408)]) (defalias 'vc-default-prettify-state-info #[(backend file) "\305!\211;\203 \306 \307Q\202d \310=\203 \311\202d \312=\203$ \313\202d \314=\203. \315\202d \316=\2038 \317\202d \320=\203B \321\202d \322=\203L \323\202d \324=\203V \325\202d \326=\203` \327\202d \330\331 \"\332!\211\203w \333 !\203w \334\202x \335 \n\fP,\207" [file state statestring buffer modflag vc-state "(locked:" ")" edited "(modified)" needs-merge "(merge)" needs-update "(update)" added "(added)" removed "(removed)" ignored "(ignored)" unregistered "(unregistered)" unlocked-changes "(stale)" format "(unknown:%s)" get-file-buffer buffer-modified-p "+" ""] 4]) (defalias 'vc-default-rename-file #[(backend old new) "\302\303\304\217\210\305!\210r\306 !q\210\307 )\207" [old new nil (add-name-to-file old new) ((error (rename-file old new))) vc-delete-file find-file-noselect vc-register] 3]) (defalias 'vc-default-check-headers 'ignore) (defalias 'vc-default-log-view-mode #[(backend) "\300 \207" [log-view-mode] 1]) (defalias 'vc-default-show-log-entry #[(backend rev) "\301!\207" [rev log-view-goto-rev] 2]) #@66 Return a string with all log entries stored in BACKEND for FILE. (defalias 'vc-default-comment-history #[(backend file) "\302\303\"\205 r\304q\210\305\303 C#\210\306 )\207" [backend file vc-find-backend-function print-log "*vc*" vc-call-backend buffer-string] 4 (#$ . 57000)]) #@63 Let BACKEND receive FILE from another version control system. (defalias 'vc-default-receive-file #[(backend file rev) "\303\304 C\n\305%\207" [backend file rev vc-call-backend register ""] 6 (#$ . 57286)]) (defalias 'vc-default-retrieve-tag #[(backend dir name update) "\304\230\203 \305 \306\"\207\307 !\211;\203 \310\311\n\"\202' \n\312=\205\" \305 \313\")\207" [name dir result update #1="" vc-file-tree-walk #[(f) "\302 !)\303=\205 \304\305\306\217\207" [f file vc-state up-to-date nil (byte-code "\303\304 \305\306%\210\n\203 \307 \310\211#\210\305\207" [backend f update vc-call-backend checkout nil #1# vc-resynch-buffer t] 6) ((error t))] 3] vc-tag-precondition error "File %s is locked" visited #[(f) "\300\301\302\217\207" [nil (byte-code "\304\305 \306\n%\210 \203 \307 \310\211#\210\306\207" [backend f name update vc-call-backend checkout nil vc-resynch-buffer t] 6) ((error t))] 3]] 4]) (defalias 'vc-default-revert #[(backend file contents-done) "?\205 \306 !\307 !\206 p\310\311 \"\210\312\313 !@ \f\2038 \314 \f\315\316$\210\317 !\2048 \320 \321\322 !\323\"\"\210\324\216\325\211 ! \" \326\327\330!! # $\331\216r#q\210p %r\nq\210\332 ! &\333'\334 %%\210,r#q\210\335\336\211$\336\337%\210,\336-\310\340 \"*\207" [contents-done file file-buffer rev backup-name failed vc-working-revision get-file-buffer message "Checking out %s..." t find-backup-file-name copy-file ok-if-already-exists keep-date file-writable-p set-file-modes logior file-modes 128 ((byte-code "\203 \203 \304\n\305#\210\202 \204 \306!\210\304\207" [backup-name failed file vc-make-backup-files rename-file ok-if-already-exists delete-file] 4)) no-conversion get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) file-name-directory vc-call-backend find-revision write-region nil 0 "Checking out %s...done" coding-system-for-write coding-system-for-read #1# #2=#:temp-file outbuf default-directory backend] 6]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias vc-default-revision-completion-table ignore vc-default-mark-resolved] 3) (defalias 'vc-default-dir-status-files #[(backend dir files default-state update-function) "\302\303 \"!\207" [update-function files mapcar #[(file) " D\207" [file default-state] 2]] 4]) #@50 Check if the current file has any headers in it. (defalias 'vc-check-headers #[nil "\301\302!\303\"\207" [buffer-file-name vc-call-backend vc-backend check-headers] 3 (#$ . 59642) nil]) (defalias 'vc-string-prefix-p #[(prefix string) "G\nG Y\205 \303\304\211\n\304 &\305=)\207" [prefix lpref string compare-strings nil t] 7]) #@95 Walk recursively through DIRNAME. Invoke FUNC f ARGS on each VC-managed file f underneath it. (defalias 'vc-file-tree-walk #[(dirname func &rest args) "\303\304! \n#\210\305\306\"\207" [dirname func args vc-file-tree-walk-internal expand-file-name message "Traversing directory %s...done"] 4 (#$ . 59980)]) (defalias 'vc-file-tree-walk-internal #[(file func args) "\304!\204 \305!\205$ \306 \n#\207\307\310\311!\"\210\312!\313\314\315 !\")\207" [file func args dir file-directory-p vc-backend apply message "Traversing directory %s..." abbreviate-file-name file-name-as-directory mapcar #[(f) "\306\230\206# \307\230\206# \235\206# \310\n\"\311 !\206\" \312 \f #)\207" [f vc-directory-exclusion-list dir dirf func args "." ".." expand-file-name file-symlink-p vc-file-tree-walk-internal] 4] directory-files] 4]) (provide 'vc)
Close
