;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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=\205\216\321\322\"?\205\216\211\320H\211\323=\203O\324\202\214\211\325=\203Y\326\202\214\211\327=\203c\330\202\214\211\331=\203m\332\202\214\211\333=\203w\334\202\214\211\335=\203\201\336\202\214\211\337=\203\213\340\202\214\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" 46 up-to-date 65 added 77 edited 73 ignored 82 removed 33 missing 63 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 (#$ . 2958)]) #@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 (#$ . 3264)]) #@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 (#$ . 3628)]) #@30 Create a new SRC repository. (defalias 'vc-src-create-repo #[0 "\300\301!\207" [make-directory ".src"] 2 (#$ . 4067)]) (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 (#$ . 4221)]) #@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 (#$ . 4400)]) #@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 (#$ . 4656)]) #@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 (#$ . 4868)]) #@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 (#$ . 5083)]) #@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 (#$ . 5317)]) #@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 (#$ . 5655)]) (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 (#$ . 6382)]) #@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\306 QC\202B\nC%\207" [vc-working-revision nil apply vc-src-command "*vc-diff*" "diff" "-"] 15 (#$ . 6932)]) #@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 (#$ . 7312)]) (provide 'vc-src)