WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/obsolete
Viewing File: /usr/share/emacs/24.3/lisp/obsolete/vc-mcvs.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:52 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/obsolete/vc-mcvs.el
;;; in Emacs version 24.3.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!\210\302\303\304\305\306\307\310\311\312\313&	\210\302\314\304\315\306\316\310\311\312\313&	\210\302\317\304\320\306\321\310\311\312\313&	\210\302\322\323\324\310\325\306\326\312\313&	\210\302\327\330\331\306\332\310\311\312\313&	\210\333\334\335\"\210\333\336\337\"\207" [require vc-cvs custom-declare-variable vc-mcvs-global-switches nil "Global switches to pass to any Meta-CVS command." :type (choice (const :tag "None" nil) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) :version "22.1" :group vc vc-mcvs-register-switches "Switches for registering a file into Meta-CVS.\nA string or list of strings passed to the checkin program by\n\\[vc-register].  If nil, use the value of `vc-register-switches'.\nIf 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-mcvs-diff-switches "String or list of strings specifying switches for Meta-CVS 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-mcvs-header vc-cvs-header "Header keywords to be inserted by `vc-insert-headers'." "24.1" (repeat string) vc-mcvs-use-edit vc-cvs-use-edit "Non-nil means to use `cvs edit' to \"check out\" a file.\nThis is only meaningful if you don't use the implicit checkout model\n(i.e. if you have $CVSREAD set)." boolean defalias vc-mcvs-revision-granularity vc-cvs-revision-granularity vc-mcvs-checkout-model vc-cvs-checkout-model] 10)
#@58 Return the root directory of a Meta-CVS project, if any.
(defalias 'vc-mcvs-root #[(file) "\301\302\"\206\303\302\304\305\"#\207" [file vc-file-getprop mcvs-root vc-file-setprop vc-find-root "MCVS/CVS"] 6 (#$ . 2234)])
(defalias 'vc-mcvs-read #[(file) "\302!\205\303\304!r	q\210\305\216\306!\210eb\210\307p!+\207" [file #1=#:temp-buffer file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents read] 2])
(defalias 'vc-mcvs-map-file #[(dir file) "\306\307\310\"!\311\211\311\211\203'\f@\3128
\232\203 A@\fA\211\204\311	,\207" [dir inode map x --dolist-tail-- file vc-mcvs-read expand-file-name "MCVS/MAP" nil 2] 5])
(defalias 'vc-mcvs-registered #[(file) "\304\211\211\305!\211\2059\306\n\307\n\"\"\211\2059\310\311	#\210\310\312\313\314	\n\"\211!\2035\315\312\"\2026\316#\210\317+\207" [cvsfile inode root file nil vc-mcvs-root vc-mcvs-map-file file-relative-name vc-file-setprop mcvs-inode vc-checkout-time vc-cvs-registered expand-file-name vc-file-getprop 0 t] 7])
#@42 Meta-CVS-specific version of `vc-state'.
(defalias 'vc-mcvs-state #[(file) "\304!\203\305\306\"\211\307>\203\310!\202	)\207\311\312!r\nq\210\313\216\314!\315\316\317\320$\210\321\316!+\207" [file state #1=#:temp-buffer default-directory vc-stay-local-p vc-file-getprop vc-state (up-to-date edited) vc-mcvs-state-heuristic generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-mcvs-root vc-mcvs-command t 0 "status" vc-cvs-parse-status] 6 (#$ . 3338)])
(defalias 'vc-mcvs-state-heuristic 'vc-cvs-state-heuristic)
(defalias 'vc-mcvs-working-revision #[(file) "\301\302\303\304\"\303\305\"\"!\207" [file vc-cvs-working-revision expand-file-name vc-file-getprop mcvs-inode mcvs-root] 6])
#@214 Register FILES into the Meta-CVS version-control system.
COMMENT can be used to provide an initial description of FILE.
Passes either `vc-mcvs-register-switches' or `vc-register-switches'
to the Meta-CVS command.
(defalias 'vc-mcvs-register #[(files &optional rev comment) "G\306V\203\307\310!\210@\311	!\312\313\n\"\211\205 \nT\314O\315	!\316\317
\"/\316\320
\"0\321/!1\3220!\204D\3230\324\"\210\322/!\204X\325/!\203X\323/\324\"\210\f\203\244\326\f1\"\204\244\327\330\331\314\324\314\211\332&2\f\333\3342P\226!D1B1\3351\336\"1r\337/!q\210\340 \210\3411p\"\210\342 \210\343p\324\"\204\243\344p!\210*\345\346\314\347	\3503\205\273\312\3513\"\205\273\3523P\353\354\355\"&\356	!\210.\207" [files file filename extpos ext root 1 error "Registering filesets is not yet supported" file-name-nondirectory string-match "\\." nil vc-mcvs-root expand-file-name "MCVS/TYPES" "MCVS/MAP" vc-mcvs-read file-writable-p vc-checkout t file-exists-p assoc completing-read "Type to use (default): " ("default" "name-only" "keep-old" "binary" "value-only") "default" make-symbol ":" sort #[(x y) "@	@\231\207" [x y] 2] find-file-noselect erase-buffer pp save-buffer get-buffer-window kill-buffer apply vc-mcvs-command 0 "add" "[^	\n ]" "-m" vc-switches MCVS register vc-mcvs-registered types-file map-file types type comment] 11 (#$ . 4104)])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [defalias vc-mcvs-responsible-p vc-mcvs-root "Return non-nil if CVS thinks it is responsible for FILE." vc-cvs-could-register vc-cvs-responsible-p "Return non-nil if FILE could be registered in Meta-CVS.\nThis is only possible if Meta-CVS is responsible for FILE's directory."] 4)
#@52 Meta-CVS-specific version of `vc-backend-checkin'.
(defalias 'vc-mcvs-checkin #[(files rev comment) "\2037\306!\2047\307!\204\310\311\"\210\2027\312\313\314\315	\316\317C&\210\312\313\314\315	\320\321C&\210\322\323	\"\210\314\203?\310\324!\210\312\313\314\325	\326\327\n\330\331\332\"&\333q\210eb\210\334!\204\335\336\314\337#\203q\322\340	\"\210\310\341\342\343!\"\210\202\344p!\210eb\210\345 \210\310\346!\210	G\325U\203\242\347	@\350\351\352eb\210\335
\314\337#\205\234\353\f!*#\210\202\247\322\354	\"\210\322\355	\"\210\205\276\307!?\205\276\313\314\315	\320\356%)\207" [rev files comment status i pattern vc-mcvs-valid-revision-number-p vc-mcvs-valid-symbolic-tag-name-p error "%s is not a valid symbolic tag name" apply vc-mcvs-command nil 0 "tag" "-b" "update" "-r" mapc #[(file) "\302\303	#\207" [file rev vc-file-setprop vc-mcvs-sticky-tag] 4] "Cannot commit to a specific revision number" 1 "ci" "-m" vc-switches MCVS checkin "*vc*" zerop re-search-forward "Up-to-date check failed" t #[(file) "\301\302\303#\207" [file vc-file-setprop vc-state needs-merge] 4] "%s" substitute-command-keys "Up-to-date check failed: type \\[vc-next-action] to merge in changes" pop-to-buffer shrink-window-if-larger-than-buffer "Check-in failed" vc-file-setprop vc-working-revision "^\\(new\\|initial\\) revision: \\([0-9.]+\\)" 2 match-string #[(file) "\301!\207" [file vc-file-clearprops] 2] #[(file) "\301\302\303#\207" [file vc-file-setprop vc-checkout-model nil] 4] "-A"] 11 (#$ . 5814)])
(defalias 'vc-mcvs-find-revision #[(file rev buffer) "\303\304\305	\306\307\n\205\n\310\230?\205\311\nP\312\313\314\315\"&	\207" [buffer file rev apply vc-mcvs-command 0 "-Q" "update" "" "-r" "-p" vc-switches MCVS checkout] 12])
(defalias 'vc-mcvs-checkout #[(file &optional editable rev) "\303\304\"\210r\305!\206
pq\210\306	\n\307\310\311\"$\210)\312!\210\303\313\"\207" [file editable rev message "Checking out %s..." get-file-buffer vc-mcvs-update vc-switches MCVS checkout vc-mode-line "Checking out %s...done"] 7])
(defalias 'vc-mcvs-update #[(file editable rev switches) "\306!\2037	\2047\n\205\\\307C!\310=?\205\\\203#\311\312\313\314$\207\315\316\317!\320\"\"\210\f\232\2056\321\322!\207\323\324\312#\210\325\311\312\313\n\205G\326\327	\203R	\330\230\203V\331\202Y\332	P
&\207" [file rev editable vc-mcvs-use-edit buffer-file-name switches file-exists-p vc-mcvs-checkout-model implicit vc-mcvs-command nil 0 "edit" set-file-modes logior file-modes 128 read-only-mode -1 vc-file-setprop vc-working-revision apply "-w" "update" "" "-A" "-r"] 9])
(defalias 'vc-mcvs-rename-file #[(old new) "\302\303\304\305\306	!%\207" [new old vc-mcvs-command nil 0 "move" file-relative-name] 7])
#@54 Revert FILE to the working revision it was based on.
(defalias 'vc-mcvs-revert #[(file &optional contents-done) "\303\304	#\210\305C!\306=?\205$\n\203\307\310\311\312$\207\313\314\315!\316\"\"\207" [file contents-done vc-mcvs-use-edit vc-default-revert MCVS vc-mcvs-checkout-model implicit vc-mcvs-command nil 0 "unedit" set-file-modes logand file-modes 3950] 5 (#$ . 8564)])
#@110 Merge changes into current working copy of FILE.
The changes are between FIRST-REVISION and SECOND-REVISION.
(defalias 'vc-mcvs-merge #[(file first-revision &optional second-revision) "\303\304\305\306\307\310	P\310\nP&\210\311\312\313#\210r\314\315!q\210eb\210\316\317\304\320#\203*\321\202+\305)\207" [file first-revision second-revision vc-mcvs-command nil 0 "update" "-kk" "-j" vc-file-setprop vc-state edited get-buffer "*vc*" re-search-forward "conflicts during merge" t 1] 9 (#$ . 8955)])
#@40 Merge in any new changes made to FILE.
(defalias 'vc-mcvs-merge-news #[(file) "\301\302\"\210\303\304\305#\210\306\307\305\310$\210r\311\312!q\210eb\210\313\314\307\315#\203.\303\316\317\320!#\210\2024\303\316\307#\210\321 \305=\203?\305\202\224\313\322\307\315#\203\215\317\323!\204]\317\320!\324\230\204]\317\320!\325\230\203q\303\326\327#\210\303\304\330\331!8#\210\305\202\224\317\320!\332\230\203\203\303\326\333#\210\305\202\224\303\326\333#\210\320\202\224\334\312!\210\335\336!\301\337\"\210)\207" [file message "Merging changes into %s..." vc-file-setprop vc-checkout-time 0 vc-mcvs-command nil "update" get-buffer "*vc*" re-search-forward "^Merging differences between [0-9.]* and \\([0-9.]*\\) into" t vc-working-revision match-string 1 buffer-size "^\\([CMUP] \\)?.*\\( already contains the differences between \\)?" 2 "U " "P " vc-state up-to-date 5 file-attributes "M " edited pop-to-buffer error "Couldn't analyze mcvs update result" "Merging changes into %s...done"] 6 (#$ . 9462)])
#@123 Modify the change comments for FILES on a specified REV.
Will fail unless you have administrative privileges on the repo.
(defalias 'vc-mcvs-modify-change-comment #[(files rev comment) "\303\304\305\306\307	\310\nR%\207" [files comment rev vc-mcvs-command nil 0 "rcs" "-m" ":"] 9 (#$ . 10491)])
#@39 Get change log associated with FILES.
(defalias 'vc-mcvs-print-log #[(files &optional buffer) "\303@!\304\n\305!\203\306\202\307\310$)\207" [files default-directory buffer vc-mcvs-root vc-mcvs-command vc-stay-local-p async 0 "log"] 5 (#$ . 10793)])
#@72 Get a difference report using Meta-CVS between two revisions of FILES.
(defalias 'vc-mcvs-diff #[(files &optional oldvers newvers buffer) "?\205\306	!\307	@!\310\311\f\206\312\n\203\302\202\313	\314
\205'\315
P\2050\315P\316\317\320\"&\n\203@\313\202B+\207" [vc-disable-async-diff files async default-directory buffer oldvers vc-stay-local-p vc-mcvs-root apply vc-mcvs-command "*vc-diff*" 1 "diff" "-r" vc-switches MCVS diff newvers status] 11 (#$ . 11056)])
#@122 Execute "mcvs annotate" on FILE, inserting the contents in BUFFER.
Optional arg REVISION is a revision to annotate from.
(defalias 'vc-mcvs-annotate-command #[(file buffer &optional revision) "\303\304	!\203\f\305\202
\306	\307\n\205\310\nP%\210rq\210eb\210\311\312!\210e`S|)\207" [buffer file revision vc-mcvs-command vc-stay-local-p async 0 "annotate" "-r" re-search-forward "^[0-9]"] 7 (#$ . 11546)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias vc-mcvs-annotate-current-time vc-cvs-annotate-current-time vc-mcvs-annotate-time vc-cvs-annotate-time] 3)
#@172 Assign to DIR's current revision a given NAME.
If BRANCHP is non-nil, the name is created as a branch (and the current
workspace is immediately moved to that new branch).
(defalias 'vc-mcvs-create-tag #[(dir name branchp) "\204\303\304\305	\306\307\n&\207\303\304\305	\310\n%\210\303\304\305	\311\n%\207" [branchp dir name vc-mcvs-command nil 0 "tag" "-c" "branch" "switch"] 7 (#$ . 12129)])
#@164 Retrieve a tag at and below DIR.
NAME is the name of the tag; if it is empty, do a `cvs update'.
If UPDATE is non-nil, then update (resynch) any affected buffers.
(defalias 'vc-mcvs-retrieve-tag #[(dir name update) "r\306\307!q\210\310\311 \210\203\312\230\203!\313\314\315\310\316$\210\202-\313\314\315\310\316\317&\210\f\205\256eb\210m?\205\256\320\321!\203\250\322\323\324!\"\323\325!%\326
!\211&\203\247%\327\230\204b%\330\230\203{\331
\332\333#\210\331
\334\310#\210\331
\335\336\337
!8#\210\202\233%\340\230\204\211%\341\230\203\233\331
\332\342#\210\331
\334\310#\210\331
\335\315#\210\331
\343	#\210\344
\314\211#\210+\325y\210\2024+\207" [dir sticky-tag default-directory name update file get-buffer-create "*vc*" nil erase-buffer "" vc-mcvs-command t 0 "update" "-r" looking-at "\\([CMUP]\\) \\(.*\\)" expand-file-name match-string 2 1 find-buffer-visiting "U" "P" vc-file-setprop vc-state up-to-date vc-working-revision vc-checkout-time 5 file-attributes "M" "C" edited vc-mcvs-sticky-tag vc-resynch-buffer state buffer] 8 (#$ . 12532)])
(byte-code "\300\301\302\303#\210\300\304\305\"\207" [defalias vc-mcvs-make-version-backups-p vc-stay-local-p "Return non-nil if version backups should be made for FILE." vc-mcvs-check-headers vc-cvs-check-headers] 4)
#@199 A wrapper around `vc-do-command' for use in vc-mcvs.el.
The difference to vc-do-command is that this function always invokes `mcvs',
and that it passes `vc-mcvs-global-switches' to it before FLAGS.
(defalias 'vc-mcvs-command #[(buffer okstatus file &rest flags) "\306\307;\203
	B\202\306	\"\"	@\310\235\204*\311\312\206!\313\f\314
\n&\202K\312\2060\313\f\315\316\317\320\321\322\306\323\316\n\"
\205D\324
!C\"\325#\326Q&)\207" [vc-mcvs-global-switches flags args buffer okstatus file append ("--error-terminate") ("diff" "log" "status") apply vc-do-command "*vc*" "mcvs" "sh" nil "-c" "mcvs " mapconcat shell-quote-argument remq file-relative-name " " " | mcvs filt"] 13 (#$ . 13837)])
(defalias 'vc-mcvs-repository-hostname #[(dirname) "\301\302!!\207" [dirname vc-cvs-repository-hostname vc-mcvs-root] 3])
#@76 Find the Meta-CVS state of all files in DIR, using only local information.
(defalias 'vc-mcvs-dir-state-heuristic #[(dir) "\303\304!rq\210\305\216\306	!\210eb\210m?\2056\307\310!\2030\311\312\313!	\"\314\n\315\"\204/\316\n\317\"\210)\313y\210\202+\207" [#1=#:temp-buffer dir file generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-cvs-get-entries looking-at "/\\([^/]*\\)/[^/-]" expand-file-name match-string 1 vc-file-getprop vc-state vc-cvs-parse-entry t] 3 (#$ . 14668)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [defalias vc-mcvs-valid-symbolic-tag-name-p vc-cvs-valid-symbolic-tag-name-p vc-mcvs-valid-revision-number-p vc-cvs-valid-revision-number-p provide vc-mcvs] 3)
F1l3 Manager
