ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/vc-src.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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])
(defalias 'vc-src-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"])
(defalias 'vc-src-registered #[257 "\300\301\"\207" [vc-default-registered src] 4 "\n\n(fn F)"])
#@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 (#$ . 2029)])
(autoload 'vc-expand-dirs "vc")
(defalias 'vc-src-dir-status-files #[771 "\204 \300C\301\"\262\302\211\2037 \211@\303!\304!\305!\306=\203. \307=\204. \211DB\262\266A\266\202\202
\210!\207" [vc-expand-dirs RCS nil vc-state file-relative-name vc-backend SRC up-to-date] 10 "\n\n(fn DIR FILES UPDATE-FUNCTION)"])
#@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 (#$ . 3228)])
#@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 (#$ . 3592)])
#@30 Create a new SRC repository.
(defalias 'vc-src-create-repo #[0 "\300\301!\207" [make-directory ".src"] 2 (#$ . 4031)])
(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 (#$ . 4185)])
#@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 (#$ . 4364)])
#@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 (#$ . 4620)])
(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 "\n\n(fn FILE REV BUFFER)"])
#@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 (#$ . 5033)])
#@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 (#$ . 5267)])
#@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 (#$ . 5605)])
(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 (#$ . 6332)])
#@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 (#$ . 6882)])
#@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 (#$ . 7262)])
(provide 'vc-src)
Kontol Shell Bypass