;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327%\210\310\330\312\313\331DD\332\316\333%\207" [custom-declare-group vc-src nil "VC SRC backend." :version "25.1" :group vc custom-declare-variable vc-src-release funcall function #[0 "\300\207" [nil] 1 #1=""] "The release number of your SRC installation, as a string.\nIf nil, VC itself computes this value when it is first needed." :type (choice (const :tag "Auto" nil) (string :tag "Specified") (const :tag "Unknown" unknown)) vc-src-program #[0 "\300\207" ["src"] 1 #1#] "Name of the SRC executable (excluding any arguments)." string vc-src-diff-switches #[0 "\300\207" [nil] 1 #1#] "String or list of strings specifying switches for SRC 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-src-master-templates #[0 "\300\301!\207" [purecopy ("%s.src/%s,v")] 2 #1#] "Where to look for SRC master files.\nFor a description of possible values, see `vc-check-master-templates'." (choice (const :tag "Use standard SRC file names" '("%s.src/%s,v")) (repeat :tag "User-specified" (choice string function)))] 8)
(defalias 'vc-src-revision-granularity #[0 "\300\207" [file] 1])
#@14 

(fn FILES)
(defalias 'vc-src-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 1499)])
#@10 

(fn F)
(defalias 'vc-src-registered #[257 "\300\301\"\207" [vc-default-registered src] 4 (#$ . 1595)])
#@12 

(fn OUT)
(defalias 'vc-src--parse-state #[257 "\300\301\"?\2050\211\302H\211\303\267\202-\304\202.\305\202.\306\202.\307\202.\310\202.\311\202.\312\202.\304\262
\207" [string-match "does not exist or is unreadable" 0 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (46 17 65 21 77 25 73 29 82 33 33 37 63 41)) up-to-date added edited ignored removed missing unregistered] 4 (#$ . 1707)])
#@48 SRC-specific version of `vc-state'.

(fn FILE)
(defalias 'vc-src-state #[257 "\303\304!\305\306\307\"\310\216	r	q\210\3111'\312\n\303\307\303\313\314\315	!&0\202)\210\303\262
*r	q\210\316 +
\317=\205<\320
!)\207" [default-directory standard-output vc-src-program nil file-name-directory generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] (error) process-file "status" "-a" file-relative-name buffer-string 0 vc-src--parse-state] 11 (#$ . 2150)])
(autoload 'vc-expand-dirs "vc")
#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-src-dir-status-files #[771 "\303\211\206\304\305\306\"\307\216	r	q\210\3101,\311\312\n\303\306\303\313\314\315\316
\"&0\202.\210\303\262
*r	q\210\317 +\303\320=\205\267\321\322\306#\211\203~\211@\321
\323\306#\324
@!
A@\325
!\203g\211B\262\266\202w
\326=\204u\211D	B\262	\266
A\266\202\202D\210\211\211\203\263\211@\327\330!\303\331#\211\211\203\252\211@\332!
@P
A@D	B\262	
A\266\202\202\216\266
A\266\202\202\200\210!)\207" [default-directory standard-output vc-src-program nil generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] (error) apply process-file "status" "-a" mapcar file-relative-name buffer-string 0 split-string "[\n
]" "[	]" vc-src--parse-state file-directory-p up-to-date vc-src-dir-status-files expand-file-name identity file-name-as-directory] 16 (#$ . 2683)])
#@172 A wrapper around `vc-do-command' for use in vc-src.el.
This function differs from vc-do-command in that it invokes `vc-src-program'.

(fn BUFFER FILE-OR-LIST &rest FLAGS)
(defalias 'vc-src-command #[642 "\301;\203\302D\262
\202\203\302B\262
\303\304\206\305\306&\207" [vc-src-program nil "--" apply vc-do-command "*vc*" 0] 11 (#$ . 3592)])
#@59 SRC-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-src-working-revision #[257 "\3011!\302\303\304\"\305\216\306\307\310\311%\210)rq\210\312 +0\202#\210\313\211G\314U\203,\315\207\207" [standard-output (error) generate-new-buffer " *string-output*" t #[0 "\301!\207" [standard-output kill-buffer] 2] vc-src-command "list" "-f{1}" "@" buffer-string nil 0 "0"] 7 (#$ . 3956)])
#@30 Create a new SRC repository.
(defalias 'vc-src-create-repo #[0 "\300\301!\207" [make-directory ".src"] 2 (#$ . 4367)])
(autoload 'vc-switches "vc")
#@78 Register FILES under src.  COMMENT is ignored.

(fn FILES &optional COMMENT)
(defalias 'vc-src-register #[513 "\300\301\302#\207" [vc-src-command nil "add"] 6 (#$ . 4521)])
#@81 Return the directory if SRC thinks it would be responsible for FILE.

(fn FILE)
(defalias 'vc-src-responsible-p #[257 "\300\301\302!\203\f\202\303!\"\302
!\205\211\207" [expand-file-name ".src" file-directory-p file-name-directory] 5 (#$ . 4701)])
#@97 SRC-specific version of `vc-backend-checkin'.
REV is ignored.

(fn FILES COMMENT &optional REV)
(defalias 'vc-src-checkin #[770 "\300\301\302\303%\207" [vc-src-command nil "commit" "-m"] 9 (#$ . 4963)])
#@24 

(fn FILE REV BUFFER)
(defalias 'vc-src-find-revision #[771 "\302\211
\203\303
\304$\202\303
\304#*\207" [coding-system-for-write coding-system-for-read binary vc-src-command "cat"] 8 (#$ . 5175)])
#@103 Retrieve a revision of FILE.
REV is the revision to check out into WORKFILE.

(fn FILE &optional REV)
(defalias 'vc-src-checkout #[513 "\211\203\300\301\302$\207\300\301\302#\207" [vc-src-command nil "co"] 7 (#$ . 5390)])
#@144 Revert FILE to the version it was based on.
If FILE is a directory, revert all registered files beneath it.

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-src-revert #[513 "\300!\203\301\302\303C\304\"\"\207\305\306\307#\207" [file-directory-p mapc vc-src-revert vc-expand-dirs SRC vc-src-command nil "co"] 7 (#$ . 5624)])
#@172 Modify the change comments change on FILES on a specified REV.
If FILE is a directory the operation is applied to all registered
files beneath it.

(fn FILES REV COMMENT)
(defalias 'vc-src-modify-change-comment #[771 "\300\301\"\211\205\211@\302\303\304\305	&\210
A\266\202\202\207" [vc-expand-dirs SRC vc-src-command nil "amend" "-m"] 12 (#$ . 5961)])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable vc-src-log-switches funcall function #[0 "\300\207" [nil] 1 #1=""] "String or list of strings specifying switches for src log under VC." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string))] 6)
#@290 Print commit log associated with FILES into specified BUFFER.
If SHORTLOG is non-nil, use the list method.
If START-REVISION is non-nil, it is the newest revision to show.
If LIMIT is non-nil, show no more than this many entries.

(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-src-print-log #[1282 "\302!\210\303rq\210\304\305\203\306\202\307\205$\310\311\312\"D	\244%*\207" [inhibit-read-only vc-src-log-switches vc-setup-buffer t apply vc-src-command "list" "log" "-l" format "%s"] 14 (#$ . 6671)])
#@118 Get a difference report using src between two revisions of FILES.

(fn FILES &optional OLDVERS NEWVERS BUFFER ASYNC)
(defalias 'vc-src-diff #[1281 "@\211\205	\300
!
\232\203\204\301\262\204!\203!\211\262\302\303\206(\304	\305\n\205B	\203?\n\306QC\202B\nC%\207" [vc-working-revision nil apply vc-src-command "*vc-diff*" "diff" "-"] 15 (#$ . 7221)])
#@59 Rename file from OLD to NEW using `src mv'.

(fn OLD NEW)
(defalias 'vc-src-rename-file #[514 "\300\301\302\303%\207" [vc-src-command nil 0 "mv"] 8 (#$ . 7601)])
(provide 'vc-src)