Gecko [ 122.154.134.11 ]

Name	Size	Permission
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--

Code Editor : vc-arch.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:26 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/vc-arch.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-arch.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defalias 'vc-arch-revision-granularity #[nil "\300\207" [repository] 1])
(defalias 'vc-arch-checkout-model #[(files) "\300\207" [implicit] 1])
#@140 String or list of strings specifying switches for Arch diff under VC.
If nil, use the value of `vc-diff-switches'.  If t, use no switches.
(custom-declare-variable 'vc-arch-diff-switches 't '(#$ . 750) :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)
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias vc-arch-command vc-arch-program nil make-obsolete-variable "23.1"] 4)
#@30 Name of the Arch executable.
(custom-declare-variable 'vc-arch-program '(let ((candidates '("tla" "baz"))) (while (and candidates (not (executable-find (car candidates)))) (setq candidates (cdr candidates))) (or (car candidates) "tla")) '(#$ . 1275) :type 'string :group 'vc)
(put 'Arch 'vc-functions nil)
#@51 Add an `arch-tag' to the end of the current file.
(defalias 'vc-arch-add-tagline #[nil "\303 \210db\210\304\305!\210\306\307w\210n\204�\310c\210\202$�`SSf\311=\204$�\312c\210`\2054�\313\314\315!\316Q\317!\"\320c\210	\203Q�\321	!\203Q�\322	!\210\323y\210\324	!\210\202V�\307\325\326\217\210\327\n`\"*\207" [buffer-file-name idfile beg comment-normalize-vars forward-comment -1 " 	\n" nil "\n\n" 10 "\n" expand-file-name ".arch-ids/" file-name-nondirectory ".id" file-name-directory "arch-tag: " file-exists-p insert-file-contents 1 delete-file (call-process "uuidgen" nil t) ((file-error (byte-code "\301\302\303 \304\305 8\306 \\$c\207" [user-mail-address format "%s <%s> %s" current-time-string 2 current-time buffer-size] 6))) comment-region] 5 (#$ . 1587) nil])(if macro-declaration-function (funcall macro-declaration-function (quote vc-with-current-file-buffer) (quote (declare (indent 2) (debug t)))))
(byte-code "\301B\302\303!\207" [current-load-list vc-arch-tagline-re (lambda (#1=#:defconst-tmp-var) (defconst vc-arch-tagline-re #1#)) "^\\W*arch-tag:[ 	]*\$.*[^ 	\n]\$"] 2)
(defalias 'vc-with-current-file-buffer '(macro . #[(file &rest body) "\302\303\304DD\305\306\307\310\311	B\312BBFE\207" [file body let (-kill-buf- nil) -file- with-current-buffer (or (find-buffer-visiting -file-) (setq -kill-buf- (generate-new-buffer " temp"))) (if -kill-buf- (insert-file-contents -file-)) unwind-protect progn ((if (buffer-live-p -kill-buf-) (kill-buffer -kill-buf-)))] 8]))
#@88 Can return nil, `maybe' or a non-nil value.
Only the value `maybe' can be trusted :-(.
(defalias 'vc-arch-file-source-p #[(file) "\305\306\307!\"?\205\214�\305\310\311\312!\"\"\206\214�\313\314\315\307!\316Q\317!\"!\206\214�\320r\321	!\2066�\322\323!\211q\210\n\203@�\324	!\210\325\216\212db\210\326`\327Z\330#\206Z�eb\210\331`\327\\\330#-\206\214�r\332\314\333\312!\"!q\210\330\212eb\210\331\334\320\330#\203z�\335\225\331\336\320\330#\203\205�\335\225)\f\205\213�\337*\207" [file -file- -kill-buf- vc-arch-tagline-re untagged-source string-match "\\`[,+]" file-name-nondirectory "\\`{arch}/" file-relative-name vc-arch-root file-exists-p expand-file-name ".arch-ids/" ".id" file-name-directory nil find-buffer-visiting generate-new-buffer " temp" insert-file-contents ((byte-code "\301!\203\n�\302!\210\301\207" [-kill-buf- buffer-live-p kill-buffer] 2)) re-search-backward 1000 t re-search-forward find-file-noselect "{arch}/=tagging-method" "^[ 	]*\$\\(tagline\\|implicit\\|names\$\\|explicit\\)" 2 "^[ 	]*untagged-source[ 	]+\$\\(source\$\\|precious\\|backup\\|junk\\|unrecognized\\)" maybe] 6 (#$ . 3083)])
(defalias 'vc-arch-file-id #[(file) "\304\305\306!\307Q\310!\"\311	!\203+�\312\313!r\nq\210\314\216\315	!\210\316\317!\210\320\321!+\202[�r\322!q\210\212db\210\323`\324Z\325#\204L�eb\210\326`\324\\\325#\203R�\320\327!\202Z�\330\331\332!\"P*)\207" [file idfile #1=#:temp-buffer vc-arch-tagline-re expand-file-name ".arch-ids/" file-name-nondirectory ".id" file-name-directory file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents looking-at ".*[^ \n	]" match-string 0 find-file-noselect re-search-backward 1000 t re-search-forward 1 "./" file-relative-name vc-arch-root] 5])
(defalias 'vc-arch-tagging-method #[(file) "r\301\302\303\304!\"!q\210\212eb\210\305\306\307\310#\203�\311\312\313!!\202 �\314*\207" [file find-file-noselect expand-file-name "{arch}/=tagging-method" vc-arch-root re-search-forward "^[ 	]*\$tagline\\|implicit\\|names\\|explicit\$" nil t intern match-string 1 names] 5])
#@54 Return the root directory of a Arch project, if any.
(defalias 'vc-arch-root #[(file) "\302\303\"\206�\304\305\"\211\205�\306\303	#)\207" [file root vc-file-getprop arch-root vc-find-root "{arch}/=tagging-method" vc-file-setprop] 5 (#$ . 5221)])
(defalias 'vc-arch-register #[(files &optional rev comment) "\203�\306\307!\210	\310\211\203A�@\311\n!\211\312>\2039�
\2039�r\313\n!q\210\314 \2032�\306\315\316 \"\210\317 \210\320 \210))A\211\204�*\321\310\322	\323$\207" [rev files file #1=#:--cl-dolist-temp-- tagmet comment-start error "Explicit initial revision not supported for Arch" nil vc-arch-tagging-method (tagline implicit) find-file-noselect buffer-modified-p "Save %s first" buffer-name vc-arch-add-tagline save-buffer vc-arch-command 0 "add"] 5])
(defalias 'vc-arch-registered #[(file) "\301!\205	�\302!\207" [file vc-arch-root vc-arch-file-source-p] 2])
(defalias 'vc-arch-default-version #[(file) "\304\305!\306\"\2060�\305!\307\310	\"\311\n!\205/�\312	\306\313\314!rq\210\315\216\316\n!\210edS{+#*\207" [file root f #1=#:temp-buffer vc-file-getprop vc-arch-root arch-default-version expand-file-name "{arch}/++default-version" file-readable-p vc-file-setprop generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents] 5])
#@104 Check if FILE is unchanged by diffing against the master version.
Return non-nil if FILE is unchanged.
(defalias 'vc-arch-workfile-unchanged-p #[(file) "\300\207" [nil] 1 (#$ . 6561)])
(defalias 'vc-arch-state #[(file) "\306!\307!\310\311\312\313\n#P\314\315\314\316	\"\"\317\320\f!\205%�\321\f\322#\3170\2111\203K�1@0
\203?�\3230
\"\203B�01A\2111\204.�*
\204T�\324\202\332�\325!2\326\327\3302#2r\331
!q\210eb\210\3322\317\333#\203\214�\212\334\224\335Zb\210n\206\201�\336\337!?\206\210�\336\340!)\204j�m\203\246�\341
!\311\312\313\342!#\232\203\242�\343\202\331�\324\202\331�\344\345\346 \322#\204\263�\324\202\331�\347!3\35038\351\352\335!!=\203\327�\353\354\35538\"\352\356!\232\203\327�\357\202\330�\324)*-\207" [file root ver pat dir sigfile vc-arch-root vc-arch-default-version "\\`" subst-char-in-string 47 37 expand-file-name ",,inode-sigs/" "{arch}" nil file-directory-p directory-files t file-newer-than-file-p edited vc-arch-file-id replace-regexp-in-string "[ 	]" "_" find-file-noselect search-forward move 0 2 looking-at "\n?" "E_" file-name-nondirectory vc-arch-working-revision added re-search-forward "	.*mtime=\$[0-9]+\$:size=\$[0-9]+\$" line-end-position file-attributes 7 string-to-number match-string format-time-string "%s" 5 1 up-to-date f #1=#:--cl-dolist-temp-- id ats] 6])
#@132 Run 'tla inventory' for DIR and pass results to CALLBACK.
CALLBACK expects (ENTRIES &optional MORE-TO-COME); see
`vc-dir-refresh'.
(defalias 'vc-arch-dir-status #[(dir callback) "\303\304\305\306\307$\210)\310\311\312\nDD!\207" [dir default-directory callback vc-arch-command t async nil "changes" vc-exec-after vc-arch-after-dir-status quote] 5 (#$ . 7897)])
(defalias 'vc-arch-after-dir-status #[(callback) "\306\307\310\311\"\312\"\313	\314Q\315eb\210\316\n\315\312#\2035�\317\320!\321\f\"A\317\322!\211
DB+\202�\315\",\207" [state-map state-map-regexp entry-regexp result state-string state (("M " . edited) ("Mb" . edited) ("D " . removed) ("D/" . removed) ("A " . added) ("A/" . added) ("=>" . renamed) ("/>" . renamed) ("lf" . symlink-to-file) ("fl" . file-to-symlink) ("--" . permissions-changed) ("-/" . permissions-changed)) regexp-opt mapcar car t "^" " \$.*\$$" nil re-search-forward match-string 1 assoc 2 filename callback] 5])
(defalias 'vc-arch-working-revision #[(file) "\306\307\310!\"\311!\211\205\313�\312\313\n\"\205\313�\314\315\n\"\314\316\n\"\314\317\n\"\314\320\n\"\321\322\321\211 \321!\306\f	\" \306
 \" \306 \" \306 \" \306\323 \" \324 !\205h�\325 !\321\211\"\203\277�\"@\211\322H\326=\203\207�\204\207�\327\322\312\330\"\203\266�\331\314\315\"!\211!\203\266�\203\247�\322H\326=\203\266�!Y\203\266�!\"A\211\"\204p�*\n\332\206\310�\333Q.	*\207" [file root defbranch archive category branch expand-file-name "{arch}" vc-arch-root vc-arch-default-version string-match "\\`\$.+@[^/\n]+\$/\$\\(\\(.*?\$\$?:--.*\$?\\)--.*\\)\\'" match-string 1 4 3 2 nil 0 "patch-log" file-directory-p directory-files 118 t "-\$[0-9]+\$\\'" string-to-number "--" "none-000" version sealed rev-nb rev logdir tmp #1=#:--cl-dolist-temp--] 6])
#@66 Rewrite rules to shorten Arch's revision names on the mode-line.
(custom-declare-variable 'vc-arch-mode-line-rewrite ''(("\\`.*--\$.*--.*\$--\$v?\$.*-\$[0-9]+\$\\'" . "\\2\\3[\\1]")) '(#$ . 9736) :type '(repeat (cons regexp string)) :group 'vc)
#@69 Return string for placement in modeline by `vc-mode-line' for FILE.
(defalias 'vc-arch-mode-line-string #[(file) "\306!\n\307\211\203&�\f@\310@	\"\203�\311A\312\307	$\fA\211\204\f�*\313\314\315!\316
\317\"\2038�\320\202C�
\321=\203B�\322\202C�\323)	#)\207" [file rev vc-arch-mode-line-rewrite rule #1=#:--cl-dolist-temp-- #2=#:--cl-var-- vc-working-revision nil string-match replace-match t format "Arch%c%s" vc-state memql (up-to-date needs-update) 45 added 64 58] 6 (#$ . 9993)])
(defalias 'vc-arch-diff3-rej-p #[(rej) "\303!\211\205%�\304	8\305W\205%�\306\307!r\nq\210\310\216\311!\210eb\210\312\313!+)\207" [rej attrs #1=#:temp-buffer file-attributes 7 60 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents looking-at "Conflicts occured, diff3 conflict markers left in file\\."] 3])
#@31 For use in `after-save-hook'.
(defalias 'vc-arch-delete-rej-if-obsolete #[nil "\212\302P\205\"�\303	!\205\"�\304\305\306\307#?\205\"�\306\310\311\217\210\312\313\314\307#*\207" [buffer-file-name rej ".rej" vc-arch-diff3-rej-p re-search-forward "^<<<<<<< " nil t (delete-file rej) ((error)) remove-hook after-save-hook vc-arch-delete-rej-if-obsolete] 4 (#$ . 10882)])
(defalias 'vc-arch-find-file-hook #[nil "\302P\205?�\303	!\205?�\304	!\2039�\212eb\210\305\306\307\310#\204'�\307\311\312\217\2025�\313\314!\210\315\316\317\307\310$\210\320\321!)\202?�\320\322\323	!\")\207" [buffer-file-name rej ".rej" file-exists-p vc-arch-diff3-rej-p re-search-forward "^<<<<<<< " nil t (delete-file rej) ((error)) smerge-mode 1 add-hook after-save-hook vc-arch-delete-rej-if-obsolete message "There are unresolved conflicts in this file" "There are unresolved conflicts in %s" file-name-nondirectory] 5])
(defalias 'vc-arch-checkin #[(files rev comment) "\203�\304\305!\210\306	@\307	@!\"\310\311\"\204�\310\312\"\203*�\313\314\"\315\225\316O\317\316\315	\320\321\n\322\323\324\325\326\"&\n)\207" [rev files summary comment error "Committing to a specific revision is unsupported" file-relative-name vc-arch-root string-match "\\`Summary:[ 	]*\$.*[^ 	\n]\$\$[ 	]*\n\$*" "\\`[ 	]*\$.*[^ 	\n]\$[ 	]*\$\n?\\'\\|\n\\([ 	]*\n\$+\\)" match-string 1 0 nil vc-arch-command "commit" "-s" "-L" "--" vc-switches Arch checkin] 13])
#@67 Get a difference report using Arch between two versions of FILES.
(defalias 'vc-arch-diff #[(files &optional oldvers newvers buffer) "@\n\203�	\306	!)\307=\203�\n\310	!\232\203�\311\n\203&�\312\313!\202a�?\314	!\315\2064�\316\f\203<�\304\202=�\317\311\320\321\322\323\"\324	!\310	!\232?\205R�&\f\203^�\317\202`�+)\207" [files file newvers vc-disable-async-diff async default-directory vc-state up-to-date vc-working-revision nil error "Diffing specific revisions not implemented" vc-arch-root vc-arch-command "*vc-diff*" 1 "file-diffs" vc-switches Arch diff file-relative-name buffer oldvers status] 10 (#$ . 12321)])
(defalias 'vc-arch-delete-file #[(file) "\301\302\303\304$\207" [file vc-arch-command nil 0 "rm"] 5])
(defalias 'vc-arch-rename-file #[(old new) "\302\303\304\305\306	!%\207" [new old vc-arch-command nil 0 "mv" file-relative-name] 7])
(defalias 'vc-arch-responsible-p 'vc-arch-root)
#@57 A wrapper around `vc-do-command' for use in vc-arch.el.
(defalias 'vc-arch-command #[(buffer okstatus file &rest flags) "\305\306\206�\307	\n\f&\207" [buffer okstatus vc-arch-program file flags apply vc-do-command "*vc*"] 7 (#$ . 13251)])
(defalias 'vc-arch-init-revision #[nil "\300\207" [nil] 1])
(defalias 'vc-arch--version-completion-table #[(root string) "\303\304\305\306\307\310\311\312\n\"\203�\n\313\225\304O\314\n\313\211\224OQ\202!�\314\nP\315Q!)\"\"\207" [root default-directory string delq nil mapcar #[(d) "\301\302\"\205�\303\304\"\305\303\306\"Q\207" [d string-match "/\$[^/]+\$/\$[^/]+\$\\'" match-string 2 "/" 1] 5] file-expand-wildcards "*/*/" string-match "/" 0 "*/" "*"] 11])
(defalias 'vc-arch-revision-completion-table #[(files) "\302\303!\211	L\210\304\305\306\307\310D\311FE)\207" [#1=#:--cl-files-- files make-symbol "--files--" lambda (&rest --cl-rest--) apply #[(#2=#:G37500 string pred action) "\306\307\310J@!\"\311	\n\"\312\f\n
$*\207" [#2# root string table action pred expand-file-name "{arch}" vc-arch-root vc-arch--version-completion-table complete-with-action] 5] quote --cl-rest--] 7])
(defalias 'vc-arch-trim-find-least-useful-rev #[(revs) "\211A@\211A@\211A@\306\307!@\206�@\\\310\n	
 \n\203G�\n\211A@
 \nW\203'�\n	
 \n\202'�	.\207" [revs first second third max cost 100.0 last #[nil "@	@Z\n@Z\245\207" [third first max second] 3] minrev mincost] 3])
(defalias 'vc-arch-trim-make-sentinel #[(revs) "\204�\302\207\303\304!\211L\210\305\306\307\310\311	D\312FE)\207" [revs #1=#:--cl-revs-- #[(proc msg) "\300\301!\207" [message "VC-Arch trimming ... done"] 2] make-symbol "--revs--" lambda (&rest --cl-rest--) apply #[(#2=#:G37501 proc msg) "\302\303\304J@!\"\210\305J@J@\306P\"\210\307\310\311\312\313J@\306P%\314	\315JA!\"\207" [#2# proc message "VC-Arch trimming %s..." file-name-nondirectory rename-file "*rm*" start-process "vc-arch-trim" nil "rm" "-rf" set-process-sentinel vc-arch-trim-make-sentinel] 7] quote --cl-rest--] 7])
#@55 Delete half of the revisions in the revision library.
(defalias 'vc-arch-trim-one-revlib #[(dir) "\306\307\310\311$\211\203�\312	!\313\211\"\210)\314\315\313\316\317\306\313\211\311$\"\"\320\"\313\211\211AA)\205_�G\321\245\322
W\203U�\323!\315\"\nB)
T\211\2027�*\312\316\324\n\"!\313\211\"*\207" [dir garbage subdirs revs x i directory-files full "\\`,," nosort vc-arch-trim-make-sentinel nil sort delq mapcar #[(f) "\301\302\"\205�\303\304\305\"!B\207" [f string-match "-\$[0-9]+\$\\'" string-to-number match-string 1] 4] car-less-than-car 2 0 vc-arch-trim-find-least-useful-rev #[(x) "\302A	\"\207" [x dir expand-file-name] 3] #1=#:--cl-dotimes-temp-- minrev] 11 (#$ . 15289) "Ddirectory: "])
#@55 Delete half of the revisions in the revision library.
(defalias 'vc-arch-trim-revlib #[nil "\306\307\310!!\311\216\312	\313\313\314%\210)rq\210\315 +\316\317\n\"\203A�\320\321\n\"\322!\2037�\323!\2037�\202<�\n\324\225\313O)\202�\323\n!\204K�\325\326!\210\327\330\n\"\210\331\n\332\333#\334\335\336\337\f\"\"\334\335\336\340
\"\"$\334\335\336\341$\"\"%\342\343%\"-\207" [standard-output vc-arch-program rl-dir dir archives categories get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) call-process nil "my-revision-library" buffer-string string-match "\$.*\$\n" match-string 1 file-directory-p file-writable-p 0 error "No writable revlib directory found" message "Revlib at %s" directory-files full "[^.]\\|..." apply append mapcar #[(dir) "\301!\205�\302\303\304#\207" [dir file-directory-p directory-files full "[^.]\\|..."] 4] #[(dir) "\301!\205�\302\303\304#\207" [dir file-directory-p directory-files full "[^.]\\|..."] 4] #[(dir) "\301!\205�\302\303\304#\207" [dir file-directory-p directory-files full "--.*--"] 4] mapc vc-arch-trim-one-revlib branches versions] 6 (#$ . 16021) nil])
(byte-code "\302B\303\302!\204�\304\302\305 \306	\307\310#\210	)\"\210\302\207" [current-load-list map vc-arch-extra-menu-map default-boundp set-default make-sparse-keymap define-key [add-tagline] (menu-item "Add tagline" vc-arch-add-tagline)] 6)
(defalias 'vc-arch-extra-menu #[nil "\207" [vc-arch-extra-menu-map] 1])
(defalias 'vc-arch-find-revision #[(file rev buffer) "\305\306!\307\216\310\311!r	q\210\312\216\313p\314\315\316\n&\210\317ed\320\315\211\211\321\322\n&\n\210+r\fq\210\323!+\207" [out #1=#:temp-buffer file rev buffer make-temp-file "vc-out" ((delete-file out)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-arch-command 1 nil "file-diffs" call-process-region "patch" "-R" "-o" insert-file-contents] 11])
(provide 'vc-arch)

${this.title}

Code Editor : vc-arch.elc