Gecko [ goons4good.org ]

Name	Size	Permission	Date
abbrevlist.elc	1.42 KB	-rw-r--r--	2023-06-07 04:09
assoc.elc	4.25 KB	-rw-r--r--	2023-06-07 04:09
awk-mode.elc	4.77 KB	-rw-r--r--	2023-06-07 04:09
bruce.el	5.96 KB	-rw-r--r--	2013-01-01 15:37
cl-compat.elc	4.13 KB	-rw-r--r--	2023-06-07 04:09
complete.elc	23.46 KB	-rw-r--r--	2023-06-07 04:09
cust-print.elc	12.46 KB	-rw-r--r--	2023-06-07 04:09
erc-hecomplete.elc	8.28 KB	-rw-r--r--	2023-06-07 04:09
fast-lock.elc	16.87 KB	-rw-r--r--	2023-06-07 04:09
iso-acc.elc	11.99 KB	-rw-r--r--	2023-06-07 04:09
iso-insert.elc	11.65 KB	-rw-r--r--	2023-06-07 04:09
iso-swed.elc	3.79 KB	-rw-r--r--	2023-06-07 04:09
keyswap.el	1.25 KB	-rw-r--r--	2013-01-01 15:37
lazy-lock.elc	24.37 KB	-rw-r--r--	2023-06-07 04:09
ledit.elc	4.59 KB	-rw-r--r--	2023-06-07 04:09
levents.elc	9.37 KB	-rw-r--r--	2023-06-07 04:09
lmenu.elc	11.17 KB	-rw-r--r--	2023-06-07 04:09
lucid.elc	6.13 KB	-rw-r--r--	2023-06-07 04:09
mailpost.elc	2.24 KB	-rw-r--r--	2023-06-07 04:09
mouse-sel.elc	20.34 KB	-rw-r--r--	2023-06-07 04:09
old-emacs-lock.elc	2.74 KB	-rw-r--r--	2023-06-07 04:09
old-whitespace.elc	22.67 KB	-rw-r--r--	2023-06-07 04:09
options.elc	4.14 KB	-rw-r--r--	2023-06-07 04:09
patcomp.el	750 B	-rw-r--r--	2012-11-02 03:00
pc-mode.elc	1.44 KB	-rw-r--r--	2023-06-07 04:09
pc-select.elc	12.42 KB	-rw-r--r--	2023-06-07 04:09
pgg-def.elc	2.38 KB	-rw-r--r--	2023-06-07 04:09
pgg-gpg.elc	12.88 KB	-rw-r--r--	2023-06-07 04:09
pgg-parse.elc	13.01 KB	-rw-r--r--	2023-06-07 04:09
pgg-pgp.elc	7.67 KB	-rw-r--r--	2023-06-07 04:09
pgg-pgp5.elc	7.59 KB	-rw-r--r--	2023-06-07 04:09
pgg.elc	19.18 KB	-rw-r--r--	2023-06-07 04:09
resume.elc	2.27 KB	-rw-r--r--	2023-06-07 04:09
s-region.elc	3.21 KB	-rw-r--r--	2023-06-07 04:09
scribe.elc	10.36 KB	-rw-r--r--	2023-06-07 04:09
spell.elc	4.09 KB	-rw-r--r--	2023-06-07 04:09
sregex.elc	12.35 KB	-rw-r--r--	2023-06-07 04:09
swedish.elc	2.58 KB	-rw-r--r--	2023-06-07 04:09
sym-comp.elc	6.11 KB	-rw-r--r--	2023-06-07 04:09
vc-mcvs.elc	15.07 KB	-rw-r--r--	2023-06-07 04:09

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:09:14 2023
;;; 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 (#$ . 2230)])
(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@\3128
\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 (#$ . 3334)])
(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 �\nT\314O\315	!\316\317
\"/\316\320
\"0\321/!1\3220!\204D�\3230\324\"\210\322/!\204X�\325/!\203X�\323/\324\"\210\f\203\244�\326\f1\"\204\244�\327\330\331\314\324\314\211\332&2\f\333\3342P\226!D1B1\3351\336\"1r\337/!q\210\340 \210\3411p\"\210\342 \210\343p\324\"\204\243�\344p!\210*\345\346\314\347	\3503\205\273�\312\3513\"\205\273�\3523P\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 (#$ . 4100)])
(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\317C&\210\312\313\314\315	\320\321C&\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\352eb\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 (#$ . 5810)])
(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\\�\307C!\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\305C!\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 (#$ . 8560)])
#@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 (#$ . 8951)])
#@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 (#$ . 9458)])
#@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 (#$ . 10487)])
#@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 (#$ . 10789)])
#@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�\315P\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 (#$ . 11052)])
#@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%\210rq\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 (#$ . 11542)])
(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 (#$ . 12125)])
#@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\256�eb\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 (#$ . 12528)])
(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 (#$ . 13833)])
(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!rq\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 (#$ . 14664)])
(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)