HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/vc/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/vc/vc-src.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\323\306\301&\210\310\324\312\313\325DD\326\316\327\306\301&\210\310\330\312\313\331DD\332\316\333\306\301&\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] "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" [#1="src"] 1 #1#] "Name of the SRC executable (excluding any arguments)." string vc-src-diff-switches #[0 "\300\207" [nil] 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 ("") string)) vc-src-master-templates #[0 "\300\301!\207" [purecopy ("%s.src/%s,v")] 2] "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 (#$ . 1847)])
#@10 

(fn F)
(defalias 'vc-src-registered #[257 "\300\301\"\207" [vc-default-registered src] 4 (#$ . 1943)])
#@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\313\303\314\315\316	!&0\202*\210\303\262*r	q\210\317 +\320=\205j\321\322\"?\205j\211\320H\211\323\267\202g\324\202h\325\202h\326\202h\327\202h\330\202h\331\202h\332\202h\324\262)\207" [default-directory standard-output vc-src-program nil file-name-directory get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) process-file t "status" "-a" file-relative-name buffer-string 0 string-match "does not exist or is unreadable" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (46 75 65 79 77 83 73 87 82 91 33 95 63 99)) up-to-date added edited ignored removed missing unregistered] 11 (#$ . 2055)])
(autoload 'vc-expand-dirs "vc")
#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-src-dir-status-files #[771 "\204\300C\301\"\262\302\211\2037\211@\303!\304!\305!\301=\203.\306=\204.\211DB\262\266A\266\202\202
\210!\207" [vc-expand-dirs SRC nil vc-state file-relative-name vc-backend up-to-date] 10 (#$ . 2947)])
#@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 (#$ . 3253)])
#@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\2020\211\207" [standard-output (error) get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-src-command "list" "-f{1}" "@" buffer-string nil 0 "0"] 7 (#$ . 3617)])
#@30 Create a new SRC repository.
(defalias 'vc-src-create-repo #[0 "\300\301!\207" [make-directory ".src"] 2 (#$ . 4056)])
(autoload 'vc-switches "vc")
#@77 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 (#$ . 4210)])
#@87 Return non-nil if SRC thinks it would be responsible for registering FILE.

(fn FILE)
(defalias 'vc-src-responsible-p #[257 "\300\301\302\300!\203
\202\303!\"!\207" [file-directory-p expand-file-name ".src" file-name-directory] 6 (#$ . 4389)])
#@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 (#$ . 4645)])
#@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 (#$ . 4857)])
#@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 (#$ . 5072)])
#@145 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 (#$ . 5306)])
#@173 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	&\210A\266\202\202\207" [vc-expand-dirs SRC vc-src-command nil "amend" "-m"] 12 (#$ . 5644)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable vc-src-log-switches funcall function #[0 "\300\207" [nil] 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 ("") string)) :group vc-src] 8)
#@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 (#$ . 6371)])
#@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 (#$ . 6921)])
#@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 (#$ . 7301)])
(provide 'vc-src)