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



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\301&	\207" [require pcomplete custom-declare-variable pcmpl-x-tlmgr-program funcall function #[0 "\300\207" ["tlmgr"] 1 ""] "Name of the tlmgr program." :version "24.4" :type file :group] 10)
(defvar pcmpl-x-tlmgr-common-options '("--repository" "--gui" "--gui-lang" "--machine-readable" "--package-logfile" "--pause" "--persistent-downloads" "--no-persistent-downloads" "--no-execute-actions" "--debug-translation" "--help" "--version"))
(defvar pcmpl-x-tlmgr-actions '(("help") ("version") ("gui") ("install") ("update") ("backup") ("restore") ("remove") ("repository" ("list" "add" "remove" "set")) ("candidates") ("option" ("show" "showall" "repository" "formats" "postcode" "docfiles" "srcfiles" "backupdir" "autobackup" "sys_bin" "sys_man" "sys_info" "desktop_integration" "fileassocs" "multiuser")) ("conf" ("texmf" "tlmgr")) ("paper" ("a4" "letter" "xdvi" "pdftex" "dvips" "dvipdfmx" "dvipdfm" "context") (lambda nil (unless (member (pcomplete-arg 1) '("a4" "letter")) (pcomplete-here* '("paper")) (pcomplete-here* '("a4" "letter"))))) ("platform" ("list" "add" "remove")) ("print-platform" ("collections" "schemes")) ("arch" ("list" "add" "remove")) ("print-arch" ("collections" "schemes")) ("info" ("collections" "schemes")) ("search") ("dump-tlpdb") ("check" ("files" "depends" "executes" "runfiles" "all")) ("path" ("add" "remove")) ("postaction" ("install" "remove") ("shortcut" "fileassoc" "script")) ("uninstall") ("generate" ("language" "language.dat" "language.def" "language.dat.lua" "fmtutil"))))
(defvar pcmpl-x-tlmgr-options-cache (make-hash-table :size 31 :test 'equal))
#@55 Get the list of long options for ACTION.

(fn ACTION)
(defalias 'pcmpl-x-tlmgr-action-options #[257 "\302
\303#\303=\203L\304\305\306\"r\211q\210\307\310\"\216\311	\312\306\312\313&\314U\205Jeb\210\315\316\312\317\320\312\306#\203?\321\322!
B\262
\202-\211\237\262
B#\210\323!*\207\302
\"\207" [pcmpl-x-tlmgr-options-cache pcmpl-x-tlmgr-program gethash missing generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil "-h" 0 puthash "--help" re-search-forward "^[ 	]+\\(--[[:alnum:]-]+=?\\)" match-string 1 pcmpl-x-tlmgr-action-options] 10 (#$ . 1749)])
#@37 Completion for the `tlmgr' command.
(defalias 'pcomplete/tlmgr #[0 "\301\302\303\"\203(\304\305\306\307\306$\210\301\302\303\"\204\310\311\303!\"\204\304\312\306\307\306$\210\202\304\313\306\307\306$\210\314\311\315!!\301\302\303\"\203H\304\316\317\"\306\307\306$\210\2024\320
\"A\211\203\203\211@\321
!\203_\211 \210\202|\310\311\303!\"\203u\304\316\322\"\306\307\306$\210\202|\304\323\306\307\306$\210
A\266\202\202M\210\301\302\303\"\2044\304\324\306\307\306$\210\2024" [pcmpl-x-tlmgr-actions pcomplete-match "^--" 0 pcomplete--here #[0 "\207" [pcmpl-x-tlmgr-common-options] 1] nil t all-completions pcomplete-arg #[0 "\300\211\301\300\302\303#\"\207" [nil pcomplete-entries make-closure #1=#[257 "\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8] #[0 "\207" [pcmpl-x-tlmgr-actions] 1] substring-no-properties 1 make-closure #[0 "\301\300!\207" [V0 pcmpl-x-tlmgr-action-options] 2] assoc functionp #[0 "\300\207" [V0] 1] #[0 "\300\211\301\300\302\303#\"\207" [nil pcomplete-entries make-closure #1#] 8] #[0 "\300\211\301\300\302\303#\"\207" [nil pcomplete-entries make-closure #1#] 8]] 8 (#$ . 2394)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable pcmpl-x-ack-program funcall function #[0 "\300\301\302!\206\301\303!\206\303!\207" [file-name-nondirectory executable-find "ack-grep" "ack"] 3 ""] "Name of the ack program." :version "24.4" :type file :group pcomplete] 10)
#@36 Color names for the `ack' command.
(defvar pcmpl-x-ack-color-options '("clear" "reset" "dark" "bold" "underline" "underscore" "blink" "reverse" "concealed" "black" "red" "green" "yellow" "blue" "magenta" "on_black" "on_red" "on_green" "on_yellow" "on_blue" "on_magenta" "on_cyan" "on_white") (#$ . 3927))
#@74 Run ack with ARGS and send the output to BUFFER.

(fn BUFFER &rest ARGS)
(defalias 'pcmpl-x-ack-run #[385 "\3011\302\303\206\304\305\305&0\207\210\306\207" [pcmpl-x-ack-program (file-error) apply call-process "ack" nil -1] 9 (#$ . 4238)])
#@38 Short options for the `ack' command.
(defalias 'pcmpl-x-ack-short-options #[0 "\300\301\302\"r\211q\210\303\304\"\216\305\306\302\307\"\310U\2052eb\210\311\312\305\302#\203,\313\314!
B\262
\202\315\316\237\317#\262
*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil pcmpl-x-ack-run "--help" 0 re-search-forward "^  -\\([^-]\\)" match-string 1 mapconcat identity ""] 6 (#$ . 4492)])
#@57 Long options for the `ack' command.

(fn &optional ARG)
(defalias 'pcmpl-x-ack-long-options #[256 "\300\301\302\"r\211q\210\303\304\"\216\305\306\302\206\307\"\310U\205Meb\210\311\312\305\302#\203K\313\314!\2046\313\315!
B\262
\202\316\313\317!P
B\262
\320\313\317!P
B\262
\202\211\237\262
*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil pcmpl-x-ack-run "--help" 0 re-search-forward "\\(?:   ?\\|, \\)\\(--\\(\\[no\\]\\)?\\([[:alnum:]-]+=?\\)\\)" match-string 2 1 "--" 3 "--no"] 7 (#$ . 4959)])
#@40 A list of types for the `ack' command.
(defalias 'pcmpl-x-ack-type-options #[0 "\300\301!\207" [pcmpl-x-ack-long-options "--help-types"] 2 (#$ . 5547)])
#@115 Completion for the `ack' command.
Start an argument with `-' to complete short options and `--' for
long options.
(defalias 'pcomplete/ack #[0 "\300\301\302\"\203\\\300\303\302\"\203\304\305\306\307\302\"\310\211$\210\202\300\311\302\"\203/\304\312\306\307\302\"\310\211$\210\202\300\313\302\"\203C\304\314\306\307\302\"\310\211$\210\202\300\315\302\"\203T\304\316\317\310\317$\210\202\320\321 !\210\202\304\322\317\310\317$\210\202" [pcomplete-match "^-" 0 "^--color-\\w+=\\(\\S-*\\)" pcomplete--here #[0 "\207" [pcmpl-x-ack-color-options] 1] pcomplete-match-string 1 t "^--\\(?:no\\)?ignore-dir=\\(\\S-*\\)" #[0 "\300\301
\302\"\207" [nil pcomplete-entries file-directory-p] 4] "^--type=\\(\\S-*\\)" #[0 "\300\301\302 \"\207" [mapcar #[257 "\211\300\301O\207" [2 nil] 4 "\n\n(fn TYPE-OPTION)"] pcmpl-x-ack-type-options] 3] "^--" #[0 "\300\301 \302 \"\207" [append pcmpl-x-ack-long-options pcmpl-x-ack-type-options] 3] nil pcomplete-opt pcmpl-x-ack-short-options #[0 "\300\211\301\300\302\303#\"\207" [nil pcomplete-entries make-closure #[257 "\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8]] 5 (#$ . 5707)])
(defalias 'pcomplete/ack-grep 'pcomplete/ack)
(defvar pcmpl-x-ag-options nil)
(defalias 'pcmpl-x-ag-options #[0 "\206\200\301\302\303\"r\211q\210\304\305\"\216\306\307\310\303\310\311%\312U\205{\310\211eb\210\313\314\310\303#\2034\315\316!B\262\202\"eb\210\313\317\310\303#\203p\315\320!\203f\321\322\310\211\211\320%\210\315\316!
B\262
\321\323\310\211\211\320%\210\315\316!
B\262
\2027\315\316!
B\262
\2027\324\237B\325\237BD\266\202*\262
\211\207" [pcmpl-x-ag-options generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "ag" nil "--help" 0 re-search-forward "^ +\\(-[a-zA-Z]\\) " match-string 1 "^ +\\(?:-[a-zA-Z] \\)?\\(--\\(\\[no\\]\\)?[^ 	\n]+\\) " 2 replace-match "" "no" short long] 9])
#@34 Completion for the `ag' command.
(defalias 'pcomplete/ag #[0 "\300\301\302\"\203\303\304\305\306\305$\210\202\303\307\305\306\305$\210\202" [pcomplete-match "^-" 0 pcomplete--here #[0 "\300\301\302\"\203\303\202\f\304\305 \236A\207" [pcomplete-match "^--" 0 long short pcmpl-x-ag-options] 3] nil t #[0 "\300\211\301\300\302\303#\"\207" [nil pcomplete-entries make-closure #[257 "\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8]] 5 (#$ . 7699)])
#@49 Completion function for Borland's C++ compiler.
(defalias 'pcomplete/bcc32 #[0 "\300\301!\302\303\"\203\304\305\306\307\"\310\211$\266\202\\\302\311\"\203-\304\312\306\307\"\310\211$\266\202\\\302\313\"\203B\304\314\306\315\"\310\211$\266\202\\\302\316\"\203W\304\317\306\315\"\310\211$\266\202\\\320\321!\266\304\322\310\211\211$\205h\202\\\207" [pcomplete-arg 0 string-match "\\`-w\\([^;]+;\\)*\\([^;]*\\)\\'" pcomplete--here #[0 "\300\207" [("ali" "amb" "amp" "asc" "asm" "aus" "bbf" "bei" "big" "ccc" "cln" "cod" "com" "cpt" "csu" "def" "dig" "dpu" "dsz" "dup" "eas" "eff" "ext" "hch" "hid" "ias" "ibc" "ifr" "ill" "nil" "lin" "lvc" "mcs" "mes" "mpc" "mpd" "msg" "nak" "ncf" "nci" "ncl" "nfd" "ngu" "nin" "nma" "nmu" "nod" "nop" "npp" "nsf" "nst" "ntd" "nto" "nvf" "obi" "obs" "ofp" "osh" "ovf" "par" "pch" "pck" "pia" "pin" "pow" "prc" "pre" "pro" "rch" "ret" "rng" "rpt" "rvl" "sig" "spa" "stl" "stu" "stv" "sus" "tai" "tes" "thr" "ucp" "use" "voi" "zdi")] 1] match-string 2 nil "\\`-[LIn]\\([^;]+;\\)*\\([^;]*\\)\\'" #[0 "\300\301
\302\"\207" [nil pcomplete-entries file-directory-p] 4] "\\`-[Ee]\\(.*\\)\\'" #[0 "\300\301\302\301\303\304#\"\207" ["\\.[Ee][Xx][Ee]\\'" nil pcomplete-entries make-closure #1=#[257 "\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8] 1 "\\`-o\\(.*\\)\\'" #[0 "\300\301\302\301\303\304#\"\207" ["\\.[Oo][Bb][Jj]\\'" nil pcomplete-entries make-closure #1#] 8] pcomplete-opt "3456ABCDEHIKLMNOPRSTUVXabcdefgijklnoptuvwxyz" #[0 "\300\301\302\301\303\304#\"\207" ["\\.[iCc]\\([Pp][Pp]\\)?\\'" nil pcomplete-entries make-closure #1#] 8]] 6 (#$ . 8232)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias pcomplete/bcc pcomplete/bcc32 provide pcmpl-x] 3)