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-hooks.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:24 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/vc-hooks.el ;;; in Emacs version 23.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-hooks.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301\306\307#\210\310B\302\310!\204$ \303\310\304\"\210\305\310\311\307#\210\312B\302\312!\2049 \303\312\304\"\210\305\312\313\307#\207" [current-load-list vc-ignore-vc-files default-boundp set-default nil make-obsolete-variable "set `vc-handled-backends' to nil to disable VC." "21.1" vc-master-templates "to define master templates for a given BACKEND, use\nvc-BACKEND-master-templates. To enable or disable VC for a given\nBACKEND, use `vc-handled-backends'." vc-header-alist vc-BACKEND-header] 4) #@223 Regexp matching directory names that are not under VC's control. The default regexp prevents fruitless and time-consuming attempts to determine the VC status in directories in which filenames are interpreted as hostnames. (custom-declare-variable 'vc-ignore-dir-regexp 'locate-dominating-stop-dir-regexp '(#$ . 1168) :type 'regexp :group 'vc) #@321 List of version control backends for which VC will be used. Entries in this list will be tried in order to determine whether a file is under that sort of version control. Removing an entry from the list prevents VC from being activated when visiting a file managed by that backend. An empty list disables VC altogether. (custom-declare-variable 'vc-handled-backends ''(RCS CVS SVN SCCS Bzr Git Hg Mtn Arch) '(#$ . 1518) :type '(repeat symbol) :version "23.1" :group 'vc) #@69 List of directory names to be ignored when walking directory trees. (custom-declare-variable 'vc-directory-exclusion-list ''("SCCS" "RCS" "CVS" "MCVS" ".svn" ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch}") '(#$ . 1995) :type '(repeat string) :group 'vc) #@67 List of extra directories to search for version control commands. (custom-declare-variable 'vc-path 'nil '(#$ . 2253) :type '(repeat directory) :group 'vc) #@145 If non-nil, backups of registered files are made as with other files. If nil (the default), files covered by version control don't get backups. (custom-declare-variable 'vc-make-backup-files 'nil '(#$ . 2416) :type 'boolean :group 'vc :group 'backup) #@438 What to do if visiting a symbolic link to a file under version control. Editing such a file through the link bypasses the version control system, which is dangerous and probably not what you want. If this variable is t, VC follows the link and visits the real file, telling you about it in the echo area. If it is `ask', VC asks for confirmation whether it should follow the link. If nil, the link is visited and a warning displayed. (custom-declare-variable 'vc-follow-symlinks ''ask '(#$ . 2674) :type '(choice (const :tag "Ask for confirmation" ask) (const :tag "Visit link and warn" nil) (const :tag "Follow link" t)) :group 'vc) #@92 If non-nil, display revision number and lock status in modeline. Otherwise, not displayed. (custom-declare-variable 'vc-display-status 't '(#$ . 3317) :type 'boolean :group 'vc) #@67 If non-nil, identify work files by searching for version headers. (custom-declare-variable 'vc-consult-headers 't '(#$ . 3501) :type 'boolean :group 'vc) #@156 If non-nil, don't delete working files after registering changes. If the back-end is CVS, workfiles are always kept, regardless of the value of this flag. (custom-declare-variable 'vc-keep-workfiles 't '(#$ . 3662) :type 'boolean :group 'vc) #@154 If non-nil, don't assume permissions/ownership track version-control status. If nil, do rely on the permissions. See also variable `vc-consult-headers'. (custom-declare-variable 'vc-mistrust-permissions 'nil '(#$ . 3911) :type 'boolean :group 'vc) #@74 Internal access function to variable `vc-mistrust-permissions' for FILE. (defalias 'vc-mistrust-permissions #[(file) "\302=\206 \205 \303 !!\207" [vc-mistrust-permissions file t vc-backend-subdirectory-name] 3 (#$ . 4165)]) #@729 Non-nil means use local operations when possible for remote repositories. This avoids slow queries over the network and instead uses heuristics and past information to determine the current status of a file. If value is the symbol `only-file' `vc-dir' will connect to the server, but heuristics will be used to determine the status for all other VC operations. The value can also be a regular expression or list of regular expressions to match against the host name of a repository; then VC only stays local for hosts that match it. Alternatively, the value can be a list of regular expressions where the first element is the symbol `except'; then VC always stays local except for hosts matched by these regular expressions. (custom-declare-variable 'vc-stay-local ''only-file '(#$ . 4401) :type '(choice (const :tag "Always stay local" t) (const :tag "Only for file operations" only-file) (const :tag "Don't stay local" nil) (list :format "\nExamine hostname and %v" :tag "Examine hostname ..." (set :format "%v" :inline t (const :format "%t" :tag "don't" except)) (regexp :format " stay local,\n%t: %v" :tag "if it matches") (repeat :format "%v%i\n" :inline t (regexp :tag "or")))) :version "23.1" :group 'vc) #@205 Return non-nil if VC should stay local when handling FILE. This uses the `repository-hostname' backend operation. If FILE is a list of files, return non-nil if any of them individually should stay local. (defalias 'vc-stay-local-p #[(file) "<\203 \306\307\310\311\"\"\207\312!\313 \304\"\314\n!\203! \nJ\202\" \211 9\203, \f\202\216 \315!\2038 \316!\202; \317! \320 \311\"\206\213 \321 \311\322 \323 #\211 \204U \324\202\211 \325 \f\242\326=\203e \307 \fA\f:\203p \327\330\f\331#\332\f \"\203} \202\200 ?\203\207 \333\202\210 \324))#)\333=+\207" [file backend sym vc-stay-local stay-local dirname delq nil mapcar vc-stay-local-p vc-backend vc-make-backend-sym boundp file-directory-p directory-file-name file-name-directory vc-file-getprop vc-file-setprop vc-call-backend repository-hostname no t except mapconcat identity "\\|" string-match yes hostname default] 8 (#$ . 5623)]) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local vc-mode put permanent-local t] 4) #@266 Version Control minor mode. This minor mode is automatically activated whenever you visit a file under control of one of the revision control systems in `vc-handled-backends'. VC commands are globally reachable under the prefix `\[vc-prefix-map]': \{vc-prefix-map} (defalias 'vc-mode #[(&optional arg) "\300\207" ["Version Control minor mode.\nThis minor mode is automatically activated whenever you visit a file under\ncontrol of one of the revision control systems in `vc-handled-backends'.\nVC commands are globally reachable under the prefix `\\[vc-prefix-map]':\n\\{vc-prefix-map}"] 1 (#$ . 6640)]) (defalias 'vc-error-occurred '(macro . #[(&rest body) "\301\302\303\304\305\"B\306BBB\207" [body condition-case nil progn append (nil) ((error t))] 6])) #@34 Obarray for per-file properties. (defvar vc-file-prop-obarray (make-vector 17 0) (#$ . 7404)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list vc-touched-properties default-boundp set-default nil] 3) #@45 Set per-file VC PROPERTY for FILE to VALUE. (defalias 'vc-file-setprop #[(file property value) "\203 >\204 \305 C\"\306\307\n \" \f#\207" [vc-touched-properties property file vc-file-prop-obarray value append put intern] 4 (#$ . 7642)]) #@36 Get per-file VC PROPERTY for FILE. (defalias 'vc-file-getprop #[(file property) "\303 \"\nN\207" [file vc-file-prop-obarray property intern] 3 (#$ . 7892)]) #@34 Clear all VC properties of FILE. (defalias 'vc-file-clearprops #[(file) "\302\303 \"\304\"\207" [file vc-file-prop-obarray setplist intern nil] 4 (#$ . 8056)]) #@51 Return BACKEND-specific version of VC symbol SYM. (defalias 'vc-make-backend-sym #[(backend sym) "\302\303\304!\227\305\304 !R!\207" [backend sym intern "vc-" symbol-name "-"] 6 (#$ . 8223)]) #@161 Return BACKEND-specific implementation of FUN. If there is no such implementation, return the default implementation; if that doesn't exist either, return nil. (defalias 'vc-find-backend-function #[(backend fun) "\304 \"\305\n!\203 \n\2023 \306\307\310\311!\227P!!\210\305\n!\203$ \n\2023 \304\312 \"\305 !\2052 B))\207" [backend fun f def vc-make-backend-sym fboundp require intern "vc-" symbol-name default] 5 (#$ . 8423)]) #@288 Call for BACKEND the implementation of FUNCTION-NAME with the given ARGS. Calls (apply 'vc-BACKEND-FUN ARGS) if vc-BACKEND-FUN exists (after trying to find it in vc-BACKEND.el) and else calls (apply 'vc-default-FUN BACKEND ARGS) It is usually called via the `vc-call' macro. (defalias 'vc-call-backend #[(backend function-name &rest args) "\304 \305N\"\211\203 \nA\202\" \306 \"\307 \305\nB \305NB#\210\n\204. \310\311 #\202A \n:\203= \312\n@\nA #\202A \312\n \")\207" [function-name backend f args assoc vc-functions vc-find-backend-function put error "Sorry, %s is not implemented for %s" apply] 7 (#$ . 8863)]) #@227 A convenience macro for calling VC backend functions. Functions called by this macro must accept FILE as the first argument. ARGS specifies any additional arguments. FUN should be unquoted. BEWARE!! FILE is evaluated twice!! (defalias 'vc-call '(macro . #[(fun file &rest args) "\303\304D\305 D\nBBBB\207" [file fun args vc-call-backend vc-backend quote] 5 (#$ . 9504)])) #@65 Find PATTERN in the current buffer and return its Ith submatch. (defalias 'vc-parse-buffer #[(pattern i) "eb\210\302\303\304#\205 \305 !\207" [pattern i re-search-forward nil t match-string] 4 (#$ . 9885)]) (put 'vc-parse-buffer 'byte-optimizer 'byte-compile-inline-expand) #@395 Insert the contents of FILE into the current buffer. Optional argument LIMIT is a regexp. If present, the file is inserted in chunks of size BLOCKSIZE (default 8 kByte), until the first occurrence of LIMIT is found. Anything from the start of that occurrence to the end of the buffer is then deleted. The function returns non-nil if FILE exists and its contents were successfully inserted. (defalias 'vc-insert-file #[(file &optional limit blocksize) "\306 \210\307!\205M \204 \310!\210\202H \n\204 \311\312\312\310\313 \211\n\\\211$\211 A@)W\203G \314 \210\315 \313\316#\211 \203B \312\224d|\210 )\203 )\317\313!\210\320\207" [file limit blocksize filepos x pos erase-buffer file-exists-p insert-file-contents 8192 0 nil beginning-of-line re-search-forward move set-buffer-modified-p t] 8 (#$ . 10168)]) #@177 Find the root of a checked out project. The function walks up the directory tree from FILE looking for WITNESS. If WITNESS if not found, return nil, otherwise return the root. (defalias 'vc-find-root #[(file witness) "\206 \304\n \")\207" [vc-ignore-dir-regexp locate-dominating-stop-dir-regexp file witness locate-dominating-file] 3 (#$ . 10994)]) #@292 Return non-nil if FILE is registered in a version control system. This function performs the check each time it is called. To rely on the result of a previous call, use `vc-backend' instead. If the file was previously registered under a certain backend, then that backend is tried first. (defalias 'vc-registered #[(file) "\303\304 !\203 \305\n\304 !\"\203 \303\202. \306\307!\203+ \310 \311\"\211\203+ \311 \"\202. \312\313\215)\207" [handler file vc-ignore-dir-regexp nil file-name-directory string-match boundp file-name-handler-alist find-file-name-handler vc-registered found (byte-code "\303\304\"\305\306 \203 \307=\203 \n\202 \nB\"\210)\310\304\307#\210\311\207" [file backend vc-handled-backends vc-file-getprop vc-backend mapc #[(b) "\302\303 #\205 \304 \305#\205 \306\307\310\"\207" [b file vc-call-backend registered vc-file-setprop vc-backend throw found t] 4] none vc-file-setprop nil] 4)] 4 (#$ . 11354)]) #@148 Return the version control type of FILE-OR-LIST, nil if it's not registered. If the argument is a list, the files must all have the same back end. (defalias 'vc-backend #[(file-or-list) ";\203$ \302\303\"\211\304=\203 \305\202\" \206\" \306!\205\" \302\303\")\207\2032 <\2032 \303@!\207\305\207" [file-or-list property vc-file-getprop vc-backend none nil vc-registered] 4 (#$ . 12302)]) #@76 Return where the master and lock FILEs for the current directory are kept. (defalias 'vc-backend-subdirectory-name #[(file) "\301\302!!\207" [file symbol-name vc-backend] 3 (#$ . 12705)]) #@109 Return the master name of FILE. If the file is not registered, or the master name is not known, return nil. (defalias 'vc-name #[(file) "\302\303\"\206 \304!\211\205 \305 \306#\205 \302\303\")\207" [file backend vc-file-getprop vc-name vc-backend vc-call-backend registered] 5 (#$ . 12901)]) #@616 Indicate how FILES are checked out. If FILES are not registered, this function always returns nil. For registered files, the possible values are: 'implicit FILES are always writable, and checked out `implicitly' when the user saves the first changes to the file. 'locking FILES are read-only if up-to-date; user must type \[vc-next-action] before editing. Strict locking is assumed. 'announce FILES are read-only if up-to-date; user must type \[vc-next-action] before editing. But other users may be editing at the same time. (defalias 'vc-checkout-model #[(backend files) "\302\303 #\207" [backend files vc-call-backend checkout-model] 4 (#$ . 13208)]) #@63 Return the name under which the user accesses the given FILE. (defalias 'vc-user-login-name #[(file) "\304 \"\305=\203, \306 !\307\310!r q\210\311\216\312\313\314\315\316#!\205( dSd|\210\317 ,\2065 \320 \2065 \321\322 !\207" [tramp-file-name-regexp file default-directory #1=#:temp-buffer string-match 0 file-name-directory generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) zerop process-file "whoami" nil t buffer-string user-login-name number-to-string user-uid] 5 (#$ . 13958)]) #@2784 Return the version control state of FILE. If FILE is not registered, this function always returns nil. For registered files, the value returned is one of: 'up-to-date The working file is unmodified with respect to the latest version on the current branch, and not locked. 'edited The working file has been edited by the user. If locking is used for the file, this state means that the current version is locked by the calling user. USER The current version of the working file is locked by some other USER (a string). 'needs-update The file has not been edited by the user, but there is a more recent version on the current branch stored in the master file. 'needs-merge The file has been edited by the user, and there is also a more recent version on the current branch stored in the master file. This state can only occur if locking is not used for the file. 'unlocked-changes The working version of the file is not locked, but the working file has been changed with respect to that version. This state can only occur for files with locking; it represents an erroneous condition that should be resolved by the user (vc-next-action will prompt the user to do it). 'added Scheduled to go into the repository on the next commit. Often represented by vc-working-revision = "0" in VCSes with monotonic IDs like Subversion and Mercurial. 'removed Scheduled to be deleted from the repository on next commit. 'conflict The file contains conflicts as the result of a merge. For now the conflicts are text conflicts. In the future this might be extended to deal with metadata conflicts too. 'missing The file is not present in the file system, but the VC system still tracks it. 'ignored The file showed up in a dir-status listing with a flag indicating the version-control system is ignoring it, Note: This property is not set reliably (some VCSes don't have useful directory-status commands) so assume that any file with vc-state nil might be ignorable without VC knowing it. 'unregistered The file is not under version control. A return of nil from this function means we have no information on the status of this file. (defalias 'vc-state #[(file) "\302\303\"\206 G\304V\205 \305!\211\205 \306\303\307 \310##)\207" [file backend vc-file-getprop vc-state 0 vc-backend vc-file-setprop vc-call-backend state-heuristic] 8 (#$ . 14511)]) #@78 Convenience function that checks whether `vc-state' of FILE is `up-to-date'. (defalias 'vc-up-to-date-p #[(file) "\301!\302=\207" [file vc-state up-to-date] 2 (#$ . 17523)]) (put 'vc-up-to-date-p 'byte-optimizer 'byte-compile-inline-expand) #@168 Default implementation of vc-BACKEND-state-heuristic. It simply calls the real state computation function `vc-BACKEND-state' and does not employ any heuristic at all. (defalias 'vc-default-state-heuristic #[(backend file) "\302\303 #\207" [backend file vc-call-backend state] 4 (#$ . 17772)]) #@65 Return non-nil if FILE has not changed since the last checkout. (defalias 'vc-workfile-unchanged-p #[(file) "\304\305\"\306\307!8\211\203 \310\232\204 \n \232\2023 \311\312!\313#\314\305 \203. \202/ \315#\210 )*\207" [file lastmod checkout-time unchanged vc-file-getprop vc-checkout-time 5 file-attributes (0 0) vc-call-backend vc-backend workfile-unchanged-p vc-file-setprop 0] 5 (#$ . 18072)]) #@104 Check if FILE is unchanged by diffing against the master version. Return non-nil if FILE is unchanged. (defalias 'vc-default-workfile-unchanged-p #[(backend file) "\300\301\302\303\217!\207" [zerop err (byte-code "\302\303 C\304\211\305&\207" [backend file vc-call-backend diff nil "*vc*"] 7) ((wrong-number-of-arguments (byte-code "\211A@)\304\305\n\306\"!=\203 \211AA)@\307=\204# \310@A\"\207\311\n\306 C#\207" [err x backend file indirect-function vc-find-backend-function diff 4 signal vc-call-backend] 6)))] 4 (#$ . 18487)]) #@125 Return the repository version from which FILE was checked out. If FILE is not registered, this function always returns nil. (defalias 'vc-working-revision #[(file) "\302\303\"\206 \304!\211\205 \305\303\306 \307##)\207" [file backend vc-file-getprop vc-working-revision vc-backend vc-file-setprop vc-call-backend working-revision] 8 (#$ . 19033)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-workfile-version vc-working-revision nil make-obsolete "23.1"] 4) (defalias 'vc-default-working-revision #[(backend file) "\302\303!\210\304\305 #\207" [backend file message "`working-revision' not found: using the old `workfile-version' instead" vc-call-backend workfile-version] 4]) #@75 Check if FILE is registered in BACKEND using vc-BACKEND-master-templates. (defalias 'vc-default-registered #[(backend file) "\305\306\"\307N\204 \310\307\311#\210 \312\313\314\315\316\n\"\" J\"L\210\317 J\"\211 ;\205/ \320 \321\f#*\207" [backend sym vc-master-templates file result vc-make-backend-sym master-templates vc-templates-grabbed put t append delq nil mapcar #[(template) ":\205 A =\205 @\207" [template backend] 2] vc-check-master-templates vc-file-setprop vc-name] 8 (#$ . 19749)]) (defalias 'vc-possible-master #[(s dirname basename) ";\203 \304 \n#\207\305!\205! \306\307\215\211:\203 @\202 )\207" [s dirname basename result format functionp found (funcall s dirname basename)] 5]) #@651 Return non-nil if there is a master corresponding to FILE. TEMPLATES is a list of strings or functions. If an element is a string, it must be a control string as required by `format', with two string placeholders, such as "%sRCS/%s,v". The directory part of FILE is substituted for the first placeholder, the basename of FILE for the second. If a file with the resulting name exists, it is taken as the master of FILE, and returned. If an element of TEMPLATES is a function, it is called with the directory part and the basename of FILE as arguments. It should return non-nil if it finds a master; that value is then returned by this function. (defalias 'vc-check-master-templates #[(file templates) "\303!\206 \304\305!\306\307\215*\207" [file basename dirname file-name-directory "" file-name-nondirectory found (mapcar #[(s) "\305 \n#\211\205' \306 !\205' \307 !\230\203# \310\f!\310 !\232?\205' \311\312 \")\207" [s dirname basename trial file vc-possible-master file-exists-p file-name-directory file-attributes throw found] 5] templates)] 3 (#$ . 20472)]) #@476 Change read-only status of current buffer, perhaps via version control. If the buffer is visiting a file registered with version control, throw an error, because this is not a safe or really meaningful operation on any version-control system newer than RCS. Otherwise, just change the read-only flag of the buffer. If you bind this function to \[toggle-read-only], then Emacs will properly intercept all attempts to toggle the read-only flag on version-controlled buffer. (defalias 'vc-toggle-read-only #[(&optional verbose) "\301!\203\n \302\303!\207\304 \207" [buffer-file-name vc-backend error "Toggling the readability of a version controlled file is likely to wreak havoc." toggle-read-only] 2 (#$ . 21555) "P"]) #@111 Return non-nil if unmodified versions should be backed up locally. The default is to switch off this feature. (defalias 'vc-default-make-version-backups-p #[(backend file) "\300\207" [nil] 1 (#$ . 22284)]) #@275 Return a backup file name for REV or the current version of FILE. If MANUAL is non-nil it means that a name for backups created by the user should be returned; if REGEXP is non-nil that means to return a regexp for matching all such backup files, regardless of the version. (defalias 'vc-version-backup-file-name #[(file &optional rev manual regexp) "\203 \304\305 !!\306\n?\205 \307\310R\207\311\305 !\312\313\314\315 \206\" \316 !#\n?\205) \317\310\260\320 !\"\207" [regexp file manual rev regexp-quote file-name-nondirectory "\\.~.+" "\\." "~" expand-file-name ".~" subst-char-in-string 47 95 vc-working-revision "." file-name-directory] 8 (#$ . 22497)]) #@57 Delete all existing automatic version backups for FILE. (defalias 'vc-delete-automatic-version-backups #[(file) "\300\301\302\217\207" [nil (byte-code "\302\303\304\305!\206\n \306\307\310\211\306$#\"\207" [file default-directory mapc delete-file directory-files file-name-directory t vc-version-backup-file-name nil] 10) ((file-error))] 3 (#$ . 23165)]) #@150 Make a backup copy of FILE, which is assumed in sync with the repository. Before doing that, check if there are any old backups and get rid of them. (defalias 'vc-make-version-backup #[(file) "\301\302!\205 \302 ??\205 \303!\210\304\305\306\217\207" [file fboundp msdos-long-file-names vc-delete-automatic-version-backups nil (byte-code "\301\302!\303\304$\207" [file copy-file vc-version-backup-file-name nil keep-date] 5) ((file-error (message "Warning: Cannot make version backup; diff/revert therefore not local")))] 3 (#$ . 23530)]) #@61 Function to be called by `basic-save-buffer' (in files.el). (defalias 'vc-before-save #[nil "\303\303\304\305\217*\207" [buffer-file-name backend file nil (byte-code "\302!\211\205( \303!)\304=\205( \305 C\"\306=\205( \307 \310#\205( \311!\207" [file backend vc-backend vc-state up-to-date vc-checkout-model implicit vc-call-backend make-version-backups-p vc-make-version-backup] 4) ((error))] 3 (#$ . 24079)]) #@61 Function to be called by `basic-save-buffer' (in files.el). (defalias 'vc-after-save #[nil "\304 !\211\205I \305 \306\"\307\310 !8\232\203 \311 \306\312#\210 \313 !)\314=\205I \315\n C\"\316=\205I \311 \313\317#\205I \320 !\205I \321 >\205I \321 !*\207" [buffer-file-name file backend after-save-hook vc-backend vc-file-getprop vc-checkout-time 5 file-attributes vc-file-setprop nil vc-state up-to-date vc-checkout-model implicit edited vc-mode-line vc-dir-resynch-file] 5 (#$ . 24507)]) (byte-code "\302B\304\302!\204 \305\302\306\"\210\307\301!\203 \310 \311\n#\210\312B\313\314 \310 \315\n#\210 )!\207" [current-load-list menu-bar-tools-menu vc-menu-entry map default-boundp set-default (menu-item "Version Control" vc-menu-map :filter vc-menu-map-filter) boundp define-key [vc] vc-mode-line-map (lambda (#1=#:defconst-tmp-var) (defconst vc-mode-line-map #1#)) make-sparse-keymap [mode-line down-mouse-1]] 5) #@215 Set `vc-mode' to display type of version control for FILE. The value is set in the current buffer, which should be the buffer visiting FILE. If BACKEND is passed use it as the VC backend when computing the result. (defalias 'vc-mode-line #[(file &optional backend) "\206 \306 !\211\204 \307\202r \310\311 #\312\313\314 # \315 \204( \316!\202< \317 \320\321\314\f\2065 \322\323\"\324P\325 &P* \232\203P \326 !;\203P \327 \232\203r \204r \330\331 !\203r \330\332\333 !\334\"!\203r \327 \335 \210\207" [backend file vc-mode ml-string ml-echo vc-display-status vc-backend nil vc-call-backend mode-line-string get-text-property 0 help-echo " " symbol-name propertize mouse-face mode-line-highlight format "File under the %s version control system" "\nmouse-1: Version Control menu" local-map vc-state t zerop user-real-uid logand file-modes 128 force-mode-line-update vc-mode-line-map buffer-file-name buffer-read-only] 10 (#$ . 25438) (list buffer-file-name)]) #@318 Return string for placement in modeline by `vc-mode-line' for FILE. Format: "BACKEND-REV" if the file is up-to-date "BACKEND:REV" if the file is edited (or locked by the calling user) "BACKEND:LOCKER:REV" if the file is locked by somebody else This function assumes that the file is registered. (defalias 'vc-default-mode-line-string #[(backend file) "\305!\306 !\307\310 ! \311\f\312=\204 \f\313=\203$ \314\315\nQ\202y \f;\2037 \316\fP\317\f\317\n\260\202y \f\320=\203F \321\322\nQ\202y \f\323=\203U \324\325\nQ\202y \f\326=\203d \327\325\nQ\202y \f\330=\203s \331\332\nQ\202y \333\317\nQ\334 \335\336R#+\207" [backend file rev state-echo state symbol-name vc-state nil vc-working-revision propertize up-to-date needs-update "Up to date file" "-" "File locked by" ":" added "Locally added file" "@" conflict "File contains conflicts after the last merge" "!" removed "File removed from the VC system" missing "File tracked by the VC system, but missing from the file system" "?" "Locally modified file" help-echo " under the " " version control system"] 7 (#$ . 26425)]) #@187 If current buffer visits a symbolic link, visit the real file. If the real file is already visited in another buffer, make that buffer current, and kill the buffer that visits the link. (defalias 'vc-follow-link #[nil "\304!p \n=\203 \305\n!\210\306 !q)\202 q\210\305\n!*\207" [buffer-file-truename true-buffer this-buffer truename find-buffer-visiting kill-buffer find-file-noselect] 2 (#$ . 27547)]) (defalias 'vc-default-find-file-hook #[(backend) "\300\207" [nil] 1]) #@66 Function for `find-file-hook' activating VC mode if appropriate. (defalias 'vc-find-file-hook #[nil "\203 \306 \205\242 \307 !\210\310\311\312\306\313$\210\306\314\f\203\" \202& \315\316\317\217)\211\203C \312 \n\"\210 \204< \320\321!\210\313\322\n\323\"\202\241 \"\232?\205O \324\"!\211 #\204Y \306\202\240 $\306=\203h \325\326#\"\202\240 $\327=\203y \330\331\332 !!!\203\206 \333 \210\325\334 \"\210\335 \202\240 \336\337\340#\"!\203\235 \333 \210\325\334 \"\210\335 \202\240 \325\341!))\207" [vc-mode buffer-file-name backend #1=#:body debug-on-error vc-make-backup-files nil vc-file-clearprops add-hook mode-line-hook vc-mode-line t #[nil "\301!\207" [buffer-file-name vc-backend] 2] #2=#:err (funcall #1#) ((error (message "Error: %s" #2#) nil)) make-local-variable backup-inhibited vc-call-backend find-file-hook vc-backend message "Warning: symbolic link to %s-controlled source file" ask get-file-buffer abbreviate-file-name file-chase-links vc-follow-link "Followed link to %s" vc-find-file-hook yes-or-no-p format "Symbolic link to %s-controlled source file; follow link? " "Warning: editing through the link bypasses version control" buffer-file-truename link-type vc-follow-symlinks] 6 (#$ . 28033)]) (add-hook 'find-file-hook 'vc-find-file-hook) #@161 When file is not found, try to check it out from version control. Returns t if checkout was successful, nil otherwise. Used in `find-file-not-found-functions'. (defalias 'vc-file-not-found-hook #[nil "\205 \302!\210\303!\211\205 \304 \305\")\207" [buffer-file-name backend vc-file-clearprops vc-backend vc-call-backend find-file-not-found-hook] 4 (#$ . 29317)]) (defalias 'vc-default-find-file-not-found-hook #[(backend) "\300\207" [nil] 1]) (add-hook 'find-file-not-found-functions 'vc-file-not-found-hook) #@55 Discard VC info about a file when we kill its buffer. (defalias 'vc-kill-buffer-hook #[nil "\205 \301!\207" [buffer-file-name vc-file-clearprops] 2 (#$ . 29837)]) (byte-code "\305\306\307\"\210\302B\310\302!\204x \311\302\312 \313 \314\315#\210\313 \316\317#\210\313 \320\321#\210\313 \322\323#\210\313 \324\325#\210\313 \326\327#\210\313 \330\331#\210\313 \332\333#\210\313 \334\335#\210\313 \336\337#\210\313 \340\341#\210\313 \342\343#\210\313 \344\345#\210\313 \346\347#\210\313 \350\351#\210\313 \352\353#\210 )\"\210\302\nM\210\313 \354\302#\210\304B\310\304!\204 \311\304\312\355!\313 \356\357#\210\313 \360\361#\210\313 \362\363#\210\313 \364\365#\210\313 \366\367#\210\313 \370\371#\210\313 \372\373#\210\313 \374\375#\210\313 \376\377#\210\313 \201@ \201A #\210\313 \201B \201C #\210\313 \201D \201E #\210\313 \201F \201G #\210\313 \201H \201I #\210\313 \201J \201K #\210\313 \201L \201M #\210\313 \201N \201O #\210 )\"\210\201P \304\f\"\207" [current-load-list map vc-prefix-map global-map vc-menu-map add-hook kill-buffer-hook vc-kill-buffer-hook default-boundp set-default make-sparse-keymap define-key "a" vc-update-change-log "b" vc-switch-backend "c" vc-rollback "d" vc-dir "g" vc-annotate "h" vc-insert-headers "i" vc-register "l" vc-print-log "m" vc-merge "r" vc-retrieve-tag "s" vc-create-tag "u" vc-revert "v" vc-next-action "+" vc-update "=" vc-diff "~" vc-revision-other-window "v" "Version Control" [vc-retrieve-tag] (menu-item "Retrieve Tag" vc-retrieve-tag :help "Retrieve tagged version or branch") [vc-create-tag] (menu-item "Create Tag" vc-create-tag :help "Create version tag") [separator1] ("----") [vc-annotate] (menu-item "Annotate" vc-annotate :help "Display the edit history of the current file using colors") [vc-rename-file] (menu-item "Rename File" vc-rename-file :help "Rename file") [vc-revision-other-window] (menu-item "Show Other Version" vc-revision-other-window :help "Visit another version of the current file in another window") [vc-diff] (menu-item "Compare with Base Version" vc-diff :help "Compare file set with the base version") [vc-update-change-log] (menu-item "Update ChangeLog" vc-update-change-log :help "Find change log file and add entries from recent version control logs") [vc-print-log] (menu-item "Show History" vc-print-log :help "List the change log of the current file set in a window") [separator2] ("----") [vc-insert-header] (menu-item "Insert Header" vc-insert-headers :help "Insert headers into a file for use with a version control system.\n") [undo] (menu-item "Undo Last Check-In" vc-rollback :help "Remove the most recent changeset committed to the repository") [vc-revert] (menu-item "Revert to Base Version" vc-revert :help "Revert working copies of the selected file set to their repository contents") [vc-update] (menu-item "Update to Latest Version" vc-update :help "Update the current fileset's files to their tip revisions") [vc-next-action] (menu-item "Check In/Out" vc-next-action :help "Do the next logical version control operation on the current fileset") [vc-register] (menu-item "Register" vc-register :help "Register file set into a version control system") [vc-dir] (menu-item "VC Dir" vc-dir :help "Show the VC status of files in a directory") defalias] 6) (defalias 'vc-menu-map-filter #[(orig-binding) "9\203 \305!\203 \306! \205# \307\n\203 \310\n!\202! \311 !\312\"\211 \204, \2021 \313\314\f#)\207" [orig-binding vc-mode buffer-file-name default-directory ext-binding fboundp indirect-function vc-call-backend vc-backend vc-responsible-backend extra-menu append ((ext-menu-separator "---"))] 5]) (defalias 'vc-default-extra-menu #[(backend) "\300\207" [nil] 1]) (provide 'vc-hooks)
Close
