;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:15 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/pcmpl-cvs.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pcmpl-cvs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\302\304!\210\305\301\306\307\310\303%\207" [provide pcmpl-cvs require pcomplete executable custom-declare-group nil "Functions for dealing with CVS completions" :group] 6) #@37 *The full path of the 'cvs' binary. (custom-declare-variable 'pcmpl-cvs-binary '(or (executable-find "cvs") "cvs") '(#$ . -831) :type 'file :group 'pcmpl-cvs) #@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$\205L\202\313\320!\203=\321\305\322!\210\307\323\311\211\211$\205L\2021\313\324!\203I\325\211\202L\313\326!\203U\327\211\202L\313\330!\203c\331\305\332!\202L\313\333!\203x\334\305\335!\210\307\336\311\211\211$\202L\313\337!\203\215\340\305\341!\210\307\342\311\211\211$\202L\313\343!\203\245\344\305\345!\210\307\346\311\211\211$\205L\202\231\313\347!\203\272\350\305\351!\210\307\352\311\211\211$\202L\313\353!\203\322\354\305\355!\210\307\356\311\211\211$\205L\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*\202L\313\365!\203(\366\305\367!\210\307\370\311\211\211$\205L\202\313\371!\203@\372\305\373!\210\307\374\311\211\211$\205L\2024\307\375\311\211\211$\205L\202@)\207" [pcomplete-help pcomplete-index saw-backdate opt-index "(cvs)Invoking CVS" pcomplete-opt "HQqrwlntvfab/T/e*d/z?s" pcomplete--here (pcmpl-cvs-commands) nil t pcomplete-test "add" "(cvs)Adding files" "k?m?" (pcmpl-cvs-entries '(63)) "remove" "(cvs)Removing files" "flR" (pcmpl-cvs-entries '(85)) "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?" (pcmpl-cvs-modules) "rtag" "(cvs)Creating a branch" "aflRndbr?DF" (pcmpl-cvs-modules) "release" "(cvs)release" "d" (pcomplete-dirs) "export" "(cvs)export" "NflRnr?D?d/k?" (pcmpl-cvs-modules) "commit" "(cvs)commit files" "nRlfF.m?r(pcmpl-cvs-tags '(?M ?R ?A))" (pcmpl-cvs-entries '(77 82 65)) "diff" "(cvs)Viewing differences" "lRD?Nr(pcmpl-cvs-tags)" pcomplete-match "^-[Dr]" (pcmpl-cvs-entries (unless saw-backdate '(77))) "unedit" "(cvs)Editing files" "lR" (pcmpl-cvs-entries '(77 82 65)) "update" "(cvs)update" "APdflRpk?r(pcmpl-cvs-tags '(?U ?P))D?j(pcmpl-cvs-tags '(?U ?P))I(pcmpl-cvs-entries '(??))W?" (pcmpl-cvs-entries '(85 80)) (pcmpl-cvs-entries)] 6 (#$ . 996)]) #@42 Return a list of available CVS commands. (defalias 'pcmpl-cvs-commands #[nil "\303\304\305!!\306\216rq\210\307 \310\311\310\312%\210eb\210\310\313\314\310\311#\203*\315\316!\nB\202\317\n!,\207" [#1=#:temp-buffer pcmpl-cvs-binary cmds get-buffer-create generate-new-buffer-name " *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 (#$ . 3165)]) #@47 Return a list of available modules under CVS. (defalias 'pcmpl-cvs-modules #[nil "\303\304\305!!\306\216rq\210\307 \310\311\310\312\313&\210eb\210\310\314\315\310\311#\203,\316\317!\nB\202\320\n!,\207" [#1=#:temp-buffer pcmpl-cvs-binary entries get-buffer-create generate-new-buffer-name " *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 (#$ . 3676)]) #@70 Return all the tags which could apply to the files related to OPERS. (defalias 'pcmpl-cvs-tags #[(&optional opers) "\305!\306\307\310\311!!\312\216r q\210\313\314\f\306\315\306\316\317\n&\210eb\210\320\321\306\315#\203H\306y\210\322\323!\204!\322\324!\204<\325\326!\210\327\330! B\306y\210\202,+\331 !*\207" [opers tags entries #1=#:temp-buffer pcmpl-cvs-binary pcmpl-cvs-entries nil get-buffer-create generate-new-buffer-name " *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 (#$ . 4191)]) #@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\316!!\317\216r q\210 \203/\320 !\210\321(\313\322\313\323\324\325\326&\210eb\210\327\330\313\322#\203Z\331\332\333!!\f>\203?\332\334! B\202?+\202\276\314\315\316!!)\335\216r)q\210\336 \337P!\210eb\210m\204\275\340 \341 {*\342*\343\"+\313,*\344H\345=\203\231\311+B++A@\211,\203\266+@\346\230\203\261\307,!,, B+\313y\210\202u+\n-\347 !,\207" [arg dir nondir entries opers #1=#:temp-buffer pcomplete-arg file-name-as-directory file-name-directory "" file-name-nondirectory nil get-buffer-create generate-new-buffer-name " *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" line-beginning-position line-end-position split-string "/" 0 47 "D" pcomplete-uniqify-list pcmpl-cvs-binary #2# line fields text pcomplete-stub] 10 (#$ . 4936)])