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-git.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-git.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-git.el' was compiled for Emacs 19.29 or later"))

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

#@139 String or list of strings specifying switches for Git diff under VC.
If nil, use the value of `vc-diff-switches'.  If t, use no switches.
(custom-declare-variable 'vc-git-diff-switches 't '(#$ . 604) :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)
#@40 Default coding system for git commits.
(defvar git-commits-coding-system 'utf-8 (#$ . 988))
(defalias 'vc-git-revision-granularity #[nil "\300\207" [repository] 1])
(defalias 'vc-git-checkout-model #[(files) "\300\207" [implicit] 1])
#@44 Check whether FILE is registered with git.
(defalias 'vc-git-registered #[(file) "\305!\2056�\306\307!r	q\210\310\216\311!\312\n\"\313\314\315\217\211\2054�\fGGV\2054�\f\316GTO\317P\230.\207" [file #1=#:temp-buffer dir name str vc-git-root generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) file-name-directory file-relative-name nil (byte-code "\203�\302!\210\303\304\305\306\307	%\210ed=\203 �\303\310\311\306\312\307	&\210\313 \207" [dir name cd vc-git--out-ok "ls-files" "-c" "-z" "--" "ls-tree" "--name-only" "HEAD" buffer-string] 7) ((error)) 0 "�"] 4 (#$ . 1228)])
#@58 Convert from a string to a added/deleted/modified state.
(defalias 'vc-git--state-code #[(code) "\301!\302=\203\n�\303\207\301!\304=\203�\305\207\301!\306=\203�\307\207\301!\310=\203(�\303\207\301!\311=\2051�\303\207" [code string-to-char 77 edited 65 added 68 removed 85 84] 2 (#$ . 1880)])
#@37 Git-specific version of `vc-state'.
(defalias 'vc-git-state #[(file) "\302!\204�\303\207\304\305\306\307\310\311!%\210\312\313\314\315\310%\211\203.�\316\317	\"\203.�\320\321\322	\"!\2028�\323 \2037�\324\2028�\325)\207" [file diff vc-git-registered unregistered vc-git--call nil "add" "--refresh" "--" file-relative-name vc-git--run-command-string "diff-index" "-z" "HEAD" string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \$[ADMUT]\$�[^�]+�" vc-git--state-code match-string 1 vc-git--empty-db-p added up-to-date] 8 (#$ . 2185)])
#@48 Git-specific version of `vc-working-revision'.
(defalias 'vc-git-working-revision #[(file) "\302\303\304!!\305\216rq\210\306\307\310\"\210*rq\210\311 +\312\313	\"\203*�\314\315	\"\202+�	)\207" [standard-output str get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) vc-git--out-ok "symbolic-ref" "HEAD" buffer-string string-match "^\$refs/heads/\$?\$.+\$$" match-string 2] 3 (#$ . 2753)])
(defalias 'vc-git-workfile-unchanged-p #[(file) "\301!\302=\207" [file vc-git-state up-to-date] 2])
#@57 Return string for placement into the modeline for FILE.
(defalias 'vc-git-mode-line-string #[(file) "\304!\305\306\"\307\310\303\n#\311	G!\203\"�\312\n\313P\303\314P#\202*�\312\n\303\315	Q#+\207" [file branch def-ml help-echo vc-git-working-revision vc-default-mode-line-string Git get-text-property 0 zerop propertize "!" "\nNo current branch (detached HEAD)" "\nCurrent branch: "] 6 (#$ . 3301)])
(byte-code "\300\301\302\303#\210\301\304N\204�\300\301\304\305#\210\300\207" [put vc-git-extra-fileinfo->old-perm cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo->old-perm (or (and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) (error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'vc-git-extra-fileinfo->old-perm #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-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-git-extra-fileinfo->old-perm setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->old-perm #1=(and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 1] 6] vc-git-extra-fileinfo->new-perm cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo->new-perm (or #1# (error "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'vc-git-extra-fileinfo->new-perm #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-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-git-extra-fileinfo->new-perm setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->new-perm #1=(and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 2] 6] vc-git-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-git-extra-fileinfo->rename-state (or #1# (error "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'vc-git-extra-fileinfo->rename-state #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo" 3] 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-git-extra-fileinfo->rename-state setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->rename-state #1=(and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 3] 6] vc-git-extra-fileinfo->orig-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-git-extra-fileinfo->orig-name (or #1# (error "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'vc-git-extra-fileinfo->orig-name #[(cl-x) "\302H	>\204\f�\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo" 4] 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-git-extra-fileinfo->orig-name setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->orig-name (and #1=(memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 4] 6] vc-git-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-git-extra-fileinfo-p (and (vectorp cl-x) (>= (length cl-x) 5) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4)
(defalias 'vc-git-extra-fileinfo-p #[(cl-x) "\302!\205�G\303Y\205�\304H	>\205�\305\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags vectorp 5 0 t] 2])
(byte-code "\300\301\302\303#\210\301\304N\204�\300\301\304\305#\210\300\207" [put make-vc-git-extra-fileinfo cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@
\203D�
@\312>\203-�
AA\211\202�\313>A@\203;�\314\211\202�\315\316
@\"\210\202�)\317\320\321\322\314	\n\f&	,\207" [#1# old-perm new-perm rename-state orig-name #:--cl-keys-- :old-perm :new-perm :rename-state :orig-name (:old-perm :new-perm :rename-state :orig-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:old-perm :new-perm :rename-state :orig-name)" cl-defsubst-expand (old-perm new-perm rename-state orig-name) (block make-vc-git-extra-fileinfo (vector 'cl-struct-vc-git-extra-fileinfo old-perm new-perm rename-state orig-name)) t cl-whole] 11 "Not documented\n\n(fn CL-WHOLE &cl-quote &key OLD-PERM NEW-PERM RENAME-STATE ORIG-NAME)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@68 Not documented

(fn &key OLD-PERM NEW-PERM RENAME-STATE ORIG-NAME)
(defalias 'make-vc-git-extra-fileinfo #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@
\203D�
@\312>\203-�
AA\211\202�\313>A@\203;�\314\211\202�\315\316
@\"\210\202�)\317\320	\n\f%,\207" [#1# old-perm new-perm rename-state orig-name #2=#:--cl-keys-- :old-perm :new-perm :rename-state :orig-name (:old-perm :new-perm :rename-state :orig-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:old-perm :new-perm :rename-state :orig-name)" vector cl-struct-vc-git-extra-fileinfo] 7 (#$ . 8889)])
(byte-code "\300\301\302\303#\210\301\304N\204�\300\301\304\305#\210\300\207" [put vc-git-create-extra-fileinfo cl-compiler-macro #[(--cl-whole-arg-- old-perm new-perm &rest #1=#:--cl-rest--) "\211A@\211A@\203�\305\306\307\310G\\D\"\210\311\312\313\314\315\211\f	\n&	*\207" [#1# rename-state orig-name old-perm new-perm signal wrong-number-of-arguments vc-git-create-extra-fileinfo 5 cl-defsubst-expand (old-perm new-perm rename-state orig-name) (block vc-git-create-extra-fileinfo (vector 'cl-struct-vc-git-extra-fileinfo old-perm new-perm rename-state orig-name)) t nil] 10 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote OLD-PERM NEW-PERM &optional RENAME-STATE ORIG-NAME)"] byte-compile cl-byte-compile-compiler-macro] 4)
#@73 Not documented

(fn OLD-PERM NEW-PERM &optional RENAME-STATE ORIG-NAME)
(defalias 'vc-git-create-extra-fileinfo #[(old-perm new-perm &rest #1=#:--cl-rest--) "\211A@\211A@\203�\305\306\307\310G\\D\"\210\311\312\f	\n%*\207" [#1# rename-state orig-name old-perm new-perm signal wrong-number-of-arguments vc-git-create-extra-fileinfo 4 vector cl-struct-vc-git-extra-fileinfo] 6 (#$ . 10250)])
(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#\210\304\325\317\315#\210\304\326\317\315#\207" [custom-print-functions cl-struct-vc-git-extra-fileinfo-tags #[(cl-x cl-s cl-n) "\303!\205\200�G\304Y\205\200�\305H	>\205\200�\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\311\305H	>\204\\�\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H	>\204t�\312\324!\210\325H\n\"\210\306\326\n\"\210\327\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags cl-s vectorp 5 0 princ "#S(vc-git-extra-fileinfo" " old-perm" prin1 error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo" 1 " new-perm" "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo" 2 " rename-state" "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo" 3 " orig-name" "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo" 4 ")" t] 3] cl-struct-vc-git-extra-fileinfo put vc-git-extra-fileinfo cl-struct-slots ((cl-tag-slot) (old-perm) (new-perm) (rename-state) (orig-name)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t vc-git-create-extra-fileinfo side-effect-free make-vc-git-extra-fileinfo vc-git-extra-fileinfo-p error-free vc-git-extra-fileinfo->orig-name vc-git-extra-fileinfo->rename-state vc-git-extra-fileinfo->new-perm vc-git-extra-fileinfo->old-perm] 4)
#@34 Escape a file name if necessary.
(defalias 'vc-git-escape-file-name #[(name) "\301\302\"\203�\303\304\305\306#\303Q\207\207" [name string-match "[\n	\"\\]" "\"" mapconcat #[(c) "\301=\203�\302\207\303=\203�\304\207\305=\203�\306\207\307=\203 �\310\207\311!\207" [c 10 "\\n" 9 "\\t" 92 "\\\\" 34 "\\\"" char-to-string] 2] ""] 5 (#$ . 12250)])
#@68 Return a string describing the file type based on its permissions.
(defalias 'vc-git-file-type-as-string #[(old-perm new-perm) "\305\206�\306\307\"\305\n\206�\306\307\"\211\310=\2036�	\310=\203\"�\311\202\232�	\312=\203,�\313\202\232�	\314=\205\232�\315\202\232�\312=\203T�	\310=\203F�\316\202\232�	\314=\203P�\317\202\232�\320\202\232�\314=\203r�	\310=\203d�\321\202\232�	\312=\203n�\322\202\232�\323\202\232�\324=\203|�\311\202\232�\306=\203\226�	\312=\203\214�\320\202\232�	\314=\205\232�\323\202\232�\325\326\"\211\203\247�\327\f\330\331#\202\262�\324=\203\261�\332\202\262�\333+\207" [old-perm old-type new-perm new-type str lsh 0 -9 64 nil 80 "   (type change symlink -> file)" 112 "   (type change subproject -> file)" "   (type change file -> symlink)" "   (type change subproject -> symlink)" "   (symlink)" "   (type change file -> subproject)" "   (type change symlink -> subproject)" "   (subproject)" 72 format "   (unknown type %o)" propertize face font-lock-comment-face "/" ""] 5 (#$ . 12610)])
#@97 Return a string describing the copy or rename associated with INFO, or an empty string if none.
(defalias 'vc-git-rename-as-string #[(state extra) "\205�\304H	>\204�\305\306!\210\307H\211\203H�\310\311\n\312=\203$�\313\202/�\314=\203.�\315\202/�\316\317\304H	>\204<�\305\320!\210\321H!\322R\323\324#\202I�\325)\207" [extra cl-struct-vc-git-extra-fileinfo-tags rename-state state 0 error "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo" 3 propertize "   (" copy "copied from " added "renamed from " "renamed to " vc-git-escape-file-name "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo" 4 ")" face font-lock-comment-face ""] 7 (#$ . 13639)])
#@39 Format a permission change as string.
(defalias 'vc-git-permissions-as-string #[(old-perm new-perm) "\302\203�	\203�\303\304	\"\305\"\306=\203�\307\202'�\303\305\"\306=\203&�\310\202'�\311\312\313#\207" [old-perm new-perm propertize logand logxor 73 0 "  " "+x" "-x" face font-lock-type-face] 5 (#$ . 14345)])
#@51 Pretty-printer for the vc-dir-fileinfo structure.
(defalias 'vc-git-dir-printer #[(info) "\3068\211\203\f�\307\202�A@\3108\211\205'�\311H\f>\204$�\312\313!\210\314H\205;�\311H\f>\2048�\312\315!\210\310H*\316\317\320\321\3228\203K�\323\202L�\324\"\325\326#\316\317\320\327\n\"\325\n\330=\203a�\331\202l�\n\332=\203k�\333\202l�\334\335\336%\316\337
*\"\340\317\341@!\325	\203\204�\342\202\205�\343\344	\203\216�\345\202\217�\346\347+\335\336&	\350
*\"\351\n\"\261\n-\207" [info isdir state extra cl-struct-vc-git-extra-fileinfo-tags old-perm 5 "" 2 0 error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo" 1 "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo" "  " propertize format "%c" 3 42 32 face font-lock-type-face "%-12s" up-to-date font-lock-builtin-face missing font-lock-warning-face font-lock-variable-name-face mouse-face highlight vc-git-permissions-as-string "    " vc-git-escape-file-name font-lock-comment-delimiter-face font-lock-function-name-face help-echo "Directory\nVC operations can be applied to it\nmouse-3: Pop-up menu" "File\nmouse-3: Pop-up menu" keymap vc-git-file-type-as-string vc-git-rename-as-string new-perm vc-dir-filename-mouse-map] 18 (#$ . 14667)])
#@53 Process sentinel for the various dir-status stages.
(defalias 'vc-git-after-dir-status-stage #[(stage files update-function) "\306\211\211eb\210\307\310\"\203&�\311 \203�\312\202\"�\f\203!�\313\202\"�\314\202b\307\315\"\203U�\316\317\320\306\321#\203b\322\323\324!\325\"\323\326!1
\327\330\331\3321\306\211%EB*\202/�\307\333\"\203\204�\314\317\320\306\321#\203b\322\323\324!\325\"\323\326!2
\334\330\3312\211\306\211%EB*\202^�\307\335\"\203\254�\f\203\221�\336\317\337\306\321\324$\203b\323\324!\340\330\331\332\211\306\211%EB\202\221�\307\341\"\203\316�\317\337\306\321\324$\203b\323\324!\342\330\331\332\211\306\211%EB\202\263�\307\343\"\203b\316\317\344\306\321\324$\203b\322\323\324!\325\"\322\323\326!\325\"\323\345!\206\365�\323\346!\323\347!\206\376�\323\350!\323\325!34153\203L\3514!\352=\203+3\327\330\33151\353
%EB\202^
\354\330\331\332\211\3553%EB3\327\330\33151\355
%EB\202^
\3564!\330\33151\306\211%EB-\202\327�\203\223\237\f\203\223\3066\2117\203\2147@6\3576@\f\"7A\2117\204w*\f\204\223\306\204\233	\204\2418	\"\210	\205\253\360	\f8#+\207" [result next-stage remaining stage files name nil memql 'update-index vc-git--empty-db-p ls-files-added ls-files-up-to-date diff-index 'ls-files-added ls-files-unknown re-search-forward "\$[0-7]\\{6\\}\$ [0-9a-f]\\{40\\} 0	\$[^�]+\$�" t string-to-number match-string 1 8 2 added vector cl-struct-vc-git-extra-fileinfo 0 'ls-files-up-to-date up-to-date 'ls-files-unknown ls-files-ignored "\$[^�]*?\$�" unregistered 'ls-files-ignored ignored 'diff-index ":\$[0-7]\\{6\\}\$ \$[0-7]\\{6\\}\$ [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \$\\([ADMUT]\$�\$[^�]+\$\\|\$[CR]\$[0-9]*�\$[^�]+\$�\$[^�]+\$\\)�" 4 6 5 7 string-to-char 67 copy removed rename vc-git--state-code delete vc-git-dir-status-goto-stage new-perm perm new-name state old-perm entry #1=#:--cl-dolist-temp-- update-function] 8 (#$ . 15921)])
(defalias 'vc-git-dir-status-goto-stage #[(stage files update-function) "\303 \210\304\305\"\203&�	\203�\306p\307	\310\311\312&\210\202\226�\306p\307\313\314\311%\210\202\226�\304\315\"\203<�\306p\307	\316\317\320\321\312&\210\202\226�\304\322\"\203R�\306p\307	\316\317\320\321\312&\210\202\226�\304\323\"\203j�\306p\307	\316\317\324\325\326\327\312&\n\210\202\226�\304\330\"\203\203�\306p\307	\316\317\324\331\325\326\327\312&\210\202\226�\304\332\"\203\226�\306p\307	\333\317\334\335\312&\210\336\337\340D\340	D\340\nDF!\207" [stage files update-function erase-buffer memql 'update-index vc-git-command async "add" "--refresh" "--" nil "update-index" 'ls-files-added "ls-files" "-z" "-c" "-s" 'ls-files-up-to-date 'ls-files-unknown "-o" "--directory" "--no-empty-directory" "--exclude-standard" 'ls-files-ignored "-i" 'diff-index "diff-index" "-M" "HEAD" vc-exec-after vc-git-after-dir-status-stage quote] 12])
#@54 Return a list of (FILE STATE EXTRA) entries for DIR.
(defalias 'vc-git-dir-status #[(dir update-function) "\301\302\303#\207" [update-function vc-git-dir-status-goto-stage update-index nil] 4 (#$ . 18809)])
#@63 Return a list of (FILE STATE EXTRA) entries for FILES in DIR.
(defalias 'vc-git-dir-status-files #[(dir files default-state update-function) "\302\303	#\207" [files update-function vc-git-dir-status-goto-stage update-index] 4 (#$ . 19023)])
(defalias 'vc-git-dir-extra-headers #[(dir) "\302\303\304!!\305\216rq\210\306\307\310\"\210*rq\210\311 +\312\313\314\315#\312\316\317	\"\2030�\320\321	\"\2021�\322\314\323#P)\207" [standard-output str get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) vc-git--out-ok "symbolic-ref" "HEAD" buffer-string propertize "Branch     : " face font-lock-type-face string-match "^\$refs/heads/\$?\$.+\$$" match-string 2 "not (detached HEAD)" font-lock-variable-name-face] 5])
#@30 Create a new Git repository.
(defalias 'vc-git-create-repo #[nil "\300\301\302\301\303$\207" [vc-git-command nil 0 "init"] 5 (#$ . 19790)])
#@52 Register FILE into the git version-control system.
(defalias 'vc-git-register #[(files &optional rev comment) "\301\302\303\304\305\306&\207" [files vc-git-command nil 0 "update-index" "--add" "--"] 7 (#$ . 19936)])
(defalias 'vc-git-responsible-p 'vc-git-root)
(defalias 'vc-git-unregister #[(file) "\301\302\303\304\305\306\307&\207" [file vc-git-command nil 0 "rm" "-f" "--cached" "--"] 8])
(defalias 'vc-git-checkin #[(files rev comment) "\304\305\306\n\307\310\311\312&)\207" [git-commits-coding-system coding-system-for-write files comment vc-git-command nil 0 "commit" "-m" "--only" "--"] 9])
(defalias 'vc-git-find-revision #[(file rev buffer) "\306\211\307\310\311\312\313%\314\315O\316\f\314
\203�
\202�\317\320	Q\321\322%+\207" [file fullname coding-system-for-write coding-system-for-read buffer rev binary vc-git--run-command-string "ls-files" "-z" "--full-name" "--" 0 -1 vc-git-command "HEAD" ":" "cat-file" "blob"] 8])
(defalias 'vc-git-checkout #[(file &optional editable rev) "\302\303\304\305	\206\n�\306%\207" [file rev vc-git-command nil 0 "checkout" "HEAD"] 6])
#@58 Revert FILE to the version stored in the git repository.
(defalias 'vc-git-revert #[(file &optional contents-done) "\203\f�\302\303\304	\305\306%\207\302\303\304	\307\310%\207" [contents-done file vc-git-command nil 0 "update-index" "--" "checkout" "HEAD"] 6 (#$ . 21041)])
#@39 Get change log associated with FILES.
(defalias 'vc-git-print-log #[(files &optional buffer) "	<\203\n�	\202\f�	C\306\f!\210\307r\fq\210\310\f\311	\312\313\314\315&,\207" [git-commits-coding-system files flist coding-system-for-read buffer inhibit-read-only vc-setup-buffer t vc-git-command async "rev-list" "--pretty" "HEAD" "--"] 8 (#$ . 21322)])
(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-git-log-view-mode-abbrev-table vc-git-log-view-mode-hook variable-documentation put "Hook run when entering Git-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-git-log-view-mode-map definition-name vc-git-log-view-mode default-boundp set-default make-sparse-keymap vc-git-log-view-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent log-view-mode] 5)
#@519 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-git-log-view-mode-map', `vc-git-log-view-mode-abbrev-table' and `vc-git-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-git-log-view-mode-hook', as the final step
during initialization.

\{vc-git-log-view-mode-map}
(defalias 'vc-git-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\340BC\341\")\342\343!\207" [delay-mode-hooks major-mode mode-name vc-git-log-view-mode-map vc-git-log-view-mode-syntax-table parent make-local-variable t log-view-mode vc-git-log-view-mode "Git-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 "^commit *\$[0-9a-z]+\$" log-view-font-lock-keywords append ((1 'change-log-acknowledgement)) (("^Author:[ 	]+\$[A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\$" (1 'change-log-email)) ("^Author:[ 	]+\$[^<(]+?\$[ 	]*[(<]\$[A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\$[>)]" (1 'change-log-name) (2 'change-log-email)) ("^ +\$?:\\(?:[Aa]cked\\|[Ss]igned-[Oo]ff\$-[Bb]y:\\)[ 	]+\$[A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\$" (1 'change-log-name)) ("^ +\$?:\\(?:[Aa]cked\\|[Ss]igned-[Oo]ff\$-[Bb]y:\\)[ 	]+\$[^<(]+?\$[ 	]*[(<]\$[A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\$[>)]" (1 'change-log-name) (2 'change-log-email)) ("^Merge: \$[0-9a-z]+\$ \$[0-9a-z]+\$" (1 'change-log-acknowledgement) (2 'change-log-acknowledgement)) ("^Date:   \$.+\$" (1 'change-log-date)) ("^summary:[ 	]+\$.+\$" (1 'log-view-message))) run-mode-hooks vc-git-log-view-mode-hook vc-git-log-view-mode-abbrev-table local-abbrev-table] 6 (#$ . 22491) nil])
#@122 Move to the log entry for REVISION.
REVISION may have the form BRANCH, BRANCH~N,
or BRANCH^ (where "^" can be repeated).
(defalias 'vc-git-show-log-entry #[(revision) "eb\210\2032�\301\302\303\"\304\305\306\307\"\203�\310\311\312\"!T\2020�\306\313\"\203/�\311\314\"GT\2020�\304$\210\315 \207" [revision search-forward format "\ncommit %s" nil t string-match "~\$[0-9]\$$" string-to-number match-string 1 "\\^+$" 0 beginning-of-line] 8 (#$ . 24701)])
#@67 Get a difference report using Git between two revisions of FILES.
(defalias 'vc-git-diff #[(files &optional rev1 rev2 buffer) "\304\305\206�\306\307	\n\203�\203�\310\202�\311\312\313\314\315\316\"\317\n\206\"�\320\321F\"&\207" [buffer files rev1 rev2 apply vc-git-command "*vc-diff*" 1 "diff-tree" "diff-index" "--exit-code" append vc-switches git diff "-p" "HEAD" "--"] 13 (#$ . 25166)])
(defalias 'vc-git-revision-table #[(files) "\302C\303\304!r	q\210\305\216\306\307\310\211\311\312%\210eb\210\313\314\310\307#\203)�\315\316!B\202�+)\207" [table #1=#:temp-buffer "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git-command t nil "for-each-ref" "--format=%(refname)" re-search-forward "^refs/\$heads\\|tags\$/\$.*\$$" match-string 2] 6])
(defalias 'vc-git-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-git-revision-table] 2] quote --cl-rest--] 8] quote --cl-rest--] 10])
(defalias 'vc-git-annotate-command #[(file buf &optional rev) "\304!\305\n\306	\307%)\207" [file name buf rev file-relative-name vc-git-command 0 "blame"] 6])
(defalias 'vc-git-annotate-time #[nil "\300\301\302\303#\205�\304\305\306\307\310\311\"\"!\207" [re-search-forward "[0-9a-f]+[^()]+(.* \$[0-9]+\$-\$[0-9]+\$-\$[0-9]+\$ \$[0-9]+\$:\$[0-9]+\$:\$[0-9]+\$ \$[-+0-9]+\$ +[0-9]+) " nil t vc-annotate-convert-time apply encode-time mapcar #[(match) "\301\302!!\207" [match string-to-number match-string] 3] (6 5 4 3 2 1 7)] 6])
(defalias 'vc-git-annotate-extract-revision-at-line #[nil "\212\300\301!\210\302\303!\205�\304\305\224\305\225\")\207" [move-beginning-of-line 1 looking-at "[0-9a-f^][0-9a-f]+" buffer-substring-no-properties 0] 3])
(defalias 'vc-git-create-tag #[(dir name branchp) "\304\305\306\305\307\310%\205#�\n\203�\304\305\306\305\311\312&\202#�\304\305\306\305\313%)\207" [dir default-directory branchp name vc-git-command nil 0 "update-index" "--refresh" "checkout" "-b" "tag"] 7])
(defalias 'vc-git-retrieve-tag #[(dir name update) "\303\304\305\304\306\n%)\207" [dir default-directory name vc-git-command nil 0 "checkout"] 6])
#@49 Git-specific version of `vc-previous-revision'.
(defalias 'vc-git-previous-revision #[(file rev) "\203G�\306\307!!\310!\311\312!r\nq\210\313\216\314\315\316\317%\205<�db\205<�n\205<�\320\321y!\205<�o?\205<�\322`dS\"+\323\f!\206E�\f+\207\311\312!r
q\210\324\216\314\325\326P\"\205`�\322ee\327\\\"+\207" [file default-directory #1=#:temp-buffer rev prev-rev #2=#:temp-buffer file-name-directory expand-file-name file-name-nondirectory generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git--out-ok "rev-list" "-2" "--" zerop -1 buffer-substring-no-properties vc-git-symbolic-commit ((byte-code "\301!\203\n�\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) "rev-parse" "^" 40] 6 (#$ . 27741)])
#@45 Git-specific version of `vc-next-revision'.
(defalias 'vc-git-next-revision #[(file rev) "\306\307!!\310!\311\312!r\nq\210\313\216\314\315\316\317%\2057�db\2057�n\2057�\320\321y!\2057�o\2057�\322`dS\"+\211\205m�\311\312!r
q\210\323\216\314\315\324\317$\205l�eb\205l�\325\f\326\327#\205l�\320\321y!\205l�\322`\330y\210`S\"+\331!\206x�,\207" [file default-directory #1=#:temp-buffer rev current-rev #2=#:temp-buffer file-name-directory expand-file-name file-name-nondirectory generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git--out-ok "rev-list" "-1" "--" zerop -1 buffer-substring-no-properties ((byte-code "\301!\203\n�\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) "HEAD" search-forward nil t 1 vc-git-symbolic-commit next-rev] 7 (#$ . 28517)])
(defalias 'vc-git-delete-file #[(file) "\301\302\303\304\305\306&\207" [file vc-git-command nil 0 "rm" "-f" "--"] 7])
(defalias 'vc-git-rename-file #[(old new) "\302\303\304	D\305\306\307&\207" [old new vc-git-command nil 0 "mv" "-f" "--"] 7])
(byte-code "\302B\303\302!\204�\304\302\305 \306	\307\310#\210	)\"\210\302\207" [current-load-list map vc-git-extra-menu-map default-boundp set-default make-sparse-keymap define-key [git-grep] (menu-item "Git grep..." vc-git-grep :help "Run the `git grep' command")] 6)
(defalias 'vc-git-extra-menu #[nil "\207" [vc-git-extra-menu-map] 1])
(defalias 'vc-git-extra-status-menu #[nil "\207" [vc-git-extra-menu-map] 1])
#@712 Run git grep, searching for REGEXP in FILES in directory DIR.
The search is limited to file names matching shell pattern FILES.
FILES may use abbreviations defined in `grep-files-aliases', e.g.
entering `ch' is equivalent to `*.[ch]'.

With \[universal-argument] prefix, you can edit the constructed shell command line
before it is executed.
With two \[universal-argument] prefixes, directly edit and run `grep-command'.

Collect output in a buffer.  While git grep runs asynchronously, you
can use \[next-error] (M-x next-error), or \<grep-mode-map>\[compile-goto-error] in the grep output buffer,
to go to the lines where grep found matches.

This command shares argument histories with \[rgrep] and \[grep].
(defalias 'vc-git-grep #[(regexp &optional files dir) "\306\307!\210;\205b�G\310V\205b�\n\204!�	\311\230\203G�\312\202G�\313\314!!\315\316\n#\211\203G�\f\317\232\203B�\320\321	\312\211\322%\202G�\323\322	\"\210	\205a�\324\325	\326\"\210*p=\205a�\211)\207" [regexp command files dir current-prefix-arg compilation-environment require grep 0 "git grep" nil file-name-as-directory expand-file-name grep-expand-template "git grep -n -e <R> -- <F>" (4) read-from-minibuffer "Confirm: " grep-history add-to-history ("PAGER=") compilation-start grep-mode default-directory next-error-last-buffer] 7 (#$ . 30031) (byte-code "\305 \210\306\232\203�\307\310\311\312\211\313%\312D\207\314 \315	!\316\317\312\320$	\n\fE+\207" [current-prefix-arg regexp files default-directory dir grep-compute-defaults (16) read-from-minibuffer "Run: " "git grep" nil grep-history grep-read-regexp grep-read-files read-directory-name "In directory: " t] 6)])
(defalias 'vc-git-root #[(file) "\301\302\"\207" [file vc-find-root ".git"] 3])
#@132 A wrapper around `vc-do-command' for use in vc-git.el.
The difference to vc-do-command is that this function always invokes `git'.
(defalias 'vc-git-command #[(buffer okstatus file-or-list &rest flags) "\304\305\206�\306	\307\n&\207" [buffer okstatus file-or-list flags apply vc-do-command "*vc*" "git"] 7 (#$ . 31786)])
#@52 Check if the git db is empty (no commit done yet).
(defalias 'vc-git--empty-db-p #[nil "\300\301\302\303\304$\305=?\207" [vc-git--call nil "rev-parse" "--verify" "HEAD" 0] 5 (#$ . 32117)])
(defalias 'vc-git--call #[(buffer command &rest args) "\303\304\305\306\306	\n&\207" [buffer command args apply process-file "git" nil] 8])
(defalias 'vc-git--out-ok #[(command &rest args) "\302\303\304\305	$!\207" [command args zerop apply vc-git--call (t nil)] 6])
#@60 Run a git command on FILE and return its output as string.
(defalias 'vc-git--run-command-string #[(file &rest args) "\305\306\307\310!!\311\216	r	q\210\312\313\314\n\315!C\"\"\204�\316*r	q\210\317 +\205-�\f*\207" [ok standard-output args file str t get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) apply vc-git--out-ok append file-relative-name nil buffer-string] 6 (#$ . 32582)])
#@74 Translate COMMIT string into symbolic form.
Returns nil if not possible.
(defalias 'vc-git-symbolic-commit #[(commit) "\205:�\303\304!r	q\210\305\216\306\307\310#\205+�eb\205+�\311y\312U\205+�n\205+�\313edS\"+\211\2059�\n\314\230?\2059�\n)\207" [commit #1=#:temp-buffer name generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git--out-ok "name-rev" "--name-only" 2 1 buffer-substring-no-properties "undefined"] 5 (#$ . 33023)])
(provide 'vc-git)

${this.title}

Code Editor : vc-git.elc