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

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

#@192 Switches for registering a file in SCCS.
A string or list of strings passed to the checkin program by
\[vc-register].  If nil, use the value of `vc-register-switches'.
If t, use no switches.
(custom-declare-variable 'vc-sccs-register-switches 'nil '(#$ . 606) :type '(choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc)
#@140 String or list of strings specifying switches for SCCS diff under VC.
If nil, use the value of `vc-diff-switches'.  If t, use no switches.
(custom-declare-variable 'vc-sccs-diff-switches 'nil '(#$ . 1051) :type '(choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "21.1" :group 'vc)
#@56 Header keywords to be inserted by `vc-insert-headers'.
(custom-declare-variable 'vc-sccs-header '(or (cdr (assoc 'SCCS vc-header-alist)) '("%W%")) '(#$ . 1440) :type '(repeat string) :group 'vc)
#@109 Where to look for SCCS master files.
For a description of possible values, see `vc-check-master-templates'.
(custom-declare-variable 'vc-sccs-master-templates ''("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir) '(#$ . 1642) :type '(choice (const :tag "Use standard SCCS file names" ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) (repeat :tag "User-specified" (choice string function))) :version "21.1" :group 'vc)
(byte-code "\301B\302\303!\207" [current-load-list vc-sccs-name-assoc-file (lambda (#1=#:defconst-tmp-var) (defconst vc-sccs-name-assoc-file #1#)) "VC-names"] 2)
(defalias 'vc-sccs-revision-granularity #[nil "\300\207" [file] 1])
(defalias 'vc-sccs-checkout-model #[(files) "\300\207" [locking] 1])
(defalias 'vc-sccs-registered #[(f) "\301\302\"\207" [f vc-default-registered SCCS] 3])
#@62 SCCS-specific function to compute the version control state.
(defalias 'vc-sccs-state #[(file) "\305!\204�\306\207\307\310!r	q\210\311\216\312\313!!\203J�\314 \315!\316\n\"A\211\2049�\317!\2035�\320\202F�\321\202F�\f\322!\230\203E�\323\202F�\f+\202K�\320+\207" [file #1=#:temp-buffer locks working-revision locking-user vc-sccs-registered unregistered generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file vc-sccs-lock-file vc-sccs-parse-locks vc-working-revision assoc vc-workfile-unchanged-p up-to-date unlocked-changes vc-user-login-name edited] 4 (#$ . 2460)])
#@32 SCCS-specific state heuristic.
(defalias 'vc-sccs-state-heuristic #[(file) "\304!\2048�\305\306\"\307	8\310	8\311\312\"\203�\313\2026�\311\314\"\2033�\315!\203/�\316\2026�\n\2026�\317!+\207\317!\207" [file attributes owner-name permissions vc-mistrust-permissions file-attributes string 2 8 string-match ".r-..-..-." up-to-date ".rw..-..-." file-ownership-preserved-p edited vc-sccs-state] 3 (#$ . 3113)])
(defalias 'vc-sccs-dir-status #[(dir update-function) "\306C!\307\211\307\211\2039�\f@\310!\311!
\312!\313=\2031�
\314=\2041�

D	B*\fA\211\204�*	!*\207" [dir result flist file #1=#:--cl-dolist-temp-- frel vc-expand-dirs nil vc-state file-relative-name vc-backend SCCS up-to-date state update-function] 5])
#@49 SCCS-specific version of `vc-working-revision'.
(defalias 'vc-sccs-working-revision #[(file) "\304\305!rq\210\306\216\307\310	!\311\"\210\312\313eb\210\314\315\316#\205#�\317\n!-\207" [#1=#:temp-buffer file i pattern generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file vc-name "^e\n[^s]" "^d D \$[^ ]+\$" 1 re-search-forward nil t match-string] 4 (#$ . 3860)])
#@60 SCCS-specific implementation of `vc-workfile-unchanged-p'.
(defalias 'vc-sccs-workfile-unchanged-p #[(file) "\301\302\303\304\305\306\307!\310\311\312\313!PE&!\207" [file zerop apply vc-do-command "*vc*" 1 "vcdiff" vc-name "--brief" "-q" "-r" vc-working-revision] 12 (#$ . 4310)])
(defalias 'vc-sccs-do-command #[(buffer okstatus command file-or-list &rest flags) "\305\306\206�\307	\310\n\f&\207" [buffer okstatus file-or-list command flags apply vc-do-command "*vc*" "sccs"] 8])
#@31 Create a new SCCS repository.
(defalias 'vc-sccs-create-repo #[nil "\300\301!\207" [make-directory "SCCS"] 2 (#$ . 4804)])
#@405 Register FILES into the SCCS version-control system.
REV is the optional revision number for the file.  COMMENT can be used
to provide an initial description of FILES.
Passes either `vc-sccs-register-switches' or `vc-register-switches'
to the SCCS command.

Automatically retrieve a read-only version of the files with keywords
expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile.
(defalias 'vc-sccs-register #[(files &optional rev comment) "\306\211\203r�\n@\307	!\206�\310\311	!\312\f\"\211\206'�\313@\f#\314\315\306\316\317\205A�\310\230?\205A�\320P\321\322\323	!P\205P�\324P\325\326\327\"&\n\210)\330	!\210\203j�\315\306\316\331\332	!$\210+\nA\211\204�*\306\207" [files file #1=#:--cl-dolist-temp-- dirname basename project-file nil file-name-directory "" file-name-nondirectory vc-sccs-search-project-dir format apply vc-sccs-do-command 0 "admin" "-r" "-fb" "-i" file-relative-name "-y" vc-switches SCCS register delete-file "get" vc-name vc-sccs-master-templates rev comment vc-keep-workfiles] 14 (#$ . 4934)])
#@77 Return non-nil if SCCS thinks it would be responsible for registering FILE.
(defalias 'vc-sccs-responsible-p #[(file) "\301\302\303\304!\"!\206�\305\304!\206�\306\307!\";\207" [file file-directory-p expand-file-name "SCCS" file-name-directory vc-sccs-search-project-dir "" file-name-nondirectory] 5 (#$ . 6010)])
#@48 SCCS-specific version of `vc-backend-checkin'.
(defalias 'vc-sccs-checkin #[(files rev comment) "\306!\307\211\203:�\n@\310\311\307\312\313\314	!\205�\315P\316\fP\317\320\321\"&\210
\2033�\311\307\312\322\314	!$\210\nA\211\204\n�*\307\207" [files file #1=#:--cl-dolist-temp-- rev comment vc-keep-workfiles vc-expand-dirs nil apply vc-sccs-do-command 0 "delta" vc-name "-r" "-y" vc-switches SCCS checkin "get"] 12 (#$ . 6334)])
(defalias 'vc-sccs-find-revision #[(file rev buffer) "\303\304\305\306\307	!\310\311\n\205�\312\313	\n\"P\314\315\316\"&	\207" [buffer file rev apply vc-sccs-do-command 0 "get" vc-name "-s" "-p" "-r" vc-sccs-lookup-triple vc-switches SCCS checkout] 12])
#@243 Retrieve a copy of a saved revision of SCCS controlled FILE.
If FILE is a directory, all version-controlled files beneath are checked out.
EDITABLE non-nil means that the file should be writable and
locked.  REV is the revision to check out.
(defalias 'vc-sccs-checkout #[(file &optional editable rev) "\306!\203�\307\310\311C!\"\207\312!\313\314\315\"\210\212\n\203!�\nq\210\316\317\320\"\212\321!\f\203>�\f\322\230\204<�\f;\204>�\313\323\324\313\325\326\327!
\205K�\330\f\205U�\331\332\f\"P	&\210+\314\333\"*\207" [file switches file-buffer default-directory rev editable file-directory-p mapc vc-sccs-checkout vc-expand-dirs get-file-buffer nil message "Checking out %s..." vc-switches SCCS checkout file-name-directory "" apply vc-sccs-do-command 0 "get" vc-name "-e" "-r" vc-sccs-lookup-triple "Checking out %s...done"] 11 (#$ . 7033)])
#@117 Roll back, undoing the most recent checkins of FILES.  Directories
are expanded to all version-controlled subfiles.
(defalias 'vc-sccs-rollback #[(files) "\304!\211\204\f�\305\306!\210\307\211\203M�\n@\310	!\311\312\313	#!\204)�\305\314!\210\315\316	#\210\317\307\320\321\322	!\323P%\210\317\307\320\324\322	!\307%\210)\nA\211\204�*\307\207" [files file #1=#:--cl-dolist-temp-- discard vc-expand-dirs error "SCCS backend doesn't support directory-level rollback." nil vc-working-revision yes-or-no-p format "Remove version %s from %s history? " "Aborted" message "Removing revision %s from %s..." vc-sccs-do-command 0 "rmdel" vc-name "-r" "get"] 9 (#$ . 7899)])
#@90 Revert FILE to the version it was based on. If FILE is a directory,
revert all subfiles.
(defalias 'vc-sccs-revert #[(file &optional contents-done) "\301!\203�\302\303\304C!\"\207\305\306\307\310\311!$\210\305\306\307\312\311!$\210\313\314\306#\207" [file file-directory-p mapc vc-sccs-revert vc-expand-dirs vc-sccs-do-command nil 0 "unget" vc-name "get" vc-file-setprop vc-working-revision] 6 (#$ . 8579)])
#@67 Steal the lock on the current workfile for FILE and revision REV.
(defalias 'vc-sccs-steal-lock #[(file &optional rev) "\302!\203�\303\304\305C!\"\207\306\307\310\311\312!\313	\205�\314	P&\210\306\307\310\315\312!\316	\205/�\314	P&\207" [file rev file-directory-p mapc vc-sccs-steal-lock vc-expand-dirs vc-sccs-do-command nil 0 "unget" vc-name "-n" "-r" "get" "-g"] 8 (#$ . 8999)])
#@80 Modify (actually, append to) the change comments for FILES on a specified REV.
(defalias 'vc-sccs-modify-change-comment #[(files rev comment) "\305!\306\211\203$�\n@\307\306\310\311\312	!\313P\314\fP&\210\nA\211\204\n�*\306\207" [files file #1=#:--cl-dolist-temp-- comment rev vc-expand-dirs nil vc-sccs-do-command 0 "cdc" vc-name "-y" "-r"] 9 (#$ . 9395)])
#@39 Get change log associated with FILES.
(defalias 'vc-sccs-print-log #[(files &optional buffer) "\302!\303	\304\305\306\307\"$\207" [files buffer vc-expand-dirs vc-sccs-do-command 0 "prs" mapcar vc-name] 7 (#$ . 9766)])
#@58 Get a difference report using SCCS between two filesets.
(defalias 'vc-sccs-diff #[(files &optional oldvers newvers buffer) "\304!\305@	\"\305@\n\"\306\307\206�\310\311\312\313\314\304!\"\315\316	\205(�\317	P\n\205/�\317\nPE\320\321\322\"\"&\207" [files oldvers newvers buffer vc-expand-dirs vc-sccs-lookup-triple apply vc-do-command "*vc-diff*" 1 "vcdiff" mapcar vc-name append "-q" "-r" vc-switches SCCS diff] 11 (#$ . 9993)])
(defalias 'vc-sccs-create-tag #[(backend dir name branchp) "\203	�\304\305	\"\210\306\n!\211;\203�\304\307\"\202�\310\n\311\")\207" [branchp backend dir result error "SCCS backend %s does not support module branches" vc-tag-precondition "File %s is not up-to-date" vc-file-tree-walk #[(f) "\302	\303	!#\207" [name f vc-sccs-add-triple vc-working-revision] 5]] 4])
#@50 Check if the current file has any headers in it.
(defalias 'vc-sccs-check-headers #[nil "\212eb\210\300\301\302\303#)\207" [re-search-forward "%[A-Z]%" nil t] 4 (#$ . 10808)])
(defalias 'vc-sccs-rename-file #[(old new) "\304\305!	\n#\210r\306\307\310\305!!\"!q\210eb\210\311\312\313!\314Q\315\316#\2030�\317\312	P\315\211#\210\202�\320 \210\321p!)\207" [old new vc-sccs-master-templates vc-sccs-name-assoc-file vc-rename-master vc-name find-file-noselect expand-file-name file-name-directory re-search-forward ":" regexp-quote "$" nil t replace-match basic-save-buffer kill-buffer] 6])
#@163 Return the name of a master file in the SCCS project directory.
Does not check whether the file exists but returns nil if it does not
find any project directory.
(defalias 'vc-sccs-search-project-dir #[(dirname basename) "\304\305!\306\211\211\205E�\307\n!\203�\310\202�\311\312\313\nP!\204;�	\203;�\312	@\n\"\314!\204�\306	A\202�\205E�\312\315P\"+\207" [dir dirs project-dir basename getenv "PROJECTDIR" nil file-name-absolute-p ("SCCS" "") ("src/SCCS" "src" "source/SCCS" "source") expand-file-name "~" file-directory-p "s."] 4 (#$ . 11406)])
#@48 Generate lock file name corresponding to FILE.
(defalias 'vc-sccs-lock-file #[(file) "\302!\211\205�\303\304	\"\205�\305\306\307\211	\310%)\207" [file master vc-name string-match "\$.*/\$\$s\\.\$\$.*\$" replace-match "p." t 2] 7 (#$ . 11975)])
#@113 Parse SCCS locks in current buffer.
The result is a list of the form ((REVISION . USER) (REVISION . USER) ...).
(defalias 'vc-sccs-parse-locks #[nil "\301eb\210\302\303\301\304#\203�\305\306!\305\307!BB\202�\237)\207" [master-locks nil re-search-forward "^\$[0-9.]+\$ [0-9.]+ \$[^ ]+\$ .*\n?" t match-string 1 2] 4 (#$ . 12236)])
(defalias 'vc-sccs-add-triple #[(name file rev) "r\304\305\306\307	!!\"!q\210db\210\n\310	\311\312\261\210\313 \210\314p!)\207" [vc-sccs-name-assoc-file file name rev find-file-noselect expand-file-name file-name-directory vc-name "	:	" "	" "\n" basic-save-buffer kill-buffer] 6])
#@136 Return the numeric revision corresponding to a named tag of FILE.
If NAME is nil or a revision number string it's just passed through.
(defalias 'vc-sccs-lookup-triple #[(file name) "\203�\306H\211\307Y\205�	\310X)\203�\207\311\312!r\nq\210\313\216\314\315\316\317\f!!\"!\210\320\f\321R\322eb\210\323\324\325#\205D�\326
!-\207" [name firstchar #1=#:temp-buffer vc-sccs-name-assoc-file file i 0 48 57 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file expand-file-name file-name-directory vc-name "	:	" "	\$.+\$" 1 re-search-forward nil t match-string pattern] 7 (#$ . 12867)])
(provide 'vc-sccs)

${this.title}

Code Editor : vc-sccs.elc