| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/pcmpl-gnu.elc |
;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)