%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\302\304!\210\305\301\306\307\310\303%\210\311\312\313\314\315\316\310\301&\207" [provide pcmpl-cvs require pcomplete executable custom-declare-group nil "Functions for dealing with CVS completions." :group custom-declare-variable pcmpl-cvs-binary (or (executable-find "cvs") "cvs") "The full path of the `cvs' binary." :type file] 8)
#@41 Completion rules for the `cvs' command.
(defalias 'pcomplete/cvs #[nil "\304\305\306!\210\307\310\311\312\311$\210\313\314!\203% \315\305\316!\210\307\317\311\211\211$\205h\202 \313\320!\203= \321\305\322!\210\307\323\311\211\211$\205h\2021 \313\324!\203I \325\211\202h\313\326!\203U \327\211\202h\313\330!\203c \331\305\332!\202h\313\333!\203x \334\305\335!\210\307\336\311\211\211$\202h\313\337!\203\215 \340\305\341!\210\307\342\311\211\211$\202h\313\343!\203\245 \344\305\345!\210\307\346\311\211\211$\205h\202\231 \313\347!\203\272 \350\305\351!\210\307\352\311\211\211$\202h\313\353!\203\322 \354\305\355!\210\307\356\311\211\211$\205h\202\306 \313\357!\203\360 \311\305\361!\210 W\203 \362\363 Z\"\203\371 \312 \211\202\343 T\211\202\343 \307\364\311\211\211$\205\f\202 *\202h\313\365!\203(\366\305\367!\210\307\370\311\211\211$\205h\202 \313\371!\203@\372\305\373!\210\307\374\311\211\211$\205h\2024\313\375!\203Z\376\305\377!\210\307\201@ \311\211\211$\205h\202L\307\201A \311\211\211$\205h\202Z)\207" [pcomplete-help pcomplete-index saw-backdate opt-index "(cvs)Invoking CVS" pcomplete-opt "HQqrwlntvfab/T/e*d/z?s" pcomplete--here #[nil "\300 \207" [pcmpl-cvs-commands] 1] nil t pcomplete-test "add" "(cvs)Adding files" "k?m?" #[nil "\300\301!\207" [pcmpl-cvs-entries (63)] 2] "remove" "(cvs)Removing files" "flR" #[nil "\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?" #[nil "\300 \207" [pcmpl-cvs-modules] 1] "rtag" "(cvs)Creating a branch" "aflRndbr?DF" #[nil "\300 \207" [pcmpl-cvs-modules] 1] "release" "(cvs)release" "d" #[nil "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] "export" "(cvs)export" "NflRnr?D?d/k?" #[nil "\300 \207" [pcmpl-cvs-modules] 1] "commit" "(cvs)commit files" "nRlfF.m?r(pcmpl-cvs-tags '(?M ?R ?A))" #[nil "\300\301!\207" [pcmpl-cvs-entries (77 82 65)] 2] "diff" "(cvs)Viewing differences" "lRD?Nr(pcmpl-cvs-tags)" pcomplete-match "^-[Dr]" #[nil "\301?\205 \302!\207" [saw-backdate pcmpl-cvs-entries (77)] 2] "unedit" "(cvs)Editing files" "lR" #[nil "\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?" #[nil "\300\301!\207" [pcmpl-cvs-entries (85 80)] 2] "status" "(cvs)File status" "vlR" #[nil "\300 \207" [pcmpl-cvs-entries] 1] #[nil "\300 \207" [pcmpl-cvs-entries] 1]] 6 (#$ . 782)])
#@42 Return a list of available CVS commands.
(defalias 'pcmpl-cvs-commands #[nil "\303\304!rq\210\305\216\306 \307\310\307\311%\210eb\210\307\312\313\307\310#\203( \314\315!\nB\202 \316\n!,\207" [#1=#:temp-buffer pcmpl-cvs-binary cmds generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process nil t "--help-commands" re-search-forward "^\\s-+\\([a-z]+\\)" match-string 1 pcomplete-uniquify-list] 6 (#$ . 3399)])
#@47 Return a list of available modules under CVS.
(defalias 'pcmpl-cvs-modules #[nil "\303\304!rq\210\305\216\306 \307\310\307\311\312&\210eb\210\307\313\314\307\310#\203* \315\316!\nB\202 \317\n!,\207" [#1=#:temp-buffer pcmpl-cvs-binary entries generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process nil t "checkout" "-c" re-search-forward "\\(\\S-+\\)$" match-string 1 pcomplete-uniquify-list] 7 (#$ . 3867)])
#@70 Return all the tags which could apply to the files related to OPERS.
(defalias 'pcmpl-cvs-tags #[(&optional opers) "\305!\306\307\310!r q\210\311\216\312\313\f\306\314\306\315\316\n&\210eb\210\317\320\306\314#\203F \306y\210\321\322!\204 \321\323!\204: \324\325!\210\326\327! B\306y\210\202* +\330 !*\207" [opers tags entries #1=#:temp-buffer pcmpl-cvs-binary pcmpl-cvs-entries nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process t "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] 9 (#$ . 4339)])
#@173 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'.
(defalias 'pcmpl-cvs-entries #[(&optional opers) "\306 \307\310!\206 \311!\312!\206 \311\313\f\203\\ \314\315! r
q\210\316\216 \203- \317 !\210\320'\313\321\313\322\323\324\325&\210eb\210\326\327\313\321#\203X \330\331\332!!\f>\203= \331\333! B\202= +\202\255 \334\335\336 \"!\203\255 \314\315! (r(q\210\337\216\340\335\336 \"!\210eb\210m\204\254 \341\342 \343 {\344\"\211 )A@\211 *\203\245 )@\345\230\203\240 \307*!** B*\313y\210\202{ +\n+\346 !,\207" [arg dir nondir entries opers #1=#:temp-buffer pcomplete-arg file-name-as-directory file-name-directory "" file-name-nondirectory nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] cd call-process t "-q" "-n" "-f" "update" re-search-forward "^\\(.\\) \\(.+\\)$" string-to-char match-string 1 2 file-exists-p expand-file-name "CVS/Entries" #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents split-string line-beginning-position line-end-position "/" "D" pcomplete-uniquify-list pcmpl-cvs-binary #2# fields text pcomplete-stub] 10 (#$ . 5041)])
Zerion Mini Shell 1.0