| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/pcmpl-x.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\205P eb\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\2058 eb\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\205S eb\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)