HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/pcmpl-x.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 "\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\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 (#$ . 8573)])
(provide 'pcmpl-x)