;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303!\210\304\301\305\306\307\303%\210\310\311\312\313\314DD\315\316\317%\207" [provide pcmpl-cvs require pcomplete custom-declare-group nil "Functions for dealing with CVS completions." :group custom-declare-variable pcmpl-cvs-binary funcall function #[0 "\300\301!\206\301\207" [executable-find "cvs"] 2 ""] "The full path of the `cvs' binary." :type file] 6)
#@41 Completion rules for the `cvs' command.
(defalias 'pcomplete/cvs #[0 "\302\303\304!\210\305\306\307\310\307$\210\311\312!\203%\313\303\314!\210\305\315\307\211\211$\205k
\202\311\316!\203=\317\303\320!\210\305\321\307\211\211$\205k
\2021\311\322!\203I\323\211\202k
\311\324!\203U\325\211\202k
\311\326!\203c\327\303\330!\202k
\311\331!\203x\332\303\333!\210\305\334\307\211\211$\202k
\311\335!\203\215\336\303\337!\210\305\340\307\211\211$\202k
\311\341!\203\245\342\303\343!\210\305\344\307\211\211$\205k
\202\231\311\345!\203\272\346\303\347!\210\305\350\307\211\211$\202k
\311\351!\203\322\352\303\353!\210\305\354\307\211\211$\205k
\202\306\311\355!\203
\356	\307C\303\357!\210
	W\203

\360\361	Z\"\203\372\211\310\240\210	\262\202\341
T\262\202\341\305\362\363\"\307\211\211$\205
\202

\266\202\202k
\311\364!\203-
\365\303\366!\210\305\367\307\211\211$\205k
\202!
\311\370!\203E
\371\303\372!\210\305\373\307\211\211$\205k
\2029
\311\374!\203]
\375\303\376!\210\305\377\307\211\211$\205k
\202Q
\305\201@\307\211\211$\205k
\202]
)\207" [pcomplete-help pcomplete-index "(cvs)Invoking CVS" pcomplete-opt "HQqrwlntvfab/T/e*d/z?s" pcomplete--here #[0 "\300 \207" [pcmpl-cvs-commands] 1] nil t pcomplete-test "add" "(cvs)Adding files" "k?m?" #[0 "\300\301!\207" [pcmpl-cvs-entries (63)] 2] "remove" "(cvs)Removing files" "flR" #[0 "\300\301!\207" [pcmpl-cvs-entries (85)] 2] "init" "(cvs)Creating a repository" ("login" "logout") "(cvs)Password authentication client" "import" "(cvs)import" "dk?I(pcmpl-cvs-entries '(??))b?m?W?" "checkout" "(cvs)checkout" "ANPRcflnpsr?D?d/k?j?" #[0 "\300 \207" [pcmpl-cvs-modules] 1] "rtag" "(cvs)Creating a branch" "aflRndbr?DF" #[0 "\300 \207" [pcmpl-cvs-modules] 1] "release" "(cvs)release" "d" #[0 "\300\301
\302\"\207" [nil pcomplete-entries file-directory-p] 4] "export" "(cvs)export" "NflRnr?D?d/k?" #[0 "\300 \207" [pcmpl-cvs-modules] 1] "commit" "(cvs)commit files" "nRlfF.m?r(pcmpl-cvs-tags '(?M ?R ?A))" #[0 "\300\301!\207" [pcmpl-cvs-entries (77 82 65)] 2] "diff" "(cvs)Viewing differences" "lRD?Nr(pcmpl-cvs-tags)" pcomplete-match "^-[Dr]" make-closure #[0 "\301\300\242?\205\302!\207" [V0 pcmpl-cvs-entries (77)] 2] "unedit" "(cvs)Editing files" "lR" #[0 "\300\301!\207" [pcmpl-cvs-entries (77 82 65)] 2] "update" "(cvs)update" "APdflRpk?r(pcmpl-cvs-tags '(?U ?P))D?j(pcmpl-cvs-tags '(?U ?P))I(pcmpl-cvs-entries '(??))W?" #[0 "\300\301!\207" [pcmpl-cvs-entries (85 80)] 2] "status" "(cvs)File status" "vlR" #[0 "\300 \207" [pcmpl-cvs-entries] 1] #[0 "\300 \207" [pcmpl-cvs-entries] 1]] 7 (#$ . 477)])
#@42 Return a list of available CVS commands.
(defalias 'pcmpl-cvs-commands #[0 "\301\302\303\"r\211q\210\304\305\"\216\306\307\303\307\310%\210eb\210\307\311\312\307\303#\203+\313\314!
B\262
\202\315
!\262
*\207" [pcmpl-cvs-binary generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil "--help-commands" re-search-forward "^\\s-+\\([a-z]+\\)" match-string 1 pcomplete-uniquify-list] 7 (#$ . 3074)])
#@47 Return a list of available modules under CVS.
(defalias 'pcmpl-cvs-modules #[0 "\301\302\303\"r\211q\210\304\305\"\216\306\307\303\307\310\311&\210eb\210\307\312\313\307\303#\203-\314\315!
B\262
\202\316
!\262
*\207" [pcmpl-cvs-binary generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil "checkout" "-c" re-search-forward "\\(\\S-+\\)$" match-string 1 pcomplete-uniquify-list] 8 (#$ . 3554)])
#@92 Return all the tags which could apply to the files related to OPERS.

(fn &optional OPERS)
(defalias 'pcmpl-cvs-tags #[256 "\301
!\302\303\304\305\"r\211q\210\306\307\"\216\310\311\302\305\302\312\313\n&\210eb\210\314\315\302\305#\203I\302y\210\316\317!\204!\316\320!\204<\321\322!\210\323\324!B\262\302y\210\202,*\210\325
!\207" [pcmpl-cvs-binary pcmpl-cvs-entries nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply call-process "status" "-v" re-search-forward "Existing Tags:" looking-at "^$" "^\\s-+\\(\\S-+\\)\\s-+" error "Error in output from `cvs status -v'" match-string 1 pcomplete-uniquify-list] 13 (#$ . 4035)])
#@195 Return the Entries for the current directory.
If OPERS is a list of characters, return entries for which that
operation character applies, as displayed by `cvs -n update'.

(fn &optional OPERS)
(defalias 'pcmpl-cvs-entries #[256 "\302 \303\304!\206\n\305!\306!\206\305\307\203]\310\311\312\"r\211q\210\313\314\"\216\203,\315!\210\316\307\312\307\317\320\321\322&\210eb\210\323\324\307\312#\203X\325\326\327!!>\203;\326\330!B\262\202;*\210\202\254\331\332\333\"!\203\254\310\311\312\"r\211q\210\313\334\"\216\335\332\333\"!\210eb\210m\204\252\336\337 \340 {\341\"\211A@\211\203\242
@\342\230\203\235\303
!\262
\211B\262\266\307y\210\202~*\210
\343
!\207" [pcmpl-cvs-binary pcomplete-stub pcomplete-arg file-name-as-directory file-name-directory "" file-name-nondirectory nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] cd call-process "-q" "-n" "-f" "update" re-search-forward "^\\(.\\) \\(.+\\)$" string-to-char match-string 1 2 file-exists-p expand-file-name "CVS/Entries" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents split-string line-beginning-position line-end-position "/" "D" pcomplete-uniquify-list] 15 (#$ . 4745)])