%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/pcmpl-gnu.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!\210\302\304!\210\305\301\306\307\310\303%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324\325\326\327\330& \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] "A list of regexps that will match Makefile names." :type (repeat regexp) pcmpl-gnu-makefile-includes #[0 "\300\207" [t] 1] "If non-nil, `pcomplete/make' completes on targets in included files." boolean :version "27.1" :safe booleanp] 10) #@24 Completion for `gzip'. (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 "\301\3022! \211\205 \303\304@\"\203 \305\302\306\"\210\211A\262\202 \2620!\207" [pcomplete-args pcmpl-gnu-zipped-files has-d-flag string-match "\\`-.*[dt]" throw t] 5] nil] 5 (#$ . 1078)]) #@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 (#$ . 1478)]) #@25 Completion for `bzip2'. (defalias 'pcomplete/bzip2 #[0 "\300\301!\210\302\303\304\211\211$\205 \202 \207" [pcomplete-opt "hdzkftcqvLVs123456789" pcomplete--here #[0 "\301\3022! \211\205 \303\304@\"\203 \305\302\306\"\210\211A\262\202 \2620!\207" [pcomplete-args pcmpl-gnu-bzipped-files has-d-flag string-match "\\`-.*[dt]" throw t] 5] nil] 5 (#$ . 1906)]) #@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 (#$ . 2277)]) #@28 Completion for GNU `make'. (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] nil identity] 5 (#$ . 2699)]) #@43 Return a list of possible makefile names. (defalias 'pcmpl-gnu-makefile-names #[0 "\301\302\303\304#!\207" [pcmpl-gnu-makefile-regexps pcomplete-entries mapconcat identity "\\|"] 5 (#$ . 3068)]) #@103 Add to TARGETS the list of makefile targets in the current buffer. Return the new list. (fn TARGETS) (defalias 'pcmpl-gnu-make-targets #[257 "eb\210\300\301\302\303#\203 \304\305\306!!\244\262\202 \207" [re-search-forward "^\\s-*\\([^\n#%.$][^:=\n]*\\)\\s-*:[^=]" nil t split-string match-string-no-properties 1] 5 (#$ . 3271)]) #@65 Return a list of all included file names in the current buffer. (defalias 'pcmpl-gnu-make-includes #[0 "\300eb\210\301\302\300\303#\203 \304\305!B\262\202 \211\207" [nil search-forward-regexp "^include +\\(.*\\)$" t match-string-no-properties 1] 5 (#$ . 3611)]) #@120 Add to TARGETS the list of target names in MAKEFILE and files it includes. Return the new list. (fn MAKEFILE TARGETS) (defalias 'pcmpl-gnu-make-all-targets #[514 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\3121 \313!0\202$ \314\315\"\262\210\205+ \316 \317!\262\211\211\203K \211@\320!\203D \321\"\262A\266\202\2021 \266*\210\207" [pcmpl-gnu-makefile-includes generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (debug error) insert-file-contents message "Error: %S" pcmpl-gnu-make-includes pcmpl-gnu-make-targets file-readable-p pcmpl-gnu-make-all-targets] 9 (#$ . 3884)]) #@80 Return a list of possible make targets in a makefile in the current directory. (defalias 'pcmpl-gnu-make-rule-names #[0 "\301\235\211A@\206 \302\303!\203 \303\202 \302\304!\203 \304\202 \305\306\307!\204/ ?\2058 \301C\2028 \310\"\262\311!\207" [pcomplete-args "-f" file-exists-p "GNUmakefile" "makefile" "Makefile" nil file-readable-p pcmpl-gnu-make-all-targets pcomplete-uniquify-list] 6 (#$ . 4562)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable pcmpl-gnu-tarfile-regexp funcall function #[0 "\300\207" [#1="\\.t\\(ar\\(\\.\\(gz\\|bz2\\|Z\\|xz\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'"] 1 #1#] "A regexp which matches any tar archive." :version "24.3" :type regexp] 8) #@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 (#$ . 5283)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put pcmpl-gnu-with-file-buffer edebug-form-spec t function-put lisp-indent-function 1] 4) #@37 Completion for the GNU tar utility. (defalias 'pcomplete/tar #[0 "\300\211C\301\302\303\"\203\342\304\262\301\305\303\"\203% \301\306\303\"\203) \307\310\300\304\300$\210\202) \311\312!\210\301\313\303\"\203: \307\314\300\304\300$\210\202 \301\315\303\"\203K \307\316\300\304\300$\210\202 \301\317\303\"\203\\ \307\320\300\304\300$\210\202 \301\321\303\"\203m \307\322\300\304\300$\210\202 \301\323\303\"\203\201 \307\324\325\326\303\"\304\300$\210\202 \301\327\303\"\203\225 \307\330\325\326\303\"\304\300$\210\202 \301\331\303\"\203\246 \307\332\300\304\300$\210\202 \301\333\303\"\203\264 \211\304\240\210\202 \301\334\303\"\203\310 \307\335\325\326\303\"\304\300$\210\202 \301\336\303\"\203\334 \307\337\325\326\303\"\304\300$\210\202 \301\340\303\"\203\360 \307\341\325\326\303\"\304\300$\210\202 \301\342\303\"\203\307\343\325\326\303\"\304\300$\210\202 \301\344\303\"\203\307\345\300\304\300$\210\202 \301\346\303\"\203&\307\347\300\304\300$\210\202 \301\350\303\"\203:\307\351\325\326\303\"\304\300$\210\202 \301\352\303\"\203K\307\353\300\304\300$\210\202 \301\354\303\"\203_\307\355\325\326\303\"\304\300$\210\202 \301\356\303\"\203p\307\357\300\304\300$\210\202 \301\360\303\"\203\204\307\361\325\326\303\"\304\300$\210\202 \301\362\303\"\203\230\307\363\325\326\303\"\304\300$\210\202 \301\364\303\"\203\251\307\365\300\304\300$\210\202 \301\366\303\"\203\272\307\367\300\304\300$\210\202 \301\370\303\"\203\316\307\371\325\326\303\"\304\300$\210\202 \301\372\303\"\203 \307\373\325\326\303\"\304\300$\210\202 \204\371\307\374\300\211\211$\210\301\375\376\326#\203\371\211\304\240\210\307\377\300\211\211$\210\307\201@ \303\201A \201B \201C !\201D \"\201E $\300\201F \300$\205%\202 \207" [nil 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] pcomplete-opt "01234567ABCFGKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz" "\\`-\\'" #[0 "\300\207" [nil] 1] "\\`--after-date=" #[0 "\300\207" [nil] 1] "\\`--backup=" #[0 "\300\207" [nil] 1] "\\`--blocking-factor=" #[0 "\300\207" [nil] 1] "\\`--directory=\\(.*\\)" #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] pcomplete-match-string 1 "\\`--exclude-from=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1] "\\`--exclude=" #[0 "\300\207" [nil] 1] "\\`--\\(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] "\\`--files-from=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1] "\\`--group=\\(.*\\)" #[0 "\205 \301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] "\\`--info-script=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1] "\\`--label=" #[0 "\300\207" [nil] 1] "\\`--mode=" #[0 "\300\207" [nil] 1] "\\`--new-volume-script=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1] "\\`--newer=" #[0 "\300\207" [nil] 1] "\\`--owner=\\(.*\\)" #[0 "\205 \301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2] "\\`--record-size=" #[0 "\300\207" [nil] 1] "\\`--rsh-command=\\(.*\\)" #[0 " \207" [pcomplete-command-completion-function] 1] "\\`--starting-file=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1] "\\`--suffix=" #[0 "\300\207" [nil] 1] "\\`--tape-length=" #[0 "\300\207" [nil] 1] "\\`--use-compress-program=\\(.*\\)" #[0 " \207" [pcomplete-command-completion-function] 1] "\\`--volno-file=\\(.*\\)" #[0 "\300 \207" [pcomplete-entries] 1] #[0 "\300\301\302\303\304\"\262\"\207" [mapcar char-to-string "01234567ABCFGIKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz" append nil] 6] "[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] make-byte-code "\300\242\2035 \302\303\304!!\211\3058\262\211\247\205 ?\206 \211 W\266\202\2035 \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$\216r\211q\210\313\314 \"*\207" vconcat vector [tar-parse-info find-buffer-visiting find-file-noselect make-byte-code 0 "\300?\205 \302\301!\205 \303\301!\207" vconcat vector [buffer-live-p kill-buffer] 2 mapcar tar-header-name] 11 "\n\n(fn STRING)" pcomplete-entries] 8 identity] 9 (#$ . 5844)]) #@38 Completion for the GNU find utility. (defalias 'pcomplete/find #[0 "\300\301\302\"\303\304\301\"\203 \211\305\230\203 \306\307!\210\202f \303\304\301\"\203+ \310\311\312\211\211$\204 \202f \211\313\230\203= \310\314\312\211\211$\2041 \202f \211\315\230\203O \310\316\312\211\211$\204C \202f \211\317\230\204[ \211\320\230\203f \310\321\300\301!\322\211$\204[ \310\323\312\324\312$\205r \202f \207" [pcomplete-arg last -1 pcomplete-match "^-" "find" pcomplete-opt "HLPDO" pcomplete--here #[0 "\300\207" [("-amin" "-anewer" "-atime" "-cmin" "-cnewer" "-context" "-ctime" "-daystart" "-delete" "-depth" "-empty" "-exec" "-execdir" "-executable" "-false" "-fls" "-follow" "-fprint" "-fprint0" "-fprintf" "-fstype" "-gid" "-group" "-help" "-ignore_readdir_race" "-ilname" "-iname" "-inum" "-ipath" "-iregex" "-iwholename" "-links" "-lname" "-ls" "-maxdepth" "-mindepth" "-mmin" "-mount" "-mtime" "-name" "-newer" "-nogroup" "-noignore_readdir_race" "-noleaf" "-nouser" "-nowarn" "-ok" "-okdir" "-path" "-perm" "-print" "-print0" "-printf" "-prune" "-quit" "-readable" "-regex" "-regextype" "-samefile" "-size" "-true" "-type" "-uid" "-used" "-user" "-version" "-warn" "-wholename" "-writable" "-xdev" "-xtype")] 1] nil "-type" #[0 "\300\301\302\303\304\305\306\307\257\207" ["b" "c" "d" "p" "f" "l" "s" "D"] 8] "-xtype" #[0 "\300\301\302\303\304\305\306\257\207" ["b" "c" "d" "p" "f" "l" "s"] 7] "-exec" "-execdir" #[0 " \207" [pcomplete-command-completion-function] 1] t #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] identity] 6 (#$ . 11661)]) (defalias 'pcomplete/gdb 'pcomplete/xargs)