;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'pcomplete)#@35 Completion for the `tex' command. (defalias 'pcomplete/tex #[0 "\300\301\302\303#\207" [pcomplete-here-using-help "tex --help" :margin "^\\(?:\\[-no\\]\\)?\\(\\)-"] 4 (#$ . 104)])#@38 Completion for the `luatex' command. (defalias 'pcomplete/luatex #[0 "\300\301!\207" [pcomplete-here-using-help "luatex --help"] 2 (#$ . 289)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [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 pcomplete] 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\262B#\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 (#$ . 2082)])#@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$\210A\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\301\203\303\301\"\205\300?\206\300!\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 (#$ . 2726)])#@34 Completion for the `rg' command. (defalias 'pcomplete/rg #[0 "\300\301!\207" [pcomplete-here-using-help "rg --help"] 2 (#$ . 3939)]) (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") (#$ . 4399))#@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 (#$ . 4709)])#@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#*\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 (#$ . 4962)])#@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!PB\262\320\313\317!PB\262\202\211\237*\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 (#$ . 5423)])#@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 (#$ . 6005)])#@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\301\203\303\301\"\205\300?\206\300!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8]] 5 (#$ . 6164)]) (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\301\203\303\301\"\205\300?\206\300!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8]] 5 (#$ . 8156)])#@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\301\203\303\301\"\205\300?\206\300!\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 (#$ . 8689)]) (defalias 'pcomplete/bcc 'pcomplete/bcc32)#@38 Completion for the `rclone' command. (defalias 'pcomplete/rclone #[0 "\300\301\302\303\304\305\306\307&\310\311!\235\204\312\313\314\"\315\211\211$\210\202\n\310\311!\316\317\320\"\2035\312\313\321\"\315\211\211$\202;\312\322\315\211\211$\205A\202\"\207" [pcomplete-from-help "rclone help" :margin "^ " :argument "[a-z]+" :narrow-start "\n\n" pcomplete-arg 1 pcomplete--here make-closure #[0 "\301\300\302\303!\"\207" [V0 completion-table-merge pcomplete-from-help "rclone help flags"] 4] nil pcomplete-match "\\`-" 0 #[0 "\301\302\300\303BB!\207" [V0 pcomplete-from-help "rclone" ("--help")] 4] #[0 "\300 \207" [pcomplete-entries] 1]] 8 (#$ . 10424)]) (provide 'pcmpl-x)