| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/pcmpl-cvs.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/pcmpl-cvs.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!\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 "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] "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 (#$ . 926)])
#@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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process nil t "--help-commands" re-search-forward "^\\s-+\\([a-z]+\\)" match-string 1 pcomplete-uniqify-list] 6 (#$ . 3552)])
#@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*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process nil t "checkout" "-c" re-search-forward "\\(\\S-+\\)$" match-string 1 pcomplete-uniqify-list] 7 (#$ . 4035)])
#@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*" ((byte-code "\301!\203\n \302!\210\301\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-uniqify-list] 9 (#$ . 4522)])
#@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\243 \314\315! &r&q\210\334\216\335 \336P!\210eb\210m\204\242 \337\340 \341 {\342\"\211 'A@\211 (\203\233 '@\343\230\203\226 \307(!(( B*\313y\210\202q +\n)\344 !,\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*" ((byte-code "\301!\203\n \302!\210\301\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 ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents "CVS/Entries" split-string line-beginning-position line-end-position "/" "D" pcomplete-uniqify-list pcmpl-cvs-binary #2# fields text pcomplete-stub] 10 (#$ . 5239)])