Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
add-log.elc	37.32 KB	-rw-r--r--
compare-w.elc	11.43 KB	-rw-r--r--
cvs-status.elc	20.93 KB	-rw-r--r--
diff-mode.elc	79.3 KB	-rw-r--r--
diff.elc	8.12 KB	-rw-r--r--
ediff-diff.elc	35.59 KB	-rw-r--r--
ediff-help.elc	11.75 KB	-rw-r--r--
ediff-hook.elc	6.46 KB	-rw-r--r--
ediff-init.elc	61.37 KB	-rw-r--r--
ediff-merg.elc	9.59 KB	-rw-r--r--
ediff-mult.elc	62.71 KB	-rw-r--r--
ediff-ptch.elc	20.25 KB	-rw-r--r--
ediff-util.elc	119.86 KB	-rw-r--r--
ediff-vers.elc	5.25 KB	-rw-r--r--
ediff-wind.elc	28.56 KB	-rw-r--r--
ediff.elc	41.19 KB	-rw-r--r--
emerge.elc	78.92 KB	-rw-r--r--
log-edit.elc	36.48 KB	-rw-r--r--
log-view.elc	18.74 KB	-rw-r--r--
pcvs-defs.elc	15.37 KB	-rw-r--r--
pcvs-info.elc	22.11 KB	-rw-r--r--
pcvs-parse.elc	14.9 KB	-rw-r--r--
pcvs-util.elc	21.53 KB	-rw-r--r--
pcvs.elc	85.67 KB	-rw-r--r--
smerge-mode.elc	39.76 KB	-rw-r--r--
vc-annotate.elc	26.25 KB	-rw-r--r--
vc-bzr.elc	41.48 KB	-rw-r--r--
vc-cvs.elc	36.24 KB	-rw-r--r--
vc-dav.elc	4.49 KB	-rw-r--r--
vc-dir.elc	43.58 KB	-rw-r--r--
vc-dispatcher.elc	17.4 KB	-rw-r--r--
vc-filewise.elc	1.91 KB	-rw-r--r--
vc-git.elc	74.65 KB	-rw-r--r--
vc-hg.elc	58.67 KB	-rw-r--r--
vc-hooks.elc	30.18 KB	-rw-r--r--
vc-mtn.elc	14.04 KB	-rw-r--r--
vc-rcs.elc	34.65 KB	-rw-r--r--
vc-sccs.elc	14.63 KB	-rw-r--r--
vc-src.elc	7.25 KB	-rw-r--r--
vc-svn.elc	23.45 KB	-rw-r--r--
vc.elc	75.95 KB	-rw-r--r--

Code Editor : vc-src.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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\216	r	q\210\3101&�\311\n\303\312\303\313\314\315	!&0\202(�\210\303\262*r	q\210\316 +\317=\205h�\320\321\"?\205h�\211\317H\211\322\267\202e�\323\202f�\324\202f�\325\202f�\326\202f�\327\202f�\330\202f�\331\202f�\323\262)\207" [default-directory standard-output vc-src-program nil file-name-directory generate-new-buffer " *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 73 65 77 77 81 73 85 82 89 33 93 63 97)) 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 (#$ . 2919)])
#@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 (#$ . 3225)])
#@59 SRC-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-src-working-revision #[257 "\3011 �\302\303!\304\216\305\306\307\310%\210)rq\210\311 +0\202\"�\210\312\211G\313U\203-�\314\202.�\211\207" [standard-output (error) generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-src-command "list" "-f{1}" "@" buffer-string nil 0 "0"] 7 (#$ . 3589)])
#@30 Create a new SRC repository.
(defalias 'vc-src-create-repo #[0 "\300\301!\207" [make-directory ".src"] 2 (#$ . 4000)])
(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 (#$ . 4154)])
#@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 (#$ . 4333)])
#@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 (#$ . 4589)])
#@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 (#$ . 4801)])
#@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 (#$ . 5016)])
#@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 (#$ . 5250)])
#@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 (#$ . 5588)])
(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 (#$ . 6315)])
#@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 (#$ . 6865)])
#@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 (#$ . 7245)])
(provide 'vc-src)

${this.title}

Code Editor : vc-src.elc