1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp /
Filename : pcmpl-gnu.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/pcmpl-gnu.el
;;; in Emacs version 24.3.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!\210\302\304!\210\305\301\306\307\310\303%\210\311\312\313\314\315DD\316\317\320\310\301&\207" [provide pcmpl-gnu require pcomplete pcmpl-unix custom-declare-group nil "Completions for GNU project tools." :group custom-declare-variable pcmpl-gnu-makefile-regexps funcall function #[0 "\300\207" [("\\`GNUmakefile" "\\`[Mm]akefile" "\\.ma?k\\'")] 1 "\n\n(fn)"] "A list of regexps that will match Makefile names." :type (repeat regexp)] 8)
#@30 Completion for `gzip'.

(fn)
(defalias 'pcomplete/gzip #[0 "\301\302\303!\210\304\305\306\211\211$\205�\202�)\207" [pcomplete-help "(gzip)" pcomplete-opt "cdfhlLnNqrStvV123456789" pcomplete--here #[0 "\300\301\302\303D\215!\207" [pcmpl-gnu-zipped-files has-d-flag funcall #[0 "\211\205�\301\302@\"\203�\303\304\305\"\210\211A\262\202�\207" [pcomplete-args string-match "\\`-.*[dt]" throw has-d-flag t] 4 "\n\n(fn)"]] 4 "\n\n(fn)"] nil] 5 (#$ . 1025)])
#@74 Find all zipped or unzipped files: the inverse of UNZIP-P.

(fn UNZIP-P)
(defalias 'pcmpl-gnu-zipped-files #[257 "\300\301\302\303\304\305\306!\307\"\310\311%\"\207" [pcomplete-entries nil make-byte-code 257 "\301!\205!�\302!\205!�\303\304\"\300\203�\211\206�\300?\205�\211?\262\207" vconcat vector [file-readable-p file-regular-p string-match "\\.\\(t?gz\\|\\(ta\\)?Z\\)\\'"] 4 "\n\n(fn ENTRY)"] 9 (#$ . 1492)])
#@31 Completion for `bzip2'.

(fn)
(defalias 'pcomplete/bzip2 #[0 "\300\301!\210\302\303\304\211\211$\205�\202�\207" [pcomplete-opt "hdzkftcqvLVs123456789" pcomplete--here #[0 "\300\301\302\303D\215!\207" [pcmpl-gnu-bzipped-files has-d-flag funcall #[0 "\211\205�\301\302@\"\203�\303\304\305\"\210\211A\262\202�\207" [pcomplete-args string-match "\\`-.*[dt]" throw has-d-flag t] 4 "\n\n(fn)"]] 4 "\n\n(fn)"] nil] 5 (#$ . 1920)])
#@74 Find all zipped or unzipped files: the inverse of UNZIP-P.

(fn UNZIP-P)
(defalias 'pcmpl-gnu-bzipped-files #[257 "\300\301\302\303\304\305\306!\307\"\310\311%\"\207" [pcomplete-entries nil make-byte-code 257 "\301!\205!�\302!\205!�\303\304\"\300\203�\211\206�\300?\205�\211?\262\207" vconcat vector [file-readable-p file-regular-p string-match "\\.\\(t?z2\\|bz2\\)\\'"] 4 "\n\n(fn ENTRY)"] 9 (#$ . 2358)])
#@34 Completion for GNU `make'.

(fn)
(defalias 'pcomplete/make #[0 "\301\302\303!\210\304\305\306\307\306$\205�\202�)\207" [pcomplete-help "(make)Top" pcomplete-opt "bmC/def(pcmpl-gnu-makefile-names)hiI/j?kl?no.pqrsStvwW." pcomplete--here #[0 "\300\301 \302 \"\207" [completion-table-in-turn pcmpl-gnu-make-rule-names pcomplete-entries] 3 "\n\n(fn)"] nil identity] 5 (#$ . 2780)])
#@49 Return a list of possible makefile names.

(fn)
(defalias 'pcmpl-gnu-makefile-names #[0 "\301\302\303\304#!\207" [pcmpl-gnu-makefile-regexps pcomplete-entries mapconcat identity "\\|"] 5 (#$ . 3166)])
#@62 Return a list of possible make rule names in MAKEFILE.

(fn)
(defalias 'pcmpl-gnu-make-rule-names #[0 "\302\235\211\211A@)\206!�\303\304!\203�\304\202!�\303\305!\203 �\305\202!�\306\307\310!\2042�?\205}�\302C\202}�\311\312!r\211q\210\313\314\315\316\317\320!\321\"\322\323%DC\216\324\313\314\315\325\317\320	!\326\"\322\323%D\327\313\330\324EDC\217\210\331\332\307\333#\203x�\334\335\336\337!!\"\262\202c�*\210\340!\207" [pcomplete-args x "-f" file-exists-p "GNUmakefile" "makefile" "Makefile" nil file-readable-p generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" #1=#:err "\301\300!\207" [insert-file-contents] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] re-search-forward "^\\s-*\\([^\n#%.$][^:=\n]*\\)\\s-*:[^=]" t append split-string match-string 1 pcomplete-uniqify-list] 12 (#$ . 3374)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable pcmpl-gnu-tarfile-regexp funcall function #[0 "\300\207" ["\\.t\\(ar\\(\\.\\(gz\\|bz2\\|Z\\|xz\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'"] 1 "\\.t\\(ar\\(\\.\\(gz\\|bz2\\|Z\\|xz\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'\n\n(fn)"] "A regexp which matches any tar archive." :version "24.3" :type regexp :group pcmpl-gnu] 10)
#@63 Run BODY inside a buffer visiting FILE.

(fn FILE &rest BODY)
(defalias 'pcmpl-gnu-with-file-buffer '(macro . #[385 "\300\301!\300\302!\300\303!\304D\305DD\306\307DEDE\310\311BB\312\313\314	D\315DE\316DEEE\207" [make-symbol "exist" "file" "buf" let* find-buffer-visiting or find-file-noselect unwind-protect with-current-buffer when and not buffer-live-p kill-buffer] 14 (#$ . 4678)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put pcmpl-gnu-with-file-buffer edebug-form-spec t lisp-indent-function 1] 4)
#@43 Completion for the GNU tar utility.

(fn)
(defalias 'pcomplete/tar #[0 "\301\211C\302B\303\304\305\"\203\346\306\262\303\307\305\"\203)�\303\310\305\"\203-�\311\312\301\306\301$\210\202-�\313\314!\210\303\315\305\"\203>�\311\316\301\306\301$\210\202�\303\317\305\"\203O�\311\320\301\306\301$\210\202�\303\321\305\"\203`�\311\322\301\306\301$\210\202�\303\323\305\"\203q�\311\324\301\306\301$\210\202�\303\325\305\"\203\205�\311\326\327\330\305\"\306\301$\210\202�\303\331\305\"\203\231�\311\332\327\330\305\"\306\301$\210\202�\303\333\305\"\203\252�\311\334\301\306\301$\210\202�\303\335\305\"\203\270�\211\306\240\210\202�\303\336\305\"\203\314�\311\337\327\330\305\"\306\301$\210\202�\303\340\305\"\203\340�\311\341\327\330\305\"\306\301$\210\202�\303\342\305\"\203\364�\311\343\327\330\305\"\306\301$\210\202�\303\344\305\"\203\311\345\327\330\305\"\306\301$\210\202�\303\346\305\"\203\311\347\301\306\301$\210\202�\303\350\305\"\203*\311\351\301\306\301$\210\202�\303\352\305\"\203>\311\353\327\330\305\"\306\301$\210\202�\303\354\305\"\203O\311\355\301\306\301$\210\202�\303\356\305\"\203c\311\357\327\330\305\"\306\301$\210\202�\303\360\305\"\203t\311\361\301\306\301$\210\202�\303\362\305\"\203\210\311\363\327\330\305\"\306\301$\210\202�\303\364\305\"\203\234\311\365\327\330\305\"\306\301$\210\202�\303\366\305\"\203\255\311\367\301\306\301$\210\202�\303\370\305\"\203\276\311\371\301\306\301$\210\202�\303\372\305\"\203\322\311\373\327\330\305\"\306\301$\210\202�\303\374\305\"\203�\311\375\327\330\305\"\306\301$\210\202�)\204�\311\376\301\211\211$\210\303\377\201@�\330#\203�\211\306\240\210\311\201A�\301\211\211$\210\311\201B�\305\201C�\201D�\201E�!\201F�\"\201G�\201H�%\301\201I�\301$\2051\202	\207" [pcomplete-suffix-list nil 61 pcomplete-match "^-" 0 t "^--" "^--\\([^= 	\n\f]*\\)\\'" pcomplete--here #[0 "\300\207" [("--absolute-names" "--after-date=" "--append" "--atime-preserve" "--backup" "--block-number" "--blocking-factor=" "--catenate" "--checkpoint" "--compare" "--compress" "--concatenate" "--confirmation" "--create" "--delete" "--dereference" "--diff" "--directory=" "--exclude=" "--exclude-from=" "--extract" "--file=" "--files-from=" "--force-local" "--get" "--group=" "--gzip" "--help" "--ignore-failed-read" "--ignore-zeros" "--incremental" "--info-script=" "--interactive" "--keep-old-files" "--label=" "--list" "--listed-incremental" "--mode=" "--modification-time" "--multi-volume" "--new-volume-script=" "--newer=" "--newer-mtime" "--no-recursion" "--null" "--numeric-owner" "--old-archive" "--one-file-system" "--owner=" "--portability" "--posix" "--preserve" "--preserve-order" "--preserve-permissions" "--read-full-records" "--record-size=" "--recursive-unlink" "--remove-files" "--rsh-command=" "--same-order" "--same-owner" "--same-permissions" "--sparse" "--starting-file=" "--suffix=" "--tape-length=" "--to-stdout" "--totals" "--uncompress" "--ungzip" "--unlink-first" "--update" "--use-compress-program=" "--verbose" "--verify" "--version" "--volno-file=")] 1 "\n\n(fn)"] pcomplete-opt "01234567ABCFGKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz" "\\`-\\'" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--after-date=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--backup=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--blocking-factor=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--directory=\\(.*\\)" #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4 "\n\n(fn)"] pcomplete-match-string 1 "\\`--exclude-from=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1 "\n\n(fn)"] "\\`--exclude=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--\\(extract\\|list\\)\\'" "\\`--file=\\(.*\\)" #[0 "\301\302\301\303\304\305\306\307\"\310\"\311\312%\"\207" [pcmpl-gnu-tarfile-regexp 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 "\n\n(fn)"] "\\`--files-from=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1 "\n\n(fn)"] "\\`--group=\\(.*\\)" #[0 "\205�\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2 "\n\n(fn)"] "\\`--info-script=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1 "\n\n(fn)"] "\\`--label=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--mode=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--new-volume-script=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1 "\n\n(fn)"] "\\`--newer=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--owner=\\(.*\\)" #[0 "\205�\301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2 "\n\n(fn)"] "\\`--record-size=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--rsh-command=\\(.*\\)" #[0 " \207" [pcomplete-command-completion-function] 1 "\n\n(fn)"] "\\`--starting-file=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1 "\n\n(fn)"] "\\`--suffix=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--tape-length=" #[0 "\300\207" [nil] 1 "\n\n(fn)"] "\\`--use-compress-program=\\(.*\\)" #[0 " \207" [pcomplete-command-completion-function] 1 "\n\n(fn)"] "\\`--volno-file=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1 "\n\n(fn)"] #[0 "\301\302\303\304\305\")\"\207" [string mapcar char-to-string "01234567ABCFGIKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz" append nil] 5 "\n\n(fn)"] "[xt]" first #[0 "\301\302\301\303\304\305\306\307\"\310\"\311\312%\"\207" [pcmpl-gnu-tarfile-regexp 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 "\n\n(fn)"] make-byte-code "\300@\2032�\302\303\304!!\3058\211\247\205�	?\206�\211	W\266\202\2032�\303\304!\306\307\310\311\312\313!\314\"\315\316%!\207\317 \207" vconcat vector [large-file-warning-threshold file-attributes pcomplete-arg 1 7 completion-table-dynamic make-byte-code 257 "\300\302!\211\206�\303!\304\305\306\307\310\311\"\312\"\313\314%DC\216r\211q\210\315\316	\"*\207" vconcat vector [tar-parse-info find-buffer-visiting find-file-noselect funcall make-byte-code 0 "\300?\205�\302\301!\205�\303\301!\207" vconcat vector [buffer-live-p kill-buffer] 2 "\n\n(fn)" mapcar tar-header-name] 12 "\n\n(fn STRING)" pcomplete-entries] 8 "\n\n(fn)" identity] 9 (#$ . 5222)])
(defalias 'pcomplete/gdb 'pcomplete/xargs)