;ELC ;;; Compiled ;;; in Emacs version 27.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\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" [#1="tlmgr"] 1 #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=\203R\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315 \316\317\316\320&\307U\205Peb\210\321\322\316\323\324\316\317#\203E\325\326!B\262\2023\211\237\262B#\210\327!*\207\302\"\207" [pcmpl-x-tlmgr-options-cache pcmpl-x-tlmgr-program gethash missing generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process nil t "-h" puthash "--help" re-search-forward "^[ ]+\\(--[[:alnum:]-]+=?\\)" match-string 1 pcmpl-x-tlmgr-action-options] 10 (#$ . 2077)]) #@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\"\203P\304\316\303\317\320\321!\322\"\323$\306\307\306$\210\2024\324\"A\211\203\223\211@\325!\203g\211 \210\202\214\310\311\303!\"\203\205\304\316\303\326\320\321!\327\"\315$\306\307\306$\210\202\214\304\330\306\307\306$\210A\266\202\202U\210\301\302\303\"\2044\304\331\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\304\305\306\"\307\"\310\311%\"\207" [nil pcomplete-entries make-byte-code 257 "\302!\206\300\203\303\300\"\205\301?\206\301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)"] 11] #[0 "\207" [pcmpl-x-tlmgr-actions] 1] substring-no-properties 1 make-byte-code "\301\300!\207" vconcat vector [pcmpl-x-tlmgr-action-options] 2 assoc functionp "\300\207" [] #[0 "\300\211\301\300\302\303\304\305\306\"\307\"\310\311%\"\207" [nil pcomplete-entries make-byte-code 257 "\302!\206\300\203\303\300\"\205\301?\206\301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)"] 11] #[0 "\300\211\301\300\302\303\304\305\306\"\307\"\310\311%\"\207" [nil pcomplete-entries make-byte-code 257 "\302!\206\300\203\303\300\"\205\301?\206\301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)"] 11]] 10 (#$ . 2748)]) (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") (#$ . 4686)) #@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 (#$ . 4997)]) #@38 Short options for the `ack' command. (defalias 'pcmpl-x-ack-short-options #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\314\"\303U\2058eb\210\315\316\311\313#\2032\317\320!B\262\202 \321\322\237\323#\262*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil pcmpl-x-ack-run t "--help" re-search-forward "^ -\\([^-]\\)" match-string 1 mapconcat identity ""] 7 (#$ . 5251)]) #@57 Long options for the `ack' command. (fn &optional ARG) (defalias 'pcmpl-x-ack-long-options #[256 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\206\314\"\303U\205Seb\210\315\316\311\313#\203Q\317\310!\204<\317\320!B\262\202$\321\317\322!PB\262\323\317\322!PB\262\202$\211\237\262*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil pcmpl-x-ack-run t "--help" re-search-forward "\\(?: ?\\|, \\)\\(--\\(\\[no\\]\\)?\\([[:alnum:]-]+=?\\)\\)" match-string 1 "--" 3 "--no"] 8 (#$ . 5744)]) #@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 (#$ . 6356)]) #@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 "\300\301\"\207" [substring 2] 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\304\305\306\"\307\"\310\311%\"\207" [nil pcomplete-entries make-byte-code 257 "\302!\206\300\203\303\300\"\205\301?\206\301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)"] 11]] 5 (#$ . 6516)]) (defalias 'pcomplete/ack-grep 'pcomplete/ack) (defvar pcmpl-x-ag-options nil) (defalias 'pcmpl-x-ag-options #[0 "\206\206\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\315\314\316%\304U\205\201\314\211eb\210\317\320\314\315#\203:\321\322!B\262\202(eb\210\317\323\314\315#\203v\321\311!\203l\324\325\314\211\211\311%\210\321\322!B\262\324\326\314\211\211\311%\210\321\322!B\262\202=\321\322!B\262\202=\327\237B\330\237BD\266\202*\262\211\207" [pcmpl-x-ag-options generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process "ag" nil t "--help" re-search-forward "^ +\\(-[a-zA-Z]\\) " match-string 1 "^ +\\(?:-[a-zA-Z] \\)?\\(--\\(\\[no\\]\\)?[^ \n]+\\) " 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\304\305\306\"\307\"\310\311%\"\207" [nil pcomplete-entries make-byte-code 257 "\302!\206\300\203\303\300\"\205\301?\206\301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)"] 11]] 5 (#$ . 8577)]) (provide 'pcmpl-x)