Gecko [ goons4good.org ]

Name	Size	Permission	Date
add-log.elc	35.97 KB	-rw-r--r--	2023-06-07 04:15
compare-w.elc	9.89 KB	-rw-r--r--	2023-06-07 04:15
cvs-status.elc	21.51 KB	-rw-r--r--	2023-06-07 04:15
diff-mode.elc	63.77 KB	-rw-r--r--	2023-06-07 04:15
diff.elc	5.9 KB	-rw-r--r--	2023-06-07 04:15
ediff-diff.elc	35.48 KB	-rw-r--r--	2023-06-07 04:15
ediff-help.elc	11.36 KB	-rw-r--r--	2023-06-07 04:15
ediff-hook.elc	6.49 KB	-rw-r--r--	2023-06-07 04:19
ediff-init.elc	58.7 KB	-rw-r--r--	2023-06-07 04:15
ediff-merg.elc	9.68 KB	-rw-r--r--	2023-06-07 04:15
ediff-mult.elc	60.23 KB	-rw-r--r--	2023-06-07 04:15
ediff-ptch.elc	19.55 KB	-rw-r--r--	2023-06-07 04:15
ediff-util.elc	119.83 KB	-rw-r--r--	2023-06-07 04:15
ediff-vers.elc	5 KB	-rw-r--r--	2023-06-07 04:15
ediff-wind.elc	30.84 KB	-rw-r--r--	2023-06-07 04:15
ediff.elc	38.37 KB	-rw-r--r--	2023-06-07 04:15
emerge.elc	76.85 KB	-rw-r--r--	2023-06-07 04:15
log-edit.elc	32.25 KB	-rw-r--r--	2023-06-07 04:15
log-view.elc	18.21 KB	-rw-r--r--	2023-06-07 04:15
pcvs-defs.elc	15.6 KB	-rw-r--r--	2023-06-07 04:15
pcvs-info.elc	23.49 KB	-rw-r--r--	2023-06-07 04:15
pcvs-parse.elc	15.33 KB	-rw-r--r--	2023-06-07 04:15
pcvs-util.elc	24.08 KB	-rw-r--r--	2023-06-07 04:15
pcvs.elc	85.47 KB	-rw-r--r--	2023-06-07 04:15
smerge-mode.elc	37.72 KB	-rw-r--r--	2023-06-07 04:15
vc-annotate.elc	25.01 KB	-rw-r--r--	2023-06-07 04:15
vc-arch.elc	18.12 KB	-rw-r--r--	2023-06-07 04:15
vc-bzr.elc	41.49 KB	-rw-r--r--	2023-06-07 04:15
vc-cvs.elc	33.48 KB	-rw-r--r--	2023-06-07 04:15
vc-dav.elc	5.25 KB	-rw-r--r--	2023-06-07 04:15
vc-dir.elc	40.26 KB	-rw-r--r--	2023-06-07 04:15
vc-dispatcher.elc	16.33 KB	-rw-r--r--	2023-06-07 04:15
vc-git.elc	46.72 KB	-rw-r--r--	2023-06-07 04:15
vc-hg.elc	25.34 KB	-rw-r--r--	2023-06-07 04:15
vc-hooks.elc	31.95 KB	-rw-r--r--	2023-06-07 04:19
vc-mtn.elc	13.72 KB	-rw-r--r--	2023-06-07 04:15
vc-rcs.elc	35.34 KB	-rw-r--r--	2023-06-07 04:15
vc-sccs.elc	15.26 KB	-rw-r--r--	2023-06-07 04:15
vc-svn.elc	21.91 KB	-rw-r--r--	2023-06-07 04:15
vc.elc	68.74 KB	-rw-r--r--	2023-06-07 04:15

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:15:38 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-sccs.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\313\314\304\315\306\301&	\210\310\316\302\317\313\320\304\315\306\301&	\210\310\321\322\323\313\324\304\305\306\301&	\210\310\325\326\327\313\330\304\315\306\301&	\207" [custom-declare-group vc-sccs nil "VC SCCS backend." :version "24.1" :group vc custom-declare-variable vc-sccs-register-switches "Switches for registering a file in SCCS.\nA string or list of strings passed to the checkin program by\n\\[vc-register].  If nil, use the value of `vc-register-switches'.\nIf t, use no switches." :type (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "21.1" vc-sccs-diff-switches "String or list of strings specifying switches for SCCS diff under VC.\nIf nil, use the value of `vc-diff-switches'.  If t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) vc-sccs-header '("%W%") "Header keywords to be inserted by `vc-insert-headers'." (repeat string) vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "Where to look for SCCS master files.\nFor a description of possible values, see `vc-check-master-templates'." (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)))] 10)
(defconst vc-sccs-name-assoc-file "VC-names")
(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 (#$ . 2313)])
#@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 (#$ . 2966)])
(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 --dolist-tail-- frel vc-expand-dirs nil vc-state file-relative-name vc-backend SCCS up-to-date state update-function] 4])
#@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 (#$ . 3705)])
#@102 Write the SCCS version of input file FILE to output file OUTFILE.
Optional string REV is a revision.
(defalias 'vc-sccs-write-revision #[(file outfile &optional rev) "\304\305!rq\210\306\216\307\310\311\312\313\314	!\315\316\n\205�\317\nPC\"&\210\320\321\211\321\322%+\207" [#1=#:temp-buffer file rev outfile generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply vc-sccs-do-command t 0 "get" vc-name append ("-s" "-p" "-k") "-r" write-region nil silent] 10 (#$ . 4156)])
#@60 SCCS-specific implementation of `vc-workfile-unchanged-p'.
(defalias 'vc-sccs-workfile-unchanged-p #[(file) "\302\303!\304\216\305	\306	!#\210\307\310\311\312\313	%!*\207" [tempfile file make-temp-file "vc-sccs" ((delete-file tempfile)) vc-sccs-write-revision vc-working-revision zerop vc-do-command "*vc*" 1 "cmp"] 7 (#$ . 4700)])
(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 (#$ . 5245)])
#@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\205s�\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 --dolist-tail-- 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 (#$ . 5375)])
#@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 (#$ . 6443)])
#@48 SCCS-specific version of `vc-backend-checkin'.
(defalias 'vc-sccs-checkin #[(files rev comment) "\306!\307\211\205;�\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 --dolist-tail-- 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 (#$ . 6767)])
(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 (#$ . 7458)])
#@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\205N�\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 --dolist-tail-- 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"] 8 (#$ . 8324)])
#@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 (#$ . 8995)])
#@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 (#$ . 9415)])
#@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\205%�\n@\307\306\310\311\312	!\313P\314\fP&\210\nA\211\204\n�\306*\207" [files file --dolist-tail-- comment rev vc-expand-dirs nil vc-sccs-do-command 0 "cdc" vc-name "-y" "-r"] 9 (#$ . 9811)])
#@39 Get change log associated with FILES.
(defalias 'vc-sccs-print-log #[(files buffer &optional shortlog start-revision-ignored limit) "\303!\304	\305\306\307\310\"$\210\n\205�\311\207" [files buffer limit vc-expand-dirs vc-sccs-do-command 0 "prs" mapcar vc-name limit-unsupported] 7 (#$ . 10174)])
#@58 Get a difference report using SCCS between two filesets.
(defalias 'vc-sccs-diff #[(files &optional oldvers newvers buffer) "\306!\307@	\"\307@\n\"\204�\310r\311=\2043�;\203)�\312 \230\2043�p=\2043�\313!\210\314\315\316\317\"	\205@�\320	PC\n\205H�\320\nPC#\321\322\f\203Z�\323\324\325\f\323#P\202[�\326\327!#\3301\331p!23\203r�\332\333
\"\2102\203|�\3342!\210\3354\2115\203\375�5@4\336\337!\33567\340\216\34147	#\210\n\203\255�\3414\336\337!\2116\n#\210\311\21189\342:B:\311;\343\344\345\335\311\335\314\315\316\317\"76\206\322�\3464!D\"&\211<\250\204\340�\34711\250\203\362�<1V\203\362�<1.5A\2115\204\206�*1\250\2031\350V\2034\312p!\330H\351=\204\352p!\210eb\210\353 \210\347\354
1\250\2030\321\3551\"\20221#\2103\203@\332\356
1#\210\357\360\345\f$\2101-\207" [files oldvers newvers buffer fake-flags fake-command vc-expand-dirs vc-sccs-lookup-triple "*vc-diff*" t buffer-name vc-setup-buffer append vc-switches SCCS diff " -r" format "diff%s %s" " " mapconcat identity "" vc-delistify 0 get-buffer-process message "Running %s in foreground..." delete-process nil make-temp-file "vc-sccs" ((byte-code "\302!\210	\203\f�\302	!\210\302\207" [oldfile newfile delete-file] 2)) vc-sccs-write-revision "LC_MESSAGES=C" apply process-file "diff" file-relative-name error 1 32 pop-to-buffer shrink-window-if-larger-than-buffer "Running %s...FAILED (%s)" "status %d" "Running %s...OK = %d" run-hook-with-args vc-post-command-functions status oldproc vc-command-messages file --dolist-tail-- newfile oldfile inhibit-read-only buffer-undo-list process-environment w32-quote-process-args this-status] 12 (#$ . 10480)])
(defalias 'vc-sccs-create-tag #[(dir name branchp) "\203�\303\304!\210\305	!\211;\203�\303\306\n\"\202�\307	\310\")\207" [branchp dir result error "SCCS backend 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])
(defalias 'vc-sccs-previous-revision #[(file rev) "\302\303\304	$\207" [file rev vc-call-backend RCS previous-revision] 5])
(defalias 'vc-sccs-next-revision #[(file rev) "\302\303\304	$\207" [file rev vc-call-backend RCS next-revision] 5])
#@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 (#$ . 12753)])
(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])
(defalias 'vc-sccs-find-file-hook #[nil "\302\303\";\205�\304\211\207" [buffer-file-name buffer-read-only vc-state SCCS t] 3])
#@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 (#$ . 13481)])
#@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 (#$ . 14050)])
#@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 (#$ . 14311)])
(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 (#$ . 14942)])
(provide 'vc-sccs)